关于点到平面距离问题讨论

树櫴希德

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

1. ;;反正弦函数(asin 值)
   
2. (defun asin(x)
   
3. (cond
   
4. ((or (> x 1) (< x -1)) nil)
   
5. ((= x 1) (* pi 0.5))
   
6. ((= x -1) (* pi -0.5))
   
7. (t (atan (/ x (sqrt (- 1 (* x x))))))
   
8. )
   
9. )
   
10. 
    
11. 
    
12. ;;反余弦函数(acos 值)
    
13. (defun acos(x)
    
14. (if (>= x 0)
    
15. (asin (sqrt (- 1 (* x x))))
    
16. (+ pi (- (asin (sqrt (- 1 (* x x))))))
    
17. )
    
18. )

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

skg123

你说想用于监测 挖填是否到位么？