fp t123, t125, t126, t129, t127, t133, t132, t131; t123 = RATIONAL(-3.0,20.0); t125 = x*x; t126 = x*t125; t129 = t125*t125; t127 = x*t129; t133 = RATIONAL(-1.0,20.0)*t127+t123*x+RATIONAL(1.0,3.0)*t126; t132 = RATIONAL(1.0,90.0)*x+RATIONAL(-1.0,36.0)*t126+RATIONAL(1.0,120.0)* t127; t131 = RATIONAL(-13.0,12.0)*t126+RATIONAL(3.0,2.0)*x+RATIONAL(1.0,8.0)* t127; coeff_dx_m3 = RATIONAL(-1.0,60.0)+RATIONAL(1.0,16.0)*t125+RATIONAL(-1.0, 48.0)*t129+t132; coeff_dx_m2 = RATIONAL(3.0,20.0)+RATIONAL(1.0,12.0)*t129+RATIONAL(-1.0, 2.0)*t125+t133; coeff_dx_m1 = RATIONAL(-3.0,4.0)+RATIONAL(13.0,16.0)*t125+RATIONAL(-5.0, 48.0)*t129+t131; coeff_dx_0 = RATIONAL(-1.0,6.0)*t127+RATIONAL(14.0,9.0)*t126+RATIONAL( -49.0,18.0)*x; coeff_dx_p1 = RATIONAL(5.0,48.0)*t129+RATIONAL(3.0,4.0)+RATIONAL(-13.0, 16.0)*t125+t131; coeff_dx_p2 = t123+RATIONAL(1.0,2.0)*t125+RATIONAL(-1.0,12.0)*t129+t133; coeff_dx_p3 = RATIONAL(1.0,60.0)+RATIONAL(1.0,48.0)*t129+RATIONAL(-1.0, 16.0)*t125+t132;