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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
" ~6 p$ i# G: ]7 N6 m$ ODo [q1 = Range[0, qmax, 0.002][[i]];
   q = q1 Ew Ipw/R/L^2;
MM = q L^2/8;
If [  MM <= Mc,
  lg = L/2;
4 D: t4 I6 J9 f, m% c   w = q/lg^3/2/EI (L/3 - lg/4),
  ly = L/2;
5 ]0 o) {/ g; Y$ y8 e  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
0 N* E% m8 A9 ?6 b# Z. ]0 i& A  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
4 X5 A  m9 m. C( s  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
5 ?7 `6 v6 i) J& X8 w  \. t4 f8 [       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
    Cc/2 (ly^2 - lg^2);];
1 K( c! t8 G8 z$ } w1 = w/L;
* M) {  \( R1 |+ L/ Y' z, g data[[i]] = {q1, w1, q, w};, {i, 1, length};]
# s; n: V  ]& E/ I提示以下错误
2 Q( o+ G5 z# D$ O  I- z9 rDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
( ^7 ?, O4 x+ c& ~+ k- P- \
1 H, b$ d) O* r8 b9 U* e; F拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……