void test01 ( int prob, int grd, int m )
/******************************************************************************/
/*
Purpose:
VANDERMONDE_APPROX_2D_TEST01 tests VANDERMONDE_APPROX_2D_MATRIX.
Licensing:
This code is distributed under the GNU LGPL license.
Modified:
11 October 2012
Author:
John Burkardt
Parameters:
Input, int PROB, the problem number.
Input, int GRD, the grid number.
(Can't use GRID as the name because that's also a plotting function.)
Input, int M, the total polynomial degree.
*/
{
double *a;
double app_error;
double *c;
int nd;
int ni;
int tm;
double *xd;
double *xi;
double *yd;
double *yi;
double *zd;
double *zi;
printf ( "\n" );
printf ( "TEST01:\n" );
printf ( " Approximate data from TEST_INTERP_2D problem #%d\n", prob );
printf ( " Use grid from TEST_INTERP_2D with index #%d\n", grd );
printf ( " Using polynomial approximant of total degree %d\n", m );
nd = g00_size ( grd );
printf ( " Number of data points = %d\n", nd );
xd = ( double * ) malloc ( nd * sizeof ( double ) );
yd = ( double * ) malloc ( nd * sizeof ( double ) );
g00_xy ( grd, nd, xd, yd );
zd = ( double * ) malloc ( nd * sizeof ( double ) );
f00_f0 ( prob, nd, xd, yd, zd );
if ( nd < 10 )
{
r8vec3_print ( nd, xd, yd, zd, " X, Y, Z data:" );
}
/*
Compute the Vandermonde matrix.
*/
tm = triangle_num ( m + 1 );
a = vandermonde_approx_2d_matrix ( nd, m, tm, xd, yd );
/*
Solve linear system.
*/
c = qr_solve ( nd, tm, a, zd );
/*
#1: Does approximant match function at data points?
*/
ni = nd;
xi = r8vec_copy_new ( ni, xd );
yi = r8vec_copy_new ( ni, yd );
zi = r8poly_value_2d ( m, c, ni, xi, yi );
app_error = r8vec_norm_affine ( ni, zi, zd ) / ( double ) ( ni );
printf ( "\n" );
printf ( " L2 data approximation error = %g\n", app_error );
free ( a );
free ( c );
free ( xd );
free ( xi );
free ( yd );
free ( yi );
free ( zd );
free ( zi );
return;
}
void test03 ( int prob )
/******************************************************************************/
/*
Purpose:
TEST03 tests PWL_INTERP_2D_SCATTERED_VALUE.
Licensing:
This code is distributed under the GNU LGPL license.
Modified:
25 October 2012
Author:
John Burkardt
*/
{
int *element_neighbor;
int element_num;
int g;
int i;
int j;
int k;
int nd;
int ni = 25;
double rms;
int *triangle;
double x;
double *xd;
double xi[25];
double *xyd;
double xyi[2*25];
double y;
double *yd;
double yi[25];
double *zd;
double *ze;
double *zi;
g = 2;
nd = g00_size ( g );
printf ( "\n" );
printf ( "TEST03\n" );
printf ( " PWL_INTERP_2D_SCATTERED_VALUE evaluates a\n" );
printf ( " piecewise linear interpolant to scattered data.\n" );
printf ( " Here, we use grid number %d\n", g );
printf ( " with %d scattered points in the unit square\n", nd );
printf ( " on problem %d\n", prob );
/*
Get the data points and evaluate the function there.
*/
xd = ( double * ) malloc ( nd * sizeof ( double ) );
yd = ( double * ) malloc ( nd * sizeof ( double ) );
g00_xy ( g, nd, xd, yd );
zd = ( double * ) malloc ( nd * sizeof ( double ) );
f00_f0 ( prob, nd, xd, yd, zd );
xyd = ( double * ) malloc ( 2 * nd * sizeof ( double ) );
for ( i = 0; i < nd; i++ )
{
xyd[0+i*2] = xd[i];
xyd[1+i*2] = yd[i];
}
/*
Set up the Delaunay triangulation.
*/
element_neighbor = ( int * ) malloc ( 3 * 2 * nd * sizeof ( int ) );
triangle = ( int * ) malloc ( 3 * 2 * nd * sizeof ( int ) );
r8tris2 ( nd, xyd, &element_num, triangle, element_neighbor );
for ( j = 0; j < element_num; j++ )
{
for ( i = 0; i < 3; i++ )
{
if ( 0 < element_neighbor[i+j*3] )
{
element_neighbor[i+j*3] = element_neighbor[i+j*3] - 1;
}
}
}
/*
Define the interpolation points.
*/
k = 0;
for ( i = 1; i <= 5; i++ )
{
for ( j = 1; j <= 5; j++ )
{
xyi[0+k*2] = ( 2 * i - 1 ) / 10.0;
xyi[1+k*2] = ( 2 * j - 1 ) / 10.0;
k = k + 1;
}
}
for ( k = 0; k < ni; k++ )
{
xi[k] = xyi[0+k*2];
yi[k] = xyi[1+k*2];
}
ze = ( double * ) malloc ( ni * sizeof ( double ) );
f00_f0 ( prob, ni, xi, yi, ze );
/*
Evaluate the interpolant.
*/
zi = pwl_interp_2d_scattered_value ( nd, xyd, zd, element_num,
triangle, element_neighbor, ni, xyi );
rms = 0.0;
for ( k = 0; k < ni; k++ )
{
rms = rms + pow ( zi[k] - ze[k], 2 );
}
rms = sqrt ( rms / ( double ) ( ni ) );
printf ( "\n" );
printf ( " RMS error is %g\n", rms );
printf ( "\n" );
printf ( " K Xi(K) Yi(K) Zi(K) Z(X,Y)\n" );
printf ( "\n" );
for ( k = 0; k < ni; k++ )
{
printf ( " %4d %10.4f %10.4f %10.4f %10.4f\n",
k, xyi[0+k*2], xyi[1+k*2], zi[k], ze[k] );
}
free ( element_neighbor );
free ( triangle );
free ( xd );
free ( xyd );
free ( yd );
free ( zd );
free ( ze );
return;
}
void test02 ( void )
/******************************************************************************/
/*
Purpose:
TEST02 samples each function using each grid.
Licensing:
This code is distributed under the GNU LGPL license.
Modified:
30 January 2012
Author:
John Burkardt
*/
{
double *f;
double f_ave;
double f_max;
double f_min;
int f_num;
int fi;
char ft[100];
int g_num;
int gi;
int gn;
char gt[100];
double *gx;
double *gy;
printf ( "\n" );
printf ( "TEST02\n" );
printf ( " Sample each function over each grid.\n" );
g_num = g00_num ( );
f_num = f00_num ( );
for ( fi = 1; fi <= f_num; fi++ )
{
f00_title ( fi, ft );
printf ( "\n" );
printf ( " %2d %s\n", fi, ft );
printf ( " Grid Title " );
printf ( "Min(F) Ave(F) Max(F)\n" );
printf ( "\n" );
for ( gi = 1; gi <= g_num; gi++ )
{
g00_title ( gi, gt );
gn = g00_size ( gi );
gx = ( double * ) malloc ( gn * sizeof ( double ) );
gy = ( double * ) malloc ( gn * sizeof ( double ) );
g00_xy ( gi, gn, gx, gy );
f = ( double * ) malloc ( gn * sizeof ( double ) );
f00_f0 ( fi, gn, gx, gy, f );
f_max = r8vec_max ( gn, f );
f_min = r8vec_min ( gn, f );
f_ave = r8vec_sum ( gn, f );
f_ave = f_ave / ( double ) ( gn );
printf ( " %4d %25s %14g %14g %14g\n", gi, gt, f_min, f_ave, f_max );
free ( f );
free ( gx );
free ( gy );
}
}
return;
}
