Par1 	EQU 5 
Par2 	EQU 10 
Par3 	EQU 10 
	generate (Exponential(1, 0, Par1)) 
Met1 	test l q1,Par3,Otkaz 
	QUEUE 1 
	SEIZE 1 
	DEPART 1 
	ADVANCE (Exponential(2, 0, Par2)) 
	release 1 
	terminate 
Otkaz terminate 
	GENERATE 1000000 
	savevalue P_Otk,(N$Otkaz/N$Met1) 
	terminate 1 
	start 1 
 
 
 
*******************************************************
*                                                     *
*                       SEM                           *
*          Factorial Screening Experiment             *
*                                                     *
*******************************************************
SEM_Results MATRIX ,2,2,2
INITIAL SEM_Results,UNSPECIFIED
SEM_NextRunNumber EQU	0
 
EXPERIMENT SEM() BEGIN
 
	/*  Run 1  */
	Par1 = 5;
	Par2 = 5;
	Par3 = 5;
	IF (StringCompare(DataType(SEM_Results[1,1,1]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Set the Run Number Variable at the beginning. */
 
	    SEM_NextRunNumber = 1;
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[1,1,1] = X$P_Otk;
	END;
 
	/*  Run 2  */
	Par1 = 5;
	Par2 = 5;
	Par3 = 10;
	IF (StringCompare(DataType(SEM_Results[1,1,2]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[1,1,2] = X$P_Otk;
	END;
 
	/*  Run 3  */
	Par1 = 5;
	Par2 = 10;
	Par3 = 5;
	IF (StringCompare(DataType(SEM_Results[1,2,1]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[1,2,1] = X$P_Otk;
	END;
 
	/*  Run 4  */
	Par1 = 5;
	Par2 = 10;
	Par3 = 10;
	IF (StringCompare(DataType(SEM_Results[1,2,2]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[1,2,2] = X$P_Otk;
	END;
 
	/*  Run 5  */
	Par1 = 10;
	Par2 = 5;
	Par3 = 5;
	IF (StringCompare(DataType(SEM_Results[2,1,1]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[2,1,1] = X$P_Otk;
	END;
 
	/*  Run 6  */
	Par1 = 10;
	Par2 = 5;
	Par3 = 10;
	IF (StringCompare(DataType(SEM_Results[2,1,2]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[2,1,2] = X$P_Otk;
	END;
 
	/*  Run 7  */
	Par1 = 10;
	Par2 = 10;
	Par3 = 5;
	IF (StringCompare(DataType(SEM_Results[2,2,1]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[2,2,1] = X$P_Otk;
	END;
 
	/*  Run 8  */
	Par1 = 10;
	Par2 = 10;
	Par3 = 10;
	IF (StringCompare(DataType(SEM_Results[2,2,2]),"UNSPECIFIED")'E'0)
	THEN BEGIN
	    /*  Log the Run and Execute the Simulation */
	    SEM_GetResult();
	    SEM_Results[2,2,2] = X$P_Otk;
	END;
 
	/*  Aliased Effects in Fractional Factorial Experiment */
	SE_Effects(SEM_Results,"I");
 
END;
 
 
 
*******************************************************
*          The Run Execution Procedure                *
*******************************************************
 
PROCEDURE SEM_GetResult() BEGIN
 
    /*    Run Simulation and Log Results.  */
    /*    Treatments have already been set for this run.  */
 
    TEMPORARY CurrentYield,ShowString,CommandString;
 
    /*  Run Procedure Call */
 
    Sem1(SEM_NextRunNumber);
    CurrentYield = X$P_Otk;
    ShowString = PolyCatenate("Run ",String(SEM_NextRunNumber),". ", "" ); 
 
    ShowString = PolyCatenate(ShowString,"  Yield=",String(CurrentYield),". "); 
    ShowString = PolyCatenate(ShowString," Par1=",String(Par1), ";" ); 
    ShowString = PolyCatenate(ShowString," Par2=",String(Par2), ";" ); 
    ShowString = PolyCatenate(ShowString," Par3=",String(Par3), ";" ); 
    CommandString = PolyCatenate("SHOW """,ShowString,"""", "" ); 
    DoCommand(CommandString);
    SEM_NextRunNumber = SEM_NextRunNumber + 1;
    RETURN CurrentYield;
 
END;
 
*******************************************************
*                Run Procedure                        *
*******************************************************
PROCEDURE Sem1(Run_Number) BEGIN
    DoCommand("CLEAR OFF");      /* Must use OFF to preserve results. */
 
    /* EXPAND THIS RMULT IF YOU HAVE MORE RNGs. */
    /* All Random Number Streams must have new seeds. */
    TEMPORARY CommandString;
    /* Evaluate before passing to DoCommand. */
    CommandString = Catenate("RMULT ",Run_Number#111);
    /* DoCommand compiles the string in Global Context. */ 
    DoCommand(CommandString); 
 
    /* SET UP YOUR OWN RUN CONDITIONS. */
    DoCommand("START 1,NP");   /* Get past the Startup Period. */
    DoCommand("RESET");          /* Begin the Measurement Period. */
    DoCommand("START 1,NP");  /* Run the Simulation. */
 
 
 

UGFyMSAJRVFVIDUgClBhcjIgCUVRVSAxMCAKUGFyMyAJRVFVIDEwIAoJZ2VuZXJhdGUgKEV4cG9uZW50aWFsKDEsIDAsIFBhcjEpKSAKTWV0MSAJdGVzdCBsIHExLFBhcjMsT3RrYXogCglRVUVVRSAxIAoJU0VJWkUgMSAKCURFUEFSVCAxIAoJQURWQU5DRSAoRXhwb25lbnRpYWwoMiwgMCwgUGFyMikpIAoJcmVsZWFzZSAxIAoJdGVybWluYXRlIApPdGtheiB0ZXJtaW5hdGUgCglHRU5FUkFURSAxMDAwMDAwIAoJc2F2ZXZhbHVlIFBfT3RrLChOJE90a2F6L04kTWV0MSkgCgl0ZXJtaW5hdGUgMSAKCXN0YXJ0IDEgCgoKCioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioKKiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKgoqICAgICAgICAgICAgICAgICAgICAgICBTRU0gICAgICAgICAgICAgICAgICAgICAgICAgICAqCiogICAgICAgICAgRmFjdG9yaWFsIFNjcmVlbmluZyBFeHBlcmltZW50ICAgICAgICAgICAgICoKKiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKgoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqClNFTV9SZXN1bHRzIE1BVFJJWCAsMiwyLDIKSU5JVElBTCBTRU1fUmVzdWx0cyxVTlNQRUNJRklFRApTRU1fTmV4dFJ1bk51bWJlciBFUVUJMAoKRVhQRVJJTUVOVCBTRU0oKSBCRUdJTgoKCS8qICBSdW4gMSAgKi8KCVBhcjEgPSA1OwoJUGFyMiA9IDU7CglQYXIzID0gNTsKCUlGIChTdHJpbmdDb21wYXJlKERhdGFUeXBlKFNFTV9SZXN1bHRzWzEsMSwxXSksIlVOU1BFQ0lGSUVEIiknRScwKQoJVEhFTiBCRUdJTgoJICAgIC8qICBTZXQgdGhlIFJ1biBOdW1iZXIgVmFyaWFibGUgYXQgdGhlIGJlZ2lubmluZy4gKi8KCgkgICAgU0VNX05leHRSdW5OdW1iZXIgPSAxOwoJICAgIC8qICBMb2cgdGhlIFJ1biBhbmQgRXhlY3V0ZSB0aGUgU2ltdWxhdGlvbiAqLwoJICAgIFNFTV9HZXRSZXN1bHQoKTsKCSAgICBTRU1fUmVzdWx0c1sxLDEsMV0gPSBYJFBfT3RrOwoJRU5EOwoKCS8qICBSdW4gMiAgKi8KCVBhcjEgPSA1OwoJUGFyMiA9IDU7CglQYXIzID0gMTA7CglJRiAoU3RyaW5nQ29tcGFyZShEYXRhVHlwZShTRU1fUmVzdWx0c1sxLDEsMl0pLCJVTlNQRUNJRklFRCIpJ0UnMCkKCVRIRU4gQkVHSU4KCSAgICAvKiAgTG9nIHRoZSBSdW4gYW5kIEV4ZWN1dGUgdGhlIFNpbXVsYXRpb24gKi8KCSAgICBTRU1fR2V0UmVzdWx0KCk7CgkgICAgU0VNX1Jlc3VsdHNbMSwxLDJdID0gWCRQX090azsKCUVORDsKCgkvKiAgUnVuIDMgICovCglQYXIxID0gNTsKCVBhcjIgPSAxMDsKCVBhcjMgPSA1OwoJSUYgKFN0cmluZ0NvbXBhcmUoRGF0YVR5cGUoU0VNX1Jlc3VsdHNbMSwyLDFdKSwiVU5TUEVDSUZJRUQiKSdFJzApCglUSEVOIEJFR0lOCgkgICAgLyogIExvZyB0aGUgUnVuIGFuZCBFeGVjdXRlIHRoZSBTaW11bGF0aW9uICovCgkgICAgU0VNX0dldFJlc3VsdCgpOwoJICAgIFNFTV9SZXN1bHRzWzEsMiwxXSA9IFgkUF9PdGs7CglFTkQ7CgoJLyogIFJ1biA0ICAqLwoJUGFyMSA9IDU7CglQYXIyID0gMTA7CglQYXIzID0gMTA7CglJRiAoU3RyaW5nQ29tcGFyZShEYXRhVHlwZShTRU1fUmVzdWx0c1sxLDIsMl0pLCJVTlNQRUNJRklFRCIpJ0UnMCkKCVRIRU4gQkVHSU4KCSAgICAvKiAgTG9nIHRoZSBSdW4gYW5kIEV4ZWN1dGUgdGhlIFNpbXVsYXRpb24gKi8KCSAgICBTRU1fR2V0UmVzdWx0KCk7CgkgICAgU0VNX1Jlc3VsdHNbMSwyLDJdID0gWCRQX090azsKCUVORDsKCgkvKiAgUnVuIDUgICovCglQYXIxID0gMTA7CglQYXIyID0gNTsKCVBhcjMgPSA1OwoJSUYgKFN0cmluZ0NvbXBhcmUoRGF0YVR5cGUoU0VNX1Jlc3VsdHNbMiwxLDFdKSwiVU5TUEVDSUZJRUQiKSdFJzApCglUSEVOIEJFR0lOCgkgICAgLyogIExvZyB0aGUgUnVuIGFuZCBFeGVjdXRlIHRoZSBTaW11bGF0aW9uICovCgkgICAgU0VNX0dldFJlc3VsdCgpOwoJICAgIFNFTV9SZXN1bHRzWzIsMSwxXSA9IFgkUF9PdGs7CglFTkQ7CgoJLyogIFJ1biA2ICAqLwoJUGFyMSA9IDEwOwoJUGFyMiA9IDU7CglQYXIzID0gMTA7CglJRiAoU3RyaW5nQ29tcGFyZShEYXRhVHlwZShTRU1fUmVzdWx0c1syLDEsMl0pLCJVTlNQRUNJRklFRCIpJ0UnMCkKCVRIRU4gQkVHSU4KCSAgICAvKiAgTG9nIHRoZSBSdW4gYW5kIEV4ZWN1dGUgdGhlIFNpbXVsYXRpb24gKi8KCSAgICBTRU1fR2V0UmVzdWx0KCk7CgkgICAgU0VNX1Jlc3VsdHNbMiwxLDJdID0gWCRQX090azsKCUVORDsKCgkvKiAgUnVuIDcgICovCglQYXIxID0gMTA7CglQYXIyID0gMTA7CglQYXIzID0gNTsKCUlGIChTdHJpbmdDb21wYXJlKERhdGFUeXBlKFNFTV9SZXN1bHRzWzIsMiwxXSksIlVOU1BFQ0lGSUVEIiknRScwKQoJVEhFTiBCRUdJTgoJICAgIC8qICBMb2cgdGhlIFJ1biBhbmQgRXhlY3V0ZSB0aGUgU2ltdWxhdGlvbiAqLwoJICAgIFNFTV9HZXRSZXN1bHQoKTsKCSAgICBTRU1fUmVzdWx0c1syLDIsMV0gPSBYJFBfT3RrOwoJRU5EOwoKCS8qICBSdW4gOCAgKi8KCVBhcjEgPSAxMDsKCVBhcjIgPSAxMDsKCVBhcjMgPSAxMDsKCUlGIChTdHJpbmdDb21wYXJlKERhdGFUeXBlKFNFTV9SZXN1bHRzWzIsMiwyXSksIlVOU1BFQ0lGSUVEIiknRScwKQoJVEhFTiBCRUdJTgoJICAgIC8qICBMb2cgdGhlIFJ1biBhbmQgRXhlY3V0ZSB0aGUgU2ltdWxhdGlvbiAqLwoJICAgIFNFTV9HZXRSZXN1bHQoKTsKCSAgICBTRU1fUmVzdWx0c1syLDIsMl0gPSBYJFBfT3RrOwoJRU5EOwoKCS8qICBBbGlhc2VkIEVmZmVjdHMgaW4gRnJhY3Rpb25hbCBGYWN0b3JpYWwgRXhwZXJpbWVudCAqLwoJU0VfRWZmZWN0cyhTRU1fUmVzdWx0cywiSSIpOwoKRU5EOwoKCgoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCiogICAgICAgICAgVGhlIFJ1biBFeGVjdXRpb24gUHJvY2VkdXJlICAgICAgICAgICAgICAgICoKKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKgoKUFJPQ0VEVVJFIFNFTV9HZXRSZXN1bHQoKSBCRUdJTgoKICAgIC8qICAgIFJ1biBTaW11bGF0aW9uIGFuZCBMb2cgUmVzdWx0cy4gICovCiAgICAvKiAgICBUcmVhdG1lbnRzIGhhdmUgYWxyZWFkeSBiZWVuIHNldCBmb3IgdGhpcyBydW4uICAqLwoKICAgIFRFTVBPUkFSWSBDdXJyZW50WWllbGQsU2hvd1N0cmluZyxDb21tYW5kU3RyaW5nOwoKICAgIC8qICBSdW4gUHJvY2VkdXJlIENhbGwgKi8KCiAgICBTZW0xKFNFTV9OZXh0UnVuTnVtYmVyKTsKICAgIEN1cnJlbnRZaWVsZCA9IFgkUF9PdGs7CiAgICBTaG93U3RyaW5nID0gUG9seUNhdGVuYXRlKCJSdW4gIixTdHJpbmcoU0VNX05leHRSdW5OdW1iZXIpLCIuICIsICIiICk7IAoKICAgIFNob3dTdHJpbmcgPSBQb2x5Q2F0ZW5hdGUoU2hvd1N0cmluZywiICBZaWVsZD0iLFN0cmluZyhDdXJyZW50WWllbGQpLCIuICIpOyAKICAgIFNob3dTdHJpbmcgPSBQb2x5Q2F0ZW5hdGUoU2hvd1N0cmluZywiIFBhcjE9IixTdHJpbmcoUGFyMSksICI7IiApOyAKICAgIFNob3dTdHJpbmcgPSBQb2x5Q2F0ZW5hdGUoU2hvd1N0cmluZywiIFBhcjI9IixTdHJpbmcoUGFyMiksICI7IiApOyAKICAgIFNob3dTdHJpbmcgPSBQb2x5Q2F0ZW5hdGUoU2hvd1N0cmluZywiIFBhcjM9IixTdHJpbmcoUGFyMyksICI7IiApOyAKICAgIENvbW1hbmRTdHJpbmcgPSBQb2x5Q2F0ZW5hdGUoIlNIT1cgIiIiLFNob3dTdHJpbmcsIiIiIiwgIiIgKTsgCiAgICBEb0NvbW1hbmQoQ29tbWFuZFN0cmluZyk7CiAgICBTRU1fTmV4dFJ1bk51bWJlciA9IFNFTV9OZXh0UnVuTnVtYmVyICsgMTsKICAgIFJFVFVSTiBDdXJyZW50WWllbGQ7CgpFTkQ7CgoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCiogICAgICAgICAgICAgICAgUnVuIFByb2NlZHVyZSAgICAgICAgICAgICAgICAgICAgICAgICoKKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKgpQUk9DRURVUkUgU2VtMShSdW5fTnVtYmVyKSBCRUdJTgogICAgRG9Db21tYW5kKCJDTEVBUiBPRkYiKTsgICAgICAvKiBNdXN0IHVzZSBPRkYgdG8gcHJlc2VydmUgcmVzdWx0cy4gKi8KCiAgICAvKiBFWFBBTkQgVEhJUyBSTVVMVCBJRiBZT1UgSEFWRSBNT1JFIFJOR3MuICovCiAgICAvKiBBbGwgUmFuZG9tIE51bWJlciBTdHJlYW1zIG11c3QgaGF2ZSBuZXcgc2VlZHMuICovCiAgICBURU1QT1JBUlkgQ29tbWFuZFN0cmluZzsKICAgIC8qIEV2YWx1YXRlIGJlZm9yZSBwYXNzaW5nIHRvIERvQ29tbWFuZC4gKi8KICAgIENvbW1hbmRTdHJpbmcgPSBDYXRlbmF0ZSgiUk1VTFQgIixSdW5fTnVtYmVyIzExMSk7CiAgICAvKiBEb0NvbW1hbmQgY29tcGlsZXMgdGhlIHN0cmluZyBpbiBHbG9iYWwgQ29udGV4dC4gKi8gCiAgICBEb0NvbW1hbmQoQ29tbWFuZFN0cmluZyk7IAoKICAgIC8qIFNFVCBVUCBZT1VSIE9XTiBSVU4gQ09ORElUSU9OUy4gKi8KICAgIERvQ29tbWFuZCgiU1RBUlQgMSxOUCIpOyAgIC8qIEdldCBwYXN0IHRoZSBTdGFydHVwIFBlcmlvZC4gKi8KICAgIERvQ29tbWFuZCgiUkVTRVQiKTsgICAgICAgICAgLyogQmVnaW4gdGhlIE1lYXN1cmVtZW50IFBlcmlvZC4gKi8KICAgIERvQ29tbWFuZCgiU1RBUlQgMSxOUCIpOyAgLyogUnVuIHRoZSBTaW11bGF0aW9uLiAqLwoKCg==