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

str(h_isk,s);

label1.caption:=s;

form3.show;

form2.Hide;

end;

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

begin

halt;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

form5.showmodal;

end;

end.

unit Unit3;

interface

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, ValEdit, Mask, ExtCtrls, Buttons;

type

  TForm3 = class(TForm)

    StaticText1: TStaticText;

    MaskEdit1: TMaskEdit;

    MaskEdit2: TMaskEdit;

    MaskEdit3: TMaskEdit;

    MaskEdit4: TMaskEdit;

    MaskEdit5: TMaskEdit;

    MaskEdit6: TMaskEdit;

    MaskEdit7: TMaskEdit;

    MaskEdit8: TMaskEdit;

    Bevel1: TBevel;

    Bevel2: TBevel;

    StaticText11: TStaticText;

    MaskEdit11: TMaskEdit;

    MaskEdit12: TMaskEdit;

    MaskEdit14: TMaskEdit;

    MaskEdit16: TMaskEdit;

    MaskEdit18: TMaskEdit;

    Bevel3: TBevel;

    SB1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    StaticText2: TStaticText;

    MaskEdit13: TMaskEdit;

    MaskEdit15: TMaskEdit;

    MaskEdit17: TMaskEdit;

    MaskEdit19: TMaskEdit;

    Image1: TImage;

    Image2: TImage;

    MaskEdit22: TEdit;

    Label1: TLabel;

    SpeedButton1: TSpeedButton;

    procedure FormActivate(Sender: TObject);

    procedure SB1Click(Sender: TObject);

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

    procedure SpeedButton2Click(Sender: TObject);

    procedure FormPaint(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  dan:array[1..2,1..5] of string;

  rez:array[1..2,1..5] of string;

  int_dan:array[1..2,1..5] of real;

  s:string;

  s1:string;

  s2:string[3];

  i,code:integer;

  Q,Q1,n,n1,Q_dop,Q_dop1,Q_dop2,h,mupl,koef:real;

  b:boolean;

  Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure ris;

begin

i:=0;

form3.Canvas.pen.color:=cllime;

q_dop:=19.348*exp(-3E-05*i*15.2*40/40);

q_dop:=q_dop/0.6*(1-(1-0.6)*10/mupl);

q_dop:=19.348*exp(-3E-05*(i*15.2*40/40));

q_dop1:=q_dop/0.6*n1/n*(1-(1-0.6)*10/mupl{*n/n1});

q_dop2:=19.348*exp(-3E-05*i*15.2*40/40);

if (q_dop>=q_dop1)and(Q_dop>=Q_dop2) then koef:=193/q_dop;

if (q_dop1>=q_dop)and(Q_dop1>=Q_dop2) then koef:=193/q_dop1;

if (q_dop2>=q_dop)and(Q_dop2>=Q_dop1) then koef:=193/q_dop2;

form3.Canvas.moveTo(88,464);

for i:=0 to 30 do

begin

q_dop:=19.348*exp(-3E-05*i*15.2*40/40);

q_dop:=q_dop/0.6*(1-(1-0.6)*10/mupl);

form3.Canvas.LineTo(round(88+i*15.2*40/40),round(464-koef*q_dop));

end;

str(round(n),s1);

str(round(mupl),s2);

form3.canvas.Brush.Color:=clwhite;

form3.Canvas.textout(round(88+i*15.2*40/40),round(464-koef*q_dop),'n='+s1+';мю='+s2);

form3.Canvas.moveTo(88,400);

for i:=0 to 30 do

begin

q_dop:=19.348*exp(-3E-05*(i*15.2*40/40));

q_dop:=q_dop/0.6*n1/n*(1-(1-0.6)*10/mupl{*n/n1});

form3.Canvas.LineTo(round(88+i*15.2*40/40),round(464-koef*q_dop));

end;

str(round(n1),s1);

str(round(mupl),s2);

form3.canvas.Brush.Color:=clwhite;

form3.Canvas.textout(round(88+i*15.2*40/40),round(464-koef*q_dop),'n='+s1+';мю='+s2);

form3.canvas.pen.Color:=clred;

q_dop:=19.348*exp(-3E-05*h)/0.6*n1/n*(1-(1-0.6)*10/mupl);

form3.Canvas.moveto(round(88+h*15.2/40),round(464));

form3.Canvas.LineTo(round(88+h*15.2/40),round(464-koef*q_dop));

str(round(h),s);

form3.Canvas.textout(round(h*15.2/40)-20,round(464-koef*q_dop),

'Q='+form2.QZad.Text+'; H='+s);

str(h,form3.label1.caption)

b:=true;

end;

procedure TForm3.FormActivate(Sender: TObject);

var i:integer;

begin

koef:=10;

b:=false;

dan[1,1]:=maskedit1.text;

dan[1,2]:=maskedit3.text;

dan[1,3]:=maskedit5.text;

dan[1,4]:=maskedit7.text;

dan[2,1]:=maskedit2.text;

dan[2,2]:=maskedit4.text;

dan[2,3]:=maskedit6.text;

dan[2,4]:=maskedit8.text;

end;

procedure TForm3.SB1Click(Sender: TObject);

begin

form5.showmodal;

end;

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

begin

form2.Show;form3.Hide;

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

sb1.enabled:=true;

val(form2.label1.caption,h,code);