blob: 2df6cd14767241375e3d012b767ba72c91a3fa12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
fp t10,
t9,
t8,
t7,
t6,
t5;
t10 = x*x;
t9 = x*t10;
t8 = RATIONAL(-1.0,2.0);
t7 = RATIONAL(1.0,2.0);
t6 = RATIONAL(-1.0,6.0);
t5 = t7*t10;
coeff_I_m1 = RATIONAL(-1.0,3.0)*x+t5+t6*t9;
coeff_I_0 = RATIONAL(1.0,1.0)+t8*x-t10+t7*t9;
coeff_I_p1 = x+t5+t8*t9;
coeff_I_p2 = t6*x+RATIONAL(1.0,6.0)*t9;
|