1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
fp t96,
t100,
t101,
t104,
t107,
t102,
t106,
t113,
t112,
t111,
t103,
t99,
t98,
t97;
t96 = RATIONAL(-13.0,48.0);
t100 = RATIONAL(1.0,48.0);
t101 = RATIONAL(3.0,4.0);
t104 = x*x;
t107 = t104*x;
t102 = t107*t107;
t106 = t104*t104;
t113 = t100*t102+t101*t104+t96*t106;
t112 = RATIONAL(1.0,720.0)*t102+RATIONAL(1.0,180.0)*t104+RATIONAL(-1.0,
144.0)*t106;
t111 = RATIONAL(1.0,12.0)*t106+RATIONAL(-3.0,40.0)*t104+RATIONAL(-1.0,
120.0)*t102;
t103 = t104*t107;
t99 = RATIONAL(-1.0,60.0);
t98 = RATIONAL(1.0,60.0);
t97 = RATIONAL(-1.0,48.0);
coeff_I_m3 = t99*x+t100*t107+RATIONAL(-1.0,240.0)*t103+t112;
coeff_I_m2 = RATIONAL(3.0,20.0)*x+RATIONAL(-1.0,6.0)*t107+t98*t103+t111;
coeff_I_m1 = RATIONAL(-3.0,4.0)*x+RATIONAL(13.0,48.0)*t107+t97*t103+t113;
coeff_I_0 = RATIONAL(7.0,18.0)*t106+RATIONAL(-49.0,36.0)*t104+RATIONAL(
1.0,1.0)+RATIONAL(-1.0,36.0)*t102;
coeff_I_p1 = t96*t107+t101*x+t100*t103+t113;
coeff_I_p2 = RATIONAL(1.0,6.0)*t107+RATIONAL(-3.0,20.0)*x+t99*t103+t111;
coeff_I_p3 = t97*t107+t98*x+RATIONAL(1.0,240.0)*t103+t112;
|