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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
: U0 e/ ~( a1 l# H9 ~/ Nlength = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
- k! _, H) ^/ s* s# |   q = q1 Ew Ipw/R/L^2;
MM = q L^2/8;
' Z5 B# X8 z+ d2 X, s! q# A1 h If [  MM <= Mc,
: i, e$ X- }. D/ c  lg = L/2;
( W4 G/ v- K7 \   w = q/lg^3/2/EI (L/3 - lg/4),
4 M2 z" N- E( b( }- b! ~  ly = L/2;
  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
5 _: k3 T# R" x+ A' b: d# d7 q" J  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)) +
8 o2 C  @0 _6 D; [; Y    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
data[[i]] = {q1, w1, q, w};, {i, 1, length};]
提示以下错误
9 G' A6 S5 o5 w$ d* BDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
4 M0 x6 f. e: D1 S3 ^* j5 J! [
拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……