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)];
' Z% `' t7 l) ]! s. z% K1 F; t
9 M( J# |6 w  `WL_Marix[i, j] := eq5[1]; print(WL_Marix);
. s8 @6 |3 t( R1 j8 ?' G8 c/ h5 Q& @7 a. c# e% V8 B5 F
eq5 := assign['eq5'] " j5 S  }' M! o7 X2 b  A; Q

8 B0 J6 n1 \4 o3 @ end do 1 R. J  ?3 V; {. f) p! F3 N6 o

; R% s+ Z. m2 `& X& P1 M: Cend do;. h2 Q. H7 T( t$ w7 `) X  n  `
#################################. [0 e! p' M3 O' m! p
; o* K% q5 Z; V' j- |9 ~! s! y

5 e4 [0 n* O  c) O9 @; X* o0 m
& l: G* S2 ]; l9 D( V$ I: m9 U: d( B! X6 U
% Z2 M: b. Q- Y  M

( N4 ]: M& |; N! u2 A
* P. i: \" t0 f: b0 K( P7 Z/ T5 j, ~# q, e0 ]: L- C: X/ ^7 t