Для публикации( СТАТИСТИЧЕСКОЕ МОДЕЛИРОВАНИЕ СЛОЖНЫХ СИСТЕМ)-2

System.Classes,

Vcl.Graphics,

Vcl.Controls,

Vcl.Forms,

Vcl.Dialogs,

Vcl.Buttons,

shellAPi,

System.Math,

System.IOUtils,

Vcl.Grids,

Vcl.StdCtrls,

Vcl.ComCtrls,

Vcl.ExtCtrls,

System.Variants,

typeDATA, Global_ID_Data, OfflineProcess, vektor,

CopyToClipboardTextQN ;

begin

TextCopyFromClipbrdQ( BXStat,Q,Nvux); // копирование из буфера ShetModeli(BXStat ,BUX);

TextCopyToClipbrdN(BUX); // копирование в буфер

end.

Как видим, процедура счёта процесса ShetModeli(BXStat ,BUX);

входит в program ProjectOfflineProcess;

Кладём в папку подготовленные файлы

1.Название папки результатов счёта.rtf

2.Название входного вектора.rtf

3.Название выходного вектора.rtf

4.пусто.rtf

5.Равномерный шаг.rtf

6.Равномерное распределение.rtf

7.Нормальный закон.rtf

8.beta-распределение.rtf

9.Гамма-распределение.rtf

Кладём файлы

TYPEDATA.PAS ,

VEKTOR.PAS, (содержит процедуры для работы с векторами и матрицами)

Global_ID_Data.pas, OfflineProcess.PAS (счёт модели).

Компилируем и создаём EXE – файл.

Листинг program ObchijSTATModeling

program ObchijSTATModeling;

uses Vcl.Forms,

VEKTOR in 'VEKTOR.PAS', TYPEDATA in 'TYPEDATA.PAS', Global_ID_Data in 'Global_ID_Data.pas', ServisProcess in 'ServisProcess.PAS', Unit1graf in 'Unit1graf.pas' {Form1Graf},

STATUNITProcess in 'STATUNITProcess .PAS', Start in 'Start.pas' {Form1Start},

Strexplode in 'Strexplode.pas',

ProOtladka in 'ProOtladka.PAS',

Unit1TT in 'Unit1TT.pas' {Form1}, CopyToClipboardTextQN in 'CopyToClipboardTextQN.pas', MainStatProcess in 'MainStatProcess.pas' {IdStatMode};

// raAB100 = array [1 .. 100, 1 .. 100] of extended; raiDPoint = array [1 .. 4, 1 .. 6] of extended; raiDVector = array [1 .. 3, 1 .. 15] of extended; raCrdNaT = array [1 .. 4, 1 .. 3] of extended;

ra5 = array [1 .. 20, 1 .. 5] of extended;

// raF = array [1 .. 100, 0 .. 100 ] of extended;

raF = array [1 .. nNvuxM, 0 .. wmaxM] of extended;

{

for m:= 1 to Nvux do begin for i:= 0 to W do

begin

strFormatMX[m ,i]:= FloatToStrF(MX[m ,i], ffGeneral,6, 2); //Xmin MX[m ,i]:= StrToFloat(strFormatMX[m ,i]);

}

dopraF = array [1 .. nNvuxM, 0 .. wmaxM+5] of extended;

//raF=array[1..Nvux,1..w] of extended;

//raF = array [1 ..nNvux= 20, 1 .. w=50] of extended;

//raMF = array [1 ..nNvux= 20, 1 .. 8] of extended;

//raMF = array [1 .. nNvuxM, 1 .. 10] of extended;

//{--- type raX=array[1..Q] of extended;

//raM=array[1..Q,1..7] of extended;

{yKolesa } vekt5 = array [1 .. 5] of extended; ra12 = array [1 .. 12] of extended;

//raF0=array[1..w+1] of extended;

raF0_100 = array [0 .. wmaxM] of extended;

strFormatMPR[m ,i]:= FloatToStrF(MPR[m ,i], ffGeneral,6, 2); //Xmin MPR[m ,i]:= StrToFloat(strFormatMPR[m ,i]);

}

raX100 = array [1 .. 100] of extended;

//strFormatMPR[m ,wmaxM]:= FloatToStrF(MPR[m ,i], ffGeneral,6, 2); //Xmin

//MPR[m ,i]:= StrToFloat(strFormatMPR[m ,i]);

raM100_10 = array [1 .. QmaxM, 1 .. 10] of extended; raStringW100 = array [1 .. wmaxM] of string;

//StrNomerZ : raString20 ;

//raString20 = array [1 .. NomerZM] of string; //массив законов raString100 = array [1 .. 100] of string;

raStringNomerZ = array [1 .. NomerZM] of string;

//var StrNomerZ :raStringNomerZ;

raStringNvux = array [1 .. nNvuxM] of string; raStringBxoda = array [1 .. QmaxM] of string; raString12 = array [1 .. 12] of string;

//Тип - динамический массива переменных. TArr = array of extended;

//StrNomerJNvux: raString100;

//var StrNomerZ :raString100;

//StrNomerJBxoda: raString100;

//StrNomerJRBuxoda: raString50;

//strFormat: raString100;

implementation

end.

ЛИТЕРАТУРА

1.Михайлов Г.А. Некоторые вопросы теории методов Монте-Карло, Новосибирск, 1974г.

2.Г. Корн и Т. Корн, Справочник по математике для научных работников и инженеров., М.,1968г.

3.Р.Курант, Краткий курс дифференциального и интегрального исчисления,

т.2,изд.»Наука», Москва 1970г.

Скриншоты программы

В качестве примера приведен вариант ОТЛАДКА, при ВЫХ=ВХ=2: