[LISP程序]：矩阵问题

tupao

请教一问题＂怎样让连续输出的结果自动换行＂如我想输出一矩阵时当矩阵的一行输出完了，我就想在另一行里输出矩阵的下一行
请帮看下：
(defun zero (n / i j row array)
  (setq array '())
  (setq i 1)
  (while (<= i n)
    (setq row '())
    (setq j 1)
    (while (<= j n)
      (setq row (cons (cons j 0) row))
      (setq j (1+ j))
      )
    (setq array (cons (list i (reverse row)) array))  
    (setq i (1+ i))
   )
  (reverse array)
)

xyp1964

2. [FONT=courier new]
   
3. (defun zero (n / i j row)
   
4.   (setq        ar '()
   
5.         i  1
   
6.   )
   
7.   (while (<= i n)
   
8.     (setq row '()
   
9.           j   1
   
10.     )
    
11.     (while (<= j n)
    
12.       (setq row        (cons (cons j 0) row)
    
13.             j        (1+ j)
    
14.       )
    
15.     )
    
16.     (setq ar1 (list i (reverse row))
    
17.           ar  (cons ar1 ar)
    
18.           i   (1+ i)
    
19.     )
    
20.     (princ "\n")
    
21.     (princ ar1)
    
22.   )
    
23.   (reverse ar)
    
24.   (princ)
    
25. )[/FONT]

[FONT=courier new]<br /> (defun zero (n / i j row)<br />   (setq        ar '()<br />         i  1<br />   )<br />   (while (<= i n)<br />     (setq row '()<br />           j   1<br />     )<br />     (while (<= j n)<br />       (setq row        (cons (cons j 0) row)<br />             j        (1+ j)<br />       )<br />     )<br />     (setq ar1 (list i (reverse row))<br />           ar  (cons ar1 ar)<br />           i   (1+ i)<br />     )<br />     (princ "\n")<br />     (princ ar1)<br />   )<br />   (reverse ar)<br />   (princ)<br /> )[/FONT]

tupao

谢谢版主， 版主能解释下几"princ"函数是怎样起作用的吗

helison

呵~~
我来借花献佛吧！

princ ：在命令行打印表达式，或将表达式写入已打开的文件

(princ [expr [file-desc]])
本函数的功能和prin1函数几乎相同，但本函数将使用expr中的控制字符的功能，而不是照原样打印它们。一般，prin1打印表达式的方式与load 函数兼容，而princ打印的表达式则可以被 read-line 等函数读取。

参数：
expr  　　　　字符串或AutoLISP 表达式，仅打印指定的 expr，而不包括换行或空格。
file-desc　　　以写方式打开的文件的文件描述符。

返回值：
expr的值，如果不带参数调用该函数，则princ返回空符号。

tupao

谢谢
我的意思是三个"princ"是怎么样起到了把零矩阵分行打印出来的,
那位大侠能指教!!!!!!!!!

狂刀

(princ "\n")  ;; \n是分行
(princ xxx)

以上效果同
(print xxx)

tupao

谢谢楼主！！！！！！！！

81153643

我是lsp初学者，高手门给点心得把

yuer0103

我不是高手，也来说一下自己学习的心得吧，就是多动手，多思考。

xyp1964

[php](defun zero (n / i j row)
  (setq        ar '()
        i  1
  )
  (while (<= i n)
    (setq row '()
          j   1
    )
    (while (<= j n)
      (setq row        (cons (cons j 0) row)
            j        (1+ j)
      )
    )
    (setq ar1 (list i (reverse row))
          ar  (cons ar1 ar)
          i   (1+ i)
    )
    (princ "\n");换行
    (princ ar1);显示ar1的值
  )
  (reverse ar)
  (princ);禁止回显
)[/php]

huaheroys

高见

狂刀

既然大家有兴趣，我也陪大家玩一把．
换个写法－－－＂一般人我不告诉他～～＂

2. 
   
3.   [FONT=courier new]
   
4. (defun xn (n a / lst)
   
5.   (repeat n
   
6.      (setq lst (cons ((if (listp a) list cons) n a) lst)
   
7.            n  (1- n))
   
8.   )
   
9.   lst
   
10. )
    
11. (defun c:tt ()
    
12.   (mapcar 'print (xn 4 (xn 4 0)))
    
13.   (princ)
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun xn (n a / lst)<br />   (repeat n<br />      (setq lst (cons ((if (listp a) list cons) n a) lst)<br />            n  (1- n))<br />   )<br />   lst<br /> )<br /> (defun c:tt ()<br />   (mapcar 'print (xn 4 (xn 4 0)))<br />   (princ)<br /> )<br />   [/FONT]<br />

测试：
;|
_$ (c:tt)
(1 ((1 . 0) (2 . 0) (3 . 0) (4 . 0)))
(2 ((1 . 0) (2 . 0) (3 . 0) (4 . 0)))
(3 ((1 . 0) (2 . 0) (3 . 0) (4 . 0)))
(4 ((1 . 0) (2 . 0) (3 . 0) (4 . 0)))
|;

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt2 ()
   
5.   (mapcar 'print (xn 5 (xn 3 0)))
   
6.   (princ)
   
7. )
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun c:tt2 ()<br />   (mapcar 'print (xn 5 (xn 3 0)))<br />   (princ)<br /> )<br />   [/FONT]<br />

;|
_$ (c:tt2)
(1 ((1 . 0) (2 . 0) (3 . 0)))
(2 ((1 . 0) (2 . 0) (3 . 0)))
(3 ((1 . 0) (2 . 0) (3 . 0)))
(4 ((1 . 0) (2 . 0) (3 . 0)))
(5 ((1 . 0) (2 . 0) (3 . 0)))
_$
|;　

cheungyh

谁会矩阵求逆的程序，急用！！！

dandee

用“矩阵"搜索一下网站，你可以找到矩阵求逆的程序