ADDED   mttroot/mtt/bin/trans/m/mat2tex.m
Index: mttroot/mtt/bin/trans/m/mat2tex.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/mat2tex.m
@@ -0,0 +1,35 @@
+function tex = mat2tex(mat)
+  ## mat2tex: converts matrix into LaTeX form.
+  ## tex = mat2tex(mat)
+  
+
+  ###############################################################
+  ## Version control history
+  ###############################################################
+  ## $Id$
+  ## $Log$
+  ## Revision 1.1  1999/03/25 01:33:51  peterg
+  ## Initial revision
+  ##
+  ###############################################################
+
+  [n,m]=size(mat);
+
+  for i=1:n
+    for j=1:m
+      if mat(i,j) == 0
+	printf("0    ");
+	else
+	  printf("%5.2f", mat(i,j));
+	endif
+      if j<m
+ 	printf("&");
+      endif
+    endfor
+      printf("\\\\\n");
+  endfor
+  
+endfunction
+
+
+

ADDED   mttroot/mtt/bin/trans/m/pol2root2tex.m
Index: mttroot/mtt/bin/trans/m/pol2root2tex.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/pol2root2tex.m
@@ -0,0 +1,42 @@
+function tex = pol2root2tex(pol)
+  ## pol2tex: converts polynomial into LaTeX form as (s-z_1)..(s-z_n)
+  ## tex = pol2root2tex(pol)
+  
+  ###############################################################
+  ## Version control history
+  ###############################################################
+  ## $Id$
+  ## $Log$
+  ## Revision 1.1  1999/05/24 22:05:53  peterg
+  ## Initial revision
+  ##
+  ###############################################################
+
+
+  n = length(pol)-1;
+
+  if n>0
+    r = sort(roots(pol));
+  endif
+  
+  gain = pol(1);
+
+  complex=0;
+  tex = sprintf("%g", gain);
+  for i=1:n
+    if complex
+      complex=0
+    else
+      if imag(r(i))<eps
+	tex = sprintf("%s (s + %g)", tex, -r(i));
+      else
+	tex = sprintf("%s (s + %g \\pm %g)", tex, -real(r(i)), imag(r(i)));
+	complex=1;
+      endif
+    endif
+  endfor
+  
+endfunction
+
+
+

ADDED   mttroot/mtt/bin/trans/m/pol2tex.m
Index: mttroot/mtt/bin/trans/m/pol2tex.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/pol2tex.m
@@ -0,0 +1,54 @@
+function tex = pol2tex(pol)
+  ## pol2tex: converts polynomial into LaTeX form.
+  ## tex = pol2tex(pol)
+  
+
+  ###############################################################
+  ## Version control history
+  ###############################################################
+  ## $Id$
+  ## $Log$
+  ## Revision 1.1  1999/03/25 01:33:51  peterg
+  ## Initial revision
+  ##
+  ###############################################################
+
+  n = length(pol);
+  
+  if pol(1) == 1
+    if n>1
+      tex = '';
+    else
+      tex = '1';
+    endif
+  else
+    tex = sprintf(" %1.2f", pol(1));
+  endif
+  
+  if n>2
+    tex = sprintf("%ss^%1.f", tex, n-1);
+  elseif n==2
+    tex = sprintf("%ss", tex);
+  else
+    tex = sprintf("%s", tex);
+  endif
+
+  for i=2:n
+    if pol(i)<0
+      plusminus = '-';
+    else
+      plusminus = '+';
+    endif
+    tex = sprintf("%s %s %1.2f", tex, plusminus, abs(pol(i)));
+    if i<n-1
+      tex = sprintf("%ss^%1.0f", tex, n-i);
+    elseif i==n-1
+      tex = sprintf("%ss", tex); 
+    else
+      tex = sprintf("%s", tex);
+    endif
+  endfor
+endfunction
+
+
+