// g01ad Example Program Text // C# version, NAG Copyright 2008 using System; using NagLibrary; using System.Globalization; using System.IO; namespace NagDotNetExamples { public class G01ADE { static string datafile = "ExampleData/g01ade.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 s2, s3, s4, xmean; int i, j, k, kmin1, n, nprob; int ifail; Console.WriteLine("g01ad Example Program Results"); // Skip heading in data file sr.Reset(); sr.Reset(); nprob = int.Parse(sr.Next()); for (j = 1; j <= nprob; j++) { sr.Reset(); kmin1 = int.Parse(sr.Next()); k = kmin1 + 1; double[] x = new double[k]; int[] ifreq = new int[k]; if (k >= 2) { sr.Reset(); for (i = 1; i <= kmin1; i++) { x[i - 1] = double.Parse(sr.Next(), CultureInfo.InvariantCulture); ifreq[i - 1] = int.Parse(sr.Next()); } x[k - 1] = double.Parse(sr.Next(), CultureInfo.InvariantCulture); Console.WriteLine(""); Console.WriteLine(" {0}{1,4}", "Problem ", j); Console.WriteLine(" {0}{1,4}", "Number of classes ", kmin1); // G01.g01ad(k, x, ifreq, out xmean, out s2, out s3, out s4, out n, out ifail); // if (ifail == 0) { Console.WriteLine(""); Console.WriteLine(" {0}", "Successful call of g01ad"); Console.WriteLine(""); Console.WriteLine(" {0}", " Class Frequency"); Console.WriteLine(""); Console.WriteLine(""); for (i = 1; i <= kmin1; i++) { Console.WriteLine(" \t{0,2:f2}\t{1,5:f2}\t\t{2}", x[i - 1], x[i + 1 - 1], ifreq[i - 1]); } Console.WriteLine(""); Console.WriteLine(" {0}{1,16:f4}", " \tMean \t\t", xmean); Console.WriteLine(" {0}{1,13:f4}", " \tStd devn\t\t", s2); Console.WriteLine(" {0}{1,13:f4}", " \tSkewness\t\t", s3); Console.WriteLine(" {0}{1,13:f4}", " \tKurtosis\t\t", s4); Console.WriteLine(" {0}{1,8}", " \tNumber of cases\t\t", n); } else { Console.WriteLine("** g01ad failed with ifail = {0,5}", ifail); } } } // } catch (Exception e) { Console.WriteLine(e.Message); Console.WriteLine( "Exception Raised"); } } } }