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)]; * f9 a. O5 f# @3 _6 f; ?
0 ?( w- k# b' S% p% Q( R3 S9 Y
WL_Marix[i, j] := eq5[1]; print(WL_Marix); ( N! R$ |' A/ y' v+ t
) Q2 l! J" S& |
eq5 := assign['eq5']
; \8 c# a  Q( i5 Y: j8 Z: H+ u" W( }! B! U) R9 d/ ^8 v
end do
; Q* V! l  K' P! L- `
- g8 S+ c& k& h# L! Pend do;' Q1 ~6 B) R# v0 |8 o  G9 l
#################################
0 L1 r. B# m7 ^
5 B* s' d/ k  u; j. J* m
6 _- R, `$ O$ j; {
0 v' q/ m3 `0 f+ k/ j0 J% ?8 {3 c( M
: M: i& I. Z+ D& t4 E
3 y0 A8 R( r; W0 O. d5 P8 E. E/ C) s* s9 R
  Q& F0 G  }% g! K4 X! d2 N; w+ g
/ e: o. n! D3 `# x) U