[Back]

bounce.f


2重振り子のカオス的運動のアニメーションです。


起動したら,それぞれの振子の初期位置を設定するためにグラフィクス・ウィンドウ内でマウスを2度ドラッグしてください。


出力例(画像をクリックすると出力時の大きさになります):

dp.f 出力例

gwd ファイル ( 3,387 バイト )

ビットマップ ( 1,819,338 バイト )

拡張メタファイル ( 2,960 バイト )


dp.f ( 4,793 バイト ) で使われている GrWin ルーチン :

GWANCHOR GWCAPVEC GWCMBMRK GWERASE GWEVENT GWFLUSH GWINDOW GWINPUT GWLINE GWLINE2 GWOPEN GWPUTCMB GWPUTTXT GWQUIT GWRECT GWSETMSG GWSETOGN GWSETTXT GWSLEEP2 GWVPORT

アニメーション GIF の作り方:

dp.f を例にアニメーション GIF の作り方について説明します(http://www.stellar.ac/~komai/grwnd2/index.html を参考にさせていただきました)。まず,アニメーションの各ショットを拡張メタファイル(.emf)形式でファイルに格納するように,GWSAVEAS を使ってソースコードを修正します。 修正したものがこれ ( 5,322 バイト ) です。 コンパイルしてから実行すると,dpxxxxxx.emf という通し番号付の拡張メタファイル(.emf)が生成されます(早めにマウスをクリックして実行を止めないと量が膨大になりますので注意してください)ので,IrfanView のバッチモードなどを使ってそれぞれを GIF ファイルに一括変換します。そして, それらを Animation GIF Maker などによりアニメーション GIF 化すればできあがりです。


Tsuguhiro TAMARIBUCHI <>

Created:  Mon Jul 21 23:03:52 JST 2003