File: generate_test_values.cpp

package info (click to toggle)
scipy 1.16.0-1exp7
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 234,820 kB
  • sloc: cpp: 503,145; python: 344,611; ansic: 195,638; javascript: 89,566; fortran: 56,210; cs: 3,081; f90: 1,150; sh: 848; makefile: 785; pascal: 284; csh: 135; lisp: 134; xml: 56; perl: 51
file content (41 lines) | stat: -rw-r--r-- 896 bytes parent folder | download | duplicates (18)
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
//  (C) Copyright John Maddock 2005.
//  Use, modification and distribution are subject to the
//  Boost Software License, Version 1.0. (See accompanying file
//  LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)

#ifndef NTL_STD_CXX
#  define NTL_STD_CXX
#endif

#include <iostream>
#include <iomanip>
#include "mp_t.hpp"

mp_t log1p(mp_t arg)
{
   return log(arg + 1);
}

mp_t expm1(mp_t arg)
{
   return exp(arg) - 1;
}

int main()
{
   mp_t r, root_two;
   r = 1.0;
   root_two = 2.0;
   root_two = sqrt(root_two);
   r /= root_two;
   mp_t lim = pow(mp_t(2), mp_t(-128));
   std::cout << std::scientific << std::setprecision(40);
   while(r > lim)
   {
      std::cout << "   { " << r << "L, " << log1p(r) << "L, " << expm1(r) << "L, }, \n";
      std::cout << "   { " << -r << "L, " << log1p(-r) << "L, " << expm1(-r) << "L, }, \n";
      r /= root_two;
   }
   return 0;
}