Index: TECH/Math.cls.xml
===================================================================
diff -u -r1572 -r1747
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 1572)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 1747)
@@ -114,6 +114,14 @@
 	Quit $ZBoolean(Bit1,Bit2,$$$XOrOperand)
 ]]></Implementation>
 </Method>
+
+<Method name="Subdivide">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TotalLength:%Numeric,Length:%Numeric,Subdivisions:TECH.Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit (Length*Subdivisions/TotalLength)/Subdivisions
+]]></Implementation>
+</Method>
 </Class>