src/GeneralizedPolynomial-Uniform/Hermite/1d.coeffs/1d.cube.order3/coeff-I.compute.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

fp t10,
   t9,
   t8,
   t7;
      t10 = x*x;
      t9 = x*t10;
      t8 = RATIONAL(1.0,12.0);
      t7 = RATIONAL(-1.0,12.0);
      coeff_I_m2 = RATIONAL(-1.0,6.0)*t10+(x+t9)*t8;
      coeff_I_m1 = RATIONAL(-2.0,3.0)*x+RATIONAL(5.0,4.0)*t10+RATIONAL(-7.0,
12.0)*t9;
      coeff_I_0 = RATIONAL(-7.0,3.0)*t10+RATIONAL(1.0,1.0)+RATIONAL(4.0,3.0)*t9
;
      coeff_I_p1 = RATIONAL(-4.0,3.0)*t9+RATIONAL(2.0,3.0)*x+RATIONAL(5.0,3.0)*
t10;
      coeff_I_p2 = RATIONAL(7.0,12.0)*t9+t7*x+RATIONAL(-1.0,2.0)*t10;
      coeff_I_p3 = t7*t9+t8*t10;