% Demo on finding minimal ball around data.% Statistical Pattern Recognition Toolbox, Vojtech Franc, Vaclav Hlavac% (c) Czech Technical University Prague, http://cmp.felk.cvut.cz% Modifications% 11-Nov-2002, V.Franc% loads datadata=load('data1');% compute minimal ball around data (one-class SVM) in 'RBF" spaceker='rbf';arg=0.5;[Alpha, R, mi2 ] = minball(data.X,ker, arg);% compute distance between point x and the center of minimal ball which is% given by Alphax=[0;0];  % for example origin...[d]=kdist(x,data.X,Alpha,ker,arg)% plots contours with equal distance from the center of min-ballfigure; axis([-1 1 -1 1]); hold on;pkdist(data.X,Alpha,ker,arg,struct('background',1));