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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
4 e- w, F; p% T+ ilength = Dimensions[data][[1]]
6 ^# x6 i7 H1 s1 k# A* z* y4 _Do [q1 = Range[0, qmax, 0.002][[i]];
' Y! P( u* K4 m& v   q = q1 Ew Ipw/R/L^2;
# j5 [2 A4 T" R& w MM = q L^2/8;
7 Z6 R1 ]  N* Z% s% s If [  MM <= Mc,
  lg = L/2;
   w = q/lg^3/2/EI (L/3 - lg/4),
! @- f, M4 `" {$ m% p$ \% p- A  ly = L/2;
3 t( @5 k; v$ {  F# H* i  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
7 a" o4 l  N  p' E5 L8 [, X  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);];
w1 = w/L;
data[[i]] = {q1, w1, q, w};, {i, 1, length};]
1 L$ t6 Z" B! T! r1 Y5 d, }& T' V( |提示以下错误
Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

拜托帮我看一下

zj-jscsbao

什么软件？……

hopeoflight

不太懂。。。。