急求一个高手帮我做个lisp程序，高手帮帮忙把

tq116034545

定义绘制心脏线得命令。心脏线得方程为r=a(1-sinb),0<b<360.要求定位点P1，a,起始角，终止角和角度增量为交互输入得参数。我真得十分感谢。

xyp1964

2. ;; 心脏线 l=a(1-sinb),0<b<360. 2009.06.20
3. (defun c:tt (/ r)
4.   (setq a 1
5. r 0
6.   )
7.   (command "pline")
8.   (while (<= r (* PI 2))
9.     (command (polar (list 0 0) r (* (- 1 (sin r)) a)))
10.     (setq r (+ r 0.035))
11.   )
12.   (command "c")
13.   (princ)
14. )

;; 心脏线 l=a(1-sinb),0<b<360. 2009.06.20 (defun c:tt (/ r)   (setq a 1 r 0   )   (command "pline")   (while (<= r (* PI 2))     (command (polar (list 0 0) r (* (- 1 (sin r)) a)))     (setq r (+ r 0.035))   )   (command "c")   (princ) )