8.2　アニメーション

Animate[
Clear[y,x];
g=-9.8;
ref=0.3;
in=0.08;
a=Sin[θ];
b=Cos[θ];
c=v;
d=t*t*1/2;
x=b*c*t;
y=a*c*t+g*d;

If[x>1140&&θ==1&&y<1060&&v<=120,x=1140-(x-1140)*ref];
If[x>2440&&θ==1&&y<1060&&v==170,x=2440-(x-2440)*ref];
If[x>1140&&θ==0.5&&y<1060&&v≠160&&v≠170&&v≠180,x=1140-(x-1140)*ref];
If[x>2440&&θ==0.5&&y<1060&&v>=170,x=2440-(x-2440)*ref];
If[x>2580&&v==180&&θ==1&&y<1060,x=2580-(x-2580)*in];
If[x>1280&&v==160&&θ==0.5&&y<1060,x=1280-(x-1280)*in];

ring={Circle[{x,y},{100,50}]};
bou1={Polygon[{{1200,-80},{1200,300},{1250,300},{1250,-80}}]};
bou2={Polygon[{{2500,-80},{2500,600},{2550,600},{2550,-80}}]};
nice=Text[Style[Nice!,FontSize->50],{1300,900}];
great=Text[Style[Great!!,FontSize->50],{2500,1200}];

Graphics[{{If[t>12&&v==160&&θ==0.5,nice]},{If[t>28&&v==180&&θ==1,great]},{Blue,bou1},{Green,bou2},{Red,ring}},PlotRange->{{-100,3200},{-80,1500}}],{{t,0},0,40},{v,100,180,10},{θ,0.0,1.5,.5},AnimationRunning->False]