就是球面的近似展开，用圆锥面法展开，（这些不知道也没关系），数学模型应该是没有问题的，现在用计算机语言表示，（本人没有系统的学过lisp语言，只是跟着老师的程序自己会写一点点），希望哪位大神帮忙看看这段程序有什么地方写错了吗。。目前的状况是无法运行啊。。。
前略。。
(setq n 6)
(setq R 100)
(setq i 1)
(while(<= i n)
(setq sita (/ (* pi i) 2 n))
(setq beta (/ (* pi (+ i 1)) 2 n))
(setq R1 (* R cos(sita)))
(setq R2 (* R cos(beta)))
(setq u (/ (- cos(sita) cos(beta)) (- sin(beta) sin(sita))))
(setq alfa (atan(u)))
(setq L1 (/ R1 sin(alfa)))
(setq L2 (/ R2 sin(alfa)))
(setq fi (* 2 pi sin(alfa)))
(setq p0(list 0 0))
(setq p1(list L1 0))
(setq p2(list L2 0))
(command "arc" "c" p0 p1 "a" fi "")
(command "arc" "c" p0 p2 "a" fi "")
(setq i (+ i 2))
)
后略。。

有人吗。。。

有的，有的。骚年你不急，你要给大家一点时间。

好的好的，现在我知道fi应该要化成角度，然后还是运行不出来。。
先上课去，回来再看~

函数调用写法错了。 比如 你写的 sin(sita) 应该是 (sin sita)。 有好几处，以此类推。