//      c05ax Example Program Text
//      C# version, NAG Copyright 2008
using System;
using NagLibrary;
using System.Globalization;
namespace NagDotNetExamples
{
  public class C05AXE
  {
    static void Main(String[] args)
    {
      StartExample();
    }
    public static void StartExample()
    {
      try
      {
        double fx=0.0,  scal=0.0,  tol=0.0,  x=0.0; int i,  ind,  ir;
        double[] c = new double[26];
        int ifail;
        Console.WriteLine("c05ax Example Program Results");
        scal = Math.Sqrt(X02.x02aj());
        ir = 0;
        for (i = 3 ; i <= 4 ; i++)
        {
          tol = Math.Pow(10.00e0 ,( -i));
          Console.WriteLine("");
          Console.WriteLine("  {0}{1,10:e4}","tol = ",tol);
          Console.WriteLine("");
          x = 1.00e0;
          ind = 1;
          //
          do 
          {
            C05.c05ax(ref x, fx, tol, ir, scal, c, ref ind, out ifail);
            //
            fx = x - Math.Exp( -x);
            }while (ind != 0);
            if (ifail < 0)
            {
              Console.WriteLine("");
              Console.WriteLine("** c05ax failed with ifail = {0,5}", ifail);
            }
            else if (ifail > 0)
            {
              Console.WriteLine("  {0}{1,5}","Error exit, ifail =",ifail);
              if ((ifail == 4) || (ifail == 6))
              {
                Console.WriteLine("  {0}{1,14:f5}{2}{3,10:f2}{4}{5,10:f2}","Final value = ",x," theta = ",c[4]," lambda = ",c[6]);
              }
            }
            else
            {
              Console.WriteLine("  {0}{1,14:f5}","Root is ",x);
            }
          }
          //
        }
        catch (Exception e)
        {
          Console.WriteLine(e.Message);
          Console.WriteLine("Exception Raised");
        }
        Console.WriteLine("");
      }
    }
  }