Maple的for循环求助

[复制链接]

字体大小: 正常放大

No-one

1 主题	1 听众	1 积分

升级 20%

该用户从未签到

自我介绍: Maple初学者

电梯直达

1^#

发表于 2020-3-27 14:25 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

本帖最后由 No-one 于 2020-3-27 14:26 编辑

想通过Maple的for循环来把数据依次写入到一个零矩阵里，但结果是产生了一个table,矩阵里的0没有被替换，请问大佬们该如何修改。谢谢啦
#######################################
Qlist := [seq(i, i = 1 .. 2)];
klist := [seq(.1*i, i = 1 .. 2)];
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
n := nops(Qlist);

for i to n do

for j to n do

eq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)];
5 }3 x2 f5 L( a, `8 Q( V. f$ K0 z' f$ N
0 ]4 p8 t7 [6 @5 O4 W; gWL_Marix[i, j] := eq5[1]; print(WL_Marix);
+ ?( B. C0 c! g" R! W; ?
: @; F- _2 P1 G' m4 S% j3 }/ m* ?eq5 := assign['eq5']
8 e& @" r: ^  x& p% c$ }  }8 S" f4 Q* n5 N9 G- f
end do
+ }/ X( G( f3 L& ?! o" Q1 W" I. _) Y3 N8 L
end do;2 e/ R8 x! W+ Z9 C5 w
#################################. }9 H1 t" C4 d! m) `: \

9 F) |1 w8 v- R1 J0 n
  F" s8 h8 Z( P. D, b8 B' g# D" d" e6 a  q$ B

: x7 [5 W' A3 y$ S% S# u0 x& X' W9 Q1 d  Q3 n7 Q) f
* P$ ~8 T/ J; j' i. d8 `

8 P3 K- b. v1 B7 d& Z2 q3 S) K+ B" J) v+ C4 ?