Experiment eksp_kor_tf() BEGIN

TEMPORARY MaZ_Poch,MaZ_KR,MaZ_Krok,KamaZ_Poch,KamaZ_KR,KamaZ_Krok;

MaZ_Poch = 2; /*Початкова кількість авт. марки МаЗ (1 фактор)*/

MaZ_KR = 4; /*Кількість рівнів 1-го фактора*/

MaZ_Krok = 3; /*Рівень варіювання 1-го фактора*/

KamaZ_Poch = 2; /*Початкова к-сть авт. марки КамаЗ (2 фактор)*/

KamaZ_KR = 5; /*Кількість рівнів 2-го фактора*/

KamaZ_Krok = 3; /*Рівень варіювання 2-го фактора*/

/* Запис в журнал найменування експеримента */

DoCommand("SHOW "" """);

DoCommand("SHOW ""***Діяльність транспортної фірми***""");

DoCommand("SHOW ""*Двохфакторний дисперсійний аналіз*""");

DoCommand("SHOW "" """);

P_Maz = Maz_Poch; /*Поточній к-сті авт. марки МаЗ – поч. значення*/

P_Maz_KR = 1; /*Поточному номеру рівня 1-го фактора – поч. знач.*/

WHILE (P_Maz_KR<=MaZ_KR) DO BEGIN /*Цикл варіювання 1-го фактора*/

P_KamaZ = KamaZ_Poch; /*Поточній к-сті авт. марки КамаЗ – поч. знач.*/

P_KamaZ_KR = 1; /*Поточному номеру рівня 2-го фактора – поч. знач.*/

WHILE (P_KamaZ_KR<=KamaZ_KR) DO BEGIN /*Цикл варіювання 2-го фактора*/

N_Spost = 1; /*Поточному номеру спостереження – поч.значення*/

WHILE (N_Spost<=3) DO BEGIN /*Цикл за числом спостереження*/

/*Виклик процедури запуску - виконання одного спостереження*/

Eksp_Kor_Run(P_Maz,P_KamaZ,N_Spost);

/*Запис результатів моделювання (спостереження) в матрицю*/

Rezult_TF[P_Maz_KR,P_KamaZ_KR,N_Spost]=X$Prub;

N_Spost = N_Spost + 1; /*Перейти до наступного спостереження*/

END;

P_KamaZ_KR = P_KamaZ_KR + 1; /*Перейти до наступного рівня 2-го фактора*/

P_KamaZ = P_KamaZ + KamaZ_Krok; /*Встан. наступне знач. 2-го фактора*/

END;

P_Maz_KR = P_Maz_KR + 1;/*Перейти до наступного рівня 1-го фактора*/

P_Maz = P_Maz + MaZ_Krok; /*Встан. наступне значення 1-го фактора*/

END;

ANOVA(Eksp_Kor_TF,3,2) /*Провести двохфакторний дисперсійний аналіз*/

END;