function A = poisson(n)
%POISSON Block tridiagonal matrix from Poisson's equation (sparse).
%   GALLERY('POISSON',N) is the block tridiagonal (sparse) matrix
%   of order N^2 resulting from discretizing Poisson's equation with
%   the 5-point operator on an N-by-N mesh.

%   Reference:
%   [1] G. H. Golub and C. F. Van Loan, Matrix Computations, third edition,
%       Johns Hopkins University Press, Baltimore, Maryland, 1996,
%       Sec. 4.5.4.
%
%   Nicholas J. Higham, Dec 1999.
%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.8 $  $Date: 2000/06/01 16:46:27 $

S = tridiag(n,-1,2,-1);
I = speye(n);
A = kron(I,S) + kron(S,I);
