Re: Creating animated 3d graphic in Mathematica for export

*To*: mathgroup at smc.vnet.net*Subject*: [mg93428] Re: Creating animated 3d graphic in Mathematica for export*From*: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>*Date*: Fri, 7 Nov 2008 06:02:04 -0500 (EST)

Hi, Mark, I am copying here a code that I used for the same purposes with Plot3D. Going to 3D ListPlot should be straightforward. (* This is a z=z(x,y) function to show *) z[x_, y_] := Exp[-(Sqrt[x^2 + y^2]/Power[4, (3)^-1]) + Power[4, (3)^-1]*Sqrt[1/2*(Sqrt[x^2 + y^2] + x)]]; (*and its graph*) pl1 = Plot3D[2*z[x, y], {x, -5, 5}, {y, -5, 5}, PlotStyle -> {Opacity[0.8]}, ColorFunction -> "Rainbow", Mesh -> None, Boxed -> False, ImageSize -> 500]; (* here a graphics array is made. In this place one may play with the rotation angle (here it is 4 degrees) and choose the axis of rotation in the expression Rotate[pl1[[1]], 4*i*Degree, {0, 0, 1}] *) Do[gr[i_] := Graphics3D[ Rotate[pl1[[1]], 4*i*Degree, {0, 0, 1}], PlotRange -> {{-5, 5}, {-5, 5}, {0, 6}}, Boxed -> False ], {i, 0, 1440, 1} ]; (* and a table entitled "v" out of it (of coarse may be also done in one step), the parameter to play in this place is the number of steps, which is 90=360/4 here *) v = Table[gr[i], {i, 0, 90, 1}]; (*Here it is exported into an avi file. The parameter to play with is the frame rate*) Export[""Full_trajectory_to_the_file\v.avi", v, "FrameRate" -> 5] Have fun :-) , Alexei Greetings, I'm attempting to create a simple animation of a 3D ListPlot. In the animation I'd like to simply rotate the graphic continuously and automatically (no user input), and then export this animation into a common video format (MPEG or Quicktime). Does anyone have an example of this? Thanks, Mark -- Alexei Boulbitch, Dr., Habil. Senior Scientist IEE S.A. ZAE Weiergewan 11, rue Edmond Reuter L-5326 Contern Luxembourg Phone: +352 2454 2566 Fax: +352 2454 3566 Website: www.iee.lu This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you are not the intended recipient and have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal from your system. Thank you for your co-operation.