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)]; ) u- C8 v1 G! n* k1 \2 [- C

' i. D3 X! z( |1 O( xWL_Marix[i, j] := eq5[1]; print(WL_Marix); ; Q3 t7 t+ g+ s8 y# c" t

% Y/ L# j( U$ O4 D9 ?2 f) z% geq5 := assign['eq5']
2 F9 ?, B+ Y6 V) A! d- x% O& ]. A2 \, g0 G. }* X9 {. \
end do
9 h4 i. j2 @7 F! z
! J+ S6 {: f# U8 z& b; G- gend do;' p% z! i* q6 f$ l6 ?9 B' N
#################################
2 b% b: _( u: J. O! ]4 Z% D/ S* ]# \! F" Q

7 c( S2 H$ ~' ]' A7 b& \
8 r" {- R9 o- x9 n$ T: V
7 d. _$ w: H' z7 ~- E2 n1 C
, J6 g3 B) D+ ]$ S& g# Y% }7 [4 p: F5 A
+ K7 j8 S. U P

4 K( }* F' ~, @ U9 W4 c1 Z: B