Dựa vào thuật toán được trình bày trong sơ đồ ở phần trên, ta sẽ mô phỏng hệ thống bằng ngôn ngữ mô phỏng GPSS WORLD với code chương trình như sau:
******************************************************* * Bài toán khám chữa bệnh tại bệnh viện *
******************************************************* ;============================================= ; Xac dinh kich co toi da cho hang doi
QueueHos STORAGE 100
; Sinh ra su kien cu trong khoang 3-7 phut se co 1 benh nhan den kham GENERATE 5,2
; Benh nhan vao hang doi khu vuc Tiep nhan ho so, thoi gian xu ly tu 2 – 4 phut SEIZE REGISTRATOR
ADVANCE 3,1
RELEASE REGISTRATOR
; Benh nhan vao hang doi khu vuc Kham benh ENTER QueueHos
; Benh nhan se duoc kham ngau nhien 50%-50% voi 2 ekip kham benh AGAIN TRANSFER 0.5,METKA2,METKA1,VIX
; Xu ly kham voi ekip 1, thoi gian xu ly tu 9-15 phut METKA1 SEIZE Doctor1
LEAVE QueueHos ADVANCE 12,3 ; Giai phong bac sy 1 RELEASE Doctor1
; Kham xong, benh nhan thoat ra ngoai hang doi TRANSFER ,WENT
;============================================ ; Xu ly kham voi ekip 2, thoi gian xu ly tu 9-15 phut
METKA2 SEIZE Doctor2 LEAVE QueueHos ADVANCE 12,3 ; Giai phong bac sy 1
RELEASE Doctor2
; Kham xong, benh nhan thoat ra ngoai hang doi TRANSFER ,WENT
; Quay lai hang doi neu benh nhan cho ma chua duoc kham VIX TRANSFER ,AGAIN
; Ket thuc
WENT TERMINATE
GENERATE 480 TERMINATE 1 START 1
Kết quả nhận được khi thực hiện chương trình như sau:
START TIME END TIME BLOCKS FACILITIES STORAGES 0.000 480.000 20 3 1 NAME VALUE AGAIN 6.000 DOCTOR1 10003.000 DOCTOR2 10002.000 METKA1 7.000 METKA2 12.000 QUEUEHOS 10000.000 REGISTRATOR 10001.000 VIX 17.000 WENT 18.000
LABEL LOC BLOCK TYPE ENTRY COUNT CURRENT COUNT RETRY 1 GENERATE 95 0 0 2 SEIZE 95 0 0 3 ADVANCE 95 0 0 4 RELEASE 95 0 0 5 ENTER 95 0 0 AGAIN 6 TRANSFER 95 16 0 METKA1 7 SEIZE 39 0 0 8 LEAVE 39 0 0 9 ADVANCE 39 1 0 10 RELEASE 38 0 0 11 TRANSFER 38 0 0 METKA2 12 SEIZE 40 0 0 13 LEAVE 40 0 0 14 ADVANCE 40 1 0 15 RELEASE 39 0 0 16 TRANSFER 39 0 0 VIX 17 TRANSFER 0 0 0 WENT 18 TERMINATE 77 0 0 19 GENERATE 1 0 0 20 TERMINATE 1 0 0
FACILITY ENTRIES UTIL. AVE. TIME AVAIL. OWNER PEND INTER RETRY DELAY REGISTRATOR 95 0.594 3.000 1 0 0 0 0 0
DOCTOR2 40 0.983 11.800 1 72 0 0 0 9 DOCTOR1 39 0.971 11.949 1 81 0 0 0 7
STORAGE CAP. REM. MIN. MAX. ENTRIES AVL. AVE.C. UTIL. RETRY DELAY QUEUEHOS 100 84 0 16 95 1 7.731 0.077 0 0
CEC XN PRI M1 ASSEM CURRENT NEXT PARAMETER VALUE 97 0 480.000 97 0 1
FEC XN PRI BDT ASSEM CURRENT NEXT PARAMETER VALUE 81 0 482.000 81 9 10
72 0 488.000 72 14 15 98 0 960.000 98 0 19
Căn cứ kết quả mô phỏng cho thấy:
- Số bệnh nhân đến khám là: 95 người - Số bệnh nhân được khám là: 79 người - Số người không được khám là 16 người
Nhận xét: Ta có bảng sánh kết quả tính toán theo lý thuyết với tính toán trong GPSS
với thờ i gian T = 480 phút
Tính toán theo lý thuyết Tính toán trong GPSS Số bệnh nhân đến khám 96 95 Số bệnh nhân được khám 80 79
Số người không được khám 16 16