QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6654|回复: 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 编辑
+ R7 H8 d8 \) O6 u( P$ Y
5 |6 F- \4 o( x$ l8 E想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
! ]# H$ V& z8 \#######################################
( u, y' \+ w6 z1 O" lQlist := [seq(i, i = 1 .. 2)];
, V" |0 z- s8 x) [. qklist := [seq(.1*i, i = 1 .. 2)];
+ M$ I0 H7 J2 P% FWL_Matrix := Matrix(nops(Qlist), nops(klist), 0);' i) m$ P* ^9 l  T- ?" V( C
n := nops(Qlist);
, \0 N) v0 a; X( y) [+ d1 {, P+ l& s+ y! ~6 j+ ~' r1 i
for i to n do
9 x" y) B) u( o0 G
/ z6 i7 `7 w* o7 l7 p0 b$ Y for j to n do
  o5 q$ a7 f9 ^: m5 C
) `5 A3 L$ ^4 w4 A! ?, [' ~" Keq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)];
6 c: ~# U% ?+ G6 h7 z6 P* @/ T9 B  v
3 ~3 c- j: G& cWL_Marix[i, j] := eq5[1]; print(WL_Marix);
1 R  a& z$ ]9 I2 i& r1 r& T- r: [
eq5 := assign['eq5'] 2 O1 `. b8 J2 w* r. b. Y

8 @2 y, D/ `' Y- P! _( S4 Z$ k+ t end do . ^! ~6 `0 |8 F/ e8 h. {/ Y
; f1 l# B2 T% D8 ?( }+ a5 Z
end do;" X0 ]9 s. \6 K' c% W
#################################( j* T, p6 n, D% G
8 C" b( W* [& z

/ I# r& ~' ~% y0 Z7 U8 S0 K* Z7 J8 h; R# q1 T( @
. \3 w9 _3 M+ s4 d( M

1 R' j/ W' q3 }# l
2 _+ ^( I7 Q: I, t
6 ~  j4 m8 }) h2 `
, R4 X* T! \- j2 e& E  B

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

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, 2024-5-8 22:18 , Processed in 0.353568 second(s), 52 queries .

回顶部