LISP中的复杂公式

monkey7 · 发表于 2022-7-6 11:27:14

你好

因为AutoCAD中没有回旋函数，所以我使用一个单独的C++程序已经有一段时间了。然而，这并不完全完美，因为它仍然需要大量的用户操作。所以我决定尝试将这个程序转换成LISP。

对于那些不知道回旋线的人：它是公路和铁路设计中使用的从直线到弯曲的过渡曲线。由于曲线的几何形状，它减少了侧向加速度以及其他一些因素，对于高速运输至关重要。

目前唯一真正的问题是将回旋线公式转换为AutoLISP中可用的公式。目前，我有以下公式：
X坐标：附件1
Y坐标：附件2

其中，“a”是曲线的“陡度”，由早期计算定义，x是沿曲线的级数。

这些公式被输入数学软件maple，该软件可以将它们直接转换为string、C、Fortran、Java、MATLAB和Visual Basic格式。

有没有什么方法可以不用花几个小时将这些公式转换成奇怪的LISP格式，而且可能仍然无法使用？我几乎不了解VB语言，但有可能在LISP代码中使用这种格式吗？

Lee Mac · 发表于 2022-7-6 13:14:00

嗨，猴子，

对于XCoord公式，可以这样做：

copy


(defun fact (x)
 (if (< 0 x)
   (* x (fact (1- x))) 1))
(defun XCoord (x a / n i q)
 (setq n 0. i -1 q (/ x (float a)))
 
 (repeat 8
   (setq n
     (+ n
        (* (/ (expt q (1+ (* 4 (setq i (1+ i)))))
              (* (1+ (* 4 i)) (expt 2 (* 2 i)) (fact (* 2 i))))
           (expt -1 i)))))
 (* a n))

[编程交流] LISP中的复杂公式

发表回复

精选推荐