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
54
55
56
57
58
59
60
|
#include "write_test.h"
char* header1 =
"# Data file for mpc_fr_sub.\n"
"#\n"
"# Copyright (C) 2008 Andreas Enge\n"
"#\n"
;
char* header2 =
"# For explanations on the file format, see add_fr.dat.\n\n"
;
int main () {
int op1i, op2rei, op2imi;
// index in values table
char *op1, *op2re, *op2im;
printf ("%s%s%s", header1, licence, header2);
printf ("# special values\n");
for (op1i = 0; op1i < valueslen; op1i++)
for (op2rei = 0; op2rei < valueslen; op2rei++)
for (op2imi = 0; op2imi < valueslen; op2imi++)
{
op1 = values [op1i];
op2re = values [op2rei];
op2im = values [op2imi];
if ( (index (infvalues, infvalueslen, op1) != -1)
|| (index (infvalues, infvalueslen, op2re) != -1)
|| (index (infvalues, infvalueslen, op2im) != -1))
{
// at least one infinite value
printf ("7 %4s 7 %4s ",
sub_fr_fr (op1, op2re), neg_fr (op2im));
printf ("7 %4s 7 %4s 7 %4s N N\n",
op1, op2re, op2im);
}
}
printf ("\n# values with only 1, -1, +0, -0\n");
for (op1i = 0; op1i < valueslen; op1i++)
for (op2rei = 0; op2rei < valueslen; op2rei++)
for (op2imi = 0; op2imi < valueslen; op2imi++)
{
op1 = values [op1i];
op2re = values [op2rei];
op2im = values [op2imi];
if ( (index (infvalues, infvalueslen, op1) == -1)
&& (index (infvalues, infvalueslen, op2re) == -1)
&& (index (infvalues, infvalueslen, op2im) == -1))
{
printf ("7 %4s 7 %4s ",
sub_fr_fr (op1, op2re), neg_fr (op2im));
printf ("7 %4s 7 %4s 7 %4s N N\n",
op1, op2re, op2im);
}
}
return 1;
}
|
