k_l_transform.m

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

% M-file function, K_L_Transform.m 
% K-L变换
function K_L_Transform
load iris.dat;
u = [ 0.5224	0.3723	0.7210
     -0.2634	0.9256 -0.2420
      0.5813	0.0211 -0.1409
      0.5656	0.0654 -0.6338 ];  
for i =101:150
    x = iris(i,1:4);
    y = (u(1:4, [1 2 3]))' * x';
    Y(i-100, :) = y;
end
save Y3_123.dat Y -ascii;