[求助]：多个二维点相加，有没有简单的方法

fundoll

以下是实际问题的简化：
(defun c:lll(/ l1 l2 l3 ma mb)
          (setq l1 '(1 1))
          (setq l2 '(2 2))
          (setq l3 matrixadd(ma mb))
)

(defun matrixadd(ma mb) ；定义矩阵相加
.......
)

请问以上的形参ma mb  可不可以传递或怎么传递？

多个二维点相加，有没有简单的方法？

lijiao

最初由 fundoll 发布
[B]以下是实际问题的简化：
(defun c:lll(/ l1 l2 l3 ma mb)
          (setq l1 '(1 1))
          (setq l2 '(2 2))
          (setq l3 matrixadd(ma mb))
)

(defun matrixadd(ma mb) ；定义矩阵相加
........ [/B]

可以传递参数，不过你的代码似乎不对，应改为：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:lll (/  l1 l2 l3 ma mb)
   
5.    (setq l1 '(1 1))
   
6.    (setq l2 '(2 2))
   
7.    (setq ma .........)
   
8.    (setq mb .........)
   
9.    (setq l3 (matrixadd ma mb))
   
10.    (princ)
    
11. )
    
12. 
    
13. (defun matrixadd (ma mb / ) ；定义矩阵相加
    
14. .......
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:lll (/  l1 l2 l3 ma mb)<br />    (setq l1 '(1 1))<br />    (setq l2 '(2 2))<br />    (setq ma .........)<br />    (setq mb .........)<br />    (setq l3 (matrixadd ma mb))<br />    (princ)<br /> )<br /> <br /> (defun matrixadd (ma mb / ) ；定义矩阵相加<br /> .......<br /> )<br />   [/FONT]<br />

ll_j

最初由 fundoll 发布
以下是实际问题的简化：
(defun c:lll(/ l1 l2 l3 ma mb)
          (setq l1 '(1 1))
          (setq l2 '(2 2))
          (setq l3 matrixadd(ma mb))
)

(defun matrixadd(ma mb) ；定义矩阵相加
........

多个二维点相加？你可以根据怎么加来确定使用何种函数，相关Lisp函数有mapcar、apply、foreach，你可以仔细研究一下。