function ShowMethods(year)
% For a valid census year (1790,1800,...,2000)
% this script displays the apportionments for the methods of
% smallest divisors, largest divisors, major fractions,
% equal proportions, and harmonic mean.

% Acquire the data..
C = CensusData;
j = (year-1780)/10;

% Set up a vector of state populations and a vector
% of the actual apportionment...
p = C(j).pop;
dActual = C(j).reps;
n = sum(dActual);

% Work the five methods...
dSD = Apportion(p,n,'SD');
dLD = Apportion(p,n,'LD');
dMF = Apportion(p,n,'MF');
dEP = Apportion(p,n,'EP');
dHM = Apportion(p,n,'HM');

% Display the results
clc
disp(sprintf('Year = %4d\n',C(j).year))
disp(sprintf('Number of States = %2d',length(C(j).pop)))
disp(sprintf('Total Population = %9d',sum(C(j).pop)))
disp(sprintf('Total Number Reps = %3d\n',sum(C(j).reps)))
disp(sprintf('Method = %s\n',C(j).method))
disp(' ')
disp(' State Pop Actual SD LD MF EP HM')
disp('-----------------------------------------------------------')
for i=1:length(p)
disp([C(j).states(i,:)...
sprintf('%10d %4d %4d %4d %4d %4d %4d',...
C(j).pop(i),C(j).reps(i),dSD(i),dLD(i),dMF(i),dEP(i),dHM(i))])
end