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日