小编epl*_*692的帖子

我当前项目的基础是编写一些可以计算两点之间直接过程的代码.我没有在网上找到普通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 …