请求帮助

zhhui3297

绘制极坐标方程 R=1+2cos2α在区间 [0，2π]的图像 程序如下： (defun C:draw(/ cp)
(setq cp (getpoint "\nBase point:"))
(command "ucs" "w" "ucs" "o" cp "pline")
(draw1 0)
)
(defun draw1 (x / r)
(if (> x (* 2 pi))
(command "0,0" "" "ucs" "w")
(progn (setq r (+ 1 (* 2 (cos (* 2 x)))))
(command (list (* r (cos x)) (* r (sin x))))
(draw1 (+ x 0.05))
)
)
) 我按上面程序输入，加载后，提示“函数错误”。 请教为何出错，能否说明每段语句的中文意思。多谢！

meflying

加载后就有错误吗？


在命令行输入：draw，回车后就可以了。。。


按你现在的情况，给你解释了每句的意思，没有任何意义，你应该先学学LISP基础，知道LISP是什么，怎么用先，不要到处去看一些程序，除非你基本上能读懂

ZZXXQQ

(defun C:draw (/ cp) ;定义函数C:DRAW，CP为内部变量
(setq cp (getpoint "\nBase point:")) ;提示输入基点；
(command "ucs" "w" "ucs" "o" cp "pline");设定坐标系原点，开始画PLINE；
(draw1 0) ;调用DRAW1函数，调用参数为零；
) (defun draw1 (x / r) ;定义函数DRAW1，X为调用参数，R为内部变量；
(if (> x (* 2 pi)) ;判断X是否大于2PI，即是否转了一圈；
(command "c" "ucs" "w") ;如果转了一圈则封闭曲线(原程序有误)，坐标系复原；
(progn
(setq r (+ 1 (* 2 (cos (* 2 x))))) ;否则计算R=1+2cos2α的值；
(command (list (* r (cos x)) (* r (sin x))));按极坐标画线
(draw1 (+ x 0.05)) ;递归调用DRAW1函数，参数增加0.05
)
)
)

zhhui3297

非常感谢“侠之大者”，后面两句 command (list (* r (cos x)) (* r (sin x))));


                                                                                                                                                                                                                                                                                                                                                                                                                                                 (draw1 (+ x 0.05))                                                                                                                                                                 


到底是什么意思？我还是不清楚，请再给我详细说一下，本人万分感谢！

onej

（command "ucs" ……）

ZZXXQQ

(list (* r (cos x)) (* r (sin x)))         是坐标变换，从极坐标系转换到直角坐标系。


(draw1 (+ x 0.05))                                                                是递归调用DRAW1函数。