Question

用lisp编写代码

Answer 1

(DEFUN LINES (S E N F / x s p f)
(SETQ D (/ (- E S) N)
X S
P (F X)
)
(COMMAND "PLINE" P)
(REPEAT N
(SETQ X (+ X D)
P (F X)
)
(COMMAND P)
)
(COMMAND)
)
(defun dkeyxx (z / x y)
(setq x (/ (* 3.0 a z) (1+ (* z z z)))
; y (/ (* 3.0 a z z) (1+ (* z z z)))
y (* x z)
)
(list x y)
)
(defun c:dke ()
; (setvar "cmdecho" 0)
(setq s (getreal "\ns=")
e (getreal "\ne=")
n (getint "\nn=")
a (getreal "\na=")
)
(lines s e n dkeyxx)
)