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

val(form2.mupl.text,mupl,code);

q_dop:=19.348*exp(-3E-05*h);

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

n1:=n*Q1/q_dop;

for i:=1 to 5 do

begin

s:=dan[1,i];

val(s,int_dan[1,i],code);

q_dop:=int_dan[1,i]*n1/n*1/0.6*(1-(1-0.6)*10/mupl{*n/n1});

str(q_dop,s);

rez[1,i]:=s;

end;

ris;

str(round(n1),s);

maskedit22.text:=s;

maskedit12.text:=rez[1,1];

maskedit14.text:=rez[1,2];

maskedit16.text:=rez[1,3];

maskedit18.text:=rez[1,4];

end;

procedure TForm3.FormPaint(Sender: TObject);

begin

val(form2.Qzad.text,Q1,code);

val(maskedit11.text,n,code);

form3.canvas.Brush.Color:=clwhite;

form3.Canvas.pen.color:=cllime;

form3.Canvas.Rectangle(38,230,762,500);

form3.Canvas.pen.Width:=3;

form3.Canvas.moveTo(88,400);

for i:=0 to 30 do

begin

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

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+';мю=10');

if b then  ris;

end;

end.

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, Buttons;

type

  TForm4 = class(TForm)

    BitBtn1: TBitBtn;

    ST1: TStaticText;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

 Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

form4.Close

end;

end.

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls, Buttons, Math, ExtCtrls;

type

  TForm5 = class(TForm)

    BitBtn1: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    openDialog1: TSaveDialog;

    Label3: TLabel;

    StaticText3: TStaticText;

    StaticText1: TStaticText;

    StaticText2: TStaticText;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormPaint(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

var

Mr,ff,d,d1,d2,d21,h_ust,ro,alfa,h_nas,h,m:real;

x,y:real;

s:string;

procedure chertesh;

type

s_koord=string[6];

var

bol: boolean;

xx:integer;

f,f1:textfile;

procedure podg_fila;

  var i,xx:integer;

      s1:string;

  begin

  bol:=true;

  if form5.openDialog1.Execute then

    begin

    if form5.openDialog1.filename='C:\Мои документы\chert_nach.dxf' then

    begin

    form4.st1.caption:='Файл шаблона! Выберете другой файл.';

    form4.ShowModal;

    bol:=false;

    end;

    if bol then

    begin

    assignfile(f,form5.openDialog1.filename+'.dxf');

    assignfile(f1,'c:\Мои документы\chert_nach.dxf');

    Rewrite(F);

    reset(f1);

       while not Eof(F1) do

       begin

        Readln(F1, s);

        Writeln(F,s);

       end;

    closefile(f1);

    end;

    end

    else

    bol:=false;

  end;

    procedure kones_fila;

  var i:integer;

  begin

writeln(f,'ENDSEC');

writeln(f,'  0');

write(f,'EOF');

closefile(f);

  end;

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

   begin

writeln(f,'LINE');

writeln(f,'  8');

writeln(f,'LAYER0VIEW0');

writeln(f,'  6');

writeln(f,'K5LT_BASIC');

writeln(f,'  62');

writeln(f,'     5');

writeln(f,'  10');

writeln(f,xx:3:4);

writeln(f,'  20');

writeln(f,yy:3:4);

writeln(f,'  30');

writeln(f,'0.0000');

writeln(f,'  11');

writeln(f,xx1:3:4);

writeln(f,'  21');

writeln(f,yy1:3:4);

writeln(f,'  31');

writeln(f,'0.0000');

writeln(f,'  0');

   end;

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

   begin

writeln(f,'LINE');

writeln(f,'  8');

writeln(f,'LAYER0VIEW0');

writeln(f,'  6');

writeln(f,'K5LT_AXLED');

writeln(f,'  62');

writeln(f,'     7');

writeln(f,'  10');

writeln(f,xx:3:4);

writeln(f,'  20');

writeln(f,yy:3:4);

writeln(f,'  30');