Моделирование винескоро и пуассоновского процесса в delphi 7

    cht1: TChart;

    lnsrsSeries1: TLineSeries;

    Edit1: TEdit;

    Label1: TLabel;

    procedure btn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  t,t2,delta,lyambda:Real;

  x,ksi,y:integer;

 implementation

 

{$R *.dfm}

 

procedure TForm1.btn1Click(Sender: TObject);

begin

randomize;

  lnsrsSeries1.Clear;

  lyambda:=Strtofloat(edt1.Text);

  t2:=Strtofloat(Edit1.Text);

  t:=0;

  y:=0;

  lnsrsSeries1.AddXY(t,y);

  while t<t2 do

   begin

     lnsrsSeries1.AddXY(t,y);

     x:=random(10);

     if x<=2 then begin ksi:=1; y:=y+1; end;

     if x>=2 then ksi:=0;

     delta:=1/(random(100)+100);

     lnsrsSeries1.AddXY(t,y);

     t:=t+(43*delta)/lyambda;

  end;

  end;

end.

 

 

 

 

 

 

 

 

 

 

КОД И ИНТЕРФЕЙС ПРОГРАММЫ «ВИНЕРОВСКИЙ ПРОЦЕСС»

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math,

  Grids;

 

type

  TForm1 = class(TForm)

    btn1: TButton;

    cht1: TChart;

    lnsrsSeries1: TLineSeries;

    Edit1: TEdit;

    Label1: TLabel;

    procedure btn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  tn,w,t,t2,delta:Real;

  sumksi,n,x,ksi:integer;

 implementation

 

{$R *.dfm}

 

procedure TForm1.btn1Click(Sender: TObject);

begin

randomize;

  lnsrsSeries1.Clear;

  t2:=Strtofloat(Edit1.Text);

  t:=0;

  w:=0;

  tn:=t;

  lnsrsSeries1.AddXY(t,w);

  while t<t2 do

   begin

     x:=random(10)+1;

     {x:=random(10)-5;}

     if x<=5 then ksi:=1

     else ksi:=-1;

     n:=random(100)+10;

     delta:=1/n;

     w:=w+(sqrt(t-tn))*ksi;

     lnsrsSeries1.AddXY(t,w);

     tn:=t;

     t:=t+delta;

 

  end;

end;

end.

 

 

 

 

 

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

 

В данной работе мною была освещена основная теория пуассоновского и винеровского процессов. Были рассмотрены вопросы моделирования этих процессов на Delphi 7, а также основная характеристика, преимущества и возможности данной среды программирования.

В итоге  можно сказать, что изучение случайных процессов, в нашем случае― пуассоновского и винеровского процессов, открывает замечательные возможности для практической реализации этих процессов, например при моделировании систем массового обслуживания или процессов рождения и гибели.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

 

 

1. Архангельский А.Я. «Программирование в Delphi». Учебник по классическим версиям Delphi. – М.: ООО «Бином-Пресс», 2006
2. А.А. Бутов, К.О. Раводин; Учебное пособие «Теория случайных процессов»
3. Гардинер К. В. Стохастические методы в естественных науках. — М.: Мир, 1986. — 528 с.
4. ван Кампен Н. Г. Стохастические процессы в физике и химии. — М.: Высшая школа, 1990. — 376 с.
5. Кингман Дж. Пуассоновские процессы. — М.: МЦНМО, 2007. — 136 с.