Расчет опорных элементов. Расчет модульной вставки. Расчеты на прочность штанг, страница 4

  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;