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)];
! v0 G) V% @3 i" E4 D* `3 k4 g$ a$ n/ a
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
2 Z, u# J1 R9 B, j( b# g5 ^( v6 J0 `, }+ |! z. y
eq5 := assign['eq5']
4 J: O. ]$ E1 l$ K5 W
! ^8 W$ E( J+ |  Y end do
; T  Z7 l9 L% k+ E! c1 J% f' w
( L& H2 x. n  iend do;
0 l7 o! l! E( j  n6 L0 Q. y0 N#################################
3 m5 i6 E/ I* U0 h" Q3 O6 U' D/ N: {5 j) x. {: Z

5 ?0 v$ ~( g0 e  N& w( g/ ?
# Y4 d& H6 k- B! p
  Q+ N4 B# r8 r0 I7 s( C7 ~# }" D: t( f
/ `- H5 ^  W1 u& C* L
- w2 ]5 k4 Y& g+ k4 u% w; d
" T$ f6 s. k; ], L$ j" D