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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
% W$ @) O" V/ U% m) W% }- J! {length = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
: x' o8 w! [7 J8 l" S   q = q1 Ew Ipw/R/L^2;
1 ~8 D  B. N; P; A4 }$ \ MM = q L^2/8;
9 [/ F6 B# @  E9 l If [  MM <= Mc,
  lg = L/2;
' T# X1 J3 X" v1 r0 W7 m   w = q/lg^3/2/EI (L/3 - lg/4),
  ly = L/2;
, n1 V# p4 L4 a, V5 C  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
4 A  m8 d4 ]9 T2 d  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
  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)) +
    Cc/2 (ly^2 - lg^2);];
. r; ~6 X% I. [' w, ]# K: f6 v w1 = w/L;
data[[i]] = {q1, w1, q, w};, {i, 1, length};]
) N: {! t$ o6 V: c6 t' F, s提示以下错误
4 B: S. D' v9 @! a0 ]Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
% a0 H# i1 Y) y8 _, b* v
( v" o) L5 @! T9 R+ l; |+ J拜托帮我看一下

zj-jscsbao

什么软件？……

hopeoflight

不太懂。。。。