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)]; 4 k% m6 m- ]1 G1 _4 w5 h. i

% d- J# q! ]7 H5 ]WL_Marix[i, j] := eq5[1]; print(WL_Marix); 0 L/ K( K1 L- |8 }6 K
) U3 D$ s2 i8 a: M% z7 e
eq5 := assign['eq5']
' h% I  X. Y* d6 }  p. [6 A. ?% |6 @) c- h
end do 4 O& @) O5 f2 b, h
3 r% u5 Z: w: r  u2 o% K0 Q/ U- @/ N
end do;
6 ^9 e+ W- T; B* Y; r) ^3 z#################################& Y% h' D' O" {$ ^( X# R% R# m

0 u) @) r7 V* y+ d& N
! \! F! I$ `5 d" r" O
; I8 j( A" Q9 I" s) w: b- {, x: V& z6 A
) _; B' R2 A# w
' c9 q. @  c; I) s: ]

4 W. M# Q* K  l) Z$ I/ h" ^
- M0 B; H8 Q1 ~