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)];   C6 v1 v+ N( R) o4 b1 t

+ G8 V* K, H' Z6 ^+ D( sWL_Marix[i, j] := eq5[1]; print(WL_Marix); , _- n3 ~9 w9 ]5 q

  b+ B1 C' ~# a% veq5 := assign['eq5'] 6 Y, R/ `* z4 w1 v# y7 m1 i
5 d( g' W! j8 Z0 q
end do
. r1 @( ~5 Z# {9 ]' l% M3 w5 b& G& b- H* Z: _' L
end do;. _- g' ]  ]  N$ ~! A! ?+ ?- Z
#################################6 a! B1 \9 g' _% E8 P1 d5 L

% v7 I. Q( h0 p! c+ ]4 i- ~& B+ p- I$ }0 A% \
' j  e$ f7 [2 P" ~/ V4 |! C5 v% `

. p: F; Y0 M: U2 L
$ ^. g' ]* G9 c% C" S4 w2 l1 X+ q0 \" p$ `* @' f# ]. I
2 `5 v9 _/ p: v( R( F
. z5 w7 e: B4 G3 N& K2 _