0001
0002
0003
0004
0005
0006 classdef response_function
0007 properties
0008 descriptor='';
0009 respl =[];
0010 probl =[];
0011 rell =[];
0012 grell =[];
0013 end
0014
0015 methods
0016 function [rf]=response_function(varargin)
0017
0018 switch nargin
0019
0020
0021
0022 case 0
0023
0024
0025
0026 otherwise
0027 if (nargin == 1) && isa(varargin{1},'response_function')
0028 rf=varargin{1};
0029 else
0030 rf.descriptor=varargin{1};
0031
0032 if (nargin >= 2)
0033 rf.respl =varargin{2};
0034 if (nargin >= 3)
0035 rf.probl =varargin{3};
0036 if (nargin >= 4)
0037 rf.rell =varargin{4};
0038 if (nargin >= 5)
0039 rf.grell =varargin{5};
0040
0041 if (nargin > 5)
0042 warning('response_function:extra_arg',...
0043 'Extra arguments for object of class ''%s''.',...
0044 class(rf));
0045 end
0046 end
0047 end
0048 end
0049 end
0050 end
0051 end
0052
0053 end
0054 function [desc] =dresp_desc(rf)
0055 desc=cell(size(rf));
0056 for i=1:numel(rf)
0057 desc(i)=cellstr(rf(i).descriptor);
0058 end
0059 end
0060 function [stype ]=dresp_stype(rf)
0061 stype={};
0062 end
0063 function [scale] =dresp_scale(rf)
0064 scale=[];
0065 end
0066 function [weight]=dresp_weight(rf)
0067 weight=[];
0068 end
0069 function [lower] =dresp_lower(rf)
0070 lower=[];
0071 end
0072 function [upper] =dresp_upper(rf)
0073 upper=[];
0074 end
0075 function [target]=dresp_target(rf)
0076 target=[];
0077 end
0078 function [respl,probl,rell,grell]=dresp_levels(rf)
0079 respl=cell(size(rf));
0080 probl=cell(size(rf));
0081 rell =cell(size(rf));
0082 grell=cell(size(rf));
0083 for i=1:numel(rf)
0084 respl(i)={rf(i).respl};
0085 probl(i)={rf(i).probl};
0086 rell (i)={rf(i).rell};
0087 grell(i)={rf(i).grell};
0088 end
0089 respl=allempty(respl);
0090 probl=allempty(probl);
0091 rell =allempty(rell);
0092 grell=allempty(grell);
0093 end
0094 end
0095 end