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;
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.