function Yd = One_Class_SVM_Sim(svm,Xt)
% 輸入參數:
% svm 支持向量機(結構體變量)
% the following fields:
% ker - 核參數
% type - linear : k(x,y) = x'*y
% poly : k(x,y) = (x'*y+c)^d
% gauss : k(x,y) = exp(-0.5*(norm(x-y)/s)^2)
% tanh : k(x,y) = tanh(g*x'*y+c)
% degree - Degree d of polynomial kernel (positive scalar).
% offset - Offset c of polynomial and tanh kernel (scalar, negative for tanh).
% width - Width s of Gauss kernel (positive scalar).
% gamma - Slope g of the tanh kernel (positive scalar).
% x - 訓練樣本
% y - 訓練目標;
% a - 拉格朗日乘子
%
% Xt 測試樣本,n×d的矩陣,n為樣本個數,d為樣本維數

% 輸出參數:
% Yd 測試輸出,n×1的矩陣,n為樣本個數,值為+1或-1

% ------------------------------------------------------------%

ker = svm.ker;
X = svm.x;
a = svm.a;

% ------------------------------------------------------------%
% 求超球半徑 R

epsilon = 1e-8; % 如果小于此值則認為是0
i_sv = find(a>epsilon); % 支持向量下標
n_sv = length(i_sv);

tmp1 = zeros(n_sv,1);
for i = 1:n_sv
index = i_sv(i);
tmp1(i) = Calckernel(ker,X(index,:),X(index,:));
end

tmp2 = 2*Calckernel(ker,X(i_sv,:),X)*a; % 列向量
tmp3 = sum(sum(a*a'.*Calckernel(ker,X,X))); 

R_square = tmp1-tmp2+tmp3;
R = mean(sqrt(R_square)); % 超球半徑 R (對所有支持向量求平均的結果)

% ------------------------------------------------------------%
% 測試輸出

nt = size(Xt,1); % 測試樣本數

tmp4 = zeros(nt,1); % 列向量
for i = 1:nt
tmp4(i) = Calckernel(ker,Xt(i,:),Xt(i,:));
end

tmp5 = 2*Calckernel(ker,Xt,X)*a; % 列向量

Yd = sign(tmp4-tmp5+tmp3-R^2);