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)];
# l: T3 _8 ]; Z8 S: U
3 m9 j' R# z9 N, J- y1 ZWL_Marix[i, j] := eq5[1]; print(WL_Marix); 7 n4 `( { v' h" I X' H# `$ e

. o. X/ H. g- Heq5 := assign['eq5'] ( C& N/ b9 a1 E9 Z& n7 @
2 e5 n M$ P; D; R7 B3 b5 g# `6 G
end do % B" A0 [0 I6 f) d4 u

4 W* o/ s1 b9 a" R! d. m+ Q8 o2 s! pend do;
#################################
- ?, D. W! h. m. U
9 X% M$ y9 Z2 j9 N- C4 x% ^& _4 O9 ]5 s: g7 j0 b' h8 `
6 w$ e$ ]0 [0 e5 X. n& D" f
9 t: @% p% f0 Y. X5 |* z7 W
/ k$ l; Q# D4 ?$ Q4 g* Q8 [0 \

+ A8 h2 O' Z9 v1 b
" N% O% M/ J$ F. b
% M" P0 s5 Z# a) E# {6 j