树櫴希德 发表于 2023-4-25 22:35:20

树櫴希德 发表于 2023-4-25 21:18


;;反正弦函数(asin 值)
(defun asin(x)
(cond
((or (> x 1) (< x -1)) nil)
((= x 1) (* pi 0.5))
((= x -1) (* pi -0.5))
(t (atan (/ x (sqrt (- 1 (* x x))))))
)
)


;;反余弦函数(acos 值)
(defun acos(x)
(if (>= x 0)
(asin (sqrt (- 1 (* x x))))
(+ pi (- (asin (sqrt (- 1 (* x x))))))
)
)

skg123 发表于 2023-12-15 15:46:45

你说想用于监测 挖填是否到位么？
页: 1 [2]
查看完整版本: 关于点到平面距离问题讨论