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

form1.vle2.Values['d_f']:=s;

i_1:=Frac(d_2*1000);

str(i_1,s_1);

i_2:=trunc(d_2*1000);

str(i_2,s);

s:=s+','+s_1;

form1.vle2.Values['d']:=s;

i_1:=Frac(b_2*1000);

str(i_1,s_1);

i_2:=trunc(b_2*1000);

str(i_2,s);

s:=s+','+s_1;

form1.vle2.Values['b']:=s;

x:=100;

y:=393;

x1:=0;

y1:=0;

x9:=x1;

y9:=1000*d_f1/2;

x6:=1000*b_1;

x5:=x6;

l_fas:=1000*(d_a1-d_1)/2;

if l_fas<1 then l_fas:=0 else

if l_fas<1.6 then l_fas:=1 else

if l_fas<2.5 then l_fas:=1.6 else

if l_fas>2.5 then l_fas:=2.5;

y2:=1000*d_a1/2-l_fas;

x3:=l_fas;

y3:=1000*d_a1/2;

x4:=1000*b_1-l_fas;

y7:=1000*d_1/2;

if (2*y3>x4-x3) then koef:=221/(2*y3)

else koef:=200/(x4-x3);

osn_linia(x+koef*x1,y+koef*y1,x+koef*x1,y+koef*y2);

osn_linia(x+koef*x1,y+koef*y2,x+koef*x3,y+koef*y3);

osn_linia(x+koef*x3,y+koef*y3,x+koef*x4,y+koef*y3);

osn_linia(x+koef*x4,y+koef*y3,x+koef*x6,y+koef*y2);

osn_linia(x+koef*x6,y+koef*y2,x+koef*x6,y+koef*y1);

osn_linia(x+koef*x1,y+koef*y9,x+koef*x6,y+koef*y9);

osn_linia(x+koef*x1,y-koef*y1,x+koef*x1,y-koef*y2);

osn_linia(x+koef*x1,y-koef*y2,x+koef*x3,y-koef*y3);

osn_linia(x+koef*x3,y-koef*y3,x+koef*x4,y-koef*y3);

osn_linia(x+koef*x4,y-koef*y3,x+koef*x6,y-koef*y2);

osn_linia(x+koef*x6,y-koef*y2,x+koef*x6,y-koef*y1);

osn_linia(x+koef*x1,y-koef*y9,x+koef*x6,y-koef*y9);

osevaya_linia(x+koef*(x1-5),y+koef*y1,x+koef*(x1+1000*b_1+5),y+koef*y1);

osevaya_linia(x+koef*(x1-5),y+koef*y7,x+koef*(x1+1000*b_1+5),Y+koef*y7);

osevaya_linia(x+koef*(x1-5),y-koef*y7,x+koef*(x1+1000*b_1+5),Y-koef*y7);

l2:

end;

procedure TForm1.SB1Click(Sender: TObject);

begin

ris;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

i:=vle1.InsertRow('d','',true);

i:=vle1.InsertRow('d_a','',true);

i:=vle1.InsertRow('d_f','',true);

i:=vle1.InsertRow('b','',true);

i:=vle2.InsertRow('d','',true);

i:=vle2.InsertRow('d_a','',true);

i:=vle2.InsertRow('d_f','',true);

i:=vle2.InsertRow('b','',true);

end;

procedure TForm1.SB2Click(Sender: TObject);

begin

chertesh;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

halt;

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

ris;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

ris;

end;

end.

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, Buttons, ExtCtrls;

type

  TForm2 = class(TForm)

    hst: TMaskEdit;

    hg: TMaskEdit;

    ht: TMaskEdit;

    hh: TMaskEdit;

    kk: TMaskEdit;

    nn: TMaskEdit;

    plotnost: TMaskEdit;

    lnasosa: TMaskEdit;

    StaticText1: TStaticText;

    StaticText2: TStaticText;

    StaticText3: TStaticText;

    StaticText4: TStaticText;

    StaticText5: TStaticText;

    StaticText6: TStaticText;

    StaticText7: TStaticText;

    StaticText8: TStaticText;

    StaticText9: TStaticText;

    StaticText10: TStaticText;

    qskv: TStaticText;

    StaticText11: TStaticText;

    QZad: TMaskEdit;

    StaticText12: TStaticText;

    Button2: TButton;

    StaticText13: TStaticText;

    mupl: TMaskEdit;

    Bevel1: TBevel;

    Bevel2: TBevel;

    Label1: TLabel;

    StaticText14: TStaticText;

    Masa: TMaskEdit;

    procedure Button2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit3, Unit1, Unit5;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

var

s:string;

cod:integer;

mu_pl,h_isk,n,delta_h_d,h,h_tr,ud_ves,h_st,h_g,h_t,k,plot_nost,Q_zad,l_nasosa:real;

begin

val(hst.Text,h_st,cod);

val(hg.Text,h_g,cod);

val(ht.Text,h_t,cod);

val(kk.Text,k,cod);

val(plotnost.Text,plot_nost,cod);

val(Qzad.Text,Q_zad,cod);

val(lnasosa.Text,l_nasosa,cod);

val(hh.Text,h,cod);

val(nn.Text,n,cod);

val(mupl.Text,mu_pl,cod);

h_t:=h_t*1000000/plot_nost;

ud_ves:=1/plot_nost ;

h_tr:= (0.0012*(Q_zad) + 0.13*Q_zad - 0.25)*(h-l_nasosa);

delta_h_d:=10*exp(1/n*ln(Q_zad*ud_ves/k));

h_isk:=h_st+h_g+h_t+h_tr+delta_h_d;