private static void hermite_polynomial_test12(int p, double b)
//****************************************************************************80
//
// Purpose:
//
// HERMITE_POLYNOMIAL_TEST12 tests HF_EXPONENTIAL_PRODUCT.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 26 February 2012
//
// Author:
//
// John Burkardt
//
// Parameters:
//
// Input, int P, the maximum degree of the polynomial
// factors.
//
// Input, double B, the coefficient of X in the exponential factor.
//
{
double[] table;
Console.WriteLine("");
Console.WriteLine("HERMITE_POLYNOMIAL_TEST12");
Console.WriteLine(" Compute a Hermite function exponential product table.");
Console.WriteLine("");
Console.WriteLine(" Tij = integral ( -oo < X < +oo ) exp(B*X) Hf(I,X) Hf(J,X) dx");
Console.WriteLine("");
Console.WriteLine(" where Hf(I,X) = Hermite function of \"degree\" I.");
Console.WriteLine("");
Console.WriteLine(" Maximum degree P = " + p + "");
Console.WriteLine(" Exponential argument coefficient B = " + b + "");
table = Hermite.hf_exponential_product(p, b);
typeMethods.r8mat_print(p + 1, p + 1, table, " Exponential product table:");
}
