ようやく円がかけた

単位円をかきたかった。

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

(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)))