function [ u, v, p ] = uvp_lukas ( nu, rho, n, x, y, t )

%*****************************************************************************80
%
%% uvp_lukas evaluates Lukas Bystricky's exact Navier Stokes solution.
%
%  Discussion:
%
%    There is no time dependence.
%
%    The pressure is 0.
%
%    The preferred domain is the unit square.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real NU, the kinematic viscosity.
%
%    real RHO, the fluid density.
%
%    integer N, the number of nodes.
%
%    real X(N), Y(N), the coordinates of nodes.
%
%    real T, the current time.
%
%  Output:
%
%    real U(N), V(N), the X and Y velocity.
%
%    real P(N), the pressure.
%
  u = - cos ( pi * x ) / pi;
  v = - y .* sin ( pi * x );
  p = zeros ( n, 1 );

  return
end

