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)]; $ _7 a& E5 k" \: g# a

+ \. m; }; r3 z# @: L) V3 yWL_Marix[i, j] := eq5[1]; print(WL_Marix);   S, a$ p  t) a; F" j, ]6 B  o, u

0 I( P% S7 L1 @% v/ Peq5 := assign['eq5'] ) D' q3 e3 R& F8 T  A$ y
+ _/ \. |& |* X: K
end do % y  O% q) g. N( J, \8 d+ h" x
" [+ c5 K4 Z; h5 R
end do;
$ ]- d1 S! D6 k* Z* f1 ]#################################
5 f  r- y% `6 \: F
) U8 [& O2 i+ ]5 A9 e# b6 r# U& S2 M) W5 _; |  q3 R

/ o# g) u! _, o5 U( H/ w
3 M- q9 B* V* v  n6 j) r- M3 l* D' j% d) o! K9 O
1 K: e; k& |; E* y6 M

1 B) m; R  q, ]9 ^# N$ ~* {5 ?2 T5 W9 n/ d