本帖最后由 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