- 在线时间
- 0 小时
- 最后登录
- 2020-3-27
- 注册时间
- 2020-3-27
- 听众数
- 1
- 收听数
- 0
- 能力
- 0 分
- 体力
- 2 点
- 威望
- 0 点
- 阅读权限
- 10
- 积分
- 1
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 2
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   20% 该用户从未签到 - 自我介绍
- Maple初学者
 |
本帖最后由 No-one 于 2020-3-27 14:26 编辑
! J; S+ H& I+ m6 ]
- k) r5 Z, B8 b; N2 p) g. E3 z想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦+ Z. p" B9 A+ w- p# ^
#######################################$ K* w, O) h3 {* ?* @6 }
Qlist := [seq(i, i = 1 .. 2)];+ x/ @8 X6 @. J. U
klist := [seq(.1*i, i = 1 .. 2)];/ g+ j" q7 r1 z5 @
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);" F8 Z1 K3 V2 w0 r+ D2 z* ?
n := nops(Qlist);4 L' \* l& U2 ~* v0 M
% ?; x0 K2 q; G
for i to n do
# Q Y* j2 J% j) |/ n/ e6 Y+ T, k
, j7 w0 I( e3 y) t for j to n do & p; z8 e: u( T/ P
3 i/ i9 Y @8 q; d! o5 O2 Deq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)];
$ x) S, S) _- i1 {" ~$ h* d1 ?7 h( l
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
0 ^" J8 X ~( e/ p- |0 a. A
$ F. Y7 B( E& Y# P6 weq5 := assign['eq5']
9 z2 E7 X* t$ F& L2 t, B" p1 q' L% b( H0 h! K. Q, V+ m# h+ r! B3 Z
end do : n% X% I$ E. S! B4 `% C
+ w7 T$ m& ]5 m$ A# Cend do;/ b, N/ ?# |% Y, y6 U3 B8 N
#################################4 f9 E, O) y+ {& [* V* R( l; ^
) K) H* p; P$ S9 D$ y
" _ |+ n7 B) f
, N. J& c6 f0 _
2 v8 c5 ?. Z3 o2 {* n0 D* J6 @4 r0 w5 J) ]- k) G/ o! |* k0 d
- r* n# g* k# X% r6 K- |" B
2 R$ o) |0 y# V
- i- X% R3 f" O7 e/ I |
zan
|