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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
8 ~$ S' _6 f; g1 a+ Plength = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
   q = q1 Ew Ipw/R/L^2;
' J6 {. [5 U7 b! } MM = q L^2/8;
+ q6 p; q9 L6 V* S& U8 W) y- Z+ Z, @ If [  MM <= Mc,
* v/ S: V! J9 k, D+ s7 |/ m  d  lg = L/2;
4 C7 T  F$ N2 `/ T9 n4 T   w = q/lg^3/2/EI (L/3 - lg/4),
  ly = L/2;
; D. d9 o$ @- ^* Y4 O8 a) z* F6 ?2 [  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  k' g' x! i' V  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
1 j5 H; ^) _  Y  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
/ v0 z6 E! l, ]       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
* y9 ]+ t/ E" `: M9 `    Cc/2 (ly^2 - lg^2);];
1 e  a: d2 j( D" d2 m2 O w1 = w/L;
/ V: c4 G/ O  c. [9 z data[[i]] = {q1, w1, q, w};, {i, 1, length};]
  I# |) p/ b3 y: l6 I3 c& A' E提示以下错误
7 l6 o: D" K, G4 f& k8 k# o  `  iDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

拜托帮我看一下

zj-jscsbao

什么软件？……

hopeoflight

不太懂。。。。