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)];
2 r6 M% G  A7 b8 |4 j. t* ~4 U, ~. o' J: E. ~
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
6 X9 Z9 h7 u! g8 d9 U0 l: C8 W. Z% p8 a
) X! ^! X+ f& C1 aeq5 := assign['eq5']
; |/ J8 q* i. O' w9 V$ E9 j# C/ r# U8 ?/ D: p0 D; q7 Z
end do   A2 {5 e' n4 j4 n$ u: |  l

1 I4 \# ]2 A  y+ f$ |5 Y2 Wend do;! p6 v# c9 @* D
#################################
. q" C2 [" p6 e. `2 `8 l
- g8 C# @  b5 L( a) N- o4 I, D9 {. `

4 P0 y  T2 |$ B' K1 k$ s- i2 e4 Q6 r' J

! C+ r4 ?7 K9 n+ v/ n$ S
& I5 Z* M' L2 K
* H! Z) r2 ~7 P/ P
! h# S0 P/ k! n3 u1 K/ o