% This program determines the seedings, in each conference, for the four division winners.

% Copyright 2006 by William S. Krasker

seeds=zeros(6,2);

for d=1:2

   nteams0=4;
   if d==1
      origteams0=place(1,1:4)';
   else
      origteams0=place(1,5:8)';
   end

   teams0=origteams0;

   % find top seed
   for n=1:5
      [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
      if nteams1==1
         seeds(1,d)=teams1(1);
         nteams0=3;
         count=0;
         for r=1:4
            if origteams0(r)~=seeds(1,d)
               count=count+1;
               teams0(count)=origteams0(r);
            end
         end
         break
      end
      nteams0=nteams1;
      teams0=teams1;
   end

   % find second seed
   for n=1:5
      [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
      if nteams1==1
         seeds(2,d)=teams1(1);
         nteams0=2;
         count=0;
         for r=1:4
            if (origteams0(r)~=seeds(1,d)) & (origteams0(r)~=seeds(2,d))
               count=count+1;
               teams0(count)=origteams0(r);
            end
         end
         break
      end
      nteams0=nteams1;
      teams0=teams1;
   end

   % find third and fourth seeds
   for n=1:5
      [teams1,nteams1,exitcode]=wctiebreaker(teams0,nteams0,a,conf,div,wltpct,cwltpct,dwltpct,sov,sos);
      if nteams1==1
         seeds(3,d)=teams1(1);
         for r=1:4
            if (origteams0(r)~=seeds(1,d)) & (origteams0(r)~=seeds(2,d)) & (origteams0(r)~=seeds(3,d))
               seeds(4,d)=origteams0(r);
            end
         end
         break
      end
      nteams0=nteams1;
      teams0=teams1;
   end

end