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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
$ M1 N6 T4 K( n: q. `' p   q = q1 Ew Ipw/R/L^2;
1 I! l/ V+ [! Q0 w MM = q L^2/8;
0 A# |6 i1 m* X; v If [  MM <= Mc,
  lg = L/2;
   w = q/lg^3/2/EI (L/3 - lg/4),
/ B! X( q9 g% Q7 {4 x- v; |) ]  ly = L/2;
0 Y+ [, A  f0 c0 R  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
7 v. w! X$ x) @, l( L3 M5 D       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
" U, R: p2 H6 E! ?# s- c    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
- k( v& W: }: C7 f+ K4 f0 i3 [" I data[[i]] = {q1, w1, q, w};, {i, 1, length};]
  t1 u. |: _' f% t8 g5 ~+ t3 \提示以下错误
5 q0 V! a$ m; o& y6 g; [  G* PDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……