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)];
, v* c2 P4 {& L. |3 `! b9 Z; @5 O7 c, n0 ?" T+ _
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
1 ~- w2 m& e' N2 f) I9 a1 }. L3 q! c! @; X8 }8 i8 |7 {
eq5 := assign['eq5']
/ c# b) I/ P# z8 O! w
: u; W5 l$ S" U1 s+ }4 Z end do
% s% P: c$ D! q9 k( Z
5 B% p: n: G/ R: L; k8 Xend do;
6 a8 U) C5 u! R* \+ T#################################
& u6 x+ x+ q4 c' H
$ f& z8 J9 e, P7 h/ e8 t
/ W" p6 O- G+ a! v( Z
9 D* e# M, U* Z& `8 Z' |* M3 ?  K2 H. \! y0 s5 Y# w& l1 G
  G$ X% y" @1 @( X' i2 E

- d2 F4 O! L. V) S% M
6 ~" ~! a8 D3 |" M2 h  n, g/ U1 u8 ~# }6 N1 C: m2 S