public static void jacobi_cn_values_test()
//****************************************************************************80
//
// Purpose:
//
// jacobi_cn_values_test tests jacobi_cn_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_cn_values_test:");
Console.WriteLine(" jacobi_cn_values() returns values of ");
Console.WriteLine(" the Jacobi elliptic CN function.");
Console.WriteLine("");
Console.WriteLine(" U M CN(U,M)");
Console.WriteLine("");
int n_data = 0;
for (;;)
{
Jacobi.jacobi_cn_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) + "");
}
}
