0001
0002
0003
0004
0005
0006 classdef continuous_design
0007 properties
0008 descriptor='';
0009 initpt = NaN;
0010 lower = NaN;
0011 upper = NaN;
0012 end
0013
0014 methods
0015 function [cdv]=continuous_design(varargin)
0016
0017 switch nargin
0018
0019
0020
0021 case 0
0022
0023
0024
0025 case 1
0026 if isa(varargin{1},'continuous_design')
0027 cdv=varargin{1};
0028 else
0029 error('Object ''%s'' is a ''%s'' class object, not ''%s''.',...
0030 inputname(1),class(varargin{1}),'continuous_design');
0031 end
0032
0033
0034
0035 otherwise
0036 cdv.descriptor=varargin{1};
0037 cdv.initpt =varargin{2};
0038 if (nargin >= 3)
0039 cdv.lower =varargin{3};
0040 if (nargin >= 4)
0041 cdv.upper =varargin{4};
0042 if (nargin > 4)
0043 warning('continuous_design:extra_arg',...
0044 'Extra arguments for object of class ''%s''.',...
0045 class(cdv));
0046 end
0047 end
0048 end
0049 end
0050
0051 end
0052 function [desc] =dvar_desc(cdv)
0053 desc=cell(size(cdv));
0054 for i=1:numel(cdv)
0055 desc(i)=cellstr(cdv(i).descriptor);
0056 end
0057 desc=allempty(desc);
0058 end
0059 function [initpt]=dvar_initpt(cdv)
0060 initpt=zeros(size(cdv));
0061 for i=1:numel(cdv)
0062 initpt(i)=cdv(i).initpt;
0063 end
0064 end
0065 function [lower] =dvar_lower(cdv)
0066 lower=zeros(size(cdv));
0067 for i=1:numel(cdv)
0068 lower(i)=cdv(i).lower;
0069 end
0070 lower=allnan(lower);
0071 end
0072 function [upper] =dvar_upper(cdv)
0073 upper=zeros(size(cdv));
0074 for i=1:numel(cdv)
0075 upper(i)=cdv(i).upper;
0076 end
0077 upper=allnan(upper);
0078 end
0079 function [mean] =dvar_mean(cdv)
0080 mean=[];
0081 end
0082 function [stddev]=dvar_stddev(cdv)
0083 stddev=[];
0084 end
0085 function [initst]=dvar_initst(cdv)
0086 initst=[];
0087 end
0088 end
0089 end