fdr.m

It is for Face Recognition

%function [r]=fdr(Sw, Sb, a)
function [r]=fdr(Sw, Sb, a)
  r1=a'*Sb*a;
  r2=a'*Sw*a;
  
  r=r1/r2;