K-L变换算法

用matlab编写的K-L变换算法，实验数据为Iris，数据分类为BP算法，经测试运行良好！

%------------------------------------
%-----对两类数据进行分类函数，统计正确率------
% 入口参数：两类数据x1，x2
% 出口参数：分类正确率
%------------------------------------
function [cor_ratio1cor_ratio2] =classify（w1w2w3x1x2）
x = [x1‘ x2‘]‘;
err_num1 = 0;
err_num2 = 0;
for k=1:size（x1）% 计算最后的输出值
    for j=1:size（w11）
        I1（j） = w1（j:）*x（k:）‘;
        out1（j） = 1/（1+exp（-I1（j）））; % 计算第一层输出
    end
    for j=1:size（w21）
        I2（j） = w2（j:）*out1‘;
        out2（j） = 1/（1+exp（-I2（j）））; % 计算第二层输出
    end
    for j=1:size（w31）
        I3（j） = w3（j:）*out2‘;
        out3（j） = 1/（1+exp（-I3（j）））; % 计算第三层输出
    end
    if （ k<=size（x1）/2 && out3<0.5 ） % 第一类正确输出应该小于0.5，第二类输出大于0.5
        err_num1 = err_num1+1;
    end
    if （ k>size（x1）/2 && out3>0.5 ）
        err_num2 = err_num2+1;
    end
end
cor_ratio1 = （ size（x11）-err_num1 ） / size（x11）;
cor_ratio2 = （ size（x21）-err_num2 ） / size（x21）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        999  2012-03-22 15:00  KL\classify.m

     文件      14848  2012-03-19 10:44  KL\data1.xls

     文件      15360  2012-03-19 10:44  KL\data2.xls

     文件      15360  2012-03-20 14:42  KL\data3.xls

     文件       2459  2012-04-20 14:00  KL\KLL.asv

     文件       2459  2012-04-20 14:00  KL\KLL.m

     文件       1882  2012-03-22 14:47  KL\weight.asv

     文件       2214  2012-03-22 15:01  KL\weight.m

     目录          0  2012-04-25 13:51  KL

----------- ---------  ---------- -----  ----

                55581                    9