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)];
* P9 x2 R! I  |$ `; y/ S$ M
# `# m0 \& p; u- p9 |' E3 lWL_Marix[i, j] := eq5[1]; print(WL_Marix);
: j+ |8 @2 s9 R# n0 c% S
/ _5 u$ d3 S. F$ Ceq5 := assign['eq5']
4 u0 o' q  C( D% ^% |; S
+ f" V9 t$ ^3 E! d8 w% q& b end do
( @6 s, ~& P! W8 i2 ~) t
- w) P* |+ N  Q2 R4 |- K- {% Fend do;. h  m' P* l/ Q, p0 o& w% R9 P
#################################
- z6 O1 d5 h& |- A1 p% P3 e; j; v+ \# H- X
  M+ [4 h" F5 P6 N6 F

- h4 b! f' C+ B- ~1 c( i$ {, \
( `, Z. E6 i0 N- Z$ V7 O+ ?3 C' v4 t: K9 n, E

/ E; ~' M0 N! ]! p! M! d- e- U$ }1 ], z' x+ K6 C/ F$ d8 J/ Q6 A9 e! V

$ o' O9 m, ^6 T9 e- S/ [