【已解决，勿删】地勘中关于剖线方位角与倾角角度关系解法。

liuhe

(defun flag1 (a b)
   (if (< (abs (- a b)) 90)
     1
     -1
   )
)

(flag1 90 180)
-1
(flag1 91 180)
1
(flag1 90 185)
-1
(flag1 30 340)
-1
(flag1 10 350)
-1



你看看对么，矢量虽然有方向，但是夹角没有方向，是相对量，相对于参照系，夹角是不变的。

cchessbd

liuhe 发表于 2022-11-7 23:10
(defun flag1 (a b)
   (if (< (abs (- a b)) 90)
     1

你这肯定不对。就拿a=30,b=340来说，夹角为50°，小于90°，应该为1。我之前在lisp就是这种算法，大部分是对的，有些角度是错的。

liuhe

(defun flag1 (a b)
   (if (and (<=(abs (- a b)) 270)(>=(abs (- a b)) 90))
     -1
     1
   )
)

(flag1 90 180);-1

(flag1 90 185);-1

(flag1 30 330);1

(flag1 30 230);-1

(flag1 30 280);-1

(flag1 30 130);-1
(flag1 80 350);-1

nop

liuhe 发表于 2022-11-8 08:25
(defun flag1 (a b)
   (if (and (=(abs (- a b)) 90))
     -1

瞅着像写自瞄时候的ClampAngle