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