1 f (double x
[2], double y
[2])
9 struct { int f
[3]; double x
[1][2]; } tp
[4][2];
10 int i
, j
, ki
, kj
, mi
, mj
;
11 float bdm
[4][2][4][2];
13 for (i
= 0; i
< 4; i
++)
14 for (j
= i
; j
< 4; j
++)
15 for (ki
= 0; ki
< 2; ki
++)
16 for (kj
= 0; kj
< 2; kj
++)
17 if ((j
== i
) && (ki
== kj
))
18 bdm
[i
][ki
][j
][kj
] = 1000.0;
21 for (mi
= 0; mi
< 1; mi
++)
22 for (mj
= 0; mj
< 1; mj
++)
23 f (tp
[i
][ki
].x
[mi
], tp
[j
][kj
].x
[mj
]);
24 bdm
[i
][ki
][j
][kj
] = 1000.0;