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

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