unit1.pas

programma dlya modelirovaniya opyta opyta Rezerforda! delal sam :)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, ShellApi, Menus;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    TrackBar1: TTrackBar;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Edit1: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    Button3: TButton;
    Shape1: TShape;
    Image2: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label3: TLabel;
    Image1: TImage;
    Image3: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
gr: array[1..500] of TPoint;
xmin, z,x,y,b, xmax, ymax, dt, vox, voy, vx, vy, dr,p:real;
i,j,k, xx, yy,zz:longint;
q,w,e,r,a,s:string;
n: boolean;
implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
xmin:=-3;
xmax:=5;
ymax:=5;
dt:=0.1;
vox:=3;
voy:=0;
dr:=0.0694;
k:=100;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (radiobutton1.Checked=true) and (radiobutton2.Checked=false) then
begin
x:=xmin;
y:=b;
  vx:=vox+dr*z*(dt/2)*(xmin/((xmin*xmin+b*b)*sqrt(xmin*xmin+b*b)));
  vy:=voy+dr*z*(dt/2)*(b/((xmin*xmin+b*b)*sqrt(xmin*xmin+b*b)));
   x:=x+vx*dt;
   y:=y+vy*dt;

    for i:=1 to 500 do
    begin
    vx:=vx+dr*z*(dt/2)*x/((x*x+y*y)*sqrt(x*x+y*y));
    vy:=vy+dr*z*(dt/2)*y/((x*x+y*y)*sqrt(x*x+y*y));

      if (x<xmax) and (x>xmin) and (y<ymax) then
        begin
        x:=x+vx*dt;
        y:=y+vy*dt;
        end
      else
        x:=x;
        y:=y;

    xx:=round(x*k);
    yy:=round(y*k);
    gr[i].x:=600+xx;
    gr[i].y:=360+(-1)*yy;
    end;
  Canvas.Pen.Color:=clred;
  Canvas.PolyLine(gr);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=floattostr(trackbar1.Position*0.05)+'e-13';
b:=trackbar1.Position*0.05;
z:=strtofloat(edit2.Text);;
x:=xmin;
y:=b;

Canvas.Pen.Color:=clblack;
Canvas.MoveTo(600,00);
Canvas.LineTo(600,728);
Canvas.MoveTo(252,360);
Canvas.LineTo(1120,360);


 if (radiobutton1.Checked=false) and (radiobutton2.Checked=true) then
 begin
  vx:=vox+dr*z*(dt/2)*(xmin/((xmin*xmin+b*b)*sqrt(xmin*xmin+b*b)));
  vy:=voy+dr*z*(dt/2)*(b/((xmin*xmin+b*b)*sqrt(xmin*xmin+b*b)));
   x:=x+vx*dt;
   y:=y+vy*dt;


    for i:=1 to 500 do
    begin
    vx:=vx+dr*z*(dt/2)*x/((x*x+y*y)*sqrt(x*x+y*y));
    vy:=vy+dr*z*(dt/2)*y/((x*x+y*y)*sqrt(x*x+y*y));

      if (x<xmax) and (x>xmin) and (y<ymax) then
        begin
        x:=x+vx*dt;
        y:=y+vy*dt;
        end
      else
        x:=x;
        y:=y;

    xx:=round(x*k);
    yy:=round(y*k);
    gr[i].x:=600+xx;
    gr[i].y:=360+(-1)*yy;
    end;
  Canvas.Pen.Color:=clred;
  Canvas.PolyLine(gr);

   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  s := application.ExeName;
  ShellExecute(Handle,nil,PChar(s),nil,nil,SW_SHOWNORMAL);
  Application.Terminate;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
button3click(sender)
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form3.show;
end;

end.