1 files changed, 43 insertions, 0 deletions
diff --git a/macros/polyreduce.sci b/macros/polyreduce.sci
new file mode 100644
index 0000000..265b969
--- /dev/null
+++ b/macros/polyreduce.sci
@@ -0,0 +1,43 @@
+// Copyright (C) 2018 - IIT Bombay - FOSSEE
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+// Author:[insert name]
+// Organization: FOSSEE, IIT Bombay
+// Email: toolbox@scilab.in
+
+
+
+function p = polyreduce (c)
+//Calling sequence
+//p= polyreduce (c)
+// Reduce a polynomial coefficient vector to a minimum number of terms by
+// stripping off any leading zeros.
+
+//Test cases:
+//polyreduce ([0, 0, 1, 2, 3])
+//Output: [1, 2, 3]
+
+
+
+[nargout,nargin]=argn();
+
+  if (nargin ~= 1)
+    error("wrong number of input arguments");
+
+  elseif (~isvector (c) | isempty (c))
+    error ("polyreduce: C must be a non-empty vector");
+  end
+
+  idx = find (c ~= 0, 1);
+
+  if (isempty (idx))
+    p = 0;
+  else
+    p = c(idx:$);
+  end
+
+endfunction