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)];
6 E2 n6 M* T& z! _+ ^& w% `; t3 u: ?$ c  D' }. z8 H
WL_Marix[i, j] := eq5[1]; print(WL_Marix); % t# |. X( |4 |0 S* f6 w& r

' p5 w1 |5 v( xeq5 := assign['eq5'] 3 u& i0 [) K1 |; T: s' s

2 P" b+ ^* x3 M9 M4 Q end do : {! F! n+ @- m4 s5 R9 t- I. e

0 s4 b5 @- W4 B2 K& ~2 Mend do;
7 g2 ^" y9 z% V4 a. q; c" d#################################
, t: A& N0 j5 }8 {
% ]% L1 ?5 T. B2 u9 z, T6 D
0 j  h, p( m. f3 G3 @% T0 f" ~; b' I
/ [0 `. X7 m0 K0 H0 H
: J( H0 h8 d! B. X6 f9 L
% k$ ]! d/ l- f6 S/ M, x( k/ S9 `& u! S% S" ~2 [+ R) Q. m

, S" Y& k; i1 d! l# ^% _- E: O  @6 }/ M1 K2 A% |