function vector_to_element_test ( )

%*****************************************************************************80
%
%% vector_to_element_test() tests s_to_rot13().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    29 June 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'vector_to_element_test():\n' );
  fprintf ( 1, '  vector_to_element() converts a MATLAB expression from vector to\n' );
  fprintf ( 1, '  elementwise form.\n' );

  f_vector = 'x^2*sin(x)';
  f_element = vector_to_element ( f_vector );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector form: "%s"\n', f_vector );
  fprintf ( 1, '  elementwise: "%s"\n', f_element );

  f_vector = 'x.^2.*sin(x)';
  f_element = vector_to_element ( f_vector );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector form: "%s"\n', f_vector );
  fprintf ( 1, '  elementwise: "%s"\n', f_element );

  f_vector = '1. + 2./x*exp(x^2)';
  f_element = vector_to_element ( f_vector );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector form: "%s"\n', f_vector );
  fprintf ( 1, '  elementwise: "%s"\n', f_element );

  f_vector = '4^2+2*sin(pi/2)';
  f_element = vector_to_element ( f_vector );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector form: "%s"\n', f_vector );
  fprintf ( 1, '  elementwise: "%s"\n', f_element );

  return
end

