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)];
" v/ w1 o* [; V) t& g$ G) V! M' k& ?+ O" ]+ a1 T4 w* W7 y( m
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
/ r1 ?- \- f1 O, J3 Z
) J, C: v3 x2 f9 ^* [( Leq5 := assign['eq5']
# l- @4 J5 ]$ `- N. h/ `# p3 ^$ C
& |" R' t+ g7 ~; S( O; Y6 E end do
' u9 a) S+ s2 p( n& ?. h; g
& G& L! T- |/ }/ F6 }6 Y: ]end do;7 F( E8 l9 _# ?0 d4 {2 I3 v+ V5 `
#################################
) a* p1 Y( e+ K9 ~
0 y) y3 V( z+ G7 {% o. D" U& |: w) y5 [

5 j4 U$ o: `5 Z# e+ `+ {
& A4 n) K- Q/ {2 _& T) L! d) N
0 d4 O$ l5 O h
. s5 W, U. \2 L( F0 W! q6 {3 ~, n
% m: Z" Y% v/ b: ?, V9 D3 T7 W" J: B: x" Y2 A6 h* |+ ?