忍者ブログ

好きい夢 昭和な気まぐれ飛行機

Normalグラフィクス 3D

蝶を行列で飛翔させるためにグラフィクスに3次元情報を2次元のディスプレーに表示する手続きを追加しています。

これで先日のモンテカルロや螺旋が3次元的に表示されるようになりました。

以下はそのテストコードです。

(import (normal kids)
        (normal gauche)
        (normal system)
        (normal math))

(set-zoom 100)

(define (mc-method pred k)
   (let loop ((i 0) (hits 0))
     (if (= i k)
         hits
         (loop (+ i 1)
               (+ hits
                  (let ((x (randome-real))
                        (y (randome-real))
                        (z (randome-real)))
                    (if (pred x y z)
                        (begin (red)(plot3D x y z) 1)
                        0)))))))

(define (f x y z)
  (<= (+ x y z)
      1))

(define (spiral n)
    (for-each
      (lambda (x) (plot3D (cos x) (sin x) (/ x 100)))
      (iota (* 2 pi n) 0 (/ pi 240))))

 

PR

コメント

プロフィール

HN:
No Name Ninja
性別:
非公開

P R