- •1. Переменные 5
- •2. Массивы 6
- •3. Автономно запрограммированная процедура 6
- •Постановка задачи
- •Инструкция по пользованию программой
- •1. Переменные
- •2. Массивы
- •3. Автономно запрограммированная процедура
- •Описание программы
- •Листинг программы приведен ниже.
- •Последовательность выполнения программы.
- •Процедура ogr
- •Процедура mcch
- •Процедура ctatobr
- •Описание работы с программой
- •В каждом из файлов – даётся краткая характеристика закона распределения
- •Использование буфера обмена (бо)
- •Пояснение как создать необходимый exe-файл к программе «Оболочка» прилагается папка «Создание ехе Процесс».
- •Как создать ProjectOfflineProcess.
- •Файл typedata.Pas
- •Литература
- •Скриншоты программы
Процедура ctatobr
Предназначена для статистической обработки реализаций случайного вектора У.
procedure ctatobr(Y:raX;XMXBux,Bi,Ai,dy :raF; var F, MPR,MFR,MX,MF,MXBux,F0:raF;
N,Nmax,W,Nvux:integer);
MXBux:=( ' Параметры выходного вектора ');
MPR:=(+' Нормированная плотность распределения ');
F:=( ' Ненормированная Функция распределения ');
«Ненормированная» -показывает число выборки (попаданий) в заданном i-том интервале, нормированная - делённая на общее число испытаний – Nmax.
MFR:=( ' Нормированная Функция распределения ');
MX1:=( ' Координата Х функции распределения');
MXBux:=( ' Параметры выходного вектора ');
N - номер текущего испытания.
В цикле проводится расчёт
for N:=1 to Nmax do begin
MCCH(MBUX,MK,N,Q, BXStat);
Shet (BXStat, BUX);
ctatobr(BUX,F,MPR,MFR,MX1,MF, MXBux,N,Nmax,W,Nvux);
end;
Далее с помощью процедуры SaveFile запоминается результат
for i:=1 to Nvux do begin
iNvux :=IntToStr(i);
nameMXBux:=(iNvux+' Параметры выходного вектора ');
nameMPR:=(iNvux+' Нормированная плотность распределения ');
nameF:=(iNvux+' Ненормированная Функция распределения ');
nameMFR:=(iNvux+' Нормированная Функция распределения ');
nameMX1:=(iNvux+' Координата Х функции распределения');
// Nvux
SaveFile(i,MXBux,nameMXBux,TFile );
SaveFile(i,MX1,nameMX1,TFile );
SaveFile(i,MPR,nameMPR,TFile );
SaveFile(i,MFR,nameMFR,TFile );
SaveFile(i,F,nameF,TFile );
end;
SaveFile(i,MXBux,nameMXBux,TFile );
SaveFile(i,MX1,nameMX1,TFile );
SaveFile(i,MPR,nameMPR,TFile );
SaveFile(i,MFR,nameMFR,TFile );
SaveFile(i,F,nameF,TFile );
end;
Результат сохраняется в папке с программой (exe-файлом).
Остальные формальные параметры процедуры:
F – массив, в котором хранятся значения гистограммы;
MF[1…Nвыx, 1…8] – массив статистических параметров закона распределения У:
-
Элементы
массива MF
i, 1
i, 2
i, 3
i,4
i, 5
i, 6
Содержание
Ymin
Ymax
м.о.
Σσ2
σ
шаг гисто-граммы
N – номер реализации;
Nmax – заданное число реализаций;
W – число делений гистограммы;
Nвых – число компонент выходного вектора Y.
Процедура ctatobr производит обработку текущих значений вектора Y , что позволяет избавиться от массива, в котором бы запоминались все реализации вектора.
М.О. и с.к.о. (математическое ожидание и среднеквадратическое отклонение) вычисляются по формулам:
П ри формировании гистограммы используется допущение о равномерном распределении значений случайного вектора внутри элемента гистограммы и очевидное свойство расширения области определения гистограммы при увеличении числа реализаций.
Расчёты показывают практически полное соответствие гистограмм, полученных при этих допущениях и при обычном методе.