这个程序该怎么做啊？

whabbit

己知圆的渐开线方程
r=1
ang=360*t
s=2*pi*r*t
x0=s*cos(ang)
y0=s*sin(ang)
x=x0+s*sin(ang)
y=y0-s*cos(ang)
z=0
怎么转化成lisp程序啊？哪个高手帮帮忙啊？

meflying

功能，根据输入的tx通过计算，返回计算后的坐标值 用法：(xxx tx)
(defun xxx(tx / );因t不能作为变量符号，改用tx
(setq r 1
ang (* 360.0 tx)
s (* 2 pi r tx)
x0 (* s (cos ang))
y0 (* s (sin ang))
x (+ x0 (* s (sin ang)))
y (- y0 (* s (cos ang)))
z 0)
(list x y z)
)