考えすぎると頭がかゆくなる schemeでローレンツ方程式＆ルンゲ・クッタ法

考えすぎると頭がかゆくなる schemeでローレンツ方程式＆ルンゲ・クッタ法

schemeを使ってルンゲ・クッタ法でローレンツ方程式を解いてみた。 無限ストリームになってるのがさりげ...概要を表示 schemeを使ってルンゲ・クッタ法でローレンツ方程式を解いてみた。 無限ストリームになってるのがさりげなくポイント。 gnuplotの形式で出力するので後はパイプとかで。 参考↓ ローレンツ方程式 ルンゲ・クッタ法 #!/usr/bin/env gosh (use util.stream) (use gauche.parseopt) (define (main args) (define (square x) (* x x)) (define (scale-list list x) (map (lambda (y) (* x y)) list)) ;無限ストリームsから最初のnum個だけのストリームを生成する。 (define (part-of-stream s num) (if (= num 0) stream-null (stream-cons (stream-car s) (par