location - 常见的Lisp纬度和经度

我当前项目的基础是编写一些可以计算两点之间直接路线的代码。在网上找不到通用Lisp的代码，因此我必须翻译现有的代码。我认为我做得正确，但是仍然无法运行。任何帮助，将不胜感激。

我遇到了障碍，有什么想法吗？发生以下错误:

;Compiler warnings for "nav.lisp" :
;   In COURSE-CALC: Undefined function LAT1
;   In COURSE-CALC: Undefined function LAT1
;   In COURSE-CALC: Undefined function LAT2

我不明白的是为什么编译器认为变量是函数。

这是我到目前为止所拥有的:

 (defparameter *earth-radius* 6372.8)
 (defparameter *e* (exp 1))
 (defparameter *rad-conv* (/ pi 180))

 (defun km->miles (km)
    (* km .621371))
(defun miles->km (miles)
    (* miles 1.60934))

 (defun mph->mpm (mph)
    (/ mph 60))

(defun kph->kpm (kph)
    (/ kph 60))

(defun deg->rad (deg)
  (* deg *rad-conv*))

(defun haversine (x)
  (expt (sin (/ x 2)) 2))

(defun dist-rad (lat1 lng1 lat2 lng2)
  (let* ((hlat (haversine (- lat2 lat1)))
         (hlng (haversine (- lng2 lng1)))
         (root (sqrt (+ hlat (* (cos lat1) (cos lat2) hlng)))))
    (* 2 *earth-radius* (asin root))))

(defun dist-deg (lat1 lng1 lat2 lng2)
  (dist-rad (deg->rad lat1)
            (deg->rad lng1)
            (deg->rad lat2)
            (deg->rad lng2)))

;acos(sin(lat2)-sin(lat1)*cos(d)) / (sin(d)*cos(lat1))
(defun course-calc (lat1 lng1 lat2 lng2)
  (acos(/(*(- (sin(lat2)) (sin(lat1))) (cos(dist-rad lat1 lng1 lat2 lng2))) (* (sin(dist-rad lat1 lng1 lat2 lng2)) (cos(lat1))))))

(defun course (lat1 lng1 lat2 lng2)
  (if (< (sin (- lng1 lng2)) 0)
      (course-calc lat1 lng1 lat2 lng2)
      (-(* 2 pi)(course-calc lat1 lng1 lat2 lng2))))

最佳答案

course-calc的定义中括号太多。表达方式

(sin(lat2))

调用函数lat2，然后在返回的任何sin上调用lat2。但是，您的lat2不是函数，而是变量。你想说的是

(sin lat2)

在行尾的(cos(lat1))也是如此。

关于location - 常见的Lisp纬度和经度，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31091409/