2个表内元素相乘，得到新表

wide

表A (1 2 )表B (4 5 6 ),如何让2个表内的元素分别相乘得到一个新表，结果（4 5 6 8 10 12）即（1*4  1*5 1*6  2*4  2*5 2*6）。表内元素个数任意。

自贡黄明儒

(apply 'append (mapcar '(lambda(x) (mapcar '(lambda(y) (* x y))'(4 5 6 7))) '(1 2)))

kucha007

2. (defun K:TT (Lst1 Lst2 / RtnLst)
   
3.   (setq RtnLst '())
   
4.   (foreach a Lst1
   
5.     (foreach b Lst2
   
6.       (setq RtnLst (cons (* a b) RtnLst))
   
7.     )
   
8.   )
   
9.   (reverse RtnLst)
   
10. )
    

(defun K:TT (Lst1 Lst2 / RtnLst) <br />   (setq RtnLst '())<br />   (foreach a Lst1 <br />     (foreach b Lst2 <br />       (setq RtnLst (cons (* a b) RtnLst))<br />     )<br />   )<br />   (reverse RtnLst)<br /> )<br />

用法：

1. (K:TT (list 1 2) (list 4 5 6))

(K:TT (list 1 2) (list 4 5 6))

vitalgg

这不就是张量积。

vitalgg

https://atlisp.cn/function/matrix:kronecker-product

wide

谢谢3个大佬的热心回答。明经因你们而精彩。

wide

vitalgg 发表于 2024-5-12 21:30
https://atlisp.cn/function/matrix:kronecker-product

大佬，看不到源码，

vitalgg

wide 发表于 2024-5-14 09:21
大佬，看不到源码，

上面点源码，然后显示一黑框，需要在黑框里点一下。

1. (defun matrix:kronecker-product (m1 m2)
   
2.   "克罗内克积也称张量积、直积是两个任意大小的矩阵间的运算，符号记作(x)
   
3.   。.以德国数学家利奥波德·克罗内克命名"
   
4.   "matrix"
   
5.   "(matrix:kronecker-product '((1 2)(3 1)(5 3))
   
6.     '((0 3)(2 1)))
   
7.   => ((0 3 0 6)
   
8.     (2 1 4 2)
   
9.     (0 9 0 3)
   
10.     (6 3 2 1)
    
11.     (0 15 0 9)
    
12.     (10 5 6 3))"
    
13.   (apply (quote append)
    
14.     (mapcar (quote (lambda (a)
    
15.           (mapcar (quote (lambda (x)
    
16.                 (apply (quote append)
    
17.                   x)))
    
18.             (matrix:trp a))))
    
19.       (mapcar (quote (lambda (m1%)
    
20.             (mapcar (quote (lambda (m1%%)
    
21.                   (mapcar (quote (lambda (m2%)
    
22.                         (mapcar (quote (lambda (m2%%)
    
23.                               (* m1%% m2%%)))
    
24.                           m2%)))
    
25.                     m2)))
    
26.               m1%)))
    
27.         m1))))

(defun matrix:kronecker-product (m1 m2)<br />   "克罗内克积也称张量积、直积是两个任意大小的矩阵间的运算，符号记作(x)<br />   。.以德国数学家利奥波德·克罗内克命名"<br />   "matrix"<br />   "(matrix:kronecker-product '((1 2)(3 1)(5 3))<br />     '((0 3)(2 1)))<br />   => ((0 3 0 6)<br />     (2 1 4 2)<br />     (0 9 0 3)<br />     (6 3 2 1)<br />     (0 15 0 9)<br />     (10 5 6 3))"<br />   (apply (quote append)<br />     (mapcar (quote (lambda (a)<br />           (mapcar (quote (lambda (x)<br />                 (apply (quote append)<br />                   x)))<br />             (matrix:trp a))))<br />       (mapcar (quote (lambda (m1%)<br />             (mapcar (quote (lambda (m1%%)<br />                   (mapcar (quote (lambda (m2%)<br />                         (mapcar (quote (lambda (m2%%)<br />                               (* m1%% m2%%)))<br />                           m2%)))<br />                     m2)))<br />               m1%)))<br />         m1))))

you_boss

自贡黄明儒 发表于 2024-5-13 07:16
(apply 'append (mapcar '(lambda(x) (mapcar '(lambda(y) (* x y))'(4 5 6 7))) '(1 2)))

这才是正经写法

xyp1964

1. (defun abc(a b)(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(* x y))b))a)))

(defun abc(a b)(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(* x y))b))a)))