Index: TECH/Math.cls.xml
===================================================================
diff -u -r3166 -r3409
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3166)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3409)
@@ -152,6 +152,24 @@
 <Implementation><![CDATA[	Quit ..Pow(Grondtal, 2)
 ]]></Implementation>
 </Method>
+
+<Method name="Grootste">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Getal...:%Numeric</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim Grootste As %Numeric = ""
+	
+	Set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Getal)
+	While ( Iterator.HasNext() ) {
+		#dim TestGetal As %string = Iterator.Next()	
+		Set TestGetal = $Translate(TestGetal,",",".")
+		Set TestGetal = +TestGetal
+		Set Grootste = $Select(Grootste="":TestGetal,Grootste<TestGetal:TestGetal,1:Grootste)
+	}
+	Quit Grootste
+]]></Implementation>
+</Method>
 </Class>