2009-12-23 17:09:42
Alan
AutoCAD 82 LISP程式導入y=sinx
;PLOT Y=SIN(X), X1 TO X2 SETP 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))