From 99f3fe1eceecccb7d9487e8ecdb171c7d6865428 Mon Sep 17 00:00:00 2001 From: jthorn Date: Wed, 28 Aug 2002 11:42:25 +0000 Subject: add Maple code and C skeletons for Hermite polynomial interpolation git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalInterp/trunk@101 df1f8a13-aa1d-4dd4-9681-27ded5b42416 --- .../Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c (limited to 'src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c') diff --git a/src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c b/src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c new file mode 100644 index 0000000..4300a83 --- /dev/null +++ b/src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-dx.compute.c @@ -0,0 +1,11 @@ +fp t12; + t12 = x*x; + coeff_dx_m2 = RATIONAL(-1.0,3.0)*x+RATIONAL(1.0,12.0)+RATIONAL(1.0,4.0)* +t12; + coeff_dx_m1 = RATIONAL(-2.0,3.0)+RATIONAL(5.0,2.0)*x+RATIONAL(-7.0,4.0)* +t12; + coeff_dx_0 = RATIONAL(-14.0,3.0)*x+RATIONAL(4.0,1.0)*t12; + coeff_dx_p1 = RATIONAL(-4.0,1.0)*t12+RATIONAL(10.0,3.0)*x+RATIONAL(2.0, +3.0); + coeff_dx_p2 = RATIONAL(7.0,4.0)*t12+RATIONAL(-1.0,12.0)-x; + coeff_dx_p3 = RATIONAL(1.0,6.0)*x+RATIONAL(-1.0,4.0)*t12; -- cgit v1.2.3