k_l_parameter_150.m

Karhunen-Loève特征变换 模式识别课程实验

% M-file function, K_L_Parameter.m 
% 对矩阵X，计算样本均值m和协方差s
% X 输入样本矩阵
% m 均值
% s 协方差

function [m,s] = K_L_Parameter_150()

load X_Normal.dat
X = X_Normal;
m=0;
s=0;
for k = 1:150
    m = m + X(k,:);
end
m = m ./ 150;
for k = 1:150
    s = s + (X(k,:) - m)' * (X(k,:) - m);
end
s = s ./ 150;
save Parameter.dat m s -ascii;