LUCKY / TERRA / TERRA

unit terra;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ComCtrls, Buttons, ExtCtrls, AppEvent, RXShell, RXSlider, RXClock,
RXCtrls, Animate, StdCtrls, RXSpin, RXDice, SpeedBar, OleCtnrs, PicClip;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
RxLabel1: TRxLabel;
Bevel1: TBevel;
SpeedButton7: TSpeedButton;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
N14: TMenuItem;
N4: TMenuItem;
RxLabel2: TRxLabel;
Bevel2: TBevel;
Label1: TLabel;
SpeedButton8: TSpeedButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
N15: TMenuItem;
SpeedButton5: TSpeedButton;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure FormOnClic(Sender: TObject);
procedure FormClick(Sender: TObject);
private
procedure DisplayHint(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
protected
Procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

uses SVDal, About2, scheme,math;

{$R *.DFM}

Procedure TForm1.CreateParams(var Params: TCreateParams);
Begin
Inherited CreateParams(Params);
Params.Style := Params.Style and not (WS_MAXIMIZEBOX or WS_THICKFRAME);
End;


procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
SetVar.ShowModal;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
{ SetConst:=TSetCVonst.Create(Application)}
iData.di:=125;
iData.d1:=88;
iData.d2:=72;
iData.d3:=40;
iData.d4:=12;
iData.dpr:=1;
iData.dnam:=8;
iData.dmagr:=100;
iData.res:=1.5;
iData.sopr:=1.2;
iData.time:=10;
iData.sec:=2;
iData.num:=4;
SpeedButton1.Enabled:=TRUE;
SpeedButton7.Enabled:=TRUE;
N8.Enabled:=TRUE;
N14.Enabled:=TRUE;
ProgressBar1.Position:=0;
Label4.Caption:='0';

end;

procedure TForm1.N10Click(Sender: TObject);

begin
SetVar.ShowModal;
end;


procedure TForm1.N13Click(Sender: TObject);
var userResponse : integer;
begin
userResponse := Application.MessageBox('Программа Terra предназначена для произв'+
'едения теплового и электрического расчета нагревателя пирогенной горелки','О программе',MB_OK+
MB_ICONINFORMATION+MB_SYSTEMMODAL);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
iData.di:=0;
iData.d1:=0;
iData.d2:=0;
iData.d3:=0;
iData.d4:=0;
iData.dpr:=0;
iData.dnam:=0;
iData.dmagr:=0;
iData.res:=0 ;
iData.sopr:=0;
iData.time:=0;
iData.sec:=0;
iData.num:=0;
SpeedButton1.Enabled:=FALSE;
SpeedButton7.Enabled:=FALSE;
N8.Enabled:=FALSE;
N14.Enabled:=FALSE;
ProgressBar1.Position:=0;
Label4.Caption:='0';
Label4.Caption:='0';
Label3.Caption:='N/D';
Label8.Caption:='N/D';
Label10.Caption:='N/D';
Label12.Caption:='N/D';
Label14.Caption:='N/D';


end;

procedure TForm1.N12Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
Form1.SpeedButton1Click(Form1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=DisplayHint;
end;

procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText:=Application.Hint;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Close;
end;


procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
Form3.Show;
end;

{==============================================================}
procedure TForm1.SpeedButton7Click(Sender: TObject);

var
U,R,l,powerRes,powerH,powerO:double;
function GetRe(w,l,v:double):double;
begin
GetRe:= w*l/v;
end;

function GettGsr(tst,tin,tout:double):double;
begin
GettGsr:= tst-((tout-tin)/ln((tst-tin)/(tst-tout)));
end;
{===============================================================}

procedure HDefineTemp(var powerH:double);
const
roH: double =0.4;
laH: double =387E-3;
vH: double =1;
CpH: double =14655;
G: double =2.8E-5;
var
F,tHsten,alpha,Nu,Qst,Qg,Qpot,Pe:double;

begin
tHsten:=801;
F:=pi*iData.d3*iData.dmagr*1E-6;
Pe:=4*G*roH*CpH*1000/(pi*(iData.d3-iData.d4)*laH);
If Pe*(iData.d3-iData.d4)/iData.dmagr>12
then Nu:= 1.61*Power((Pe*(iData.d3-iData.d4)/iData.dmagr),1/3)
else Nu:= 3.66;
alpha:=Nu*laH*1000/(iData.d3-iData.d4);
repeat
Qst:=alpha*F*(tHsten-GettGsr(tHsten,20,800));
Qg:=CpH*roH*G*(800-20);
Qpot:=2*pi*0.15*(tHsten-30)*iData.dmagr*1E-3/ln(iData.di/iData.d3);
tHSten:=tHsten+0.5;
until (Qst>(Qg+Qpot));
powerH:=Qst;
end;


{=====================================================================}
procedure ODefineTemp(var powerO:double);

const
roO: double =0.6;
laO: double =52E-3;
vO: double =1;
CpO: double =754;
G: double =1.2E-4;
var
F,tOsten,alpha,Nu,Qst,Qg,Qpot,Pe:double;

begin
tOsten:=801;
F:=pi*iData.d2*iData.dmagr*1E-6;
Pe:=4*G*roO*CpO*1000/(pi*(iData.d1-iData.d2)*laO);
If Pe*(iData.d1-iData.d2)/iData.dmagr>70
then Nu:= 1.85*Power((Pe*(iData.d1-iData.d2)/iData.dmagr),1/3)
else Nu:= 7.6;
alpha:=Nu*laO*1000/(iData.d1-iData.d2);
repeat
Qst:=alpha*F*(tOsten-GettGsr(tOsten,20,800));
Qg:=CpO*roO*G*(800-20);
Qpot:=2*pi*0.15*(tOsten-30)*iData.dmagr*1E-3/ln(iData.di/iData.d1);
tOSten:=tOsten+0.5;
until (Qst>(Qg+Qpot));
powerO:=Qst;
end;
begin

ODefineTemp(powerO);
ProgressBar1.Position:=50;
Label4.Caption:='50';
HDefineTemp(powerH);
ProgressBar1.Position:=100;
Label4.Caption:='100';
powerRes:=powerO+powerH+3450/iData.time;
Label3.Caption:=IntToStr(Ceil(powerRes));
l:=idata.sec*idata.num*(idata.dmagr/idata.res)*pi*idata.dnam*1E-1;
Label8.Caption:=FloatToStr((round(powerRes*10/
(l*pi*iData.dpr*1E-1)))/10);
R:=round(4*idata.sopr*l/
(pi*idata.dpr*idata.dpr*idata.sec))/10;
Label10.Caption:=FloatToStr(R);
U:=round(Sqrt(powerRes*R/2));
Label12.Caption:=FloatToStr(U);
Label14.Caption:=FloatToStr(round(U*10/R)/10);
{Label6.Font.Color:=clRed;}
end;
procedure TForm1.FormOnClic(Sender: TObject);
begin
Application.MessageBox('Не щелкай по пустому месту','Справка',MB_OK);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
Application.MessageBox('Не щелкайте по пустому месту!','Подсказка',MB_OK);
end;

end.