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)];
$ k/ k: A# G- A' W) Y- A! }' O/ N- u- r, c" ]
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
" J$ W4 \8 q& m6 m. o% g. M
2 P, Y0 V8 X3 Leq5 := assign['eq5'] _. Z& n9 y7 U0 b
8 G0 H& s) r" Q& |
end do ! ^- I) H: j% r
& k8 X( e/ H* ?8 `- x0 w
end do;
6 |+ N; P$ K/ m$ U! T#################################! A1 o% t1 U; V4 [

. ?8 z* } d6 k6 A( B- O
% Q1 G- f) |( n- A# R
) ?& x0 k+ m2 W1 t: i6 d, y/ n; j5 \" z7 l; f

( Y" _' n4 C* l) @' P
7 M, t' V. F* ]! S0 V) E# [
5 r# Q+ V& p2 f9 v% t. |& ]
3 O: M1 S& Q- ]* Y# F( K) y' ~