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)];
4 [4 I* S5 _3 \$ U! i8 J3 A5 _# v, x2 I
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
: i) r% O! z- i9 ^$ N
% V) R, S, B) {5 E' deq5 := assign['eq5'] / Y: t9 g& q* V$ ?" @; w) {
; P7 V; g) y: i% x6 A- U
end do ; Y! u4 S) T$ x
' n, p! b/ |3 b  G2 Y, y& ^
end do;3 j! n0 |  w# x: P' @
#################################
) D( R$ K0 N1 z! b
+ c( a; U9 U) `7 c" N( e
  z) \, z, ^2 _0 F! |; Z. H( R0 |; {
. P7 g& r* f1 S# q  s+ e
$ S& J8 A  T) }
7 w! ^: E7 m: I* N! H9 O! \1 T/ {1 o. |4 o# X- [7 Z5 ~

& k0 a- q9 d4 `* ?  m( I# q$ u6 O# T. Y4 \, Y5 n# w