www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@modeldev/mapptr.m

    function mdev= mapptr(mdev,RefMap)
%MAPPTR 
% 
% mdev= mapptr(mdev,RefMap);

%  Copyright 2000-2006 The MathWorks, Inc. and Ford Global Technologies, Inc.

% ydata
switch class(mdev.Y)
case {'xregpointer','sweepsetfilter'}
   mdev.Y= mapptr(mdev.Y,RefMap);
case 'struct'
   mdev.Y.ptr= mapptr(mdev.Y.ptr,RefMap);
end

% xdata
switch class(mdev.X)
    case 'sweepsetfilter'
        mdev.X= mapptr(mdev.X,RefMap);
    case 'xregpointer'
    	for i=1:length(mdev.X)
	    	mdev.X(i)= mapptr(mdev.X(i),RefMap);
	    end
    case 'struct'
        mdev.X.ptr= mapptr(mdev.X.ptr,RefMap);
end

% datum links
mdev.Data= mapptr(mdev.Data,RefMap);

% bestmodel
if isa(mdev.BestModel,'xregpointer');
   mdev.BestModel= mapptr(mdev.BestModel,RefMap);
end

% validation data
if iscell(mdev.Validation)
    mdev.Validation{1} = mapptr(mdev.Validation{1} , RefMap);
end

% kids and parent
mdev.mctree= mapptr(mdev.mctree,RefMap);