X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=tests%2Fmain.cc;h=e928abfb9722885003530f045a315dc0f35dad39;hb=1bf866178f2ccea16ae2f6cfc977279d42b17a00;hp=6978abdf04e08850c93d024e9a02a97e4fe2e416;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git diff --git a/tests/main.cc b/tests/main.cc index 6978abd..e928abf 100644 --- a/tests/main.cc +++ b/tests/main.cc @@ -1,28 +1,28 @@ //#define WANT_OBFUSCATING_OPERATORS -#include -#include -//#include -//#include -//#include -//#include -//#include -#include -#include -//#include -//#include -#include +#include +#include +//#include +//#include +//#include +//#include +//#include +#include +#include +//#include +//#include +#include #define DUMP(expr) \ - fprint(cl_stdout, #expr" = "); fprint(cl_stdout, expr); fprint(cl_stdout, "\n"); + fprint(cout, #expr" = "); fprint(cout, expr); fprint(cout, "\n"); int main (int argc, char* argv[]) { (void)argc; (void)argv; #if 0 - cl_F pi = cl_pi((cl_float_format_t)10000); - fprint(cl_stdout, pi); - fprint(cl_stdout, "\n"); + cl_F archimedes = pi((float_format_t)10000); + fprint(cout, archimedes); + fprint(cout, "\n"); #endif #if 0 @@ -30,11 +30,11 @@ int main (int argc, char* argv[]) cl_FF x1 = "-0.2173f0"; cl_FF x2 = "5.5084f9"; cl_FF y = "-1.19698f9"; - fprint(cl_stdout, "x1 = "); print_float_binary(cl_stdout,x1); fprint(cl_stdout, " = "); fprint(cl_stdout,x1); fprint(cl_stdout, "\n"); - fprint(cl_stdout, "x2 = "); print_float_binary(cl_stdout,x2); fprint(cl_stdout, " = "); fprint(cl_stdout,x2); fprint(cl_stdout, "\n"); - fprint(cl_stdout, "y = "); print_float_binary(cl_stdout,y); fprint(cl_stdout, " = "); fprint(cl_stdout,y); fprint(cl_stdout, "\n"); + fprint(cout, "x1 = "); print_float_binary(cout,x1); fprint(cout, " = "); fprint(cout,x1); fprint(cout, "\n"); + fprint(cout, "x2 = "); print_float_binary(cout,x2); fprint(cout, " = "); fprint(cout,x2); fprint(cout, "\n"); + fprint(cout, "y = "); print_float_binary(cout,y); fprint(cout, " = "); fprint(cout,y); fprint(cout, "\n"); cl_FF x = x1*x2; - fprint(cl_stdout, "x1*x2 = "); print_float_binary(cl_stdout,x); fprint(cl_stdout, " = "); fprint(cl_stdout,x); fprint(cl_stdout, "\n"); + fprint(cout, "x1*x2 = "); print_float_binary(cout,x); fprint(cout, " = "); fprint(cout,x); fprint(cout, "\n"); #endif #if 0 @@ -42,8 +42,8 @@ int main (int argc, char* argv[]) cl_I y = ++x; x *= 2; x++; - fprint(cl_stdout, "x = "); fprint(cl_stdout, x); fprint(cl_stdout, "\n"); - fprint(cl_stdout, "y = "); fprint(cl_stdout, y); fprint(cl_stdout, "\n"); + fprint(cout, "x = "); fprint(cout, x); fprint(cout, "\n"); + fprint(cout, "y = "); fprint(cout, y); fprint(cout, "\n"); #endif #if 0 @@ -59,7 +59,7 @@ int main (int argc, char* argv[]) #if 0 cl_I m = "79228162513111556826425457664"; cl_I a = "19787815858762768436681494528"; - cl_modint_ring R = cl_find_modint_ring(m); + cl_modint_ring R = find_modint_ring(m); cl_I b = R->retract(R->canonhom(a)); cl_I c = mod(a,abs(m)); DUMP(b); @@ -80,14 +80,14 @@ int main (int argc, char* argv[]) #endif #if 0 - cl_float_format_t f = cl_float_format(atoi(argv[1])); - extern cl_LF cl_zeta3 (uintC len); + float_format_t f = float_format(atoi(argv[1])); + extern cl_LF zeta3 (uintC len); uintC len = (uintL)f/intDsize+1; - { CL_TIMING; cout << cl_zeta(2,f) << endl; } - { CL_TIMING; cout << expt(cl_pi(f),2)/6 << endl; } - { CL_TIMING; cout << cl_zeta(3,f) << endl; } - { CL_TIMING; cout << cl_zeta3(len) << endl; } - { CL_TIMING; cout << cl_zeta(4,f) << endl; } + { CL_TIMING; cout << zeta(2,f) << endl; } + { CL_TIMING; cout << expt(pi(f),2)/6 << endl; } + { CL_TIMING; cout << zeta(3,f) << endl; } + { CL_TIMING; cout << zeta3(len) << endl; } + { CL_TIMING; cout << zeta(4,f) << endl; } #endif cl_I a = cl_I(argv[1]);