%利用SVM進(jìn)行信息分類
%{
?xtrain:訓(xùn)練樣本數(shù)據(jù)
?ytrain：每一組訓(xùn)練樣本對應(yīng)的訓(xùn)練結(jié)果
?xtest：測試樣本
?ytest：測試結(jié)果
%}
clear?all;
%獲取txt文本數(shù)據(jù)
[filenamefilepath]=uigetfile（‘*.txt‘‘打開訓(xùn)練樣本文件‘）;
file=strcat（filepathfilename）;%文件的絕對路徑
%data_load=load（file）;%獲取txt文件的全部內(nèi)容；；由于文件中不是純數(shù)據(jù)，不能用load的形式
fidin=fopen（file‘r‘）;
nline=0;

disp（‘正在load數(shù)據(jù)...‘）;
while?~feof（fidin）?%?判斷是否為文件末尾?
????tline=fgetl（fidin）;?%?從文件讀行?
????fnull=strfind（tline‘?‘）;
????%提取txt文件中的有效參數(shù)，僅提取出用于訓(xùn)練的參數(shù)
????if?isempty（fnull）
?????????nline=nline+1;
?????????train_data（nline:）=regexp（tline‘‘‘split‘）;
????end
end
fclose（fidin）;
disp（‘load完成！‘）;

%將有用數(shù)據(jù)保存為txt文件，方便調(diào)用
button=questdlg（‘訓(xùn)練數(shù)據(jù)提取完成，是否保存為txt文件？‘‘保存訓(xùn)練數(shù)據(jù)‘‘是‘‘否‘‘是‘）;
if?strcmp（button‘是‘）
????save_txt（train_data）;%將train樣本轉(zhuǎn)化成列向量便于保存
else
????return
end

%{

%在data中，訓(xùn)練結(jié)果是<=50?和>50，需要對該數(shù)據(jù)進(jìn)行轉(zhuǎn)化處理
%adult數(shù)據(jù)保存為adult.mat?test數(shù)據(jù)保存為test.mat
%adult.mat中，第1111213列分別為age，capital-gain，capital-loss，hours-per-week
%data=importdata（‘data0.mat‘）;
%train_data=mat2cell（data）;
xtrain=[str2num（char（train_data（:1）））str2num（char（train_data（:11）））str2num（char（train_data（:12）））str2num（char（train_data（:13）））];
y=train_data（:15）;
len=length（y）;
ytrain=zeros（len1）;
for?i=1:len
????if?~isempty（strfind（y{i}‘<=‘））
????????ytrain（i1）=0;
????elseif?~isempty（strfind（y{i}‘>‘））
????????ytrain（i1）=1;
????end
end
%將有用數(shù)據(jù)保存為txt文件，方便調(diào)用
button=questdlg（‘訓(xùn)練數(shù)據(jù)提取完成，是否保存為txt文件？‘‘保存訓(xùn)練數(shù)據(jù)‘‘是‘‘否‘‘是‘）;
if?strcmp（button‘是‘）
????save_txt（[xtrainytrain]）;%將train樣本轉(zhuǎn)化成列向量便于保存
else
????return
end



%獲取txt文本數(shù)據(jù)
[filenamefilepath]=uigetfile（‘*.txt‘‘打開測試文件‘）;
file=strcat（filepathfilename）;%文件的絕對路徑
%data_load=load（file）;%獲取txt文件的全部內(nèi)容；；由于文件中不是純數(shù)據(jù)，不能用load的形式
fidin=fopen（file‘r‘）;
nline=0;
disp（‘正在load數(shù)據(jù)...‘）;
while?~feof（fidin）?%?判斷是否為文件末尾?
????tline=fgetl（fidin）;?%?從文件讀行?
????fnull=strfind（tline‘?‘）;
????%提取txt文件中的有效參數(shù)，僅提取出用于訓(xùn)練的參數(shù)
????if?isempty（fnull）
?????????nline=nline+1;
?????????test_data（nline:）=regexp（tline‘‘‘split‘）;
????end
end
fclose（fidin）;
disp（‘load完成！‘）;
%提取實(shí)驗(yàn)數(shù)據(jù)
xtest=[str2num（char（test_data（:1）））str2num（char（test_data（:11）））str2num（char（test_data（:12）））str2num（char（test_data（:13）））];
y=test_data（:15）;
len=length（y）;
yreal=zeros（len1）;
for?i=1:len
????if?~isempty（strfind（y{i}‘<=‘））
????????yreal（i1）=0;
????elseif?~isempty（strfind（y{i}‘>‘））
????????yreal（i1）=1;
????end
end
%將有用數(shù)據(jù)保存為txt文件，方便調(diào)用
button=questdlg（‘測試樣本數(shù)據(jù)提取完成，是否保存為txt文件？‘‘保存測試數(shù)據(jù)‘‘是‘‘否‘‘是‘）;
if?strcmp（button‘是‘）
???save_txt（[xtestyreal]）;%將train樣本轉(zhuǎn)化成列向量便于保存
else
????return
end



%{
disp（‘SVM正在分類......‘）;
%%%設(shè)置SVM各種參數(shù)%%%%%%%
c?=?1000;
lambda?=?1e-7;
kerneloption=?1;
kernel=‘poly‘;
verbose?=?0;
%%%一對一算法
kerneloptionm.matrix=svmkernel（xtrainkernelkerneloption）;
[xsupwbnbsvclassifierpos]=svmmulticlassoneagainstone（[]ytrain4clambda‘numerical‘kerneloptionmverbose）;
%支持向量機(jī)實(shí)現(xiàn)分類
kerneloptionm.matrix=svmkernel（xtestkernelkerneloptionxtrain（pos:））;
[ytrainmaxi]?=?svmmultivalo

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????4006865??2014-10-31?15:30??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\adult.txt

?????文件????1209054??2014-11-07?13:08??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\adult_right.txt

?????文件????1072708??2014-11-12?19:50??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\adult_right_guiyihua.txt

?????文件????2019412??2014-10-31?15:31??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\test.txt

?????文件?????603504??2014-11-07?13:04??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\test_right.txt

?????文件?????535437??2014-11-12?19:51??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\test_right_guiyihua.txt

?????文件???????2016??2014-11-08?15:24??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data\數(shù)據(jù)分析.txt

?????文件???????3527??2014-11-28?21:02??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\datapro.m

?????文件?????????97??2014-11-08?17:13??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\guiyihua.m

?????文件?????732563??2014-11-28?20:46??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\letter.txt

?????文件?????745662??2014-11-28?21:09??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\letter_change.txt

?????文件???????2404??2014-11-28?20:55??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\libsvm.asv

?????文件???????2482??2014-11-28?21:15??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\libsvm.m

?????文件????????926??2014-11-12?20:16??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\lisanhua.m

?????文件????????716??2014-11-12?19:50??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\save_txt.m

?????文件??????10958??2014-11-28?20:30??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\wine.txt

?????文件????????127??2014-12-08?13:26??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm\說明.txt

?????文件????1072708??2014-11-12?19:50??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\adult_right_guiyihua.txt

?????文件???????2536??2014-11-13?22:13??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\adult_test_nbc.asv

?????文件???????2374??2014-11-13?15:40??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\adult_test_nbc.m

?????文件?????????97??2014-11-08?17:13??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\guiyihua.m

?????文件???????1185??2014-09-30?16:28??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\nbc_Priors.m

?????文件???????3012??2014-11-12?21:34??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\predict_nbc.m

?????文件?????535437??2014-11-12?19:51??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\test_right_guiyihua.txt

?????文件???????3119??2014-11-12?18:32??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\train_nbc.m

?????文件????????517??2014-11-12?22:25??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro\說明文檔.txt

?????文件????????543??2014-11-23?11:07??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\程序說明.txt

?????目錄??????????0??2014-12-08?13:22??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\data

?????目錄??????????0??2014-12-08?13:24??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\libsvm

?????目錄??????????0??2014-12-08?13:22??支持向量機(jī)與樸素貝葉斯算法matlab實(shí)現(xiàn)\NBC_pro

............此處省略4個文件信息