	function A = kahan(n)
%
%	Function kahn generates a matrix which fails 
%	GEPP in terms of large element growth.
%
% written by Ming Gu for Math128A, Fall 2008. 
%

        A =  -tril(ones(n,n),-1)+eye(n); 
        A(:,end) = 1;
