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)]; " R# ?. L6 W/ V. y+ ?* K. R4 W

  d" h' C# d2 JWL_Marix[i, j] := eq5[1]; print(WL_Marix);
$ n; [; B% w- M: a8 J" L6 \
- \/ c4 r5 _; S8 W7 L" o/ k$ beq5 := assign['eq5']
8 V, A" e$ s/ p) x6 |
3 T; V6 {0 z, r4 \ end do 1 C, _, B) P1 `6 V+ V. r3 W
4 ?2 J5 Z! ]# N. a; ^
end do;
& ?2 a' {0 z, ]  X#################################+ G6 ]" f3 s- }
/ [* c1 T0 N% |
# Y8 |7 F0 o# q% n2 |

' v7 X% ]  e, l/ H9 q. t& @6 _7 c. G+ }8 ~

. `. l& T( P2 s& z0 |4 X+ c3 v1 L" w: d  s+ E

$ C! Z* A. R$ u4 h* d1 ~& U% K* u