* Создание процедур для разных видов ремонта
PROCEDURE EngineRepair DUNIFORM(Stream, 90, 130)
PROCEDURE SuspensionRepair NORMAL(Stream, 1.7, 1)
PROCEDURE BodyRepair POISSON(Stream, 1.3)
PROCEDURE OthersRepair TRIANGULAR(Stream, 0.1, 1.6, 0.3)
PROCEDURE AdditionalRepair WEIBULL(Stream, 0.2, 1, 0.1)
* Основная логика программы
GENERATE B
QUEUE RepairQueue
SEIZE Mechanics
DEPART RepairQueue
ADVANCE RV(EngineRepair)
ADVANCE RV(SuspensionRepair)
ADVANCE RV(BodyRepair)
ADVANCE RV(OthersRepair)
ADVANCE RV(AdditionalRepair)
RELEASE Mechanics
TERMINATE
* Начало моделирования
START 1000
END
KiDQodC+0LfQtNCw0L3QuNC1INC/0YDQvtGG0LXQtNGD0YAg0LTQu9GPINGA0LDQt9C90YvRhSDQstC40LTQvtCyINGA0LXQvNC+0L3RgtCwClBST0NFRFVSRSBFbmdpbmVSZXBhaXIgRFVOSUZPUk0oU3RyZWFtLCA5MCwgMTMwKQpQUk9DRURVUkUgU3VzcGVuc2lvblJlcGFpciBOT1JNQUwoU3RyZWFtLCAxLjcsIDEpClBST0NFRFVSRSBCb2R5UmVwYWlyIFBPSVNTT04oU3RyZWFtLCAxLjMpClBST0NFRFVSRSBPdGhlcnNSZXBhaXIgVFJJQU5HVUxBUihTdHJlYW0sIDAuMSwgMS42LCAwLjMpClBST0NFRFVSRSBBZGRpdGlvbmFsUmVwYWlyIFdFSUJVTEwoU3RyZWFtLCAwLjIsIDEsIDAuMSkKCiog0J7RgdC90L7QstC90LDRjyDQu9C+0LPQuNC60LAg0L/RgNC+0LPRgNCw0LzQvNGLCkdFTkVSQVRFIEIKUVVFVUUgUmVwYWlyUXVldWUKU0VJWkUgTWVjaGFuaWNzCkRFUEFSVCBSZXBhaXJRdWV1ZQpBRFZBTkNFIFJWKEVuZ2luZVJlcGFpcikKQURWQU5DRSBSVihTdXNwZW5zaW9uUmVwYWlyKQpBRFZBTkNFIFJWKEJvZHlSZXBhaXIpCkFEVkFOQ0UgUlYoT3RoZXJzUmVwYWlyKQpBRFZBTkNFIFJWKEFkZGl0aW9uYWxSZXBhaXIpClJFTEVBU0UgTWVjaGFuaWNzClRFUk1JTkFURQoKKiDQndCw0YfQsNC70L4g0LzQvtC00LXQu9C40YDQvtCy0LDQvdC40Y8KU1RBUlQgMTAwMApFTkQK