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

[复制链接]

字体大小: 正常放大

bbk2720

9 主题	3 听众	31 积分

升级 27.37%

TA的每日心情

	衰 2011-10-27 12:40

签到天数: 4 天

[LV.2]偶尔看看I

电梯直达

1^#

发表于 2011-12-7 23:05 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
length = Dimensions[data][[1]]
Do [q1 = Range[0, qmax, 0.002][[i]];
q = q1 Ew Ipw/R/L^2;
MM = q L^2/8;
If [  MM <= Mc,
  lg = L/2;
w = q/lg^3/2/EI (L/3 - lg/4),
  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);
  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};]
提示以下错误
Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>

拜托帮我看一下

zan