Re: What is best trick to eliminate flicker in simulation animation?
- To: mathgroup at smc.vnet.net
- Subject: [mg127367] Re: What is best trick to eliminate flicker in simulation animation?
- From: "Nasser M. Abbasi" <nma at 12000.org>
- Date: Fri, 20 Jul 2012 03:51:32 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- Reply-to: nma at 12000.org
On 7/19/2012 2:59 AM, Nasser M. Abbasi wrote:
Opps, I seem to have pasted an older cell somehow. Please
ignore last code, here it is again (was missing 2 lines, do
not know how this happened).
thanks,
--Nasser
-----------------------
ClearAll["`*"];
g=9.8; m=30; f=1; L0=4;
k=m*(2*Pi*f)^2;
eq1=x1'[t]==x2[t];
eq2=x2'[t]==x1[t]*x4[t]^2-g*Cos[x3[t]]-(k/m)*(x1[t]-L0);
eq3=x3'[t]==x4[t];
eq4=x4'[t]==-(g/x1[t])Sin[x3[t]]-2*x2[t]*x4[t]/x1[t];
ic={x1[0]==L0,x2[0]==0.,x3[0]==Pi/4.,x4[0]==0.};
sol=First@NDSolve[Flatten@{eq1,eq2,eq3,eq4,ic},{x1,x2,x3,x4},{t,0,10}];
x=x1/.sol;
theta=x3/.sol;
Animate[
Graphics[{Red,Line[{{0,0},{x[t]*Sin[theta[t]],-x[t]*Cos[theta[t]]}}]},
PlotRange->{{-L0,L0},{-1.4L0,L0/2}},
ImageSize->300,
Frame->True,
Axes->False],
{t,0,10,.1},AnimationRunning->False]
--------------------------