// g05px Example Program Text // C# version, NAG Copyright 2008 using System; using NagLibrary; using System.Globalization; using System.IO; namespace NagDotNetExamples { public class G05PXE { static void Main(String[] args) { StartExample(); } public static void StartExample() { try { const int n=4; const int m=4; const int mseed=1; int genid, i, j, subid; double[,] a = new double[m, n]; int[] seed = new int[mseed]; int ifail; Console.WriteLine("g05px Example Program Results"); Console.WriteLine(""); // Initialise the seed seed[0] = 1762543; // genid and subid identify the base generator genid = 1; subid = 1; // Initialise the generator to a repeatable sequence G05.G05State g05State = new G05.G05State(genid, subid, seed, out ifail); if (ifail != 0) { Console.WriteLine("** Generator initialisation failed with ifail = {0,5}", ifail); goto L40; } // Generate the random orthogonal matrix G05.g05px("Right", "Initialize", m, n, g05State, a, out ifail); if (ifail != 0) { Console.WriteLine("** g05kp failed with ifail = {0,5}", ifail); goto L40; } // Display the results for (i = 1 ; i <= m ; i++) { for (j = 1 ; j <= n ; j++) { Console.Write(" {0,8:f3}", a[i - 1 , j - 1]); } Console.WriteLine(""); } // L40: ; // } catch (Exception e) { Console.WriteLine(e.Message); Console.WriteLine( "Exception Raised"); } } } }