Оптимальное проектирование технических систем на ЭВМ / Колебательная_Система(1) / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Support, Buttons, ComCtrls, TeEngine, Series,
ExtCtrls, TeeProcs, Chart;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
BitBtn1: TBitBtn;
ProgressBar1: TProgressBar;
CheckBox1: TCheckBox;
Memo1: TMemo;
Button1: TButton;
Panel1: TPanel;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
Series4: TLineSeries;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Uses Unit2;
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
m1, m2, c1, c2, k1, k2, x1, x2, dx1, dx2, t0, tk, h, q0, wq: Double;
w1,w2,y1,y2:Double;
i,j:integer;
Runge: TRunge;
begin
Memo1.Clear;
Series1.Clear;
Series2.Clear;
Series3.Clear;
x1:= 0.1;
dx1:= 0;
x2:= 0;
dx2:= 0;
m1:=StrToFloat(Edit1.Text);
c1:=StrToFloat(Edit2.Text);
k1:=StrToFloat(Edit3.Text);
m2:=StrToFloat(Edit4.Text);
c2:=StrToFloat(Edit5.Text);
k2:=StrToFloat(Edit6.Text);
t0:=StrToFloat(Edit7.Text);
tk:=StrToFloat(Edit8.Text);
h:=StrToFloat(Edit9.Text);
q0:=StrToFloat(Edit10.Text);
wq:=StrToFloat(Edit11.Text);
Runge:=TRunge.Create(m1,m2,c1,c2,k1,k2,x1,dx1,x2,dx2,h,tk,q0,wq);
w1:=sqrt(c1/m1);
y1:=k1/(2*sqrt(c1*m1));
w2:=sqrt(c2/m2);
y2:=k2/(2*sqrt(c2*m2));
Runge.Raschet(CheckBox1.Checked,ProgressBar1);
Memo1.Lines.Add('w1='+FloatToStrF(w1,ffFixed, 5, 3));
Memo1.Lines.Add('w2='+FloatToStrF(w2,ffFixed, 5, 3));
Memo1.Lines.Add('y1='+FloatToStrF(y1,ffFixed, 5, 3));
Memo1.Lines.Add('y2='+FloatToStrF(y2,ffFixed, 5, 3));
With Form2 do
begin
StringGrid1.RowCount := Trunc(Length(Runge.values) / 10);
StringGrid1.Cells[0,0] := 't';
StringGrid1.Cells[1,0] := 'x1(t)';
StringGrid1.Cells[2,0] := 'x2(t)';
end;
i := 0;
j := 1;
// Chart1.
While i<Length(Runge.values) Do
Begin
with form2 do
begin
StringGrid1.Cells[0,j] := FloatToStrF(Runge.values[i].t,ffFixed, 3, 3);
StringGrid1.Cells[1,j] := FloatToStrF(Runge.values[i].x1,ffFixed, 5, 3);
StringGrid1.Cells[2,j] := FloatToStrF(Runge.values[i].x3,ffFixed, 5, 3);
end;
j := j + 1;
i := i + 1;
Series4.AddXY(0,-0.01) ;
Series1.AddXY(Runge.values[i].t,Runge.values[i].x1);
Series2.AddXY(Runge.values[i].t,Runge.values[i].x3);
// Series3.AddXY(Runge.values[i].t,Runge.q*wq*cos(wq*Runge.values[i].t));
if CheckBox1.Checked=true then
Series3.AddXY(Runge.values[i].t,Runge.q*sin(Runge.wq*Runge.values[i].t));
End;
Runge.Destroy;
ProgressBar1.Position:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
if not Assigned(Form2) then
Form2:=TForm2.Create(Self);
with Form2 do
begin
StringGrid1.Cells[0,0] := 't';
StringGrid1.Cells[1,0] := 'x1(t)';
StringGrid1.Cells[2,0] := 'x2(t)';
end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
edit10.Enabled:=true;
edit11.Enabled:=true;
end
else
begin
edit10.Enabled:=false;
edit11.Enabled:=false;
end;

end;

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

end.