QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8787|回复: 0
打印 上一主题 下一主题

Maple的for循环求助

[复制链接]
字体大小: 正常 放大
No-one        

1

主题

1

听众

1

积分

升级  20%

该用户从未签到

自我介绍
Maple初学者
跳转到指定楼层
1#
发表于 2020-3-27 14:25 |只看该作者 |正序浏览
|招呼Ta 关注Ta
本帖最后由 No-one 于 2020-3-27 14:26 编辑
# f  C$ m# q6 T8 {# p6 @9 P- L6 {8 i3 g1 r0 F
想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
9 p* t' E: a4 @7 E" B) m: l4 {#######################################
, a/ ]2 G. C8 F0 O* a; {Qlist := [seq(i, i = 1 .. 2)];
4 `# k2 K0 a" ~+ }7 n: H* Yklist := [seq(.1*i, i = 1 .. 2)];' U/ b9 Q, l. ^1 T5 h0 L( D) h0 S
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
' l3 G6 r8 V6 p7 En := nops(Qlist);/ A7 t$ l. O1 S% {1 ~% d
% K" ?8 G/ w8 {! A% {
for i to n do
$ h8 ~) e3 E1 |: @" P7 x) _- f) {/ N& a' \; a
for j to n do
5 a# v: e2 k6 m5 j7 ]: c3 M+ Z) f2 X1 u, \* |' l' w
eq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)]; 9 G/ G5 N) y- F& a
) n" B6 S! t; `$ `& l0 @1 Q
WL_Marix[i, j] := eq5[1]; print(WL_Marix);
: o' y$ H5 O- H0 s& }
$ F  C9 I$ Q) u' k! O$ ]6 e" |eq5 := assign['eq5']
- i+ [. J# m* i; O! q3 ], k5 Q. a9 ?3 `2 ]. Y$ n
end do # J* S$ `+ s' N1 [# q
( p& g1 @. m' k3 S2 O
end do;
% ?( N' H8 _. V, y4 O- E#################################( y2 X9 D9 R5 c0 l) B# n8 S
) F" n% k" Y+ \) I

, B0 @+ r8 R8 q2 Y6 g/ Y; v! }; c1 X% h: e* k

( c7 \& N8 Q0 Y
, S0 o7 T0 u4 m7 C, }  e* `& W& h( `' |3 ~
0 n6 y5 X6 f! |4 k6 V

3 {) B& t& V2 n

Capture1.PNG (9.48 KB, 下载次数: 467)

Maple18运行结果

Maple18运行结果

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏1 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-9-21 06:36 , Processed in 1.126369 second(s), 59 queries .

回顶部