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)];
# n7 X( F" H+ t  w( R) Q2 w3 H- v
- X& a) r( A- P! fWL_Marix[i, j] := eq5[1]; print(WL_Marix);
( I9 J/ a: g' _9 h$ C; ?  r9 [. i; ?8 {+ A( N
eq5 := assign['eq5']   U9 O- a- v3 ^# a5 h) ]
/ `5 K; ]6 A) y* |
end do * L) D4 k0 E& M& d  p2 Q8 s

. X. ]# w/ C; ~* N+ L( p( Send do;
) d3 M0 |- Q' z#################################
! q+ L6 ?3 J$ M  U5 D
; t2 n' }) I) P8 v* v8 ]
" A6 |2 V" h( ]  O
, E0 r4 b2 Y* d" `1 E2 G  g9 ~. l; \9 I

3 A9 j* Y1 ]" }1 }" w9 ^3 M
+ x! I# K0 a+ P- t. _- w0 [: J/ J6 J( Y7 K4 y; d( O/ I5 D

  N! T5 c: Y0 e# c. I1 a8 D