;
; plot y= sin(x), x= 0 to pi
(setq x1 0 x2 pi
      no 16
      dx (/ (- x2 x1) no))

; for x= x1 to x2 step dx
(setq x x1
      x2 (+ x2 (/ dx 10.0)))

(command "spline")
(while (<= x x2)
  (setq y (sin x))
  (command (list x y))

  (setq x (+ x dx))
  ); end while
(command "" "" "")

(princ)
;