選択課題
雲が流れていくアニメーション

アニメーションの生成

FlowingDrouds=Animate[
1つ目の雲を作成
Kumo1={{White,Disk[{t/2-0.7,1.2Cos[t]/10+2.9},0.5]},(*時間と共に円盤が進むようにx座標にtを入れた。雲の揺れを表現するため円盤が小さい振幅で上下運動をするように
cos関数を使用した。*)
{White,Disk[{t/2-1.6,1.2Cos[t]/10+2.5},0.5]},(*描画範囲を原点付近にしていないため+〇
の部分で上下運動の中心を定義*)
{White,Disk[{t/2-1.4,1.2Cos[t]/10+3.2},0.6]},
{White,Disk[{t/2-2.2,1.2Cos[t]/10+3},0.6]},
{White,Disk[{t/2-1.2,1.2Cos[t]/10+2.5},0.35]}
};


2つ目の雲を作成
Kumo2={{White,Disk[{t/2-5,1.4Sin[t]/10+2},0.5]},
{White,Disk[{t/2-5.9,1.4Sin[t]/10+1.5},0.5]},
{White,Disk[{t/2-5.7,1.4Sin[t]/10+2.2},0.6]},
{White,Disk[{t/2-6.5,1.4Sin[t]/10+2},0.8]},
{White,Disk[{t/2-5.5,1.4Sin[t]/10+1.5},0.35]},
{White,Disk[{t/2-7.2,1.4Sin[t]/10+1.6},0.7]},
{White,Disk[{t/2-8.2,1.4Sin[t]/10+1.6},0.3]},
{White,Disk[{t/2-7.8,1.4Sin[t]/10+1.6},0.5]}
};


3つ目の雲を作成
Kumo3={{White,Disk[{t/2-9,1.2Cos[t+Pi/4]/10+4},0.5]},
{White,Disk[{t/2-9.6,1.2Cos[t+Pi/4]/10+4},0.4]},
{White,Disk[{t/2-8.6,1.2Cos[t+Pi/4]/10+4},0.35]}
};



太陽を作成
San={RGBColor[0.98,0.68,0.],Disk[{2,If[t>=14,18.3-t,4.3]},0.35]};


月を作成
Moon={RGBColor[1.,0.98,0.8],Disk[{6,If[t>=24,4.3,t-19.7]},0.35]};



空の移り変わり（背景）を作成
Haikei={RGBColor[0.6,0.81,1.],Rectangle[{0,0},{8,5}]};(*昼の青い空*)


昼の空から夕方の空に変化する部分
If[15<=t<=15.4,Haikei={RGBColor[0.74,0.9,1.],Rectangle[{0,0},{8,5}]}];(*少し薄い青*)
If[15.5<=t<=15.9,Haikei={RGBColor[0.86,0.94,1.],Rectangle[{0,0},{8,5}]}];(*一番薄い青*)
If[16<=t<=16.4,Haikei={RGBColor[1.,0.98,0.86],Rectangle[{0,0},{8,5}]}];(*中間色*)
If[16.5<=t<=16.9,Haikei={RGBColor[1.,0.92,0.7],Rectangle[{0,0},{8,5}]}];(*少し薄い橙*)
If[17<=t<=19.9,Haikei={RGBColor[1.,0.85,0.4],Rectangle[{0,0},{8,5}]}];(*夕焼けの橙*)



夕方の空から夜の空に変化する部分
If[20<=t<=20.4,Haikei={RGBColor[1.,0.92,0.7],Rectangle[{0,0},{8,5}]}];(*少し薄い橙*)
If[20.5<=t<=20.9,Haikei={RGBColor[1.,0.98,0.86],Rectangle[{0,0},{8,5}]}];(*一番薄い橙*)
If[21<=t<=21.4,Haikei={RGBColor[1.,0.92,0.92],Rectangle[{0,0},{8,5}]}];(*中間色１*)
If[21.5<=t<=21.9,Haikei={RGBColor[0.84,0.88,1.],Rectangle[{0,0},{8,5}]}];(*中間色２*)
If[22<=t<=23.4,Haikei={RGBColor[0.44,0.55,1.],Rectangle[{0,0},{8,5}]}];(*一番薄い紺*)
If[23.5<=t<=23.9,Haikei={RGBColor[0.,0.29,1.],Rectangle[{0,0},{8,5}]}];(*少し薄い紺*)
If[t>=24,Haikei={RGBColor[0.,0.24,0.66],Rectangle[{0,0},{8,5}]}];(*夜の紺*)



図形の表示と描画範囲の指定
Graphics[{Haikei,San,Moon,Kumo1,Kumo2,Kumo3},PlotRange->{{0,8},{0,5}}(*黄金比8:5*)],
{t,0,36,0.1},(*アニメーションのtの範囲とtの変わり幅の指定*)
AnimationRunning->False,(*実行時に自動的に開始されないように設定*)
AnimationRate->1.1(*アニメーションのフレームが切り替わる速度の指定*)
]