Advanced Search

Question: graphing a moving particle on two 3-D sphjeres

Question:graphing a moving particle on two 3-D sphjeres

mikerada6 36 Maple
plot3d sphere plotting
November 05 2007
0
i am trying to plot a moving particle on two separate sphers of different radii. i have the code: restart: > with(plots): > with(plottools): > p1:=plot3d([3*sin(u)*cos(v),3*sin(u)*sin(v),3*cos(u)], u=0..Pi, v=0..2*Pi,color=red, > style=wireframe,axes=normal,scaling=constrained): > p2:=plot3d ([2.9*sin(u)*cos(v),2.9*sin(u)*sin(v),2.9*cos(u)], u=0..Pi, v=0..2*Pi,color=blue,axes=normal,scaling=constrained): > p3:=display(p1,[seq( pointplot( { [3*sin(u)*cos(v)(k/50)(n/50),3*sin(u)*sin(v)(k/50)(n/50),3*cos(u)(k/50)(n/50)],[2.9*sin(u)*cos(v)(k/50)(n/50), 2.9*sin(u)*sin(v)(k/50)(n/50),2.9*cos(u)(k/50)(n/50) ] } ) , (k,n)=(0..314,0..314) ) ],insequence=true): > display(p1,p2); but when i try to execute i get the error : Error, unable to execute seq
Please Wait...