bench_satimage.m

崭新矢量机SVM源码

clear
load blfsatimage;

[samples,A,B] = scaletrain(satimagesamples);
labels  = satimagelabels;
testsamples = scaletest(satimagetestsamples,A,B);
testlabels  = satimagetestlabels;
clear satimagesamples satimagetestsamples;

kernel = 'rbf';
param = 2^-2;
func= 'pfsals_svm';
func = 'fsals_svm';
lamda = 2.^0; 
epsilon = 0.4;
tic;
[alpha,bias,svi,sv]  = onevsalltrain(samples,labels,kernel,param,lamda,epsilon,func);
endtime = toc;
[result,vote] = onevsalltest(testsamples,testlabels,samples,labels,kernel,param,alpha,svi,bias,func);

correctrate = mean(result == testlabels);
fprintf('Support vector = %f\n',sv);
fprintf('Accuracy = %f\n',correctrate);
fprintf('Time = %f\n',endtime);