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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
fp t25,
t27,
t17,
t28,
t19,
t34,
t33,
t22,
t14,
t23,
t32,
t16,
t31,
t26,
t20,
t30,
t21,
t29,
t18,
t15,
t13,
t12;
t25 = RATIONAL(1.0,6.0);
t27 = x*x;
t17 = t25*t27;
t28 = y*y;
t19 = t25*t28;
t34 = t17+RATIONAL(-1.0,9.0)+t19;
t33 = x*y;
t22 = RATIONAL(-1.0,3.0);
t14 = t22*t28;
t23 = RATIONAL(2.0,9.0);
t32 = t14+t17+t23;
t16 = t22*t27;
t31 = t16+t23+t19;
t26 = RATIONAL(-1.0,6.0);
t20 = t26*y;
t30 = t20+t34;
t21 = t25*y;
t29 = t21+t34;
t18 = t26*x;
t15 = t25*x;
t13 = RATIONAL(1.0,4.0)*t33;
t12 = RATIONAL(-1.0,4.0)*t33;
coeff_I_m1_m1 = t18+t13+t30;
coeff_I_0_m1 = t20+t31;
coeff_I_p1_m1 = t12+t15+t30;
coeff_I_m1_0 = t18+t32;
coeff_I_0_0 = t14+t16+RATIONAL(5.0,9.0);
coeff_I_p1_0 = t15+t32;
coeff_I_m1_p1 = t12+t18+t29;
coeff_I_0_p1 = t21+t31;
coeff_I_p1_p1 = t15+t13+t29;
|
