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;