home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fb.zip / octave / SCRIPTS.ZIP / scripts.fat / control / sysgetsg.m < prev    next >
Text File  |  1999-12-24  |  6KB  |  193 lines
  1. ## Copyright (C) 1998 Auburn University.  All Rights Reserved.
  2. ##
  3. ## This file is part of Octave. 
  4. ##
  5. ## Octave is free software; you can redistribute it and/or modify it 
  6. ## under the terms of the GNU General Public License as published by the 
  7. ## Free Software Foundation; either version 2, or (at your option) any 
  8. ## later version. 
  9. ## 
  10. ## Octave is distributed in the hope that it will be useful, but WITHOUT 
  11. ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
  12. ## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
  13. ## for more details.
  14. ## 
  15. ## You should have received a copy of the GNU General Public License 
  16. ## along with Octave; see the file COPYING.  If not, write to the Free 
  17. ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 
  18.  
  19. ## -*- texinfo -*-
  20. ## @deftypefn {Function File } {[@var{stname}, @var{inname}, @var{outname}, @var{yd}] =} sysgetsg (@var{sys})
  21. ## @deftypefnx{Function File } { @var{siglist} =} sysgetsg (@var{sys},@var{sigid})
  22. ## @deftypefnx{Function File } { @var{signame} =} sysgetsg (@var{sys},@var{sigid},@var{signum}@{, @var{strflg}@})
  23. ##  Get signal names from a system
  24. ## 
  25. ## @strong{Inputs}
  26. ## @table @var
  27. ## @item sys
  28. ##  system data structure for the state space system
  29. ## 
  30. ## @item sigid
  31. ## signal id.  String.  Must be one of
  32. ## @table @code
  33. ## @item "in"
  34. ## input signals
  35. ## @item "out"
  36. ## output signals
  37. ## @item "st"
  38. ## stage signals
  39. ## @item "yd"
  40. ## value of logical vector @var{yd} 
  41. ## @end table
  42. ## 
  43. ## @item signum
  44. ## Index of signal (or indices of signals if signum is a vector)
  45. ## 
  46. ## @item strflg
  47. ## flag to return a string instead of a list;  Values:
  48. ## @table @code
  49. ## @item 0
  50. ## (default) return a list (even if signum is a scalar)
  51. ## 
  52. ## @item 1
  53. ## return a string.  Exits with an error if signum is not a scalar.
  54. ## @end table
  55. ## 
  56. ## @end table
  57. ## 
  58. ## @strong{Outputs}
  59. ## @table @bullet
  60. ## @item If @var{sigid} is not specified
  61. ## @table @var
  62. ## @item stname, inname, outname
  63. ##      signal names (lists of strings);  names of states,
  64. ##           inputs, and outputs, respectively
  65. ## @item yd
  66. ##  binary vector; @var{yd}(@var{ii}) is nonzero if output @var{ii} is
  67. ## discrete.
  68. ## @end table
  69. ## 
  70. ## @item If @var{sigid} is specified but @var{signum} is not specified, then
  71. ## @table @code
  72. ## @item sigid="in"
  73. ## @var{siglist} is set to the list of input names
  74. ## 
  75. ## @item sigid="out"
  76. ## @var{siglist} is set to the list of output names
  77. ## 
  78. ## @item sigid="st"
  79. ## @var{siglist} is set to the list of state names
  80. ## 
  81. ## stage signals
  82. ## @item sigid="yd"
  83. ## @var{siglist} is set to logical vector indicating discrete outputs;
  84. ## @var{siglist(ii) = 0} indicates that output @var{ii} is continuous
  85. ## (unsampled), otherwise it is discrete.
  86. ## 
  87. ## @end table
  88. ## 
  89. ## @item if the first three input arguments are specified, then @var{signame} is
  90. ## a list of the specified signal names (@var{sigid} is @code{"in"},
  91. ## @code{"out"}, or @code{"st"}), or else the logical flag
  92. ## indicating whether output(s) @var{signum} is(are) discrete (@var{sigval}=1)
  93. ## or continuous (@var{sigval}=0).
  94. ## @end table
  95. ## 
  96. ## @strong{Examples} (From @code{sysrepdm})
  97. ## @example
  98. ## octave> sys=ss2sys(rand(4),rand(4,2),rand(3,4));
  99. ## octave> [Ast,Ain,Aout,Ayd] = sysgetsg(sys) i  # get all signal names
  100. ## Ast =
  101. ## (
  102. ##   [1] = x_1
  103. ##   [2] = x_2
  104. ##   [3] = x_3
  105. ##   [4] = x_4
  106. ## )
  107. ## Ain =
  108. ## (
  109. ##   [1] = u_1
  110. ##   [2] = u_2
  111. ## )
  112. ## Aout =
  113. ## (
  114. ##   [1] = y_1
  115. ##   [2] = y_2
  116. ##   [3] = y_3
  117. ## )
  118. ## Ayd =
  119. ## 
  120. ##   0  0  0
  121. ## octave> Ain = sysgetsg(sys,"in")   # get only input signal names
  122. ## Ain =
  123. ## (
  124. ##   [1] = u_1
  125. ##   [2] = u_2
  126. ## )
  127. ## octave> Aout = sysgetsg(sys,"out",2)   # get name of output 2 (in list)
  128. ## Aout =
  129. ## (
  130. ##   [1] = y_2
  131. ## )
  132. ## octave> Aout = sysgetsg(sys,"out",2,1)  # get name of output 2 (as string)
  133. ## Aout = y_2
  134. ## @end example
  135. ## 
  136. ## @end deftypefn
  137.  
  138. function [stname, inname, outname, yd] = sysgetsg (sys, sigid, signum, strflg)
  139.  
  140.   ## Adapted from ss2sys
  141.  
  142.   if(nargin < 1 | nargin > 4 | nargout > 4)
  143.     usage("[stname{,inname,outname,yd}] = sysgetsg(sys{,sigid,signum})")
  144.   elseif(nargin > 1 & nargout > 1)
  145.     usage("sig = sysgetsg(sys,sigid{,signum,strflg})")
  146.   elseif( ! is_struct(sys) )
  147.     error("input argument must be a system data structure");
  148.   endif
  149.   if(nargin < 4)  strflg = 0; endif
  150.   if(nargin == 1)
  151.     sys = sysupdat(sys,"ss");        #make sure ss is up to date
  152.     stname = sysgetsg(sys,"st");
  153.     inname = sysgetsg(sys,"in");
  154.     outname = sysgetsg(sys,"out");
  155.     yd = sysgetsg(sys,"yd");
  156.   elseif(!(isstr(sigid) & min(size(sigid)) == 1))
  157.     error(sprintf("sigid(%dx%d) must be a string)",rows(sigid),columns(sigid)));
  158.   else
  159.     if(strcmp("st",sigid))         stname = sys.stname;
  160.     elseif(strcmp("in",sigid))     stname = sys.inname;
  161.     elseif(strcmp("out",sigid))    stname = sys.outname;
  162.     elseif(strcmp("yd",sigid))     stname = vec(sys.yd)';
  163.     else
  164.       error(sprintf("sigid=%s must be \"st\", \"in\", \"out\", or \"yd\"", ...
  165.     sigid));
  166.     endif
  167.     if(nargin >= 3)
  168.       if(signum > length(stname))
  169.         error(sprintf("sysgetsg(sys,\"%s\",%d):only %d entries.\n", ...
  170.       sigid,signum, rows(stname)));
  171.       else
  172.         if(!is_scal(strflg)) 
  173.           error("strflg must be a scalar");
  174.         endif
  175.         switch(strflg)
  176.         case(0),
  177.           stname = stname(signum);
  178.         case(1),
  179.           if(length(signum) > 1)
  180.             error("strflg=1, length(signum) = %d",length(signum));
  181.           endif
  182.           stname = nth(stname,signum);
  183.         otherwise,
  184.           error("Illegal value of strflg=%e",strflg);
  185.         endswitch
  186.         
  187.       endif
  188.     endif
  189.   endif
  190.  
  191. endfunction
  192.  
  193.