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

 procedure osn_linia(xx,yy,xx1,yy1:real);

 begin

 form1.Canvas.Pen.Color:=clblue;

 form1.Canvas.Pen.style:=psSolid;

 form1.Canvas.MoveTo(round(xx),round(yy));

 form1.Canvas.LineTo(round(xx1),round(yy1));

 end;

  procedure osevaya_linia(xx,yy,xx1,yy1:real);

 begin

 form1.Canvas.Pen.Color:=clblack;

 form1.Canvas.Pen.style:=psDashDotDot;

 form1.Canvas.MoveTo(round(xx),round(yy));

 form1.Canvas.LineTo(round(xx1),round(yy1));

 end;

begin

form1.canvas.Brush.Color:=clwhite;

form1.Canvas.pen.color:=cllime;

form1.Canvas.Pen.style:=psSolid;

form1.Canvas.Rectangle(24,272,24+361,272+241);

peregr:=1;

form1.sb2.Enabled:=true;

val(form1.t_h1.Text,h1,cod);

val(form1.t_h2.Text,h2,cod);

val(form1.t_n_dv.Text,n_dv,cod);

val(form1.t_nn_dv.Text,nn_dv,cod);

a_w:=0.10125;

val(form3.maskedit22.Text,n_vr,cod);

i12:=nn_dv/(10.08*n_vr);

n_vh:=n_dv*99/100;

n1:=n_vh*0.99;

n2:=n1*0.99*0.96;

n_vih:=n2*0.99;

w1:=pi*nn_dv/30;

w2:=w1/i12;

t1:=n_dv/w1*0.99*0.99;

t2:=t1*0.96*i12;

h_hb:=0.5*(h1+h2);

n_h_limb12:=30*exp(2.4*ln(h_hb));

n_he_1:=60*(10*365*24*60)*w1*30/pi;

n_he_2:=60*(10*365*24*60)*w2*30/pi;

if n_he_1<=n_h_limb12 then q_1:=6 else q_1:=20;

if n_he_2<=n_h_limb12 then q_2:=6 else q_2:=20;

z_n1:=exp(1/q_1*ln(n_h_limb12/n_he_1));

z_n2:=exp(1/q_2*ln(n_h_limb12/n_he_2));

sigma_h1:=(2*h1+70)*z_n1/1.1*0.9*1000000;

sigma_h2:=(2*h2+70)*z_n2/1.1*0.9*1000000;

sigma_hr:=0.45*(sigma_h1+sigma_h2);

if  sigma_h1<sigma_h2 then

 begin

 if (sigma_hr<sigma_h1) then

sigma_hr:=sigma_h1;

 if (sigma_hr>(1.23*sigma_h1)) then

sigma_hr:=1.23*sigma_h1;

 end;

if  sigma_h1>sigma_h2 then

 begin

 if (sigma_hr<sigma_h2) then

sigma_hr:=sigma_h2;

 if (sigma_hr>(1.23*sigma_h2)) then

sigma_hr:=1.23*sigma_h2;

 end;

k_h_betta:=1.04;

k_a:=4300;

w_sht_ba:=t1*k_h_betta/(sqr(sigma_hr)*i12)*exp(3*ln(k_a*(i12+1)/a_w));

w_sht_bd:=0.5*w_sht_ba*(i12+1);

if w_sht_bd>1.4 then

  begin

  form4.st1.caption:='w_sht_bd>1.4';

  form4.showmodal;

  goto l2;

  end;

b_w:=a_w*w_sht_ba;

l1:

if peregr=1 then  m:=b_w/27 else m:=m*1000*1/peregr;

if m<1.5 then m:=1.5 else

if m<2.0 then m:=2.0 else

if m<2.5 then m:=2.5 else

if m<3 then m:=3 else

if m<4 then m:=4 else

if m<5 then m:=5 else

if m<6 then m:=6 else

if m<8 then m:=8 else

if m<10 then m:=10 else

if m<12 then m:=12 else

if m<16 then m:=16 else

if m<20 then m:=20 else

if m<25 then m:=25 else

if m<32 then m:=32 else

if m<40 then m:=40 else

if m<50 then m:=50 else

if m<60 then m:=60 else

if m<80 then m:=80;

m:=m*0.001;

betta:=12;

cos_betta:=cos(betta*pi/180);

z_sum:=2*a_w*cos_betta/m;

z_1:=round(z_sum/(i12+1));

z_2:=round(z_1*i12);

a_w_tochn:=m*(z_1+z_2)/(2*cos_betta);

cod1:=a_w_tochn-a_w;

if abs(cod1)>0.00001 then

  begin

  cos_betta:=m*Z_sum/(2*a_w);

  if cos_betta>1 then

  begin

  form4.st1.caption:='Косинус БЕТТА>1';

  form4.showmodal;

  goto l2;

  end;

  betta:=arccos(cos_betta)*180/pi;

  end;

alfa_tw:=arctan(tan(20)/cos_betta);

alfa_t:=alfa_tw;

x_1:=0;

x_2:=0;

d_1:=m*z_1/cos_betta;

d_2:=m*z_2/cos_betta;

d_w1:=2*a_w*z_1/(z_1+z_2);

d_w2:=2*a_w*z_2/(z_1+z_2);

d_f1:=d_1-2*m*(1.25-x_1);

d_f2:=d_2-2*m*(1.25-x_2);

d_a1:=2*a_w-d_f2-0.5*m;

d_a2:=2*a_w-d_f1-0.5*m;

d_b1:=d_1*cos(alfa_t);

d_b2:=d_2*cos(alfa_t);

alfa_ta1:=arccos(d_b1/d_a1);

alfa_ta2:=arccos(d_b2/d_a2);

E_alfa:=

(z_1*(tan(alfa_ta1)-tan(alfa_tw))+z_2*(tan(alfa_ta2)-tan(alfa_tw)))/(2*pi);

P_x:=pi*m*sin(betta*pi/180);

E_betta:=b_w/P_x;

betta_b:=arcsin(sin(betta*pi/180)*cos(20));

v:=pi*d_w1*nn_dv/60;

if v<10 then step_toch1:=8 else step_toch1:=7;

z_h:=1/cos(alfa_t)*sqrt(2*cos(betta_b)/tan(alfa_tw));

if E_betta<1 then z_E:=sqrt( ((4-E_alfa)*(1-E_betta))/3+E_betta/E_alfa ) else

z_E:=sqrt(1/E_alfa);

delta_h:=0.02;

if m<3.55 then

 begin

 if step_toch1=7 then

  begin

  g_0:=4.7;

  w_hv:=240;

  w_fv:=240;

  end;

 if step_toch1=8 then

  begin

  g_0:=5.6;

  w_hv:=380;

  w_fv:=380;

  end;

 end;

if (m>=3.55)and(m<10)then

 begin

 if step_toch1=7 then

  begin

  g_0:=5.3;