public static void bessel_kx_values_test() //****************************************************************************80 // // Purpose: // // BESSEL_KX_VALUES_TEST tests BESSEL_KX_VALUES. // // Licensing: // // This code is distributed under the GNU LGPL license. // // Modified: // // 18 January 2012 // // Author: // // John Burkardt // { double fx = 0; double nu = 0; double x = 0; Console.WriteLine(""); Console.WriteLine("BESSEL_KX_VALUES_TEST:"); Console.WriteLine(" BESSEL_KX_VALUES stores values of "); Console.WriteLine(" the Bessel Kn function for NONINTEGER order."); Console.WriteLine(""); Console.WriteLine(" NU X KN(X)"); Console.WriteLine(""); int n_data = 0; for (;;) { Bessel.bessel_kx_values(ref n_data, ref nu, ref x, ref fx); if (n_data == 0) { break; } Console.WriteLine(" " + nu.ToString(CultureInfo.InvariantCulture).PadLeft(12) + " " + x.ToString(CultureInfo.InvariantCulture).PadLeft(12) + " " + fx.ToString(CultureInfo.InvariantCulture).PadLeft(12) + ""); } }