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

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

Revision: 9254
          http://octave.svn.sourceforge.net/octave/?rev=9254&view=rev
Author:   paramaniac
Date:     2011-12-03 06:54:48 +0000 (Sat, 03 Dec 2011)
Log Message:
-----------
control: add test cases

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

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

Added: trunk/octave-forge/main/control/devel/bug_minreal.m
===================================================================
--- trunk/octave-forge/main/control/devel/bug_minreal.m	                        (rev 0)
+++ trunk/octave-forge/main/control/devel/bug_minreal.m	2011-12-03 06:54:48 UTC (rev 9254)
@@ -0,0 +1,20 @@
+P = ss (-1, 1, 1, 0)
+Pi = inv (P)
+minreal (Pi)
+
+%{
+ ** On entry to TG01JD parameter number 20 had an illegal value
+error: sltg01jd: exception encountered in Fortran subroutine tg01jd_
+error: called from:
+error:   /Users/lukas/control/inst/@ss/__minreal__.m at line 39, column 19
+error:   /Users/lukas/control/inst/@lti/minreal.m at line 38, column 7
+%}
+
+
+ss (inv (tf (Boeing707 )))
+
+%{
+octave(211,0x7fff70ddbcc0) malloc: *** error for object 0x108d0e2d8: incorrect checksum for freed object - object was probably modified after being freed.
+*** set a breakpoint in malloc_error_break to debug
+panic: Abort trap -- stopping myself...
+%}
\ No newline at end of file

Added: trunk/octave-forge/main/control/devel/bug_plotting.m
===================================================================
--- trunk/octave-forge/main/control/devel/bug_plotting.m	                        (rev 0)
+++ trunk/octave-forge/main/control/devel/bug_plotting.m	2011-12-03 06:54:48 UTC (rev 9254)
@@ -0,0 +1,7 @@
+s = tf ('s');
+G = 1/(s^2+1)
+
+[mag, pha] = bode (G)  % this works OK
+
+figure
+bode (G)               % fltk and gnuplot both crash
\ No newline at end of file

Modified: trunk/octave-forge/main/control/devel/test_tf2dss.m
===================================================================
--- trunk/octave-forge/main/control/devel/test_tf2dss.m	2011-12-02 14:50:14 UTC (rev 9253)
+++ trunk/octave-forge/main/control/devel/test_tf2dss.m	2011-12-03 06:54:48 UTC (rev 9254)
@@ -13,4 +13,41 @@
 P = ss (sys)
 
 
-ss (inv (tf (Boeing707 )))
\ No newline at end of file
+ss (inv (tf (Boeing707 )))
+
+%{
+octave:2> test_tf2dss 
+
+Transfer function "sys" from input "u1" to output ...
+
+      s^2 + 5 s + 6
+ y1:  -------------
+      s^2 + 5 s + 7
+
+      s^2 + 8 s + 6
+ y2:  -------------
+          s + 7    
+
+Transfer function "sys" from input "u2" to output ...
+
+ y1:  s + 2
+
+      s^2 + 3 s + 2
+ y2:  -------------
+      s^2 + 5 s + 5
+
+Transfer function "sys" from input "u3" to output ...
+
+      s^4 + 2 s^3 - s^2 + 2 s + 2
+ y1:  ---------------------------
+              s^2 - s + 1        
+
+      3 s^2 + 4 s
+ y2:  -----------
+         s + 1   
+
+Continuous-time model.
+octave(211,0x7fff70ddbcc0) malloc: *** error for object 0x108d0e2d8: incorrect checksum for freed object - object was probably modified after being freed.
+*** set a breakpoint in malloc_error_break to debug
+panic: Abort trap -- stopping myself...
+%}
\ No newline at end of file

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