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)]; ( W8 M. f, m4 Z5 r2 @# y
( _# ^( A/ k( I) V) p$ {. F+ o
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
- C0 G8 K7 m9 E7 n) B( V7 t. M' z+ h" d# ?' e8 i
eq5 := assign['eq5']
3 n6 p* @# ?$ Y1 C( q5 l
  [) L4 m5 }( M& `) s- d end do 8 z2 T; i) }) e0 M5 d1 E
; Q% g$ H+ T$ N) g. a! Q/ N
end do;
3 {1 d+ R" e. Y, \' o! ~#################################
+ [% e- w; T( w3 g! l5 h
' k' f5 y( \! A" R% J# H9 H- d$ S. y. X/ M7 g. d7 t9 W5 J: Q

! t8 o; \$ D$ z0 d7 L# p- _/ w4 \5 O. A( A# V7 b

& C7 M! m; {! ]# y
/ O6 N' m  m* a8 A9 F; L8 k; o' K* B. T

: |  i: S) o7 ?$ v7 L% U