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

bbk2720

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
, e! I: e7 G* U( k0 C) j2 r2 c$ Plength = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
; d& ]9 A. Y8 k   q = q1 Ew Ipw/R/L^2;
+ a3 w" D3 K$ u( ^5 I4 u MM = q L^2/8;
% q9 t. F7 @  j- G" z If [  MM <= Mc,
  lg = L/2;
   w = q/lg^3/2/EI (L/3 - lg/4),
  ly = L/2;
) T( O' N! H8 \& w* Q  lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
  weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
: d- D" u. l* T8 T/ B" y& |  w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
5 c$ a  c4 h) R       Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
    Cc/2 (ly^2 - lg^2);];
w1 = w/L;
1 @5 v$ r- y: u- ~ data[[i]] = {q1, w1, q, w};, {i, 1, length};]
7 t  C7 U: _% x, J- ?, V9 [提示以下错误
8 S' Q9 A% q+ E; @; nDo::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

. H& m& h1 c1 ^; ?# h6 J# h+ [拜托帮我看一下

hopeoflight

不太懂。。。。

zj-jscsbao

什么软件？……