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)];
( [, L& Y5 U J) h# z% j* h+ o* `7 e
WL_Marix[i, j] := eq5[1]; print(WL_Marix); ! w1 j' e6 s' m2 M, v! I9 S
# \+ o' b1 L; v+ h
eq5 := assign['eq5'] 5 _$ g% ?$ d% q# F8 q
2 w5 ~- Q4 }$ ~7 R. S0 V
end do
- r8 f4 {" n+ k; m1 `' a8 Z# t! W9 G1 T1 ?5 G
end do;* l* B; F+ V. j
#################################& M7 }7 r9 q% ^
0 i) s" `( \* p* T4 w8 o
* O; V; K( e! `, J0 d
2 |% e1 G, q9 t
/ U6 u E: I; |: s- d F9 n Z
3 B" ?5 l& G+ N' L" x$ X- S! {$ O

# m+ F" R$ t# C
! x# R* A$ V: |6 N7 z9 a$ a8 v9 C1 b9 U* G, a