> x10:=10:y10:=10:z10:=10: > > ball1 := sphere( [x10,y10,z10], grid=[10,10],axes=normal,color=blue): > for i from 1 to 30 do > j:=i-1: > x1||i:=x1||j+2*(stats[random,uniform](1)-0.5); > y1||i:=y1||j+2*(stats[random,uniform](1)-0.5): > z1||i:=z1||j+2*(stats[random,uniform](1)-0.5): > end do: > balls1:=seq(plots[display](translate(ball1,x1||i,y1||i,z1||i),view=[0..30,0..30,0..30]), i=0..30): > > > > display(balls1,axes=boxed,insequence=true); >