Программная реализация алгоритма

Описание программы

 

Программа написана в среде разработки BorlandDelphi 5.0. Она является работоспособной и изменяемой. Проверка работоспособности и нормального функционирования была произведена на IntelPentiumIII 1200 с объемом оперативной памяти в 512 Мб.

Данная программа производит вычисления по заранее заложенным в нее данным. Однако можно легко изменить ее на ввод данных с терминала не нарушая общей структуры.

 

Описание алгоритма

Список используемых переменных

expResult: array[ 1..8, 1..10 ] of real;

матрица хранящая результаты эксперимента

yAverage: array[ 1..8 ] of real;

матрица хранящая построчные средние значения экспериментальных данных У

yExpResult: array[ 1..8 ] of real;

матрица хранящая значения экспериментальных данных Y. Эксперимент построен по полученой математической модели.

regCoeficient: array[ 0..3 ] of real;

матрица хранящая значения коэфициентов регрессии, полеченных по формулам 7-8.

tCritery: array[ 0..3 ] of real;

матрица хранящая значения t-критерия для каждого коефициента уравнения регрессии, расчитанных по формуле 12.

dSu: array[ 1..8 ] of real;

матрица хранящая значения построчных дисперсий, полеченных по формуле 9.

dSo: real;

ошибка эксперимента, формула 11.

dSbi: real;

среднеквадратическое отклонение коэфициентов регрессии, необходимы для нахождения критерия Стьюдента, формулы 13-15.

dSad: real;

дисперсия адекватности математичексой модели.

fP: real;

переменная хранящая значение критерия Фишера. Проверка адекватности математической модели, формула 19.

G: real;

переменная хранящая значение критерия Кохрена. Проверка однородности дисперсий на каждом уровне фактора, формула 10.

gipotesa1D: boolean;

переменная хранящая значение однородности дисперсий. Значение True соответствует тому факту, что дисперсии однородны, False – обратное утверждение.

regAd: boolean;

переменная хранящая значение адекватности математической модели. Значение True соответствует тому факту, что математическая модель адекватна, False – обратное утверждение.

decisionRegMean: array[ 0..3 ] of boolean;

матрица хранящая значения значимости коэфициентов регрессии. Значение True соответствует тому факту, что данный коэфициент значим, False – обратное утверждение.

Список процедур и функций

function RandomNorm(mF, dF: real): real;

фунция возвращает величину с заданой дисперсией и мат. ожиданием и нормальным распределением.

function CalculateX(level: byte): real;

функция возвращающая значение х на заданном уровне эксперимента.

procedure MakeExperiment;

процедура осуществляет эксперимент при заданных условиях.

procedure CalculateYAverage;

процедура вичисляющая построчные средние значения Y.

procedureCalculateRegCoeficients;

процедура вычисляющая коєфициенты регресии.

procedureCalculatedSu;

процедура подсчитывает дисперсию dSu.

procedure Check1D;

процедура проверки однородности дисперсий.

procedure CalculatedSo;

процедура вычисления ошибки эксперимента.

procedure CalculateRegMean;

процедура осуществяющая проверку значимости коэфициентов регрессии.

procedure MakeDecision;

процедура принятия решений, по результатам проверки критерия Стьюдента.

function CalculateL: byte;

функция возвращающая количество значимых коефициентов регрессии, необходима для проверки адекватности уравненя регрессии по критерию Фишера.

procedure CalculateYExp;

процедура подсчета експериментального значения Y. Эксперимент проводится по полученному уравнению регрессии.

procedure CheckRegAd;

процедура проверки адекватности уравнения регрессии.

procedure FillPlaneMatrix;

процедура вывода данных: план эксперимента.

procedure FillExpMatrix;

процедура вывода данных: результат эксперимента.

procedure FillYAverage;

процедура вывода данных: построчние средние значения Y.

procedure FillRegCoeficient;

процедура вывода данных: коефициенты регрессии.

procedure FillDSu;

процедура вывода данных: построчные дисперсии.

procedure FillExpMistake;

процедура вывода данных: ошибка експеримента.

procedure FillRegCoeficientCritery;

процедура вывода данных: значимость коэйициентов регресии.

procedure FillYExp;

процедура вывода данных: Y полученый по уравнению регрессии.

procedure FillFCritery;

процедура вывода данных: критерий Фишера.

procedure FillresultTables;

процедура объеденяющая вывод данных.