|
|
/* File: shiftcover.mod */
/* WORKFORCE SHIFT COVERAGE assignment problem */
/* Written by Larry D'Agostino <larrydag -at- sbcglobal -dot- com> Maximize Productivity with Industrial Engineer and Operations Research Tools http://industrialengineertools.blogspot.com
/* The WORKFORCE SHIFT COVERAGE is an assigment problem that determines the schedule of crew given available time and shifts. The objective is to cover the available time given hourly demand with the minimum number of crew members. This is a set covering problem that is very common among finding crew and shift allocations. Notice in the data section the workforce shift allocation per day of the week.*/
/* ----- Model PARAMTERS and SETS -----*/
param numhrs;/* number of hours of operations in a given day */
param dys;/* number of days in a week */
set S;/* set of crew shifts */
set H := 1..numhrs;/* set of hours of a day*/
set D;/* set of days of a week*/
param dmnd{h in H, d in D};/* demand for crew members given h hour and d day */
param shifts{d in D, h in H, s in S};/* shifts to assign to crew members given d day, h hour, and s shift schedule
/*----- Model VARIABLES -----*/
var crew{s in S}, integer, >=0;/* number of crew assigned to shift S */
/*----- Model CONSTRAINTS -----*/
s.t. Coverage{h in H, d in D}: sum{s in S} crew[s]*shifts[d,h,s] >= dmnd[h,d];/* number of crew to cover with a shift given hourly demand and day */
/*----- Model OBJECTIVE -----*/
minimize obj: sum{s in S} crew[s];/* minimize number of crew to cover demand*/
solve;display crew;
printf "\n";printf "Total Crew: %3d\n\n", sum{s in S} crew[s];
printf "\n\n";printf "Weekly Crew Schedule\n\n";printf "Hour ";printf{d in D} " %s ", d;printf "\n";for {h in H} { printf " %2s ",h; printf{d in D} " %3d ", sum{s in S} crew[s]*shifts[d,h,s]; printf "\n";}printf"\n";
data;
param numhrs := 16;
set D := SUN, MON, TUE, WED, THU, FRI, SAT;
set S := Sh1, Sh2, Sh3, Sh4, Sh5, Sh6, Sh7, Sh8, Sh9;
param dmnd : SUN MON TUE WED THU FRI SAT :=1 0 3 3 4 3 2 02 0 14 14 16 14 12 123 0 24 24 27 24 20 154 0 28 28 32 28 23 155 0 33 33 37 33 24 166 0 34 34 38 34 24 157 0 35 35 39 35 25 118 0 35 35 40 35 27 09 0 34 34 39 34 25 010 0 31 31 35 31 24 011 2 24 24 27 24 25 012 3 19 19 21 19 21 013 2 24 24 27 24 13 014 2 16 16 18 16 0 015 0 7 7 7 7 0 016 0 5 5 5 5 0 0;
param shifts := ['SUN',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 0 0 0 0 0 0 0 0 02 0 0 0 0 0 0 0 0 03 0 0 0 0 0 0 0 0 04 0 0 0 0 0 0 0 0 05 0 0 0 0 0 0 0 0 06 0 0 0 0 0 0 0 0 07 0 0 0 0 0 0 0 0 08 0 0 0 0 0 0 0 0 09 0 0 0 0 0 0 0 0 010 0 0 0 0 0 0 0 0 011 0 0 0 0 0 0 0 0 112 0 0 0 0 0 0 0 0 113 0 0 0 0 0 0 0 0 114 0 0 0 0 0 0 0 0 115 0 0 0 0 0 0 0 0 016 0 0 0 0 0 0 0 0 0
['MON',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 1 0 0 0 0 0 0 0 02 1 1 0 0 0 0 0 0 03 1 1 1 0 0 0 0 0 04 1 1 1 1 0 0 0 0 05 0 1 1 1 1 0 0 0 06 1 0 1 1 1 1 0 0 17 1 1 0 1 1 1 1 0 18 1 1 1 0 1 1 1 1 19 1 1 1 1 0 1 1 1 110 0 1 1 1 1 0 1 1 111 0 0 1 1 1 1 0 1 012 0 0 0 1 1 1 1 0 113 0 0 0 0 1 1 1 1 114 0 0 0 0 0 1 1 1 115 0 0 0 0 0 0 1 1 116 0 0 0 0 0 0 0 1 1
['TUE',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 1 0 0 0 0 0 0 0 02 1 1 0 0 0 0 0 0 03 1 1 1 0 0 0 0 0 04 1 1 1 1 0 0 0 0 05 0 1 1 1 1 0 0 0 06 1 0 1 1 1 1 0 0 17 1 1 0 1 1 1 1 0 18 1 1 1 0 1 1 1 1 19 1 1 1 1 0 1 1 1 110 0 1 1 1 1 0 1 1 111 0 0 1 1 1 1 0 1 012 0 0 0 1 1 1 1 0 113 0 0 0 0 1 1 1 1 114 0 0 0 0 0 1 1 1 115 0 0 0 0 0 0 1 1 116 0 0 0 0 0 0 0 1 1
['WED',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 1 0 0 0 0 0 0 0 02 1 1 0 0 0 0 0 0 03 1 1 1 0 0 0 0 0 04 1 1 1 1 0 0 0 0 05 0 1 1 1 1 0 0 0 06 1 0 1 1 1 1 0 0 17 1 1 0 1 1 1 1 0 18 1 1 1 0 1 1 1 1 19 1 1 1 1 0 1 1 1 110 0 1 1 1 1 0 1 1 111 0 0 1 1 1 1 0 1 012 0 0 0 1 1 1 1 0 113 0 0 0 0 1 1 1 1 114 0 0 0 0 0 1 1 1 115 0 0 0 0 0 0 1 1 116 0 0 0 0 0 0 0 1 1
['THU',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 1 0 0 0 0 0 0 0 02 1 1 0 0 0 0 0 0 03 1 1 1 0 0 0 0 0 04 1 1 1 1 0 0 0 0 05 0 1 1 1 1 0 0 0 06 1 0 1 1 1 1 0 0 07 1 1 0 1 1 1 1 0 08 1 1 1 0 1 1 1 1 09 1 1 1 1 0 1 1 1 010 0 1 1 1 1 0 1 1 011 0 0 1 1 1 1 0 1 012 0 0 0 1 1 1 1 0 013 0 0 0 0 1 1 1 1 014 0 0 0 0 0 1 1 1 015 0 0 0 0 0 0 1 1 016 0 0 0 0 0 0 0 1 0
['FRI',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 1 0 0 0 0 0 0 0 02 1 1 0 0 0 0 0 0 03 1 1 1 0 0 0 0 0 04 1 1 1 1 0 0 0 0 05 0 1 1 1 1 0 0 0 06 1 0 1 1 1 1 0 0 07 1 1 0 1 1 1 1 0 08 1 1 1 0 1 1 1 1 09 1 1 1 1 0 1 1 1 010 0 1 1 1 1 0 1 1 011 0 0 1 1 1 1 0 1 012 0 0 0 1 1 1 1 0 013 0 0 0 0 1 1 1 1 014 0 0 0 0 0 1 1 1 015 0 0 0 0 0 0 1 1 016 0 0 0 0 0 0 0 1 0
['SAT',*,*]: Sh1 Sh2 Sh3 Sh4 Sh5 Sh6 Sh7 Sh8 Sh9 :=1 0 0 0 0 0 0 0 0 02 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 0 0 15 0 0 0 0 0 0 0 0 16 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0 0 0 18 0 0 0 0 0 0 0 0 09 0 0 0 0 0 0 0 0 010 0 0 0 0 0 0 0 0 011 0 0 0 0 0 0 0 0 012 0 0 0 0 0 0 0 0 013 0 0 0 0 0 0 0 0 014 0 0 0 0 0 0 0 0 015 0 0 0 0 0 0 0 0 016 0 0 0 0 0 0 0 0 0;
|
