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)];
/ Y$ W# y6 T/ Y
! X1 H- h' i' H( y! B! [WL_Marix[i, j] := eq5[1]; print(WL_Marix);
# Y, i4 q1 h- x* @
+ D; A; Y* A( J; H( M8 ^0 e( Xeq5 := assign['eq5']
. l6 m$ [* m4 N  ?$ p6 r" o, _1 s# R
end do
5 ^" `( X1 S( A, V7 w$ M# V) H
( ]+ J: [3 P! V8 Y: pend do;% g, S" }" e+ c( g/ b
#################################! |' Z  O9 A. l* Q" ?# y) L
; E6 a" l5 K+ N9 T; F) P( l
! u: U2 K: `9 k

6 n; M" t! q4 p% U( x. P  q& k0 Y2 |4 `. f) L4 m, t

) y+ h( K0 b/ u6 H; y! \% Q
7 J; U. o$ m8 x  b3 I$ e0 C4 k
4 l( ?7 q0 U0 Z. N  u  X, D& [  Y