ADDED   mttroot/mtt/bin/trans/latex_equations.r
Index: mttroot/mtt/bin/trans/latex_equations.r
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/latex_equations.r
@@ -0,0 +1,75 @@
+% Reduce file to generate equations
+% Copyright (C) 2000 by Peter J. Gawthrop
+
+PROCEDURE latex_equations;
+BEGIN
+IF MTTNx>0 THEN
+BEGIN
+  write"\begin{equation}"$
+  write"\begin{aligned}"$
+  FOR Row := 1:MTTNx DO
+  BEGIN
+	write "\dot MTTX", Row, " &= "$
+	write "{"$
+	write MTTdx(Row,1)$
+	write "}"$
+        IF Row<MTTNx THEN write "\cr"$
+  END$
+  write"\end{aligned}"$
+  write"\end{equation}"$
+END$
+
+IF MTTNz>0 THEN
+BEGIN
+  write"\begin{equation}"$
+  write"\begin{aligned}"$
+FOR Row := 1:MTTNz DO
+  BEGIN
+	write "MTTz", Row, " &= "$
+	write "{"$
+	write MTTz(Row,1)$
+	write "}"$
+        IF Row<MTTNz THEN write "\cr"$
+  END$
+  write"\end{aligned}"$
+  write"\end{equation}"$
+
+END$
+
+IF MTTNyz>0 THEN
+BEGIN
+  write"\begin{equation}"$
+  write"\begin{aligned}"$
+FOR Row := 1:MTTNyz DO
+  BEGIN
+	write "0 &= "$
+	write "{"$
+	write MTTyz(Row,1)$
+	write "}"$
+        IF Row<MTTNyz THEN write "\cr"$
+  END$
+  write"\end{aligned}"$
+  write"\end{equation}"$
+
+END$
+
+IF MTTNy>0 THEN
+BEGIN
+  write"\begin{equation}"$
+  write"\begin{aligned}"$
+FOR Row := 1:MTTNy DO
+  BEGIN
+	write "MTTy", Row, " &= "$
+	write "{"$
+	write MTTy(Row,1)$
+	write "}"$
+        IF Row<MTTNy THEN write "\cr"$
+  END$
+  write"\end{aligned}"$
+  write"\end{equation}"$
+
+END$
+
+END$
+
+END$