コード例 #1
0
    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) + "");
        }
    }