Another restructuring: moved include/*.h -> include/GiNaC/*.h in order to
[ginac.git] / check / numeric_output.cpp
1 // check/numeric_output.cpp
2
3 #include <GiNaC/ginac.h>
4
5 unsigned numeric_output(void)
6 {
7     unsigned result = 0;
8     
9     cout << "checking output of numeric types..." << flush;
10     clog << "---------output of numeric types:" << endl;
11     
12     unsigned long Digits_before = Digits;
13     Digits = 200;
14     clog << "Using " << Digits << " digits" << endl;
15     clog << Pi << " evalfs to: " << Pi.evalf() << endl;
16     clog << Catalan << " evalfs to: " << Catalan.evalf() << endl;
17     clog << EulerGamma << " evalfs to: " << EulerGamma.evalf() << endl;
18     clog << "Complex integers: ";
19     clog << "{(0,0)=" << ex(0 + 0*I) << "} ";
20     clog << "{(1,0)=" << ex(1 + 0*I) << "} ";
21     clog << "{(1,1)=" << ex(1 + 1*I) << "} ";
22     clog << "{(0,1)=" << ex(0 + 1*I) << "} ";
23     clog << "{(-1,1)=" << ex(-1 + 1*I) << "} ";
24     clog << "{(-1,0)=" << ex(-1 + 0*I) << "} ";
25     clog << "{(-1,-1)=" << ex(-1 - 1*I) << "} ";
26     clog << "{(0,-1)=" << ex(0 - 1*I) << "} ";
27     clog << "{(1,-1)=" << ex(1 - 1*I) << "} " << endl;
28     Digits = Digits_before;
29     
30     if (! result) {
31         cout << " passed ";
32     } else {
33         cout << " failed ";
34     }
35     
36     return result;
37 }