XD::GEOM:CROSS-PRODUCT

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::GEOM:CROSS-PRODUCT
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     计算两个三维向量 P1 和 P2 的叉积，返回叉积向量。
   
6. ;;;
   
7. ;;; 【参数说明 / Parameters】
   
8. ;;;     p1 - (list) 三维向量1，格式为 (x y z)
   
9. ;;;     p2 - (list) 三维向量2，格式为 (x y z)
   
10. ;;;
    
11. ;;; 【返回值 / Return Value】
    
12. ;;;     (list) 叉积向量，格式为 (x y z)
    
13. ;;;
    
14. ;;; 【依赖函数 / Dependencies】
    
15. ;;;     - car   : 获取列表第一个元素
    
16. ;;;     - cadr  : 获取列表第二个元素
    
17. ;;;     - caddr : 获取列表第三个元素
    
18. ;;;
    
19. ;;; 【备注 / Notes】
    
20. ;;;     - 输入向量必须为长度为3的列表。
    
21. ;;;     - 叉积计算基于标准的向量叉乘公式。
    
22. ;;;
    
23. (defun XD::GEOM:CROSS-PRODUCT (p1 p2)
    
24.   (list
    
25.     (- (* (cadr p1) (caddr p2)) (* (cadr p2) (caddr p1)))
    
26.     (* -1 (- (* (car p1) (caddr p2)) (* (car p2) (caddr p1))))
    
27.     (- (* (car p1) (cadr p2)) (* (car p2) (cadr p1)))
    
28.   )
    
29. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::GEOM:CROSS-PRODUCT<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     计算两个三维向量 P1 和 P2 的叉积，返回叉积向量。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     p1 - (list) 三维向量1，格式为 (x y z)<br /> ;;;     p2 - (list) 三维向量2，格式为 (x y z)<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (list) 叉积向量，格式为 (x y z)<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - car   : 获取列表第一个元素<br /> ;;;     - cadr  : 获取列表第二个元素<br /> ;;;     - caddr : 获取列表第三个元素<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 输入向量必须为长度为3的列表。<br /> ;;;     - 叉积计算基于标准的向量叉乘公式。<br /> ;;;<br /> (defun XD::GEOM:CROSS-PRODUCT (p1 p2)<br />   (list<br />     (- (* (cadr p1) (caddr p2)) (* (cadr p2) (caddr p1)))<br />     (* -1 (- (* (car p1) (caddr p2)) (* (car p2) (caddr p1))))<br />     (- (* (car p1) (cadr p2)) (* (car p2) (cadr p1)))<br />   )<br /> )<br />