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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
- f$ ?% B( o8 H9 Q; I1 f* y* Y   q = q1 Ew Ipw/R/L^2;
5 W; Y8 l& r* b% |3 a MM = q L^2/8;
If [  MM <= Mc,
  lg = L/2;
9 b# a: A! l- e- a* m6 \' ~6 c+ }$ c   w = q/lg^3/2/EI (L/3 - lg/4),
$ u3 D$ U8 q1 u9 [& ~  ly = L/2;
  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
& a) E# u7 Z$ `; a- [& n9 Y5 N# z. {* K  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
8 v( W$ y9 t, J  I  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
8 a* i7 m% a) m( l8 V' Z       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
, j" u4 |/ j5 a: M( M/ _ data[[i]] = {q1, w1, q, w};, {i, 1, length};]
提示以下错误
Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
5 [* z( q( [% Q9 A$ C1 s
拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……