[求助]想知道算法，但不懂lisp，在线请高手解释一下

Tiptoe

是一个地学方面的小工具，不懂lisp请高手解释或者是翻译

(defun C:cip(/ kkp R qx qxp qjp qj pt1 pt2 pt3)
  (setq kkp (getpoint "输入绘图基点:"))
  (setq R (getreal "输入吴氏网半径:"))
  (command "circle" kkp R)
  (command "line" (polar kkp (/ pi 2) R) (polar kkp (/ PI 2) (+ R 1.5)) "")
  (command "line" (polar kkp pi R) (polar kkp PI (+ R 1.5)) "")
  (command "line" (polar kkp (* pi 1.5) R) (polar kkp (* PI 1.5) (+ R 1.5)) "")
  (command "line" (polar kkp 0 R) (polar kkp 0 (+ R 1.5)) "")
  (command "text" (polar kkp (/ PI 2) (+ R 3)) "3" "0" "N")
  (command "text" (polar kkp PI (+ R 6)) "3" "0" "W")
  (command "text" (polar kkp (* PI 1.5) (+ R 6)) "3" "0" "S")
  (command "text" (polar kkp 0 (+ R 3)) "3" "0" "E")
  (command "line" (polar kkp 0 -1) (polar kkp 0 1) "")
  (command "line" (polar kkp (/ pi 2) -1) (polar kkp (/ pi 2) 1) "")
  (command "text" (polar kkp 0 3) "3" "0" "O")
  (setq qxp (getreal "输入结构面倾向:"))
  (if (= qxp nil) (exit))
  (setq qx (/ (* (- 90 qxp) PI) 180))
  (setq qjp (getreal "输入结构面倾角:"))
  (setq qj (/ (* qjp PI) 180))
 (while (/= qxp nil)
  (setq pt1 (polar kkp (- qx (/ PI 2)) R))
  (setq pt3 (polar kkp (+ qx (/ PI 2)) R))
  (setq pt2 (polar kkp (+ qx PI) (* R (/ (sin (/ (- (/ pi 2) qj) 2)) (cos (/ (- (/ pi 2) qj) 2))))))
  (command "arc" pt1 pt2 pt3)
  (command "text" (polar pt2 0 3) "2" "0" (strcat (rtos qxp 2 0) "%%d" "<" (rtos qjp 2 0) "%%d"))
  (setq qxp (getreal "输入结构面倾向:"))
  (if (= qxp nil) (exit))
  (setq qx (/ (* (- 90 qxp) PI) 180))
  (setq qjp (getreal "输入结构面倾角:"))
  (setq qj (/ (* qjp PI) 180))
 )
)

dqs007

吴氏网分上半求和下半球,就像我们平时看到的地球仪一样,之一这个算法很简单哦!去看看成都理工大学(原地院)的构造地质学教程就知道了!

Tiptoe

原来是你啊，我是yxp，今天突发奇想，我想用vb来搞一下，但不知道算法，找到一个lisp的，无奈看不懂。你说的教程看不到啊，或者你解释给我好了