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)]; ' Q& h& K& n% v* C, _

  f  m4 u, b  v: E1 E! PWL_Marix[i, j] := eq5[1]; print(WL_Marix);
; A- E) j$ r: M4 P& V; q' H) L
: x6 Q/ Y" b% M( Q  c8 Xeq5 := assign['eq5']
- k6 @$ w) s3 q8 `! {& h8 D9 k9 H7 Q5 h% w7 `1 ~
end do
' ^" N3 B. P: z$ w, Q+ R- n' Y
" C' d# Q% W7 gend do;2 k; J; v% F& Z+ C, N  G+ N' p, _
#################################% u4 w5 H- F2 l3 Q* G

! S6 v/ q, E# I! u; s
8 B+ g) O7 e3 }/ C) M4 d* T" K* z$ u- V! f! x9 X

7 n/ I* m" E3 a7 Z5 C  ^* ~' C8 `  L; H

/ X8 J3 u3 Q: ^
7 ~- d% j- O! x# K
+ m8 J& \3 v, C  V! t