$Title Schulstundenplanung
$Ontext

Vorlesung: Service Operations Management
Abschnitt: 3.4 Timetabling
Problemstellung: Planung von Schulstunden

 - Data -

Author: Christoph Schwindt
Date: 17/12/2019

$Offtext

sets
   i             Klassen      / 1a, 1b, 2, 3a, 3b, 4 /
   f             Faecher      / deutsch, englisch, mathe, sach, religion, sport, musik, kunst, ag /
   k             Lehrer       / k1*k6 /
   t             Perioden     / t1*t30 /
   skilled(k,f)  Zuordnung von Lehrern zu Faechern
                 / k1.(religion), k2.(deutsch,englisch,ag), k3.(deutsch,mathe,sach,ag), k4.(sport,musik,kunst),
                   k5.(deutsch,mathe,sach,sport,musik,kunst,ag), k6.(deutsch,mathe,sach,kunst,ag) /
   j(i,f)        Kurse
   k_in_K(i,f,k) Zuordnung von Lehrern zu Kursen ;

alias(j, jPrime), (i,iPrime), (f, fPrime) ;

set sameas(i,f,iPrime,fPrime) Redefinition der GAMS-Funktion sameas ;

   sameas(i,f,iPrime,fPrime) = no ;
   sameas(i,f,iPrime,fPrime)$((ord(i)=ord(iPrime)) and (ord(f)=ord(fPrime))) = yes ;

table
   p(i,f) Umfang der Faecher f fuer Klassen in Perioden gemaess nds. Stundentafel
         deutsch englisch        mathe   sach       religion        sport   musik   kunst        ag
   1a    6       0               5       2          2               2       1       2            0
   1b    6       0               5       2          2               2       1       2            0
   2     6       0               6       3          2               2       1       2            1
   3a    6       2               5       4          2               2       2       2            1
   3b    6       2               5       4          2               2       2       2            1
   4     6       2               5       4          2               2       2       2            1 ;

   j(i,f) = no ;
   j(i,f)$p(i,f) = yes ;

   k_in_K(j,k) = no ;
   k_in_K(i,f,k)$(skilled(k,f)) = yes ;

parameters
   a(i,iPrime,f) gleich 1 falls i=iPrime und Klasse i Fach f belegt
   R(k)          Deputat von Lehrperson k ;

   R(k) = 28 ;
   a(i,i,f)$j(i,f) = 1 ;