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)];
  f9 D( [( C4 ^  |9 X* b  H+ ?5 j) G6 X
WL_Marix[i, j] := eq5[1]; print(WL_Marix);   A5 l7 Z4 }# o, R0 A' A' F+ g. E0 K
& A% w, j: w( h( |4 q
eq5 := assign['eq5'] ; e3 q1 p2 h3 _7 q, Q% A6 q  w

0 c* q) p( @1 A% j/ x( {; m end do $ n* V5 x' E( |& X' X' M

2 @8 F1 k5 o7 G: s* w( Bend do;' Q% F  Y) @9 E6 V, V( E
#################################
5 o7 e, x) d( {! s) C0 v
! D/ ^9 ~5 Q! h, `5 A
7 n& ]' x4 P3 {0 O# A" Z! i- O( j, k6 M
# v( k. v4 e" a( t' `8 g
. n0 b% t3 M; C+ V( X' g* _" k8 O  R0 O! l

, H! x( a9 O; b3 `7 F+ F0 D
* o  I- x3 R  n4 C2 Q: ?* ?% t0 i) j- o" W6 ^( F