blob: 221b33b3a9b4067d89c17a6a2e89763e74623f7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
fp t7,
t6,
t5,
t4,
t3,
t2,
t1;
t7 = RATIONAL(-1.0,2.0);
t6 = RATIONAL(1.0,4.0);
t5 = RATIONAL(1.0,2.0);
t4 = t7*y;
t3 = t7*x;
t2 = t5*x;
t1 = t5*y;
coeff_I_0_0 = RATIONAL(3.0,4.0)+t4+t3;
coeff_I_p1_0 = t6+t4+t2;
coeff_I_0_p1 = t3+t6+t1;
coeff_I_p1_p1 = t1+RATIONAL(-1.0,4.0)+t2;
|