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

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

Revision: 7828
          http://octave.svn.sourceforge.net/octave/?rev=7828&view=rev
Author:   paramaniac
Date:     2010-10-09 13:09:17 +0000 (Sat, 09 Oct 2010)

Log Message:
-----------
control: remove cruft

Modified Paths:
--------------
    trunk/octave-forge/main/control/devel/__frd_dim__.m

Modified: trunk/octave-forge/main/control/devel/__frd_dim__.m
===================================================================
--- trunk/octave-forge/main/control/devel/__frd_dim__.m	2010-10-09 13:08:10 UTC (rev 7827)
+++ trunk/octave-forge/main/control/devel/__frd_dim__.m	2010-10-09 13:09:17 UTC (rev 7828)
@@ -37,23 +37,7 @@
   elseif (lw == 1 && ! issample (w, -1))
     error ("frd: scalar w must be a valid sampling time");
   endif
-%{
-  if (! isnumeric (H))  # TODO: watch out for __set__ vector case
-    error ("frd: H must be a 3-dimensional numeric array");
-  endif
 
-  if (! isempty (w) && (! is_real_vector (w) || any (w < 0)))
-    error ("frd: w must be a vector of positive real numbers");
-  endif
-
-  lw = length (w);
-
-  if (lw > 1 && (! issorted (w) || w(1) >= w(end) || length (unique (w)) != lw))
-    error ("frd: vector w must contain unique frequencies in ascending order");
-  elseif (lw == 1 && ! issample (w, -1))
-    error ("frd: scalar w must be a valid sampling time");
-  endif
-%}
   [p, m, l] = size (H);
 
   if (l != lw)


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