


CHAR convert a specwin object into a string.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: CHAR convert a specwin object into a string.
CALL: string = char(sw);
VERSION: $Id: char.m,v 1.3 2008/01/08 16:40:29 ingo Exp $
HISTORY: 04-02-2007 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function pstr = char(w, varargin) 0002 % CHAR convert a specwin object into a string. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CHAR convert a specwin object into a string. 0007 % 0008 % CALL: string = char(sw); 0009 % 0010 % VERSION: $Id: char.m,v 1.3 2008/01/08 16:40:29 ingo Exp $ 0011 % 0012 % HISTORY: 04-02-2007 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 VERSION = '$Id: char.m,v 1.3 2008/01/08 16:40:29 ingo Exp $'; 0018 0019 % Check if this is a call for parameters 0020 if nargin == 2 0021 if isa(w, 'specwin') && ischar(varargin{1}) 0022 in = char(varargin{1}); 0023 if strcmp(in, 'Params') 0024 pstr = plist; 0025 return 0026 elseif strcmp(in, 'Version') 0027 pstr = VERSION; 0028 return 0029 end 0030 end 0031 end 0032 0033 pstr = []; 0034 pstr = [pstr w.name]; 0035 pstr = [pstr ', alpha=' num2str(w.alpha)]; 0036 pstr = [pstr ', psll=' num2str(w.psll)]; 0037 pstr = [pstr ', rov=' num2str(w.rov)]; 0038 pstr = [pstr ', nenbw=' num2str(w.nenbw)]; 0039 pstr = [pstr ', w3db=' num2str(w.w3db)]; 0040 pstr = [pstr ', flatness=' num2str(w.flatness)]; 0041 0042 pstr = strrep(pstr, '_', '\_'); 0043 0044 % END