[Octave-cvsupdate] SF.net SVN: octave:[8044] trunk/octave-forge/main/control

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

Revision: 8044
          http://octave.svn.sourceforge.net/octave/?rev=8044&view=rev
Author:   paramaniac
Date:     2011-01-01 11:47:54 +0000 (Sat, 01 Jan 2011)

Log Message:
-----------
control: add check for minimum-phase systems

Modified Paths:
--------------
    trunk/octave-forge/main/control/INDEX

Added Paths:
-----------
    trunk/octave-forge/main/control/inst/@lti/isminimumphase.m

Modified: trunk/octave-forge/main/control/INDEX
===================================================================
--- trunk/octave-forge/main/control/INDEX	2010-12-28 02:13:58 UTC (rev 8043)
+++ trunk/octave-forge/main/control/INDEX	2011-01-01 11:47:54 UTC (rev 8044)
@@ -35,6 +35,7 @@
   isctrb
   isdetectable
   @lti/isdt
+  @lti/isminimumphase
   isobsv
   @lti/issiso
   isstabilizable

Added: trunk/octave-forge/main/control/inst/@lti/isminimumphase.m
===================================================================
--- trunk/octave-forge/main/control/inst/@lti/isminimumphase.m	                        (rev 0)
+++ trunk/octave-forge/main/control/inst/@lti/isminimumphase.m	2011-01-01 11:47:54 UTC (rev 8044)
@@ -0,0 +1,40 @@
+## Copyright (C) 2011   Lukas F. Reichlin
+##
+## This file is part of LTI Syncope.
+##
+## LTI Syncope is free software: you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+##
+## LTI Syncope is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with LTI Syncope.  If not, see <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {@var{bool} =} isminimumphase (@var{sys})
+## @deftypefnx {Function File} {@var{bool} =} isminimumphase (@var{sys}, @var{tol})
+## Determine whether LTI system is minimum phase.
+## If a square system @var{P} is minimum-phase, its inverse @var{P^-1} is stable.
+## @end deftypefn
+
+## Author: Lukas Reichlin <luk...@gm...>
+## Created: January 2011
+## Version: 0.1
+
+function bool = isminimumphase (sys, tol = 0)
+
+  if (nargin > 2)
+    print_usage ();
+  endif
+
+  z = zero (sys);
+  ct = isct (sys);
+
+  bool = __is_stable__ (z, ct, tol);
+
+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.