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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
8 p4 _2 E/ Q3 w) V1 nDo [q1 = Range[0, qmax, 0.002][[i]];
+ l, `6 B' C0 i# r* l# {   q = q1 Ew Ipw/R/L^2;
MM = q L^2/8;
If [  MM <= Mc,
4 p6 t) I" J: w2 V. N9 r* R  Z  lg = L/2;
. D; s" r* M, e: w; `4 A   w = q/lg^3/2/EI (L/3 - lg/4),
! M. t% ]( |# J2 E% E3 J7 k  ly = L/2;
  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
) M7 X* y' p! ?  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
5 W* y+ _( s5 g' \- D' ^       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
9 H( U& ~0 R4 W4 _    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
0 Q3 w: A( z, \7 V5 l data[[i]] = {q1, w1, q, w};, {i, 1, length};]
提示以下错误
9 w8 G/ n0 n& S' L4 r1 UDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
4 Y( W1 z& t; O, ]* b
拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……