1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
fp t82,
t86,
t85,
t83,
t79;
t82 = x*x;
t86 = RATIONAL(1.0,2.0)*t82+RATIONAL(-1.0,12.0);
t85 = RATIONAL(-2.0,1.0)*t82+RATIONAL(4.0,3.0);
t83 = t82*x;
t79 = RATIONAL(-1.0,4.0)*x;
coeff_dxx_m2 = t79+RATIONAL(-1.0,6.0)*t83+t86;
coeff_dxx_m1 = t79+RATIONAL(5.0,6.0)*t83+t85;
coeff_dxx_0 = RATIONAL(-5.0,3.0)*t83+RATIONAL(5.0,2.0)*x+RATIONAL(3.0,1.0
)*t82+RATIONAL(-5.0,2.0);
coeff_dxx_p1 = RATIONAL(5.0,3.0)*t83+RATIONAL(-7.0,2.0)*x+t85;
coeff_dxx_p2 = RATIONAL(7.0,4.0)*x+RATIONAL(-5.0,6.0)*t83+t86;
coeff_dxx_p3 = t79+RATIONAL(1.0,6.0)*t83;
|