lisp - 需要帮助将径向距离转换为 lisp 程序的反向抛光符号

Question

极坐标的距离公式如下所示: http://math.ucsd.edu/~wgarner/math4c/derivations/distance/distancepolar.htm

我试过这样做:

(defun distant-formula (r1 r2 t1 t2)
(setq d ( sqrt (*(-(+ (expt r1 2)(expt r2 2))(* 2 r1 r2))
                (cos(- t1 t2))))))

但是减法和乘法之间的额外括号改变了公式，但是我不太确定如何正确地做到这一点，我们将不胜感激。

Answer 1

您代码中的变量 D 没有用。您不应为 undefined variable 赋值。 Lisp 还返回计算值。这使得这样的分配特别无用。

你可以这样写公式:

(defun distant-formula (r1 r2 t1 t2)
  (+ (expt r1 2)
     (expt r2 2)
     (* -2 r1 r2 (cos (- t1 t2)))))

请注意，将代码布局为三行比仅使用一行更容易理解公式。使用编辑器的自动缩进来帮助布局。