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 f9 y" U: Y% U: I
) t0 m, b5 g! j* R
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
# v8 ^% C. {5 Q( W1 }% @& _
6 _/ Q' [& N- ~8 L0 h( t0 R5 u# ]$ K9 deq5 := assign['eq5'] # z$ P) z0 `( f% [
& V- h, j, C% I! w; z
end do ' x! {6 P. q. s5 ?! T
$ U% }$ N. m9 y% i
end do;
5 U, d- Q7 u E4 `) n* O#################################% p0 b" S! C1 [9 Q9 n: x& D
' a( z$ t' ~& K8 s, n% [# ?
% Y- H7 H- a, D% Y# M5 C# c; [$ ]
4 A$ B; l+ Z0 j/ d- g: w

# ?% e9 B# k2 k8 P* m" D1 }$ N- o* n, b2 ~3 t9 X- C

( o1 C& _1 [5 k: \
' e9 h* D# o) i$ E8 T6 |# C* Y# H5 O9 S+ {1 s8 s ?$ W