% This program finds the wild card teams in each conference.

% Copyright 2006 by William S. Krasker

% find first AFC wildcard
   
nteams0=4;
teams0=place(2,1:4)';

for n=1:5
   [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
   if nteams1==1
      seeds(5,1)=teams1(1);
      break
   end
   nteams0=nteams1;
   teams0=teams1;
end
   
% find second AFC wildcard

nteams0=4;
teams0=place(2,1:4)';
teams0(div(seeds(5,1)))=place(3,div(seeds(5,1)));

for n=1:5
   [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
   if nteams1==1
      seeds(6,1)=teams1(1);
      break
   end
   nteams0=nteams1;
   teams0=teams1; 
end

% find first NFC wildcard
   
nteams0=4;
teams0=place(2,5:8)';

for n=1:5
   [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
   if nteams1==1
      seeds(5,2)=teams1(1);
      break
   end
   nteams0=nteams1;
   teams0=teams1;
end
   
% find second NFC wildcard

nteams0=4;
teams0=place(2,5:8)';
teams0(div(seeds(5,2))-4)=place(3,div(seeds(5,2)));

for n=1:5
   [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
   if nteams1==1
      seeds(6,2)=teams1(1);
      break
   end
   nteams0=nteams1;
   teams0=teams1; 
end