1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
| unit unitMainForm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
Dialogs, StdCtrls, unitCalcSpaceDebris;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Chart1: TChart;
Chart1LineSeries1: TLineSeries;
EditH: TEdit;
EditI: TEdit;
EditSh: TEdit;
EditdSh: TEdit;
EditHn: TEdit;
Edite: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
uses unitCalcP;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,z:integer;
begin
i:=0;
//Memo1.Lines.Add(FloatToStrF(TdtH(StrToFloat(EditH.Text),StrToFloat(EditSh.Text),StrToFloat(EditdSh.Text),StrToFloat(EditHn.Text)) ,ffFixed,5,5 ) ) ;
//Chart1LineSeries1.AddY (TdtH(StrToFloat(EditH.Text),StrToFloat(EditSh.Text),StrToFloat(EditdSh.Text),StrToFloat(EditHn.Text)));
Xls_open('adaps-orb-160907-132434.xlsx',XlsOp);
for i:=1 to row do
for j:=1 to 6 do
Memo1.Lines[i]:= Memo1.Lines[i]+' '+FloatToStr(XlsOp[i,j]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,z:integer;
begin
Memo1.Lines.Add(FloatToStrF(TdtSh(StrToFloat(EditdSh.Text),StrToFloat(EditH.Text),
StrToFloat(EditSh.Text),StrToFloat(EditHn.Text),StrToFloat(Edite.Text),StrToFloat(Editi.Text)) ,ffFixed,5,5 ) ) ;
Chart1LineSeries1.AddXY(i,TdtSh(StrToFloat(EditdSh.Text),StrToFloat(EditH.Text),
StrToFloat(EditSh.Text),StrToFloat(EditHn.Text),StrToFloat(Edite.Text),StrToFloat(Editi.Text)) );
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
DefaultDataLEO();
//CalcTLEStat('20.01.2015TLE_3line.txt',3);
//НОО
calculateTLEpHShDolg('01.09.2016.txt',
200,
40000,
//100,
90,
5,
360,
1440*1, // интервал моделирования для расчета концентрации
1);
end;
end. |