% MATLAB script file to illustrate effects of partial pivoting
% Prepared by Douglas B. Meade
% Created 11 September 2005
% Last revised on 12 September 2005

format long g
clear X

for i=1:30,
   p=11-i;
   [x0,x1,x2]=ppivotcompare( 10^p, 1 );
   X(i,:)=[10^p eps x0' x1' x2'];
   disp('Press any key to continue')
   pause
end

format short g
X