fisher实现二维数据的线性分割-matlab程序（含实验数据）

程序中包含了fisher的MATLAB程序，以及实验所用的数据。能够对实验中提供的二维数据进行正确的分类。

function[Sww]=fisher2D（xy）
load data.mat
%%%将样本点和测试点画出;
plot（Sample1（:1）Sample1（:2）‘g*‘）
hold on;
plot（Sample2（:1）Sample2（:2）‘b.‘）
plot（xy‘r*‘）;
%先求样本的平均值
u1=mean（Sample1）;
u2=mean（Sample2）;
%求两样本的内间方差s1s2；
s1=[00;00];
for i=1:1000;
    s1=s1+（Sample1（i:）-u1）‘*（Sample1（i:）-u1）;
end

s2=[00;00];
for i=1:1000;
    s2=s2+（Sample2（i:）-u2）‘*（Sample2（i:）-u2）;
end
%求两样本的内间方差;
Sw=s1+s2;
%求两样本的投影向量;
w=inv（Sw）*（u1-u2）‘;
%设置以固定阈值；
for i=1:1000;
x1（i）=Sample1（i:）*w;
x2（i）=Sample2（i:）*w;
end;
w0=（mean（x1）+mean（x2））/2;
if（[xy]*w-w0>0）
    disp（‘该点属于sample1类.‘）
end;
if（[xy]*w-w0<0）
   disp（‘该点属于Sample2类.‘）
end;
%m=-10*w（1:）:10*w（1:）;
%n=-10*w（2:）:10*w（2:）;
line（[-1000*w（1）1000*w（1）][-1000*w（2）1000*w（2）]）;
hold off

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       30712  2011-04-15 10:57  fisher\data.mat
     文件         701  2011-04-20 22:28  fisher\fisher2D.asv
     文件         851  2011-04-20 22:45  fisher\fisher2D.m
     文件          71  2011-04-15 18:59  fisher\main.m
     目录           0  2011-05-04 20:58  fisher\