clear;clc;close all;
               disp('-------------采用線形內(nèi)積函數(shù)的支持向量機的應(yīng)用-------------');
               disp('輸入樣本矩陣(每行表示一個測試數(shù)據(jù),一共20行):');
               x=[randn(1,20)-3 randn(1,20)+3;randn(1,40)]'
               disp('樣本所屬類別:');
               y=[-ones(1,20) ones(1,20)]'
               [nsv,alpha,bias,T]=svm168(x,y,'linear',10);
               fprintf('運行時間T=%g\n',T);
               fprintf('支持向量個數(shù)：%g\n',nsv);

               svcplot(x,y,'linear',alpha,bias);

               W=x'*alpha;
               disp('權(quán)系數(shù)向量:');
               W
               disp('測試數(shù)據(jù)（20組）:');
               X_test=[randn(1,20)-3 randn(1,20)+3;randn(1,40)]'
               disp('測試數(shù)據(jù)類別:');
               Y_test=[-ones(1,20) ones(1,20)]'
               disp('測試數(shù)據(jù)類別判決:');
               Output=X_test*W+bias
               disp('錯誤率:');
               number_error=sum(abs(Y_test-sign(Output)))/2;
               error=number_error/20