帮我看一下那里有错误好吗 单循环 不运行

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
$ p4 N7 `6 i! U: y. @Do [q1 = Range[0, qmax, 0.002][[i]];
0 h0 K0 l. W8 U" f( x( T   q = q1 Ew Ipw/R/L^2;
7 @2 [' m( s: ?) ^ MM = q L^2/8;
If [  MM <= Mc,
3 ?: }' ~8 i. }; Z1 W/ _  lg = L/2;
   w = q/lg^3/2/EI (L/3 - lg/4),
0 Y6 P4 ^/ L. c: M" \" P  ly = L/2;
; j: W. o4 T9 b  K: ^3 ~  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
0 V/ U3 a1 Y& Y  x  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
+ O/ B. M7 [3 ~' T  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
data[[i]] = {q1, w1, q, w};, {i, 1, length};]
+ p# o0 G5 K/ w# B提示以下错误
. N& [$ a: D* y  A6 L& cDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

& ]% x/ E) `* [; G. y拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……