数学建模社区-数学中国
标题:
帮我看一下那里有错误好吗 单循环 不运行
[打印本页]
作者:
bbk2720
时间:
2011-12-7 23:05
标题:
帮我看一下那里有错误好吗 单循环 不运行
data = Table[0, {i, 0, qmax, 0.002}, {j, 1, 4}];
$ i( I" ]6 G8 M: |5 v# G$ s/ }* B
length = Dimensions[data][[1]]
; r" H S7 _! L
Do [q1 = Range[0, qmax, 0.002][[i]];
# D* c& W0 f# s/ i
q = q1 Ew Ipw/R/L^2;
+ Q! E% b/ P' e9 \
MM = q L^2/8;
0 s/ q. {- I9 [0 G2 q3 E8 x
If [ MM <= Mc,
! N+ Y) R3 q$ N* i& f* k
lg = L/2;
9 U7 o- G* h) s, x1 d) }
w = q/lg^3/2/EI (L/3 - lg/4),
$ Z4 o" C: ~$ @; o
ly = L/2;
4 K+ i x' C" J! c5 H# y7 u$ R3 I
lg = L/2 - L/2*Sqrt[1 - 8 Mc/q/L^2];
9 {) d& a* S2 D y% I
weiyi1 = q*lg^3/2/EI (L/3 - lg/4);
" A( ~( `) b* M7 L3 T% b" h: x
w = weiyi1 + (cmax - Cc)/(mmax - Mc) (q*ly^3/2*(L/3 - ly/4) +
( }6 h( R o$ b) y8 w& L3 {# R/ ?
Mc/2 (lg^2 - ly^2) - q*lg^3/2*(L/3 - lg/4)) +
4 { } V% s- J8 `: m) |8 c$ ~
Cc/2 (ly^2 - lg^2);];
. O# r: U9 `5 P: l/ J
w1 = w/L;
% A+ e; G7 t5 o/ X$ ]
data[[i]] = {q1, w1, q, w};, {i, 1, length};]
# u$ ^; \3 I7 H( i8 D; s/ s) ?
提示以下错误
# Z C4 ~; ?* v$ P
Do::itform: Argument {i,1,length}; at position 2 does not have the correct form for an iterator. >>
# ~$ e' R3 C9 c
" u) f7 p, E. R0 ]
拜托帮我看一下
作者:
hopeoflight
时间:
2011-12-8 14:23
不太懂。。。。
作者:
zj-jscsbao
时间:
2011-12-17 15:05
什么软件？……
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
