[求助]：请各位高手帮忙:关于摆线的程序

stone0030

小弟在做一个摆线轮的程序
程序的计算内容大体完成,但出现了一些问题
请各位高手看看
(defun c:test()
  (setq r 2 l 10 a (/ pi 360) dt (/ pi 360) p (list 0 0))
  (command "pline" (list l 0))
  (while (<= a (* 2 pi))
    (setq ao (- a (* (/ r l) (sin(/ (* l a) r)))))
    (setq y (- r (* (cos(/ (* a l) r)) r)))
    (setq po (polar p ao (+ y l)))
    (command po)
    (setq a (+ a dt))
  )
  (command "c")
)

上式中,"l"为基圆半径,"r"为滚圆半径,
滚圆在基圆上做纯滚动时,滚圆上一点所形成的曲线
"l"应是"r"的整数倍,此程序运行正常
但必须保证"l""r"为整数,如果不是整数,运行所得的曲线错误
请各位高手指教

zxq0220

当"l"和"r"为整数时，式(* (/ r l) (sin (/ (* l a) r)))的值为零。
所以楼主原来的曲线是错误的。改成小数后的曲线才正确。

stone0030

２楼的大哥，我不太明白，为什么＂Ｌ＂＂Ｒ＂为整数时那个式子为零
上面那个程序运行时，＂Ｌ＂＂Ｒ＂为整数时的曲线就是我想要得呀
如果把＂l＂"r"改成＂１０．０＂＂２．０＂，运行结果也会改变
我不知道是不是数据类型的错误呀
为什么＂１０＂改成＂１０．０＂结果就会不一样呀

zxq0220

因为整数与整数相除的结果也是整数，所以(/ 2 10)的结果为零。
所以程序绘制的曲线不正确！

stone0030

哦,是呀,大哥,哈哈
我这才知道,呵呵
我怎么那么笨呀
哈哈

不过,大哥
还有个问题
我用整数和用小数运行的图形不一样
不过,我觉得用整数运行的图形更象摆线轮
我对摆线,不了解
我把图贴上,您给我看看,好么
E:\Documents and Settings\stone\桌面\未命名.bmp
E:\Documents and Settings\stone\桌面\未命名1.bmp

有什么问题请不吝赐教