public static void hyper_2f1_values_test() //****************************************************************************80 // // Purpose: // // HYPER_2F1_VALUES_TEST tests HYPER_2F1_VALUES. // // Licensing: // // This code is distributed under the GNU LGPL license. // // Modified: // // 09 September 2007 // // Author: // // John Burkardt // { double a = 0; double b = 0; double c = 0; double fx = 0; double x = 0; Console.WriteLine(""); Console.WriteLine("HYPER_2F1_VALUES_TEST:"); Console.WriteLine(" HYPER_2F1_VALUES stores values of"); Console.WriteLine(" the hypergeometric function 2F1."); Console.WriteLine(""); Console.WriteLine(" A B C X Hyper_2F1(A,B,C,X)"); Console.WriteLine(""); int n_data = 0; for (;;) { Hypergeometric.hyper_2f1_values(ref n_data, ref a, ref b, ref c, ref x, ref fx); if (n_data == 0) { break; } Console.WriteLine(" " + a.ToString(CultureInfo.InvariantCulture).PadLeft(8) + " " + b.ToString(CultureInfo.InvariantCulture).PadLeft(8) + " " + c.ToString(CultureInfo.InvariantCulture).PadLeft(8) + " " + x.ToString(CultureInfo.InvariantCulture).PadLeft(8) + " " + fx.ToString("0.################").PadLeft(24) + ""); } }