数学建模社区-数学中国
标题:
Maple的for循环求助
[打印本页]
作者:
No-one
时间:
2020-3-27 14:25
标题:
Maple的for循环求助
本帖最后由 No-one 于 2020-3-27 14:26 编辑
" \( j1 Y3 a8 U- X
) @! [& o+ l1 R: f. W
想通过Maple的for循环来把数据依次写入到一个零矩阵里，但结果是产生了一个table,矩阵里的0没有被替换，请问大佬们该如何修改。谢谢啦
# `0 \$ R+ w& J( R) q
#######################################
/ H$ ?, {) k$ p* k
Qlist := [seq(i, i = 1 .. 2)];
$ r! @ E+ M i" K: J
klist := [seq(.1*i, i = 1 .. 2)];
5 f9 v+ J( b1 R6 g5 b
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
9 w' n! s* x. ~( {/ e; {8 X
n := nops(Qlist);
8 G2 r/ ]/ V7 W2 {; d4 k
: u4 U9 L8 E* q9 I* S; Q& O
for i to n do
1 z: ^; _1 ^4 B" a3 w: }- V2 V- |
) H e# \2 [1 f* g1 Q4 m
for j to n do
/ Q: T7 K$ L$ h' m+ T, o: `* |
* o7 z2 W5 v2 h
eq5 := [solve(subs([Q = Qlist
, k = klist[j]
], W^2*W0*k+Q^2) = 0, W)];
, S; ^( Q+ ?8 R2 m' A
& e: [% P$ u# d
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
# I/ u4 m2 H. H# ], z0 B, L. @! r
/ ~. A5 \/ E* F3 C
eq5 := assign['eq5']
' \7 t! ~" w6 u7 U, F% j$ h8 V4 A- U* N
4 C1 H* p: } J6 J
end do
) I& a/ u: Z6 W+ K
6 D6 l* M" k- O
end do;
4 m5 Q% B3 J+ t3 D0 @
#################################
# x: x6 ~* I; g {! a, o
2 b q1 e# Z, p# E. P
9 m" C; v- L& r4 u! b- S
( |: f. w4 I% I$ }8 T: p8 G
6 M0 A& P/ y6 o- _6 B
, o7 X' {; F& a) R& I+ @! i
! [ A4 I: `0 t* T8 K1 ^5 k; F
" G* B- s" ^5 z' F4 D2 j' A5 M
9 p* y5 n" v6 M k! ?
Capture1.PNG
(9.48 KB, 下载次数: 406)
2020-3-27 14:24 上传
点击文件名下载附件
Maple18运行结果
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
