Message Boards Message Boards

Plot 3D points and create an animation?

Posted 6 years ago
POSTED BY: Yolo Moto
2 Replies
Posted 6 years ago

Ok, thanks, i did it with Manipulate like you said but i wrapped Show that wrapped ListPlot3D

With[ { mtrx = Transpose[points], range = {Min[#], Max[#]} & /@ points } , Manipulate[ Column[ { Row[{ind, "\t", mtrx[[ind]]}] , Show[ ListPointPlot3D[ {mtrx[[ind]]} , PlotStyle -> Directive[PointSize[0.02], Red]], PlotRange -> range, ImageSize -> 400

 ]

}

, Center ] , {ind, 1, Length[mtrx], 1}

] ]

Now i want to add rotation and i do not mange to to it. i have azimuth, alvetion and roll and i want to creat an object that moves in the x,y,z axis like i did above, but i also want him to rotate acoording to azimuth,alevation,roll that i have in another matrix

thanks

POSTED BY: Yolo Moto

First use Thread[ ], then you can use Manipulate wrapping Graphics3D[ ] and Point[ ] and Part[ ] . With the slider you would manipulate the part number of your list, i.e. the successive points.

POSTED BY: Raspi Rascal
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract