  function P1()
% Checks out Tetra
clc
for eg = [[1 1 1 1]' [1 .7 .4 .1]' [.1 1 .05 .03]' [.01 1 .005 1]']
   r = eg(1); g = eg(2); b = eg(3); c = eg(4);
   [Cost,R,G,B,C,nFevals] = Tetra(r,g,b,c);
   fprintf('\n+++++++++++++++++++++++++++++++++++++\n\n')
   disp('Face         Area    Paint Value')
   disp('---------------------------------')
   fprintf('Red    %12.8f    %5.3f \n',R,r)
   fprintf('Green  %12.8f    %5.3f \n',G,g)
   fprintf('Blue   %12.8f    %5.3f \n',B,b)
   fprintf('Cyan   %12.8f    %5.3f \n\n',C,c)
   fprintf('Total Cost = %12.8f\n',Cost)
   fprintf('f-evals    = %3d\n\n',nFevals)
end

