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)];
. h. o5 R+ M3 S. B* @( R
4 X( p' n# K- x" a, s2 A  z$ HWL_Marix[i, j] := eq5[1]; print(WL_Marix);
5 S" K/ I' q2 d" c% f5 A% R+ J+ X- L# H; o' ~
eq5 := assign['eq5'] ; T  l- |" U+ P3 Y
/ p4 v. m. e  ]% P: ^+ }9 N
end do
+ k1 d' c1 q% z! H; }. k( |1 w- H6 B' e9 ]9 v2 P. f1 T) \
end do;3 ^' U8 O* I( x- s; B
#################################
8 V) f5 e+ G4 O! ~6 ^9 h
' Y3 P/ I# k+ G+ y% C" K. d! `" x5 p: K( p  v
- F( J& d8 W% ~0 G) j' r5 P8 s

" Z" c0 `3 i6 `
4 r2 d) W* B* d+ N  O
+ x: f( r, ?. j8 n9 c8 b) B  I8 H! }; w( ?
+ m3 H9 q9 L6 D  I% E7 G