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)]; / H7 |5 f  z- a- W; S

6 M1 h# @8 \1 A+ YWL_Marix[i, j] := eq5[1]; print(WL_Marix); : u6 b& d! e' K" ~3 X, \

/ ~7 I7 X7 M9 a4 k$ k& K5 T# Beq5 := assign['eq5']
' \1 |2 |# D& X% _# u' \, y- y/ r9 ]; |' C9 Z6 a) y- K, t
end do
: k* D* Z& Y' r/ o: R+ {7 v3 @; ?
/ P- u) z5 |9 l* h$ k3 o/ Pend do;
! i" u) \+ \- V' d+ M3 @7 r4 ~#################################- r" `7 H7 G6 Z0 x* X2 U

# P- O- Q3 _  [3 U6 i1 L  A
9 y: y- t+ L( U: v- G
: r0 `, o* y1 u: g# f& E2 p- B+ ?
+ m/ k4 o$ D) ?* \1 J9 r6 j% N. {1 U1 p7 n: `1 y2 t8 O/ K
# J, c/ R* X# y  m- t4 T: x/ Q
) |8 T6 L& k$ A  v

1 F% j6 u7 b1 D9 k! y