w_hv:=310;
w_fv:=310;
end;
if step_toch1=8 then
begin
g_0:=6.1;
w_hv:=410;
w_fv:=410;
end;
end;
if m>10 then
begin
if step_toch1=7 then
begin
g_0:=6.4;
w_hv:=450;
w_fv:=450;
end;
if step_toch1=8 then
begin
g_0:=7.3;
w_hv:=590;
w_fv:=590;
end;
end;
w_bd:=b_w/d_w1;
if w_bd<0.2 then
begin
k_hbetta:=1;
k_fbetta:=1;
end else
if w_bd<0.4 then
begin
k_hbetta:=1;
k_fbetta:=1.01;
end else
if w_bd<0.6 then
begin
k_hbetta:=1.01;
k_fbetta:=1.02;
end else
if w_bd<0.8 then
begin
k_hbetta:=1.03;
k_fbetta:=1.05;
end else
if w_bd<1 then
begin
k_hbetta:=1.4;
k_fbetta:=1.8;
end else
if w_bd<1.2 then
begin
k_hbetta:=1.05;
k_fbetta:=1.1;
end else
if w_bd<1.4 then
begin
k_hbetta:=1.07;
k_fbetta:=1.13;
end else
if w_bd<1.6 then
begin
k_hbetta:=1.8;
k_fbetta:=1.16;
end else
if w_bd>1.6 then
begin
k_hbetta:=1.8;
k_fbetta:=1.16;
end;
w_hv:=delta_h*g_0*v*sqrt(a_w/i12);
f_t:=2*t1/d_1;
k_hv:=1+(w_hv*b_w)/(f_t*1);
k_halfa:=1.35;
k_h:=1*k_hv*k_halfa*k_hbetta;
if step_toch1=7 then z_r:=1;
if step_toch1=8 then z_r:=0.9;
z_x:=1;
if v<5 then z_v:=1 else z_v:=0.85*exp(0.1*ln(v));
sigma_h:=190*z_h*z_E*sqrt((f_t*k_h*(i12+1))/(b_w*d_2));
sigma_hr_ut:=sigma_hr*z_r*z_x*z_v/0.9;
if sigma_h>1.05*sigma_hr_ut then
begin
form4.ST1.Caption:='Условие контактной выносливости не выполнено';
form1.Show;form4.Hide;
goto l2;
end;
b_2:=round(b_w*1000000)/1000000;
b_1:=b_2+0.004;
z_nu1:=z_1/sqr(cos(betta*pi/360));
z_nu2:=z_2/sqr(cos(betta*pi/360));
if z_1<17 then y_f:=4.28 else
if z_1<20 then y_f:=4.08 else
if z_1<25 then y_f:=3.9 else
if z_1<30 then y_f:=3.80 else
if z_1<40 then y_f:=3.70 else
if z_1<50 then y_f:=3.65 else
if z_1<60 then y_f:=3.62 else
if z_1>60 then y_f:=3.60;
y_betta:=1-E_betta*betta/120.;
if y_betta<0.7 then y_betta:=0.7;
if E_betta<1 then y_E:=(0.2+0.8/E_alfa) else y_E:=1/E_alfa;
delta_f:=0.06;
w_fv:=delta_f*g_0*v*sqrt(a_w/i12);
k_fv:=1+w_fv*b_w/f_t;
k_falfa:=1.35;
k_f:=k_fv*k_falfa*k_fbetta;
sigma_f1:=f_t*k_f/(b_1*m)*y_f*y_betta*y_E;
sigma_f2:=f_t*k_f/(b_2*m)*y_f*y_betta*y_E;
y_r:=1.2;
y_x1:=1/05-0.000125*d_1;
y_x2:=1/05-0.000125*d_2;
y_a:=1;
y_z:=1;
y_g:=1.1;
y_d:=1;
s_f:=1.7;
sigma_f_limb1:=1.75*h1;
sigma_f_limb2:=1.75*h2;
n_f_limb:=4000000;
n_fe_1:=60*(10*365*24{*60})*w1*30/pi;
n_fe_2:=60*(10*365*24{*60})*w2*30/pi;
if n_fe_1<=n_f_limb then q_1:=6 else q_1:=20;
if n_fe_2<=n_f_limb then q_2:=6 else q_2:=20;
y_n1:=exp(1/q_1*ln(n_f_limb/n_fe_1));
y_n2:=exp(1/q_2*ln(n_f_limb/n_fe_2));
sigma_f_pred1:=(sigma_f_limb1*1000000)*y_n1/s_f*y_r*y_x1*y_a*y_z*y_g*y_d;
sigma_f_pred2:=(sigma_f_limb2*1000000)*y_n2/s_f*y_r*y_x2*y_a*y_z*y_g*y_d;
if sigma_f1>1.05*sigma_f_pred1 then
begin
peregr1:=peregr;
peregr:=(1.05*sigma_f_pred1)/sigma_f1;
if (peregr<>1) and (peregr1>peregr) then goto l1
else
begin
form4.ST1.Caption:='Условие изгибной прочности не выполнено 1';
form4.showmodal;
goto l2;
end;
end;
if sigma_f2>1.05*sigma_f_pred2 then
begin
peregr1:=peregr;
peregr:=(1.05*sigma_f_pred2)/sigma_f2;
if (peregr<>1) and (peregr1>peregr) then goto l1
else
begin
form4.ST1.Caption:='Условие изгибной прочности не выполнено 2';
form4.showmodal;
goto l2;
end;
end;
i_1:=Frac(d_a1*1000);
str(i_1,s_1);
i_2:=trunc(d_a1*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle1.Values['d_a']:=s;
i_1:=Frac(d_f1*1000);
str(i_1,s_1);
i_2:=trunc(d_f1*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle1.Values['d_f']:=s;
i_1:=Frac(d_1*1000);
str(i_1,s_1);
i_2:=trunc(d_1*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle1.Values['d']:=s;
i_1:=Frac(b_1*1000);
str(i_1,s_1);
i_2:=trunc(b_1*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle1.Values['b']:=s;
i_1:=Frac(d_a2*1000);
str(i_1,s_1);
i_2:=trunc(d_a2*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle2.Values['d_a']:=s;
i_1:=Frac(d_f2*1000);
str(i_1,s_1);
i_2:=trunc(d_f2*1000);
str(i_2,s);
s:=s+','+s_1;
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.