%%?------------絕對正確的KPCA降維算法--------
clc
close?all;
clear;
?load（‘C:\MATLAB\數據分解\ORtrain1.mat‘）
X_train=ORtrain1;
patterns=zscore（X_train）;?%訓練數據標準化

[train_numDimFS]=size（patterns）;%train_num是訓練樣本的個數

cov_size?=?train_num?%cov_size是訓練樣本的個數
%%?計算核矩陣
K=zeros（cov_sizecov_size）;
rbf_var=10000;%？???
for?i=1:cov_size
for?j=i:cov_size
K（ij）?=?exp（-norm（patterns（i:）-patterns（j:））^2/rbf_var）;?%核函數?rbf_var?？？
K（ji）?=?K（ij）;
end
end
unit?=?ones（cov_size?cov_size）/cov_size;%cov_size是樣本的個數?求E
%%?中心化核