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)]; 5 l8 D9 a* ?, Q# Y
8 s5 H1 P$ m( c% G* A
WL_Marix[i, j] := eq5[1]; print(WL_Marix); " J; j. H: Y. a! ?

2 Y1 F$ {, z3 t% Y$ A! P0 Deq5 := assign['eq5']
. x* f9 a" y8 |: D3 C
- h+ V; S, Q( k3 s6 R) k2 y& a2 ? end do 7 k. _6 D0 f# u
6 [. r, N1 X4 @5 n" v4 Q
end do;
# Q% G6 ]' k* e& e& Q#################################6 }4 k+ G) R  D* t3 K
* g9 k+ G# |4 O; d. B/ s
: c# a; E5 s# G5 m0 s8 L8 j9 W- M

0 `" T, [% u3 S( W$ l+ a7 V$ C# {) G2 K( y+ C
4 U0 n, f8 E8 ~$ O5 _  h
; T) F% q9 ]7 t$ [# ~" t5 U$ r
1 z# _3 O: J6 J0 q

6 p2 ]% [. s/ A5 O' \  F. M