ker.m

It is for Face Recognition

% type = 'poly', 'grbf', 'norm'
%function [v]=ker(kerType, x1, x2)
function [v]=ker(kerType, x1, x2)
 % const
 % polynomial  
 c1     = 0.0001; theta  = 0; 
 % gaussian RBF
 c2      = 400;

 if kerType=='poly'                % polynomial    
    v = (c1*(x1'*x2)+theta)^2;
 elseif kerType == 'grbf'             % gaussian RBF
    v = exp(-norm((x1-x2), 2)/c2);
 elseif kerType == 'norm'
    v = x1'*x2;
 else
    v = 0.0;
 end