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)];
7 U8 }; P" L Y; A9 c/ L( W3 G5 f+ Y5 C9 W( _# o2 \+ S! p2 y
WL_Marix[i, j] := eq5[1]; print(WL_Marix); 8 F! W* r3 g, q1 g

: f% S; c( j4 V0 k0 j2 teq5 := assign['eq5'] . }1 o" l3 {0 I5 f
2 {3 C% H$ I% ~' m% C+ s' t
end do & p; w% V/ |5 L
% r/ V4 A6 u1 ~
end do;
6 I: e% e9 J! q" ]#################################
2 m" U* p( I: c4 F3 \
: E4 p! ^0 }- s1 F, |/ e$ i; b# r: G, q6 X3 m
4 p8 M- m* P. z4 ]+ r/ [

9 f; ?1 a% r7 I/ r9 l7 N6 F. P8 M; y. O' h2 m, l

2 t0 u8 `3 w; j8 _) I5 n5 ?# w
B1 n& f* n% U) R h' K# H: [/ ?7 e9 J4 @