[Octave-cvsupdate] SF.net SVN: octave:[10301] trunk/octave-forge/main/control/devel/filt.m

[<par...@us...>]

Revision: 10301
          http://octave.svn.sourceforge.net/octave/?rev=10301&view=rev
Author:   paramaniac
Date:     2012-04-21 10:51:53 +0000 (Sat, 21 Apr 2012)
Log Message:
-----------
control: add draft code for filt function

Added Paths:
-----------
    trunk/octave-forge/main/control/devel/filt.m

Added: trunk/octave-forge/main/control/devel/filt.m
===================================================================
--- trunk/octave-forge/main/control/devel/filt.m	                        (rev 0)
+++ trunk/octave-forge/main/control/devel/filt.m	2012-04-21 10:51:53 UTC (rev 10301)
@@ -0,0 +1,13 @@
+function sys = filt (num = {}, den = {}, tsam = -1)
+
+  lnum = cellfun (@length, num, "uniformoutput", false);
+  lden = cellfun (@length, den, "uniformoutput", false);
+
+  lmax = cellfun (@max, lnum, lden, "uniformoutput", false);
+
+  num = cellfun (@postpad, num, lmax, "uniformoutput", false);
+  den = cellfun (@postpad, den, lmax, "uniformoutput", false);
+  
+  sys = tf (num, den, tsam);
+
+endfunction
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.