QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 7770|回复: 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 编辑
! h+ I1 r5 L) P; ~; Q& e/ R' J. f% v* O9 H" e" x, O
想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
5 ?" c. |. j& w0 Q8 j#######################################6 m8 m7 p( y5 w- \9 x4 n2 P, I
Qlist := [seq(i, i = 1 .. 2)];
9 {6 N. d$ M! B8 t  Xklist := [seq(.1*i, i = 1 .. 2)];
. v- E2 w7 a) I6 kWL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
* O" ?) g# d5 [7 Tn := nops(Qlist);9 N/ c9 L; l6 M+ {* ~# ]

6 N( H# Y$ W) \2 a& \: w2 G8 Nfor i to n do
9 v( A" _6 L6 f6 A/ E* ]+ Z2 \( D, n# F' d8 x4 G
for j to n do
; h% |2 d! {7 B
1 d# c8 u, v# p, ]! A% r$ K$ O: ]eq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)];
" j7 a! T$ m0 q! f4 X6 T; j7 A+ o2 R* Z# H8 W! o0 i# \
WL_Marix[i, j] := eq5[1]; print(WL_Marix); ! G- [% ], h$ X" D# L2 _0 J
9 i2 D* Y# W8 s& d/ E% \
eq5 := assign['eq5']
, L* s! i" v5 s- K$ T
! C% A, L; r  [4 d& @ end do
4 r7 R% ]7 m$ B. x4 J) a* {" |) i+ N6 T( K; Q5 A8 h0 |
end do;7 `2 F3 z5 |/ {$ D9 q; U: W& R
#################################
+ V- w2 q% I" U7 J+ g2 n& ^" ~, N0 Z5 K' A9 q0 }8 I
, y5 H& x9 ]9 b& H

  a" C& Y5 E/ `+ o' J5 a  e" a' p3 q& c& C$ @$ k$ {

! @& k9 ?5 J4 c- H, i0 c
; M: a, O7 C6 x( z# k! j9 w, }4 _8 m8 l" g, k8 K. k' c: Q  R8 ]

& X+ R4 }8 O) L) ~

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

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, 2025-5-11 03:41 , Processed in 0.326506 second(s), 52 queries .

回顶部