2008/08/01

ようやく円がかけた

単位円をかきたかった。

ようやくかけたが、ごらんのとおり。もっときれいにしたい。

(require :nlisp)
(use-package :nlisp)

(let* ((x (.rseq -1 1 1000))
(+y (.sqrt (.- 1 (.* x x))))
(-y (.* -1 (.sqrt (.- 1 (.* x x))))))
(plot (.concatenate +y -y)
(.concatenate x x)))

1 件のコメント:

いわた さんのコメント...

美しいブレゼンハム法、期待してます;)