exr2smallestsphere.m

来自「神经网络工具箱」· M 代码 · 共 34 行

%
%  Evaluation of the radius square of the smallest sphere
%  
% 
%

close all
clear all


xapp=randn(100,2);
yapp= sign(rand(100,1)-0.5);
kernel='poly';


c=inf;
N=100;
verbose=1;
epsilon=1e-7;
kerneloption=1;

% if you just want to pass the kernel
%K=svmkernel(xapp,kernel,kerneloption);
%kerneloption.matrix=K;
%[beta,r2,pos]= r2smallestsphere([],kernel,kerneloption);

[beta,r2,pos]= r2smallestsphere(xapp,kernel,kerneloption);


fprintf('Radius square : %3.3d\n', r2);
plot(xapp(:,1),xapp(:,2),'+'); hold on
axis([-8 8 -8 8])
plot(xapp(pos,1),xapp(pos,2),'or');