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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
0 e( g2 I" [; n  z. ~* klength = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
  F" [5 ?# N" p+ O: |   q = q1 Ew Ipw/R/L^2;
MM = q L^2/8;
$ {1 z- U3 z7 ?& _ If [  MM <= Mc,
  lg = L/2;
6 i* l" I% ?3 I# p# e# R# H   w = q/lg^3/2/EI (L/3 - lg/4),
3 ~) q' H  Z3 {" a8 m  ly = L/2;
6 f' y4 Y0 {( \7 i$ c6 H: g9 g% P  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
& P% T3 y/ J. d9 f* e( D  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;
9 g3 ~/ w8 m& n# h6 h; p data[[i]] = {q1, w1, q, w};, {i, 1, length};]
3 Z5 [6 N* K0 Q0 X7 O/ w" d: V$ \提示以下错误
0 P7 u) V! S" l7 J& }# e8 }Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……