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

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

Revision: 7663
          http://octave.svn.sourceforge.net/octave/?rev=7663&view=rev
Author:   paramaniac
Date:     2010-09-05 08:40:38 +0000 (Sun, 05 Sep 2010)

Log Message:
-----------
control: forgotten changes

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/@lti/subsasgn.m
    trunk/octave-forge/main/control/inst/@tf/tf.m
    trunk/octave-forge/main/control/inst/__ssmatdim__.m

Modified: trunk/octave-forge/main/control/inst/@lti/subsasgn.m
===================================================================
--- trunk/octave-forge/main/control/inst/@lti/subsasgn.m	2010-09-05 07:35:40 UTC (rev 7662)
+++ trunk/octave-forge/main/control/inst/@lti/subsasgn.m	2010-09-05 08:40:38 UTC (rev 7663)
@@ -25,6 +25,8 @@
 
 function sys = subsasgn (sys, idx, val)
 
+  ## TODO: enable stuff like sys.a(2, 1:3) = [4, 5, 6]
+
   switch (idx.type)
     case "."
       sys = set (sys, idx.subs, val);

Modified: trunk/octave-forge/main/control/inst/@tf/tf.m
===================================================================
--- trunk/octave-forge/main/control/inst/@tf/tf.m	2010-09-05 07:35:40 UTC (rev 7662)
+++ trunk/octave-forge/main/control/inst/@tf/tf.m	2010-09-05 08:40:38 UTC (rev 7663)
@@ -42,6 +42,13 @@
 ## Transfer function model.
 ## @end table
 ##
+## @example
+## @group
+## s = tf ("s");
+## G = 1/(s+1)
+## @end group
+## @end example
+##
 ## @seealso{ss}
 ## @end deftypefn
 

Modified: trunk/octave-forge/main/control/inst/__ssmatdim__.m
===================================================================
--- trunk/octave-forge/main/control/inst/__ssmatdim__.m	2010-09-05 07:35:40 UTC (rev 7662)
+++ trunk/octave-forge/main/control/inst/__ssmatdim__.m	2010-09-05 08:40:38 UTC (rev 7663)
@@ -21,7 +21,7 @@
 
 ## Author: Lukas Reichlin <luk...@gm...>
 ## Created: September 2009
-## Version: 0.1
+## Version: 0.2
 
 function [m, n, p] = __ssmatdim__ (a, b, c, d)
 
@@ -58,4 +58,8 @@
             crows, ccols, drows, dcols);
   endif
 
+  if (! isreal (a) || ! isreal (b) || ! isreal (c) || ! isreal (d))
+    error ("ss: system matrices are not real");
+  endif
+
 endfunction


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