www.gusucode.com > mbcmodels 工具箱 matlab 源码程序 > mbcmodels/@xregrbf/buildmodels.m

    function [mlist,name]= buildmodels(r,nobs)
% BUILDMODELS
%
% [mlist,name]= buildmodels(r,nobs)

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

[r,Centers,doAllKernels,ok] = ModelBuildGUI(r, nobs);

if ok
    mlist= cell(1,length(Centers));
    for i=1:length(Centers)
        mlist{i} = setMaxNCenters( r, num2str( Centers(i) ) );
    end
    if doAllKernels
        
        k= {@multiquadric,@recmultiquadric,@gaussian,...
            @thinplate,@logisticrbf,...
            @wendland,@wendland,@wendland,@wendland,...
            @linearrbf, @cubicrbf };
        c= [0 0 0 0 0 0 2 4 6 0 0];

        mlist= repmat(mlist,length(k),1);
        for i=1:length(k);
            for j=1:size(mlist,2)
                r=mlist{i,j};
                r.kernel= k{i};
                r.cont  = c(i);
                mlist{i,j}= r;
            end
        end
        mlist= mlist(:)';
    end
    name= 'RBF';
else
   mlist= {};
   name = '';
end