QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8563|回复: 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 编辑 * u' i* k8 e# S. \" P% ^
9 P$ }3 T( j, V" U  w7 e4 q
想通过Maple的for循环来把数据依次写入到一个零矩阵里,但结果是产生了一个table,矩阵里的0没有被替换,请问大佬们该如何修改。谢谢啦
' ?' o1 x9 F- B3 m" y4 m#######################################
6 O/ E5 L2 w: A8 @Qlist := [seq(i, i = 1 .. 2)];
8 E1 U3 J6 |' Q4 v  Z2 \1 ]8 bklist := [seq(.1*i, i = 1 .. 2)];
/ ^* J$ @; ]: j, T, J! C/ R# ^WL_Matrix := Matrix(nops(Qlist), nops(klist), 0);4 X# |- o) N: @! r& f+ c
n := nops(Qlist);
- F+ E5 _0 D% d4 R; r* y% D  v# H0 m# L7 b% M  l( y
for i to n do
8 m) W+ b% V7 X7 _" M7 p7 W9 \$ `# z- k
for j to n do ! o% [. k7 `) Q& k6 f2 {
, t6 ?$ c) _& t' ?
eq5 := [solve(subs([Q = Qlist, k = klist[j]], W^2*W0*k+Q^2) = 0, W)];
% F* o4 C  u7 @6 j" ]/ s3 ]
. t8 }5 `, Z) W  W5 J9 T. DWL_Marix[i, j] := eq5[1]; print(WL_Marix);
* k5 f7 N, L* j( Z7 E
% L; b3 A* E: `eq5 := assign['eq5']
& Z# d0 T" L$ C4 H) A" ^0 c
9 N! l* x: O2 w. T# W! b end do
5 A$ T9 Y, i+ z, \  D+ y- u, H8 \
6 c+ ^. V. t% X, _' C1 o6 t' tend do;
1 C- @6 _4 _- P3 j7 M8 O################################## h5 j/ v  k% l# g. S

( K# L, k6 @  H$ W8 u& v9 i  Q
6 {# \. E9 s8 R7 @: {/ V
0 [! ~7 ?# e+ q( R2 V$ ?7 B* E& R1 T1 V# [) Z1 O) y
' C3 g( E/ u  E1 |. }

3 D; I* [" [6 r* u
; K! n) y7 S9 U
3 o2 K; J9 u) o4 W$ |

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-20 13:02 , Processed in 0.436791 second(s), 59 queries .

回顶部