blob: a3dda780841196c9611024e1c213e24a4929ebe4 (
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 = t5*y;
t3 = t7*y;
t2 = t7*x;
t1 = t5*x;
coeff_I_0_0 = RATIONAL(3.0,4.0)+t3+t2;
coeff_I_p1_0 = t6+t3+t1;
coeff_I_0_p1 = t2+t6+t4;
coeff_I_p1_p1 = t4+RATIONAL(-1.0,4.0)+t1;
|