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)];
  N# `8 G# k0 c+ C! R' g& U; y: w6 T
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
2 Z  j- F( X( u3 P$ N9 X! r( [* j7 I
eq5 := assign['eq5'] 7 }: h7 u  Y! ^! L" m' N- |

0 P# [; x) o1 u' y1 s) E end do / M) A* S- V- l6 t' ]

7 w0 _: Q3 ?0 w. M! B: [  dend do;! U! w2 Y# _; ^
################################## I8 B5 G/ w! x- Y' J4 l4 l
1 t7 A6 F* \- t; P  |$ e7 \. R
" T' I& }# {8 m& g, J/ d

' I% n. i+ d' i+ W- [4 T% u' I) c* Y4 E1 J9 j/ N' _

. `7 m+ Z+ t  C  S) D8 [% y
! t/ w, V* b% W8 H1 R( w, _5 ~) Y5 H2 u3 r( C0 Q. F

& W; a3 V8 Y* ]" Z2 |