// g01gd Example Program Text // C# version, NAG Copyright 2008 using System; using NagLibrary; using System.Globalization; using System.IO; namespace NagDotNetExamples { public class G01GDE { static string datafile = "ExampleData/g01gde.d"; static void Main(String[] args) { if (args.Length == 1) { datafile = args[0]; } StartExample(); } public static void StartExample() { try { DataReader sr = new DataReader(datafile); double df1, df2, f, prob, rlamda, tol; int maxit; int ifail; bool carryon = true; Console.WriteLine("g01gd Example Program Results"); // Skip heading in data file sr.Reset(); Console.WriteLine(""); Console.WriteLine(" {0}", " F DF1 DF2 RLAMDA PROB"); Console.WriteLine(""); tol = 0.50e-5; maxit = 50; while (carryon) { try { sr.Reset(); f = double.Parse(sr.Next(), CultureInfo.InvariantCulture); df1 = double.Parse(sr.Next(), CultureInfo.InvariantCulture); df2 = double.Parse(sr.Next(), CultureInfo.InvariantCulture); rlamda = double.Parse(sr.Next(), CultureInfo.InvariantCulture); } catch { break; } // prob = G01.g01gd(f, df1, df2, rlamda, tol, maxit, out ifail); // if (ifail >= 0) { if (ifail == 0) { Console.WriteLine(" {0,8:f3}{1,8:f3}{2,8:f3}{3,8:f3}{4,8:f4}", f, df1, df2, rlamda, prob); } else if (ifail > 0) { Console.WriteLine(" {0,8:f3}{1,8:f3}{2,8:f3}{3,8:f3}{4,8:f4}{5}{6,1}", f, df1, df2, rlamda, prob, " NOTE: ifail = ", ifail); } continue; } else { Console.WriteLine("** g01gd failed with ifail = {0,5}", ifail); break; } } } catch (Exception e) { Console.WriteLine(e.Message); Console.WriteLine( "Exception Raised"); } } } }