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

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

Revision: 6042
          http://octave.svn.sourceforge.net/octave/?rev=6042&view=rev
Author:   paramaniac
Date:     2009-07-23 11:44:35 +0000 (Thu, 23 Jul 2009)

Log Message:
-----------
workaround for failing c2d

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/feedback.m
    trunk/octave-forge/main/control/inst/series.m

Modified: trunk/octave-forge/main/control/inst/feedback.m
===================================================================
--- trunk/octave-forge/main/control/inst/feedback.m	2009-07-23 10:43:14 UTC (rev 6041)
+++ trunk/octave-forge/main/control/inst/feedback.m	2009-07-23 11:44:35 UTC (rev 6042)
@@ -94,16 +94,14 @@
   if (sys1wasmatrix)
     if (is_digital (sys2, 2) == 1) # -1 for mixed systems!
       t_sam = sysgettsam (sys2);
-      sys1 = c2d (sys1, t_sam);
-      sys1 = syschtsam (sys1, t_sam); # sys1 = c2d (sys1, t_sam) doesn't work
+      sys1 = ss ([], [], [], varargin{1}, t_sam); # sys1 = c2d (sys1, t_sam) doesn't work
     endif
   endif
   
   if (sys2wasmatrix)
     if (is_digital (sys1, 2) == 1)
       t_sam = sysgettsam (sys1);
-      sys2 = c2d (sys2, t_sam);
-      sys2 = syschtsam (sys2, t_sam);
+      sys2 = ss ([], [], [], varargin{2}, t_sam);
     endif
   endif
   

Modified: trunk/octave-forge/main/control/inst/series.m
===================================================================
--- trunk/octave-forge/main/control/inst/series.m	2009-07-23 10:43:14 UTC (rev 6041)
+++ trunk/octave-forge/main/control/inst/series.m	2009-07-23 11:44:35 UTC (rev 6042)
@@ -104,16 +104,14 @@
   if (sys1wasmatrix)
     if (is_digital (sys2, 2) == 1) # -1 for mixed systems!
       t_sam = sysgettsam (sys2);
-      sys1 = c2d (sys1, t_sam);
-      sys1 = syschtsam (sys1, t_sam); # sys1 = c2d (sys1, t_sam) doesn't work
+      sys1 = ss ([], [], [], varargin{1}, t_sam); # sys1 = c2d (sys1, t_sam) doesn't work
     endif
   endif
   
   if (sys2wasmatrix)
     if (is_digital (sys1, 2) == 1)
       t_sam = sysgettsam (sys1);
-      sys2 = c2d (sys2, t_sam);
-      sys2 = syschtsam (sys2, t_sam);
+      sys2 = ss ([], [], [], varargin{2}, t_sam);
     endif
   endif
   


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