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)]; 4 v) z' a+ @) F
  ~% [4 d; {- I0 V1 b- v7 [
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
" H, b' [  e# t* A, L4 D6 Q& A2 K3 P, a
eq5 := assign['eq5']
: N4 X8 p( O! z" ]& H
' ?5 u4 d& ]8 g* E3 m end do   A# Q* Q0 m6 _8 p3 W5 S5 E7 w; L2 L
/ s8 T& d- h$ j$ i
end do;
4 A) y+ L+ |6 a  l, k#################################
4 V8 {# m% t) S# @4 g' q- v2 c5 ?  ~- h/ N! H8 v0 [1 l1 g& h* ?

7 ?4 }* g( q, S! q2 t  M* U! t$ z: R

7 V* v  p, G6 j: m) R' j' ]. j- t8 ^1 |1 j3 ]- F

1 L  @+ \2 V( u) Q1 |$ j2 ^1 ?, E" c5 ?" a
  h. x% P: }2 t