多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
``` ;向量相加 (defun XD::Vec:v+v (v1 v2)(mapcar '+ v1 v2)) ``` ``` ;向量相减 (defun XD::Vec:v-v (v1 v2) (mapcar '- v1 v2) ) ``` ``` ;向量相乘 (defun XD::Vec:v*v (v1 v2) (mapcar '* v1 v2) ) ```