public void Problem07_Return_Result_104743()
{
int act = Problem07.Prime10001st();
Assert.True(act.Equals(104743));
}
public static string p00_title(int problem)
//****************************************************************************80
//
// Purpose:
//
// P00_TITLE returns the title for any problem.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 02 February 2010
//
// Author:
//
// John Burkardt
//
// Parameters:
//
// Input, int PROBLEM, the index of the problem.
//
// Output, string P00_TITLE, the title of the problem.
//
{
string title;
switch (problem)
{
case 1:
title = Problem01.p01_title();
break;
case 2:
title = Problem02.p02_title();
break;
case 3:
title = Problem03.p03_title();
break;
case 4:
title = Problem04.p04_title();
break;
case 5:
title = Problem05.p05_title();
break;
case 6:
title = Problem06.p06_title();
break;
case 7:
title = Problem07.p07_title();
break;
case 8:
title = Problem08.p08_title();
break;
default:
Console.WriteLine("");
Console.WriteLine("P00_TITLE - Fatal error!");
Console.WriteLine(" Illegal problem number = " + problem + "");
return("");
}
return(title);
}
public static void p00_fun(ref p00Data data, int problem, int option, int n, double[] x, ref double[] f)
//****************************************************************************80
//
// Purpose:
//
// P00_FUN evaluates the integrand for any problem.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 31 July 2010
//
// Author:
//
// John Burkardt
//
// Parameters:
//
// Input, int PROBLEM, the index of the problem.
//
// Input, int OPTION:
// 0, integrand is f(x).
// 1, integrand is exp(-x*x) * f(x);
// 2, integrand is exp(-x*x/2) * f(x);
//
// Input, int N, the number of points.
//
// Input, double X[N], the evaluation points.
//
// Output, double F[N], the function values.
//
{
switch (problem)
{
case 1:
Problem01.p01_fun(option, n, x, ref f);
break;
case 2:
Problem02.p02_fun(option, n, x, ref f);
break;
case 3:
Problem03.p03_fun(option, n, x, ref f);
break;
case 4:
Problem04.p04_fun(option, n, x, ref f);
break;
case 5:
Problem05.p05_fun(option, n, x, ref f);
break;
case 6:
Problem06.p06_fun(ref data.p6data, option, n, x, ref f);
break;
case 7:
Problem07.p07_fun(option, n, x, ref f);
break;
case 8:
Problem08.p08_fun(option, n, x, ref f);
break;
default:
Console.WriteLine("");
Console.WriteLine("P00_FUN - Fatal error!");
Console.WriteLine(" Illegal problem number = " + problem + "");
break;
}
}
public static double p00_exact(ref p00Data data, int problem)
//****************************************************************************80
//
// Purpose:
//
// P00_EXACT returns the exact integral for any problem.
//
// Discussion:
//
// This routine provides a "generic" interface to the exact integral
// routines for the various problems, and allows a problem to be called
// by index (PROBLEM) rather than by name.
//
// In most cases, the "exact" value of the integral is not given;
// instead a "respectable" approximation is available.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 31 Julyl 2010
//
// Author:
//
// John Burkardt
//
// Parameters:
//
// Input, int PROBLEM, the index of the problem.
//
// Output, double P00_EXACT, the exact value of the integral.
//
{
double exact;
switch (problem)
{
case 1:
exact = Problem01.p01_exact();
break;
case 2:
exact = Problem02.p02_exact();
break;
case 3:
exact = Problem03.p03_exact();
break;
case 4:
exact = Problem04.p04_exact();
break;
case 5:
exact = Problem05.p05_exact();
break;
case 6:
exact = Problem06.p06_exact(ref data.p6data);
break;
case 7:
exact = Problem07.p07_exact();
break;
case 8:
exact = Problem08.p08_exact();
break;
default:
Console.WriteLine("");
Console.WriteLine("P00_EXACT - Fatal error!");
Console.WriteLine(" Illegal problem number = " + problem + "");
return(1);
}
return(exact);
}
