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)]; 6 w: s+ Q; ~* u/ F  p

, d$ d" p6 \! {1 w, BWL_Marix[i, j] := eq5[1]; print(WL_Marix);
: [  p! I. a* \) Z% R3 @/ Q. q8 K2 y
eq5 := assign['eq5']
  ^; I, }' Z$ W( u* r% E. ]
8 t  Q$ g4 r8 v9 s5 p3 V  A end do : s- B! r8 U2 U7 e

, d, O- |! G& q& W. xend do;
6 c( @1 W+ w& C4 l4 r) h5 P/ |* U#################################
3 s* H0 c; [4 |" J6 L
/ O+ O$ u/ U# ~  x, Y3 p8 k" x8 z/ v8 l) c# j

( ?: f+ Q# q7 h" y! o4 \8 v: v3 _. @& J- u
; F  D, E- R9 F4 S) x1 I) L
8 j1 v- l' B: N, B

/ R; {5 m) k3 ^! {( a5 E
/ O; X0 ?0 v. ]2 G3 `