Duspers_analiz_results matrix ,2,2,2,2,2

INITIAL Duspers_Analiz_Results,UNSPECIFIED

Duspers_Analiz_NextRunNumber EQU 0

EXPERIMENT Duspers_Analiz() BEGIN

/* Спостереження 1 */

M_Byf = 14;

T2_ = 7;

T3_ = 45;

T33_ = 3;

Byf_Ekstr = 9;

IF (StringCompare(DataType(Duspers_Analiz_Results[1,1,1,1,1]),

"UNSPECIFIED")'E'0)

THEN BEGIN

/* Встановити початкові значення змінній кількості спостережень */

Duspers_Analiz_NextRunNumber = 1;

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

Duspers_Analiz_GetResult();

Duspers_Analiz_Results[1,1,1,1,1]= N$Mit3/(N$Mit3+N$Mit4);

END;

/* Спостереження 2 */

M_Byf = 14;

T2_ = 7;

T3_ = 45;

T33_ = 7;

Byf_Ekstr = 13;

IF (StringCompare(DataType(Duspers_Analiz_Results[1,1,1,2,2]),

"UNSPECIFIED")'E'0)

THEN BEGIN

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

Duspers_Analiz_GetResult();

Duspers_Analiz_Results[1,1,1,2,2]= N$Mit3/(N$Mit3+N$Mit4);

END;

/* Спостереження 3 – 15 запис. аналогічно попереднім спостереж. */

/* Спостереження 16 */

M_Byf = 20;

T2_ = 11;

T3_ = 55;

T33_ = 7;

Byf_Ekstr = 9;

IF (StringCompare(DataType(Duspers_Analiz_Results[2,2,2,2,1]),

"UNSPECIFIED")'E'0)

THEN BEGIN

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

Duspers_Analiz_GetResult();

Duspers_Analiz_Results[2,2,2,2,1] = N$Mit3/(N$Mit3+N$Mit4);

END;

/* Ефеккти змішування в дробовому факторному експерименті */

SE_Effects(Duspers_Analiz_Results,"I=ABCDE");

END;

*******************************************************

* Процедура запуску спостереження *

*******************************************************

PROCEDURE Duspers_Analiz_GetResult() BEGIN

/* Здійснити вказану в спостереженні к-сть прогонів і записати результати */

/* Фактори для цього спостереження вже були визначені */

TEMPORARY CurrentYield,ShowString,CommandString;

/* Виклик процедури запуску */

Duspers_Analiz_Run(Duspers_Analiz_NextRunNumber);

CurrentYield = N$Mit3/(N$Mit3+N$Mit4);

ShowString = PolyCatenate("Run",String(Duspers_Analiz_NextRunNumber),".","");

ShowString = PolyCatenate(ShowString," Yield=",String(CurrentYield),". ");

ShowString = PolyCatenate(ShowString," M_Byf=",String(M_Byf), ";");

ShowString = PolyCatenate(ShowString," T2_=",String(T2_), ";");

ShowString = PolyCatenate(ShowString," T3_=",String(T3_), ";");

ShowString = PolyCatenate(ShowString," T33_=",String(T33_), ";");

ShowString = PolyCatenate(ShowString," Byf_Ekstr=",String(Byf_Ekstr), ";");

CommandString = PolyCatenate("SHOW """,ShowString,"""", "");

DoCommand(CommandString);

Duspers_Analiz_NextRunNumber = Duspers_Analiz_NextRunNumber + 1;

RETURN CurrentYield;

END;

*******************************************************

* Процедура запуску *

*******************************************************