winetest.asv

标准svm3.0程序 内有mex优化程序

close all;
clear all;
load wine.txt
load winetest.txt

[row column]=size(wine);
traindata=[wine(:,1),wine(:,7),wine(:,column)];
for i=1:row
    if (wine(i,column)==1)
        plot(wine(i,1),wine(i,7),'. r')
    end    
    hold on
    if (wine(i,column)==2)
        plot(wine(i,1),wine(i,7),'. b')
    end
    if (wine(i,column)==3)
        plot(wine(i,1),wine(i,7),'. g')
    end
end
[row,column]=size(traindata);
num=max(traindata(:,column));
%每两类数据建立一个分类器
for i=1:num
    for j=1:num
        if (i<j)
      % eval(['ssr' num2str(col) '=r;']);
       iloc=find(traindata(:,column)==i);
       jloc=find(traindata(:,column)==j);
       SamplesI=traindata([iloc;jloc],1:column-1);
       LabelsI=traindata([iloc;jloc],column);
       Samples=SamplesI';
       Labels=LabelsI';
       eval(['[AlphaY' num2str(i) num2str(j) ', SVs' num2str(i) num2str(j) ', Bias' num2str(i) num2str(j) ', Parameters' num2str(i) num2str(j) ', nSV' num2str(i) num2str(j) ', nLabel' num2str(i) num2str(j) ']=LinearSVC(Samples, Labels);']);
        end
    end
end