; Simulation of parts production and inspection
 
; PARAMETERS
; 10% parts are type B, 90% type A
 
GENERATE 10,0              ; Parts created every 10 minutes (mean interarrival time 10)
ASSIGN 1, RND             ; Assign a random number to decide part type
 
; Determine part type based on random number
TEST L RND(1,100) LE 10   ; 10% chance for part B
TRANSFER LE 10, PART_B    ; If <= 10, part B
TRANSFER GT 10, PART_A    ; Else part A
 
PART_A:
    SEIZE INSPECTOR_A
    ADVANCE 6, 2          ; Inspection time for type A: 6 +- 2 minutes (uniform)
    TEST L RND(1,100) LE 10  ; 10% rejection chance
    TRANSFER LE 10, REJECTED_A
    RELEASE INSPECTOR_A
    TERMINATE 1
 
PART_B:
    SEIZE INSPECTOR_B
    ADVANCE 10, 2         ; Inspection time for type B: 10 +- 2 minutes (uniform)
    TEST L RND(1,100) LE 10  ; 10% rejection chance
    TRANSFER LE 10, REJECTED_B
    RELEASE INSPECTOR_B
    TERMINATE 1
 
REJECTED_A:
    ; Logic for rejected A parts (optional)
    RELEASE INSPECTOR_A
    TERMINATE 1
 
REJECTED_B:
    ; Logic for rejected B parts (optional)
    RELEASE INSPECTOR_B
    TERMINATE 1
 
START 100                 ; Simulate 100 parts
END
 

OyBTaW11bGF0aW9uIG9mIHBhcnRzIHByb2R1Y3Rpb24gYW5kIGluc3BlY3Rpb24KCjsgUEFSQU1FVEVSUwo7IDEwJSBwYXJ0cyBhcmUgdHlwZSBCLCA5MCUgdHlwZSBBCgpHRU5FUkFURSAxMCwwICAgICAgICAgICAgICA7IFBhcnRzIGNyZWF0ZWQgZXZlcnkgMTAgbWludXRlcyAobWVhbiBpbnRlcmFycml2YWwgdGltZSAxMCkKQVNTSUdOIDEsIFJORCAgICAgICAgICAgICA7IEFzc2lnbiBhIHJhbmRvbSBudW1iZXIgdG8gZGVjaWRlIHBhcnQgdHlwZQoKOyBEZXRlcm1pbmUgcGFydCB0eXBlIGJhc2VkIG9uIHJhbmRvbSBudW1iZXIKVEVTVCBMIFJORCgxLDEwMCkgTEUgMTAgICA7IDEwJSBjaGFuY2UgZm9yIHBhcnQgQgpUUkFOU0ZFUiBMRSAxMCwgUEFSVF9CICAgIDsgSWYgPD0gMTAsIHBhcnQgQgpUUkFOU0ZFUiBHVCAxMCwgUEFSVF9BICAgIDsgRWxzZSBwYXJ0IEEKClBBUlRfQToKICAgIFNFSVpFIElOU1BFQ1RPUl9BCiAgICBBRFZBTkNFIDYsIDIgICAgICAgICAgOyBJbnNwZWN0aW9uIHRpbWUgZm9yIHR5cGUgQTogNiArLSAyIG1pbnV0ZXMgKHVuaWZvcm0pCiAgICBURVNUIEwgUk5EKDEsMTAwKSBMRSAxMCAgOyAxMCUgcmVqZWN0aW9uIGNoYW5jZQogICAgVFJBTlNGRVIgTEUgMTAsIFJFSkVDVEVEX0EKICAgIFJFTEVBU0UgSU5TUEVDVE9SX0EKICAgIFRFUk1JTkFURSAxCgpQQVJUX0I6CiAgICBTRUlaRSBJTlNQRUNUT1JfQgogICAgQURWQU5DRSAxMCwgMiAgICAgICAgIDsgSW5zcGVjdGlvbiB0aW1lIGZvciB0eXBlIEI6IDEwICstIDIgbWludXRlcyAodW5pZm9ybSkKICAgIFRFU1QgTCBSTkQoMSwxMDApIExFIDEwICA7IDEwJSByZWplY3Rpb24gY2hhbmNlCiAgICBUUkFOU0ZFUiBMRSAxMCwgUkVKRUNURURfQgogICAgUkVMRUFTRSBJTlNQRUNUT1JfQgogICAgVEVSTUlOQVRFIDEKClJFSkVDVEVEX0E6CiAgICA7IExvZ2ljIGZvciByZWplY3RlZCBBIHBhcnRzIChvcHRpb25hbCkKICAgIFJFTEVBU0UgSU5TUEVDVE9SX0EKICAgIFRFUk1JTkFURSAxCgpSRUpFQ1RFRF9COgogICAgOyBMb2dpYyBmb3IgcmVqZWN0ZWQgQiBwYXJ0cyAob3B0aW9uYWwpCiAgICBSRUxFQVNFIElOU1BFQ1RPUl9CCiAgICBURVJNSU5BVEUgMQoKU1RBUlQgMTAwICAgICAgICAgICAgICAgICA7IFNpbXVsYXRlIDEwMCBwYXJ0cwpFTkQK