- 在线时间
- 0 小时
- 最后登录
- 2020-3-27
- 注册时间
- 2020-3-27
- 听众数
- 1
- 收听数
- 0
- 能力
- 0 分
- 体力
- 2 点
- 威望
- 0 点
- 阅读权限
- 10
- 积分
- 1
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 2
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   20% 该用户从未签到
- 自我介绍
- Maple初学者
 |
本帖最后由 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) ~ |
zan
|