AutoCAD Y=sin(x)

; PLOT Y=SIN(X), X= X1 TO X2 STEP DX

(SETQ NO 16)

(SETQ X1 0.0
X2 PI
DX (/ (- X2 X1) NO))

; FOR X= X1 TO X2 STEP DX DO ...

(SETQ X X1
X2 (+ X2 0.001))

(COMMAND "SPLINE")

(WHILE (<= X X2)
;
(SETQ Y (SIN X))

(SETQ P1 (LIST X Y))

(COMMAND P1)




(SETQ X (+ X DX))

); END OF WHILE()

(COMMAND "" "" "")








(PRINC)