function humps_fun_test ( )

  fprintf ( 1, '\n' );
  fprintf ( 1, 'humps_fun_test:\n' );
  fprintf ( 1, '  Test humps_fun()\n' );

  n = 101;
  x = linspace ( 0.0, 2.0, n );
  y = humps_fun ( x );

  plot ( x, y, 'b-', 'linewidth', 3 );
  grid ( 'on' );
  title ( 'The humps function' )
  filename = 'humps_fun_test.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );
  pause ( 5 )

  return
end
  
