function dispbc(X,cases);

%
% Display Statistics for Business Cycles
%

[ncase,j] = size(cases);

Rows      = ['-----------------------------------------------';
             'Statistics                               Data  ';
             '-----------------------------------------------';
             'Standard Deviations                            ';
             '  Real GDP                               1.82  ';
             '                                               ';
             '  Real NX/Real GDP                       0.11  ';
             '                                               ';
             'Standard Deviation(x)/Std. Real GDP            ';
             '  Real Consumption                       0.83  ';
             '                                               ';
             '  Real Investment                        2.78  ';
             '                                               ';
             '  Employment                             0.67  ';
             '                                               ';
             'Autocorrelations                               ';
             '  Real GDP                               0.88  ';
             '                                               ';
             '  Real Consumption                       0.89  ';
             '                                               ';
             '  Real Investment                        0.91  ';
             '                                               ';
             '  Employment                             0.90  ';
             '                                               ';
             '  Real NX/Real GDP                       0.82  ';
             '                                               ';
             'Cross-correlations                             ';
             '  Real GDP''s                             0.60  ';
             '                                               ';
             '  Real Consumption''s                     0.38  ';
             '                                               ';
             '  Real Investment''s                      0.33  ';
             '                                               ';
             '  Employment''s                           0.39  ';
             '                                               ';
             '  Real GDP & Real NX/Real GDP           -0.41  ';
             '                                               '];

if j < 9;
  tem   = char(cases,'         ');
  cases = tem(1:ncase,1:9); 
end;
j    = max(j,9);
str  = Rows(:,47);
str1 = Rows(1,1:j);
str2 = Rows(6,1:j);
str3 = ['   %5.2f ',Rows(6,1:j-9)];
str4 = ['  (%5.2f)',Rows(6,1:j-9)];

for i=1:ncase;

  str = [str,[str1;cases(i,:);str1;
              str2;str3;str4;str3;str4;
              str2;str3;str4;str3;str4;str3;str4;
              str2;str3;str4;str3;str4;str3;str4;str3;str4;str3;str4;
              str2;str3;str4;str3;str4;str3;str4;str3;str4;str3;str4]];

end;
str  = [Rows,str,['\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';
                  '\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n'
                  '\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n'
                  '\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n';'\n']];
str  = [str;str(1,:)];

disp(sprintf(str',X))

