private static void hpp_test015() //****************************************************************************80 // // Purpose: // // HPP_TEST015 tests HEP_COEFFICIENTS. // // Licensing: // // This code is distributed under the GNU LGPL license. // // Modified: // // 22 October 2014 // // Author: // // John Burkardt // { double[] c; int[] e; int[] f; int[] l = new int[1]; int m; int n; int o; int o_max; string title; m = 1; Console.WriteLine(""); Console.WriteLine("HPP_TEST015:"); Console.WriteLine(" HEP_COEFFICIENTS computes the coefficients and"); Console.WriteLine(" exponents of the Hermite polynomial He(n,x)."); for (n = 1; n <= 5; n++) { o = (n + 2) / 2; c = new double[o]; e = new int[o]; f = new int[o]; Hermite.hep_coefficients(n, ref o, ref c, ref f); l[0] = n; o_max = o; Hermite.hepp_to_polynomial(m, l, o_max, o, ref c, ref e); Console.WriteLine(""); title = " He(" + n + ",x) ="; Polynomial.polynomial_print(m, o, c, e, title); } }