1 files changed, 21 insertions, 0 deletions
diff --git a/2048/DEPENDENCIES/deconvol.sci b/2048/DEPENDENCIES/deconvol.sci
new file mode 100755
index 000000000..b3bc8b632
--- /dev/null
+++ b/2048/DEPENDENCIES/deconvol.sci
@@ -0,0 +1,21 @@
+function q = deconvol(b,a)
+  
+  if a(1) == 0
+    error('1st coefficient of A must be nonzero');
+  end;
+  
+exec('filt.sci',-1);
+
+nb = length(b); na = length(a);
+
+  if na>nb
+    q = 0;
+  else
+    q = filt(b,a,[1 zeros(1,nb-na)]);
+  end;
+q = clean(q);
+endfunction;
+
+
+
+