next up previous contents
Next: 問題2: Up: 簡単な動画 Previous: 簡単な動画

例題2:

時刻 t, 位置 $x\in[0,2\pi]$ における変移が $f(x,t)=\sin x\cos t
+\sin 3x\cos 3t + \sin 5x\cos 5t$ で与えられる弦の振動を描け6

現代では常識になっていることだが、実際に連続的に図を変化させなくても、 十分素早く図を切り変えれば「連続的に動いている」ように見える。適当な時 間間隔 $\Delta t$ を定めて、時刻 $t_j=j\Delta t$ ( $j=0,1,2,\cdots$) に おける x の関数 f(x,tj) のグラフを次々に描けばよいであろう。以下 では、古いグラフを消すために erase() を用いている。
サンプルプログラムreidai2.f


サンプルプログラムreidai2.c

これもコンパイルして実行してみよう。
\begin{itembox}[l]{Fortran の場合}\small
\begin{tabbing}
xxxxxxxxxxxxxxxxxxxx\=\...
...erline{\tt 6.28} \> ← (一周期分) \\
\verb*+oyabun%+
\end{tabbing}\end{itembox}


\begin{itembox}[l]{C の場合}
\begin{tabbing}
{\tt oyabun\% }\underline{\tt ccx r...
...\tt 追跡時間=}\underline{\tt 6.28}\\
\verb*+oyabun%+
\end{tabbing}\end{itembox}

長い追跡時間を指定した場合は、停止させたくなったときに C-C (コントロー ル C) を打てば止めることができる。



Masashi Katsurada 平成10年8月25日