数学建模社区-数学中国
标题:
Maple的for循环求助
[打印本页]
作者:
No-one
时间:
2020-3-27 14:25
标题:
Maple的for循环求助
本帖最后由 No-one 于 2020-3-27 14:26 编辑
9 g) R" D% f$ S7 V: g7 }! k
& |: R: Y$ M/ {/ i
想通过Maple的for循环来把数据依次写入到一个零矩阵里，但结果是产生了一个table,矩阵里的0没有被替换，请问大佬们该如何修改。谢谢啦
# j* X% _- J8 ]# @
#######################################
2 ?, N' \/ X x
Qlist := [seq(i, i = 1 .. 2)];
( B6 a9 C; w) h) _* m: @7 \7 S, V
klist := [seq(.1*i, i = 1 .. 2)];
+ t0 m0 Q" e. e7 u$ U
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
- a2 r. {! |; T4 F7 |, h
n := nops(Qlist);
/ k0 _$ C5 C4 ], K+ u
9 T$ B+ T/ Z1 n! Y u1 ?! d
for i to n do
# N1 L- n4 Z) G+ s6 Y, O, G
! f, U* l8 K; Y! o. \7 l
for j to n do
6 W' s, g: o L0 q% s
$ P: t) s1 |* l$ l
eq5 := [solve(subs([Q = Qlist
, k = klist[j]
], W^2*W0*k+Q^2) = 0, W)];
8 O/ O, f z5 |
: B- B* X- h4 D! ] q- K F ~$ d
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
[* p( x( R) ~% S
$ j- [( {5 H) m0 A" Y7 ?4 |
eq5 := assign['eq5']
: }6 |0 C: O, k) y+ S: X! n
% O) P/ Q' _" ?
end do
$ l( v+ e' ^$ s; @6 K) `) d/ C
6 ]& {* T1 C; m& b- T& }" ]
end do;
% \9 a7 z1 _' q! @3 H/ y ]7 n
#################################
# f& ^1 A/ \: P; {6 z" i. u2 N0 U
3 i' k* B s9 x- d# q# z
1 D; @3 ?( }, Q4 E3 c5 |# o
( _# b/ X% g) \
$ v1 s$ l/ p1 O' n% B' G
/ g9 k% q" e5 u% N8 w
0 o; W, H( d4 e! d$ C% ~; _
6 @8 ~- z" ^. b' ?4 G) e# q( v9 ~
, z, T9 @0 r' r' n) Y9 k+ d( o
Capture1.PNG
(9.48 KB, 下载次数: 421)
2020-3-27 14:24 上传
点击文件名下载附件
Maple18运行结果
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
