k_l_parameter.m

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

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

function [m,s] = K_L_Parameter(X)

m=0;
s=0;
for k = 1:50
    m = m + X(k,:);
end
m = m ./ 50;
for k = 1:50
    s = s + (X(k,:) - m)' * (X(k,:) - m);
end
s = s ./ 50;