function?y=fisher_iris（SEVEVI）

S_V=[SE;VE];

ALL_1=[S_V;VI];

for?L=1:150
????T=S_V;
????P=VI;
????sample=ALL_1（L:）;
????if?L<=100
????????T（L:）=[];
????else
????????P（L-100:）=[];
????end
????
????R1=size（T1）;
????R2=size（P1）;
????
????a1=mean（T）;
????a2=mean（P）;
????
????s1=cov（T）*（R1-1）;
????s2=cov（P）*（R2-1）;
????
????Sw=s1+s2;
????
????w=inv（Sw）*（a1-a2）‘;
????
????y1=mean（w‘*a1‘）;
????y2=mean（w‘*a2‘）;
????
????w0=1/2*（y1+y2）;
????
????y（L）=w‘*sample‘;
????
????if?y（L）>w0;
????????y（L）=0;
????????
????????for?L_2=1:100
????????????T_2=SE;
????????????P_2=VE;
????????????sample=S_V（L_2:）;
????????????if?L_2<=50
????????????????T_2（L_2:）=[];
????????????else
????????????????P_2（L_2-50: