Index: TECH/Algo/GroepVerdeler.cls.xml
===================================================================
diff -u
--- TECH/Algo/GroepVerdeler.cls.xml	(revision 0)
+++ TECH/Algo/GroepVerdeler.cls.xml	(revision 357)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Algo.GroepVerdeler">
+<Super>%RegisteredObject</Super>
+
+<Method name="GelijkmatigInGroepen">
+<Description>
+Gelijkmatige verdeling van AantalElementen over AantalGroepen.
+Voorbeeld : er zijn 7 knikkers te verdelen over 5 groepen De groepen worden dan als volgt gevuld.
+Groep1 : 2 knikkers
+Groep2 : 2 knikkers
+Groep3 : 1 knikker
+Groep4 : 1 knikker
+Groep5 : 1 knikker</Description>
+<FormalSpec>AantalElementen:%Integer,AantalGroepen:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+		Set Verdeling = ##class(%ListOfDataTypes).%New()
+		#dim GelijkAantal As %Integer = ##class(TECH.Math).Floor(AantalElementen/AantalGroepen)
+		#dim Rest As %Integer = AantalElementen#AantalGroepen 
+		#dim GroepID As %Integer
+		For GroepID=1:1:AantalGroepen {
+			#dim Aantal As %Integer = GelijkAantal
+			If (GroepID <= Rest) {
+				Set Aantal = Aantal + 1
+			}
+			Do Verdeling.Insert(Aantal)
+		}		
+		Quit Verdeling
+]]></Implementation>
+</Method>
+
+<Method name="MaximumInvullingPerGroepGreedy">
+<Description>
+MaximumInvullingPerGroepGreedy verdeling, zorgt ervoor dat er een maximum aantal elementen in een groep terecht komt. 
+Er worden groepen bij aangemaakt zoveel als nodig.
+Voorbeeld : er zijn 13 knikkers te verdelen met een MaximaleInvulling van 5. De groepen worden dan als volgt gevuld.
+Groep1 : 5
+Groep2 : 5
+Groep3 : 3</Description>
+<FormalSpec>AantalElementen:%Integer,MaximumInvullingPerGroep:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+		If (MaximumInvullingPerGroep<1) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("MaximumInvullingPerGroep is kleiner dan 1 (waarde="_MaximumInvullingPerGroep_")."))
+		}
+		Set GesplitsteAantallen=##class(%ListOfDataTypes).%New()
+		While (AantalElementen > MaximumInvullingPerGroep) {
+			Do GesplitsteAantallen.Insert(MaximumInvullingPerGroep)
+			Set AantalElementen=AantalElementen-MaximumInvullingPerGroep
+		}
+		If AantalElementen>0 {
+			Do GesplitsteAantallen.Insert(AantalElementen)
+		}
+		Quit GesplitsteAantallen
+]]></Implementation>
+</Method>
+
+<Method name="MaximumInvullingPerGroepNonGreedy">
+<Description>
+MaximumInvullingPerGroepNonGreedy verdeling, zorgt ervoor dat er een maximum aantal elementen in een groep terecht komt. 
+Er worden groepen bij aangemaakt zoveel als nodig.
+Voorbeeld : er zijn 13 knikkers te verdelen met een MaximaleInvulling van 5. De groepen worden dan als volgt gevuld.
+Groep1 : 5
+Groep2 : 4
+Groep3 : 4</Description>
+<FormalSpec>AantalElementen:%Integer,MaximumInvullingPerGroep:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+		Set Verdeling = ##class(%ListOfDataTypes).%New()
+		#dim Quotien As %Integer = ##class(TECH.Math).Floor(AantalElementen/MaximumInvullingPerGroep)
+		#dim Rest As %Integer = AantalElementen#MaximumInvullingPerGroep
+		#dim AantalGroepen As %Integer = Quotien + (Rest'=0)
+		#dim AantalGroepenNonGreedy = MaximumInvullingPerGroep - Rest
+		#dim AantalGroepenGreedy = AantalGroepen - AantalGroepenNonGreedy
+		#dim AantalVoorNonGreedy As %Integer = (AantalElementen - (AantalGroepenGreedy*MaximumInvullingPerGroep))/AantalGroepenNonGreedy
+		#dim GroepID As %Integer
+		For GroepID=1:1:AantalGroepen {
+			#dim Aantal As %Integer = 0
+			If GroepID <= AantalGroepenGreedy {
+				Set Aantal = MaximumInvullingPerGroep	
+			}Else{
+				Set Aantal = AantalVoorNonGreedy
+			}
+			Do Verdeling.Insert(Aantal)
+		}	
+		Quit Verdeling
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>