转置

aimisiyou · 发表于 2020-3-10 23:21:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

将矩阵进行转置。如'((1 2 3)(4 5 6)(7 8 9))转置后得到'((1 4 7)(2 5 8)(3 6 9)).

aimisiyou · 发表于 2020-3-10 23:39:38

本帖最后由 aimisiyou 于 2020-3-10 23:44 编辑

_$ (defun  zz(lst)
  (setq i -1  mlst (apply 'append lst) vlst nil)
  (setq mlst (mapcar '(lambda (x) (list (setq i (+ i 1)) x)) mlst))
  (setq j 0 nn (/ (length mlst) (length lst)))
  (while (< j nn)
   (setq vlst (cons (vl-remove nil (mapcar '(lambda (x) (if (= (rem (car x) nn) j) (cadr x) nil)) mlst)) vlst))
   (setq j (+ j 1))
  )
  (reverse vlst)
)
(setq lst '((1 2 3)(4 5 6)(7 8 9)))
(zz lst)
ZZ
((1 2 3) (4 5 6) (7 8 9))
((1 4 7) (2 5 8) (3 6 9))
_$ (setq lst '((1 0 1 1 0)(0 1 1 0 1)(1 1 0 1 1)(0 1 0 1 1)))
(zz lst)
((1 0 1 1 0) (0 1 1 0 1) (1 1 0 1 1) (0 1 0 1 1))
((1 0 1 0) (0 1 1 1) (1 1 0 0) (1 0 1 1) (0 1 1 1))
_$

aimisiyou · 发表于 2020-3-11 00:19:46

_$ (defun fn2 (n)
  (setq va nil)
  (repeat n (setq va (cons 0 va)))
  (setq ii -1  vvlst nil)
  (setq va (mapcar '(lambda (x) (list (setq ii (+ ii 1)) x)) va))
  (setq i 0)
  (while (< i (- n 1))
   (setq j (+ i 1))
   (while (< j n)
      (setq vvlst (cons (mapcar '(lambda (x) (if (or (= i (car x)) (= j (car x))) 1 0)) va)  vvlst))
(setq j (+ j 1))
   )
   (setq i (+ i 1))
  )
  vvlst
)
FN2
_$ (fn2 10)
((0 0 0 0 0 0 0 0 1 1) (0 0 0 0 0 0 0 1 0 1) (0 0 0 0 0 0 0 1 1 0) (0 0 0 0 0 0 1 0 0 1) (0 0 0 0 0 0 1 0 1 0) (0 0 0 0 0 0 1 1 0 0) (0 0 0 0 0 1 0 0 0 1) (0 0 0 0 0 1 0 0 1 0) (0 0 0 0 0 1 0 1 0 0) (0 0 0 0 0 1 1 0 0 0) (0 0 0 0 1 0 0 0 0 1) (0 0 0 0 1 0 0 0 1 0) (0 0 0 0 1 0 0 1 0 0) (0 0 0 0 1 0 1 0 0 0) (0 0 0 0 1 1 0 0 0 0) (0 0 0 1 0 0 0 0 0 1) (0 0 0 1 0 0 0 0 1 0) (0 0 0 1 0 0 0 1 0 0) (0 0 0 1 0 0 1 0 0 0) (0 0 0 1 0 1 0 0 0 0) (0 0 0 1 1 0 0 0 0 0) (0 0 1 0 0 0 0 0 0 1) (0 0 1 0 0 0 0 0 1 0) (0 0 1 0 0 0 0 1 0 0) (0 0 1 0 0 0 1 0 0 0) (0 0 1 0 0 1 0 0 0 0) (0 0 1 0 1 0 0 0 0 0) (0 0 1 1 0 0 0 0 0 0) (0 1 0 0 0 0 0 0 0 1) (0 1 0 0 0 0 0 0 1 0) (0 1 0 0 0 0 0 1 0 0) (0 1 0 0 0 0 1 0 0 0) (0 1 0 0 0 1 0 0 0 0) (0 1 0 0 1 0 0 0 0 0) (0 1 0 1 0 0 0 0 0 0) (0 1 1 0 0 0 0 0 0 0) (1 0 0 0 0 0 0 0 0 1) (1 0 0 0 0 0 0 0 1 0) (1 0 0 0 0 0 0 1 0 0) (1 0 0 0 0 0 1 0 0 0) (1 0 0 0 0 1 0 0 0 0) (1 0 0 0 1 0 0 0 0 0) (1 0 0 1 0 0 0 0 0 0) (1 0 1 0 0 0 0 0 0 0) (1 1 0 0 0 0 0 0 0 0))
_$

aimisiyou · 发表于 2020-3-11 11:32:22

本帖最后由 aimisiyou 于 2020-3-11 11:34 编辑

如何判断嵌套表里的子表是否有相同的？如lst='((1 2 3)(2 3 4)(1 2 3))中子表有重复’（1 2 3）。
_$ (vl-remove '(1 2 3) '((1 2 3)(2 3 4)(1 2 3)))
((2 3 4))
_$

aimisiyou · 发表于 2020-3-11 11:47:04

_$ (defun kx(lst)
(apply 'and (mapcar '(lambda (x) (if (= (length lst) (length (vl-remove x lst))) nil t)) lst))
)
(setq lst '((1 1 1 0 0 1) (1 1 0 1 1 0) (1 0 1 1 1 1) (1 1 1 0 1 0) (1 1 1 0 1 1)(1 1 1 1 1 0) (1 1 0 1 0 1) (1 1 1 1 0 1) (1 1 0 1 1 1) (0 1 1 1 1 1) (1 1 1 1 0 0) (1 0 1 1 0 1)(1 0 1 1 1 0) (0 1 1 1 1 0)(0 1 1 1 0 1) (1 1 0 0 1 1) (1 0 1 0 1 1)(1 0 0 1 1 1) (0 1 1 0 1 1) (0 1 0 1 1 1) (0 0 1 1 1 1) (1 1 0 0 0 0) (1 0 1 0 0 1) (1 0 0 1 1 0) (0 1 1 0 1 0)(0 1 0 1 0 1) (0 0 1 1 0 0) (0 0 0 0 1 1)))
(kx lst)
KX
((1 1 1 0 0 1) (1 1 0 1 1 0) (1 0 1 1 1 1) (1 1 1 0 1 0) (1 1 1 0 1 1) (1 1 1 1 1 0) (1 1 0 1 0 1) (1 1 1 1 0 1) (1 1 0 1 1 1) (0 1 1 1 1 1) (1 1 1 1 0 0) (1 0 1 1 0 1) (1 0 1 1 1 0) (0 1 1 1 1 0) (0 1 1 1 0 1) (1 1 0 0 1 1) (1 0 1 0 1 1) (1 0 0 1 1 1) (0 1 1 0 1 1) (0 1 0 1 1 1) (0 0 1 1 1 1) (1 1 0 0 0 0) (1 0 1 0 0 1) (1 0 0 1 1 0) (0 1 1 0 1 0) (0 1 0 1 0 1) (0 0 1 1 0 0) (0 0 0 0 1 1))
T
_$

cable2004 · 发表于 2020-3-11 12:14:26

(apply 'mapcar (cons 'list m))

aimisiyou · 发表于 2020-3-11 14:05:15

cable2004 发表于 2020-3-11 12:14
(apply 'mapcar (cons 'list m))

嗯，真够简洁。

aimisiyou · 发表于 2020-3-12 23:05:19

本帖最后由 aimisiyou 于 2020-3-13 14:02 编辑

_$ (defun fn2 (n)
  (setq va nil)
  (repeat n (setq va (cons 0 va)))
  (setq ii -1  vvlst nil)
  (setq va (mapcar '(lambda (x) (list (setq ii (+ ii 1)) x)) va))
  (setq i 0)
  (while (< i (- n 1))
   (setq j (+ i 1))
   (while (< j n)
      (setq vvlst (cons (mapcar '(lambda (x) (if (or (= i (car x)) (= j (car x))) 1 0)) va)  vvlst))
(setq j (+ j 1))
   )
   (setq i (+ i 1))
  )
  vvlst
)
(defun check (lst1 lst)
(mapcar '(lambda (x) (apply 'max (mapcar '(lambda (y z) (boole 1 y z)) x lst1))) lst)
)
(defun kx(lst)
  (apply 'and (mapcar '(lambda (x) (if (= (- (length lst) 1) (length (vl-remove x lst))) t nil)) lst))
)
(setq lst '((0 0 0 0 0 0)
(0 0 0 0 1 1)
(0 0 1 1 0 0)
(0 1 0 1 0 1)
(0 1 1 0 1 0)
(1 0 0 1 1 0)
(1 0 1 0 0 1)
(1 1 0 0 0 0)))
(kx (mapcar '(lambda (x) (check x (apply 'mapcar (cons 'list lst)))) (fn2 (length lst))))
FN2
CHECK
KX
((0 0 0 0 0 0) (0 0 0 0 1 1) (0 0 1 1 0 0) (0 1 0 1 0 1) (0 1 1 0 1 0) (1 0 0 1 1 0) (1 0 1 0 0 1) (1 1 0 0 0 0))
T
_$

aimisiyou · 发表于 2020-3-13 21:17:27

_$ (defun fn2 (n)
  (setq va nil)
  (repeat n (setq va (cons 0 va)))
  (setq ii -1  vvlst nil)
  (setq va (mapcar '(lambda (x) (list (setq ii (+ ii 1)) x)) va))
  (setq i 0)
  (while (< i (- n 1))
   (setq j (+ i 1))
   (while (< j n)
      (setq vvlst (cons (mapcar '(lambda (x) (if (or (= i (car x)) (= j (car x))) 1 0)) va)  vvlst))
(setq j (+ j 1))
   )
   (setq i (+ i 1))
  )
  vvlst
)
(defun check (lst1 lst)
(mapcar '(lambda (x) (apply 'max (mapcar '(lambda (y z) (boole 1 y z)) x lst1))) lst)
)
(defun kx(lst)
  (apply 'and (mapcar '(lambda (x) (if (= (- (length lst) 1) (length (vl-remove x lst))) t nil)) lst))
)
(setq lst '(
(0 1 1 0 1 0 0 0 1)
(0 0 1 0 0 1 0 1 0)
(1 0 1 0 0 0 1 1 0)
(1 0 0 0 0 0 0 0 1)
(0 0 0 0 1 0 1 1 0)
(1 1 0 0 1 0 1 0 0)
(0 1 0 0 0 0 0 1 1)
(0 0 0 1 1 0 0 0 0)
(0 0 1 0 0 1 1 0 1)
(0 1 0 0 0 0 1 0 0)
(1 1 0 0 0 1 0 0 0)
(0 0 0 1 0 1 1 0 0)
(1 0 0 1 0 0 0 1 0)
(0 0 1 0 0 0 0 0 0)
(0 1 0 1 0 0 1 0 1)
(1 1 1 1 0 0 0 0 0)
(0 0 0 0 1 1 0 0 1)
))
(kx (mapcar '(lambda (x) (check x (apply 'mapcar (cons 'list lst)))) (fn2 (length lst))))
FN2
CHECK
KX
((0 1 1 0 1 0 0 0 1) (0 0 1 0 0 1 0 1 0) (1 0 1 0 0 0 1 1 0) (1 0 0 0 0 0 0 0 1) (0 0 0 0 1 0 1 1 0) (1 1 0 0 1 0 1 0 0) (0 1 0 0 0 0 0 1 1) (0 0 0 1 1 0 0 0 0) (0 0 1 0 0 1 1 0 1) (0 1 0 0 0 0 1 0 0) (1 1 0 0 0 1 0 0 0) (0 0 0 1 0 1 1 0 0) (1 0 0 1 0 0 0 1 0) (0 0 1 0 0 0 0 0 0) (0 1 0 1 0 0 1 0 1) (1 1 1 1 0 0 0 0 0) (0 0 0 0 1 1 0 0 1))
T
_$

账号		自动登录	找回密码
密码			立即注册

[研讨] 转置

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评