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. W& `) o! Z1 L
, h1 _5 D* ?; \* n5 ], D8 T
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
! ?/ j+ T: s0 ?3 X! X8 ?
3 M9 ^. N; W" @0 @" Eeq5 := assign['eq5']
% N" |( b) @) B0 w3 b
7 v4 L% w1 }/ e2 P! K9 @) q end do 1 ^0 j* _. z- l: _9 S0 U

/ G( c3 E9 Q4 Zend do;0 v) A+ m- O8 j. L+ Y2 d1 j
#################################' O) Z: U4 o  ]- z# K# B

, `- O2 U+ O/ I0 |% x" ^) Q' j% ^: S. C) A; c: \6 [
/ J2 ~2 R% Q, R) H  B

+ d* _( m- N+ p5 N6 g8 V$ f- x; d( e9 c/ T
( ~% c6 j) W, @) d, x

: R" N2 M$ k: I( k! R! \+ n0 x; f  x  n% a' w* t& a