function exercise1 ( )

%*****************************************************************************80
%
%% exercise1 displays each of the example flows.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    14 June 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'exercise1\n' );
  fprintf ( 1, ' Display each of the example flows.\n' );

  nr = 9;
  nc = 21;
  [ X, Y ] = xy_channel ( nr, nc );
  [ U, V ] = uv_channel ( X, Y );
  arrows ( X, Y, U, V );

  nr = 11;
  nc = 11;
  [ X, Y ] = xy_corner ( nr, nc );
  [ U, V ] = uv_corner ( X, Y );
  arrows ( X, Y, U, V );

  nr = 11;
  nc = 11;
  [ X, Y ] = xy_shear ( nr, nc );
  [ U, V ] = uv_shear ( X, Y );
  D = divergence ( X, Y, U, V );
  arrows ( X, Y, U, V );

  nr = 11;
  nc = 11;
  [ X, Y ] = xy_vortex ( nr, nc );
  [ U, V ] = uv_vortex ( X, Y );
  D = divergence ( X, Y, U, V );
  arrows ( X, Y, U, V );

  return
end

