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)];
0 y0 G' I$ y1 q& e1 f9 f, t" Z
1 J7 Y* F( e0 M9 `, GWL_Marix[i, j] := eq5[1]; print(WL_Marix);
" O/ _3 }. c! ?+ V# p
6 {. o8 o4 k  c4 a+ n/ ^7 G1 j4 \: Weq5 := assign['eq5']   V( A' F8 R2 K9 [9 r

$ v$ Y/ j% F) V6 X end do
3 ]9 |0 K' v- v+ f( R% l, a) h, U+ X7 b! s
end do;8 U" d% ~: S  N7 b) f" P
#################################9 m$ _& r; ?  m

8 X2 i% G: j/ ~! Q# d) o" o' N* i0 [, s& D  y; O
# |1 M; `. W% F0 e1 j
, e5 d+ H  C  f

1 `! ?! [8 X" k2 c! D, \* x7 {8 e" @4 }

3 {3 y; ~& b2 @) J
' G! E1 {3 ~" O5 |* E& J