private static void Main()
//****************************************************************************80
//
// Purpose:
//
// TOMS243_TEST tests TOMS243.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 04 January 2019
//
// Author:
//
// John Burkardt
//
{
Complex fx1 = new(0, 0);
Complex x = new(0, 0);
Console.WriteLine("");
Console.WriteLine("TOMS243_TEST:");
Console.WriteLine(" TOMS243 computes the natural logarithm of a complex value.");
Console.WriteLine("");
Console.WriteLine(" X FX exact");
Console.WriteLine(" FX computed");
Console.WriteLine("");
int n_data = 0;
while (true)
{
Cmplex.c8_log_values(ref n_data, ref x, ref fx1);
if (n_data == 0)
{
break;
}
Complex fx2 = TOMS.toms243(x);
Console.WriteLine(" ( "
+ x.Real.ToString("0.####").PadLeft(8) + ","
+ x.Imaginary.ToString("0.####").PadLeft(8) + ") ( "
+ fx1.Real.ToString("0.############").PadLeft(18) + ","
+ fx1.Imaginary.ToString("0.############").PadLeft(18) + ")");
Console.WriteLine(" ( "
+ fx2.Real.ToString("0.############").PadLeft(18) + ","
+ fx2.Imaginary.ToString("0.############").PadLeft(18) + ")");
}
Console.WriteLine("");
Console.WriteLine("TOMS243_TEST:");
Console.WriteLine(" Normal end of execution:");
Console.WriteLine("");
}
public static void c8_log_values_test( )
//****************************************************************************80
//
// Purpose:
//
// C8_LOG_VALUES_TEST tests C8_LOG_VALUES.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 04 January 2019
//
// Author:
//
// John Burkardt
//
{
Complex fz = new();
Complex z = new();
Console.WriteLine("");
Console.WriteLine("C8_LOG_VALUES_TEST:");
Console.WriteLine(" C8_LOG_VALUES stores values of ");
Console.WriteLine(" the logarithm of a complex value.");
Console.WriteLine("");
Console.WriteLine(" Z FZ");
Console.WriteLine("");
int n_data = 0;
for ( ; ;)
{
Cmplex.c8_log_values(ref n_data, ref z, ref fz);
if (n_data == 0)
{
break;
}
Console.WriteLine(" "
+ z.Real.ToString("0.######").PadLeft(14) + " "
+ z.Imaginary.ToString("0.######").PadLeft(14) + " "
+ fz.Real.ToString("0.################").PadLeft(24) + " "
+ fz.Imaginary.ToString("################").PadLeft(24) + "");
}
}
