public static void jacobi_dn_values_test() //****************************************************************************80 // // Purpose: // // jacobi_dn_values_test tests jacobi_dn_values(). // // Licensing: // // This code is distributed under the GNU LGPL license. // // Modified: // // 19 November 2020 // // Author: // // John Burkardt // { double a = 0; double fx = 0; double k = 0; double m = 0; double u = 0; Console.WriteLine(""); Console.WriteLine("jacobi_dn_values_test:"); Console.WriteLine(" jacobi_dn_values() returns values of "); Console.WriteLine(" the Jacobi elliptic DN function."); Console.WriteLine(""); Console.WriteLine(" U M DN(U,M)"); Console.WriteLine(""); int n_data = 0; for (;;) { Jacobi.jacobi_dn_values(ref n_data, ref u, ref a, ref k, ref m, ref fx); if (n_data == 0) { break; } Console.WriteLine(" " + u.ToString(CultureInfo.InvariantCulture).PadLeft(10) + " " + m.ToString(CultureInfo.InvariantCulture).PadLeft(10) + " " + fx.ToString("0.################").PadLeft(24) + ""); } }