QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8597|回复: 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 编辑
, Y7 o. Q2 F4 t( ]! ~# k+ f- N' j% F; I: `7 w6 h
想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
4 J' \% T9 g: ]1 g4 ]! E#######################################
" ~) g% t& U. m6 t- f6 y; uQlist := [seq(i, i = 1 .. 2)];7 L! R  y% |3 _( Y9 u& n
klist := [seq(.1*i, i = 1 .. 2)];" G( }( F  ~2 w5 O' ]
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);% s4 [! G& [6 j
n := nops(Qlist);9 p7 ?8 x( Z, ?  Q, L8 _0 {

$ u! C: r' r7 B% t% j. y) X( v. Nfor i to n do
6 F; e2 U. D* |0 Q7 Z/ g* X, \. j) B; z( z/ d
for j to n do
2 b, ~1 e$ @; ]/ u" a; _4 F4 y6 o, [1 G& B2 c
eq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)]; 5 s/ `! A* i5 B  H( v
( [9 U7 o' F8 u) `4 q
WL_Marix[i, j] := eq5[1]; print(WL_Marix); ' O' e' T1 l8 `# m' e5 F

* s2 m; I9 `1 H3 R1 A4 ]+ U& H7 }eq5 := assign['eq5'] 3 g, p- l5 Q: ~, ^2 H# I
. I- ~& `7 R& E1 @
end do
6 J8 _* k6 T9 D0 I% _( }, s* U1 K+ y' V/ u
end do;
% K! @) \+ V% w: Y4 j% R9 M6 w! A#################################
. m  M4 W& @5 E* u
5 {3 o1 _8 J+ ^/ c4 B
3 I0 G' y2 ?  m# P( A) g9 S0 l5 O# e! c' R4 a. Y- G' e
' k; W3 F( k6 C
. O& @' P: d4 m, z
# M; J- q) T6 g, F, Y

4 i0 V9 Z6 |5 ~. X$ B
- c' z- n+ y: r- E

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

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-6-10 17:25 , Processed in 0.480317 second(s), 59 queries .

回顶部