| Description of slproglearn |
slproglearn
PURPOSE 
SLPROGLEARN Performs Progressive Learning from sample source
SYNOPSIS 
function [models, info] = slproglearn(source, getter, learnfunctor, varargin)
DESCRIPTION 
CROSS-REFERENCE INFORMATION 
This function calls:
This function is called by:
SUBFUNCTIONS 
SOURCE CODE 
0001 function [models, info] = slproglearn(source, getter, learnfunctor, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052
0053
0054
0055
0056 if nargin < 3
0057 raise_lackinput('slproglearn', 3);
0058 end
0059
0060 opts.isrecorded = false;
0061 opts.gtuner = [];
0062 opts.cmpfunctor = [];
0063 opts.iter = {};
0064 opts.verbose = true;
0065 opts.initmodels = [];
0066 opts = slparseprops(opts, varargin{:});
0067
0068 if isempty(opts.cmpfunctor)
0069 error('sltoolbox:invalidarg', ...
0070 'You should specify a models comparison functor');
0071 end
0072
0073
0074
0075
0076 slsharedisp_attach('slproglearn', 'show', opts.verbose);
0077
0078 slsharedisp(opts, 'Progressive Learning from source');
0079
0080 objects = {source, opts.initmodels, getter};
0081 iterfunctor = {@proglearn_iter, learnfunctor, opts};
0082 cmpfunctor = {@proglearn_cmp, opts};
0083 if nargout < 2
0084 objects = ...
0085 sliterproc(objects, iterfunctor, cmpfunctor, opts.isrecorded, opts.iter{:});
0086 else
0087 [objects, info] = ...
0088 sliterproc(objects, iterfunctor, cmpfunctor, opts.isrecorded, opts.iter{:});
0089 end
0090
0091 models = objects{2};
0092
0093 slsharedisp_detach();
0094
0095
0096
0097
0098
0099 function varargout = proglearn_iter(objects, learnfunctor, opts)
0100
0101
0102
0103 source = objects{1};
0104 models = objects{2};
0105 getter = objects{3};
0106
0107
0108 data = slevalfunctor(getter, source);
0109
0110
0111 if ~opts.isrecorded
0112 models = slevalfunctor(learnfunctor, models, data);
0113 else
0114 [models, rec] = slevalfunctor(learnfunctor, models, data);
0115 end
0116
0117
0118 if ~isempty(opts.gtuner)
0119 getter = slevalfunctor(opts.gtuner, getter, models);
0120 end
0121
0122
0123 objects = {source, models, getter};
0124 if ~opts.isrecorded
0125 varargout = {objects};
0126 else
0127 varargout = {objects, rec};
0128 end
0129
0130
0131 function isconverged = proglearn_cmp(objects_prev, objects, opts)
0132
0133 models_prev = objects_prev{2};
0134 models = objects{2};
0135
0136 isconverged = slevalfunctor(opts.cmpfunctor, models_prev, models);
0137
0138
0139
0140
0141
0142
Generated on Wed 20-Sep-2006 12:43:11 by m2html © 2003
|
|