QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8551|回复: 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 编辑
* x& j4 X) T1 W$ @$ o# F; T+ h1 n( ^2 h9 d
想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
0 T6 Z  l; X6 G" R; J#######################################
) j! \! [2 D" S7 j+ b& zQlist := [seq(i, i = 1 .. 2)];
! D7 F+ n; v7 H; ]+ i* ?8 L- xklist := [seq(.1*i, i = 1 .. 2)];8 H, Q- e; Y5 n2 y
WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);
8 A' t0 d+ Q; Z# A/ b& H# t- `n := nops(Qlist);
! {7 F  j8 J0 l! i2 y( P3 ^4 ]- t; L$ o5 C5 r
for i to n do" L+ v: A# h1 X

- u! z% B/ z: X( e+ I+ L: h" r for j to n do 1 A' w0 w( T* O+ W

# b% C( S" F, ]; f1 veq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)]; 6 w: s+ Q; ~* u/ F  p

, d$ d" p6 \! {1 w, BWL_Marix[i, j] := eq5[1]; print(WL_Marix);
: [  p! I. a* \) Z% R3 @/ Q. q8 K2 y
eq5 := assign['eq5']
  ^; I, }' Z$ W( u* r% E. ]
8 t  Q$ g4 r8 v9 s5 p3 V  A end do : s- B! r8 U2 U7 e

, d, O- |! G& q& W. xend do;
6 c( @1 W+ w& C4 l4 r) h5 P/ |* U#################################
3 s* H0 c; [4 |" J6 L
/ O+ O$ u/ U# ~  x, Y3 p8 k" x8 z/ v8 l) c# j

( ?: f+ Q# q7 h" y! o4 \8 v: v3 _. @& J- u
; F  D, E- R9 F4 S) x1 I) L
8 j1 v- l' B: N, B

/ R; {5 m) k3 ^! {( a5 E

/ O; X0 ?0 v. ]2 G3 `

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

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-4-19 12:16 , Processed in 0.336440 second(s), 58 queries .

回顶部