ADDED   mttroot/mtt/bin/trans/m/zero_matrix.m
Index: mttroot/mtt/bin/trans/m/zero_matrix.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/zero_matrix.m
@@ -0,0 +1,3 @@
+function [A] = zero_matrix(N);
+  A = zeros(N,N);
+endfunction;

ADDED   mttroot/mtt/bin/trans/p/zero_vector.p
Index: mttroot/mtt/bin/trans/p/zero_vector.p
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/p/zero_vector.p
@@ -0,0 +1,10 @@
+PROCEDURE zero_vector(VAR x : StateVector;
+			  N : INTEGER);
+VAR i : INTEGER;
+   
+BEGIN
+   FOR i:=1 TO N DO
+      x[i] = 0.0;
+END;
+
+