0001 function A = slpartitionpca_construct(S, modeldir, feas)
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 if nargin < 3
0034 raise_lackinput('slpartitionpca_apply', 3);
0035 end
0036
0037 if ischar(S)
0038 S = load(S);
0039 elseif ~isstruct(S)
0040 error('sltoolbox:invalidarg', ...
0041 'The S should be the filename of the core file or the core struct');
0042 end
0043
0044 [k, n] = size(feas);
0045 if k > S.diminfo.feadim
0046 error('sltoolbox:sizmismatch', ...
0047 'k is larger than the dimension of feature space');
0048 elseif k < S.diminfo.feadim && isempty(S.combprojfile)
0049 error('sltoolbox:sizmismatch', ...
0050 'When the combined model is not learned, k should be exactly the same as the dimension of feature space');
0051 end
0052
0053
0054
0055 if ~isempty(S.combprojfile)
0056
0057 combprojpath = sladdpath(S.combprojfile, modeldir);
0058 P = slreadarray(combprojpath);
0059 if k < S.diminfo.feadim
0060 P = P(:, 1:k);
0061 end
0062 intfeas = P * feas;
0063 clear P;
0064
0065 else
0066 intfeas = feas;
0067
0068 end
0069
0070
0071
0072 A = zeros([size(S.meanarr), n]);
0073 NBlks = numel(S.blocks);
0074 projpaths = sladdpath(S.projfiles, modeldir);
0075
0076 dc = 0;
0077 for ib = 1 : NBlks
0078
0079 curblock = S.blocks{ib};
0080 rgncell = slrange2indcells(curblock);
0081
0082 cursiz = curblock(2,:) - curblock(1,:) + 1;
0083 curdim = prod(cursiz);
0084 cursubdim = S.diminfo.subdims(ib);
0085
0086 curfeasec = intfeas(dc+1:dc+cursubdim, :);
0087 curproj = slreadarray(projpaths{ib});
0088
0089 localmean = S.meanarr(rgncell{:});
0090 localmean = reshape(localmean, [curdim, 1]);
0091
0092 localarr = curproj * curfeasec;
0093 clear curproj;
0094
0095 localarr = sladdvec(localarr, localmean, 1);
0096 localarr = reshape(localarr, [cursiz, n]);
0097
0098 A(rgncell{:}, :) = localarr;
0099
0100 clear localarr localmean;
0101
0102 dc = dc + cursubdim;
0103
0104 end
0105
0106
0107
0108
0109
0110