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;