svmtst.asv

This is a support vector machine program developed based on quadprog. Polynomial and RBF kernel are

function err = SVMtst(alpha_s, y_s, x_s, b0, K, K_p, X, y)

% Kernel,  K = 1 : Polynomial,  K = 2 : RBF,  K_p : Kernel Parameter
% alpha_s : Support vector
% y_s & x_s : train data according to S.Vs
% b0 : intercept

% classifying
if K == 1
    sum = 0;
    for i=1:length(s_idx)
        sum = sum + alpha_s(i)*y_s(i)*((x_s(i,:)*x_s(1,:)'+1).^K_p);
    end
    b0 = y_s(1) - sum;
elseif K == 2
    sum = 0;
    for i=1:length(s_idx)
        sum = sum + alpha_s(i)*y_s(i)*exp(-((norm((x_s(i,:)-x_s(1,:))))^2)/(2*K_p^2));
    end
    b0 = y_s(1) - sum;
else
end