public static void elliptic_inc_pia_values_test()
//****************************************************************************80
//
// Purpose:
//
// ELLIPTIC_INC_PIA_VALUES_TEST tests ELLIPTIC_INC_PIA_VALUES.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 24 June 2018
//
// Author:
//
// John Burkardt
//
{
double a = 0;
double n = 0;
double phi = 0;
double pia = 0;
Console.WriteLine("");
Console.WriteLine("ELLIPTIC_INC_PIA_VALUES_TEST:");
Console.WriteLine(" ELLIPTIC_INC_PIA_VALUES stores values of");
Console.WriteLine(" the incomplete elliptic integral of the third");
Console.WriteLine(" kind, with parameters PHI, N and A.");
Console.WriteLine("");
Console.WriteLine(" PHI N A Pi(PHI,N,A)");
Console.WriteLine("");
int n_data = 0;
while (true)
{
Elliptic.elliptic_inc_pia_values(ref n_data, ref phi, ref n, ref a, ref pia);
if (n_data == 0)
{
break;
}
Console.WriteLine(" " + phi.ToString("0.########").PadLeft(12)
+ " " + n.ToString("0.########").PadLeft(12)
+ " " + a.ToString("0.########").PadLeft(12)
+ " " + pia.ToString("0.################").PadLeft(24) + "");
}
}