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

    function [Feats,Defaults,Values]= features(f);
% USERLOCAL/FEATURES

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



lab= labels(f);
np = size(f,1);

lab= lab(:)';
func=lab;
dgfunc= lab;
in = linterms(f);
index= lab;
% parameters as response features
for i=1:np;
	lab{i} = sprintf('Beta_%s',strrep(lab{i},'\',''));
	func{i}= sprintf('p(%d)',i);
	dgfunc{i}= sprintf('delparam(f,%d)',i);
    index{i}= i;
end
Feats= [struct('Display',lab,...
   'Function',func,...
   'delG',dgfunc,...
   'Name',lab,...
   'IsDatum',0,...
   'index',index,...
	'IsLinear',1)];

Fval= struct('Display','f(x)',...
      'Function','eval(f,code(f,f.Values(i,:)))',...
      'delG','hermiteX(f,code(f,f.Values(i,:)))',...
      'Name','FX',...
      'IsDatum',0,...
		'index',length(Feats)+1,...
		'IsLinear',1);
Feats= [Feats Fval];

if nargout==3
   Defaults=[1:np];
   Values= zeros(np,nfactors(f));
end