private static void hpp_test02()
//****************************************************************************80
//
// Purpose:
//
// HPP_TEST02 tests HEP_VALUE.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 22 October 2014
//
// Author:
//
// John Burkardt
//
{
double e;
int n;
int n_data;
int o = 0;
double x = 0;
double[] xvec = new double[1];
double fx1 = 0;
double[] fx2;
n = 1;
Console.WriteLine("");
Console.WriteLine("HPP_TEST02:");
Console.WriteLine(" HEP_VALUES stores values of");
Console.WriteLine(" the Hermite polynomial He(o,x).");
Console.WriteLine(" HEP_VALUE evaluates a Hermite polynomial.");
Console.WriteLine("");
Console.WriteLine(" Tabulated Computed");
Console.WriteLine(" O X He(O,X) He(O,X)" +
" Error");
Console.WriteLine("");
n_data = 0;
for (;;)
{
Burkardt.Values.Hermite.hep_values(ref n_data, ref o, ref x, ref fx1);
if (n_data == 0)
{
break;
}
xvec[0] = x;
fx2 = Hermite.hep_value(n, o, ref xvec);
e = fx1 - fx2[0];
Console.WriteLine(o.ToString().PadLeft(6) + " "
+ x.ToString().PadLeft(12) + " "
+ fx1.ToString().PadLeft(24) + " "
+ fx2[0].ToString().PadLeft(24) + " "
+ e.ToString().PadLeft(8) + "");
}
}
