Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.




  • Prev by Date: Re: NIntegrate[UnitStep[...]PDF[...],{x,...}] hard to integrate
  • Next by Date: Re: Re: Tooltip ans Sound - 2nd posting
  • Previous by thread: Re: Creating animated 3d graphic in Mathematica for export
  • Next by thread: ways to save the output from a notebook