function a = TestCubics(mode)
%
% generate test	cubics for the programming assignment
%
switch mode
  case 1
     a = randn(1,4);
  case 2
     a = randn(1,4)*1e200;
  case 3
     a = randn(1,4)*1e-200;
  case 4
     b = randn(1,2); b = [b(1), b(2), b(2)];
     a = poly(b);
  case 5
     a = [0 randn(1,3)];
  case 6
     a = [1e-10 2 4 1e10];
  case 7 
     a = [0 1e-10 2 1];
  otherwise
     a = randn(1,4);
end

