- 积分
- 7
- 注册时间
- 2004-5-4
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2011-9-7 18:50:28
|
显示全部楼层
来自 台湾
Read the New one
% S-N curve....N(x) = C/(x^m)
m = 3;
C =10^10.45;
% Weibull Stress-Range distribution
A = 119;
B = 1.226;
% B = 1 for a Exp. distribution
% B = 2 for a Rayleigh distribution
Ntot = 0.6E8; % Total stress-cycles
Damage = @(x) Ntot/C*(x.^m).*wblpdf(x, A, B);
% Define integration upper bound
xup = wblinv(0.9999999, A, B);
Q = quadl(Damage, 0, xup);
% Exact solution, ref: Lalanne, 2Ed, V4, p.244, Eq.[**0].
Qex = Ntot/C*(A^m)*gamma(1+m/B);
|
|