用lisp编写代码
答案:1 悬赏:10 手机版
解决时间 2021-01-24 03:34
- 提问者网友：雪舞兮
- 2021-01-23 16:40
用lisp编写代码
最佳答案
- 五星知识达人网友：纵马山川剑自提
- 2021-01-23 17:03
(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)
)
(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)
)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯