2次元ランダムウォーク
Posted feedbacks - Scheme
座標の表現に複素数を使ってみました。描画はこの出力を gnuplot なり何なりに食わせてやればよいでしょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | (use srfi-27)
(define wvec '#(+1 -1 +i -i))
(define (main args)
(let ((n (string->number (cadr args)))
(l (vector-length wvec)))
(random-source-randomize! default-random-source)
(let random-walk ((m 0)
(pos 0))
(when (< m n)
(format #t "~A ~A ~A~%" m (real-part pos) (imag-part pos))
(random-walk (+ m 1) (+ pos (ref wvec (random-integer l))))))
0))
|
ytakenaka
#6806()
Rating2/2=1.00
２次元ランダムウォークをつくってみてください。
＊＊＊＊＊＊
元は3本建てにしようかと思ったけど、上の一本に絞りました。おまけとして、3本とも下に補足しておきます。作れるようでしたら作ってみてください。
1.一次元のランダムウォークを作ってください。
1.1 データファイルに残してください。 フォーマット：時間 位置
おまけ）
可視化が簡単な処理系・プログラミング言語でしたら実際に可視化してみてください。フォーマットしたファイルをスプレッドシートやplotutilitiesなどの可視化ソフトを使って、実際に動きをかくにんしてみましょう。:-)
2.同じように2次元のランダムウォークを作ってください。
2.1 1.1と同じようにしてください。
フォーマット：時間 x位置 y位置
3.凝りたければ、アニメーションにするもよし、3次元の動きをとるもよし、自分の想像力がいかせるところまでやってみてください。
http://ja.wikipedia.org/wiki/%E3%83%A9%E3%83%B3%E3%83%80%E3%83%A0%E3%82%A6%E3%82%A9%E3%83%BC%E3%82%AF
分からないというヒトへの分かりにくいヒント：
今の位置から次の時間の位置が決まるのですが、決まりかたが、乱数で一歩後退するか一歩先にいくか?ということをやればよいです。
[ reply ]