songsenand
/
cgal
mirror of https://github.com/CGAL/cgal
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- to_interval(leda_integer) improvement, by Michael Seel.

This commit is contained in:
Sylvain Pion 2001-05-28 14:04:32 +00:00
parent 9765fe77e0
commit c0aca81613
2 changed files with 16 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Packages/Number_types/changes.txt
View File

@ -1,3 +1,6 @@
4.15 (28 May 01)
- to_interval(leda_integer) improvement, by Michael Seel.
4.14 (1 Mar 01)
- Added operator% to Gmpz.

50
Packages/Number_types/include/CGAL/leda_integer.h
View File

@ -20,40 +20,20 @@
// coordinator : MPI, Saarbruecken (<Stefan.Schirra@mpi-sb.mpg.de>)
// ======================================================================
#ifndef CGAL_INTEGER_H
#define CGAL_INTEGER_H
#ifndef CGAL_LEDA_INTEGER_H
#define CGAL_LEDA_INTEGER_H
#include <CGAL/basic.h>
// #ifndef IO_IO_TAGS_H
// #include <CGAL/IO/io_tags.h>
// #endif // IO_IO_TAGS_H
// #ifndef CGAL_NUMBER_TYPE_TAGS_H
// #include <CGAL/number_type_tags.h>
// #endif // CGAL_NUMBER_TYPE_TAGS_H
/*
#if !defined(LEDA_ROOT_INCL_ID)
#define LEDA_ROOT_INCL_ID 349063
#include <LEDA/REDEFINE_NAMES.h>
#endif
*/
#ifndef CGAL_PROTECT_LEDA_INTEGER_H
#include <LEDA/integer.h>
#define CGAL_PROTECT_LEDA_INTEGER_H
#endif // CGAL_PROTECT_LEDA_INTEGER_H
CGAL_BEGIN_NAMESPACE
#ifndef CGAL_CFG_NO_NAMESPACE
inline
double
to_double(const leda_integer & i)
{ return i.to_double(); }
#endif // CGAL_CFG_NO_NAMESPACE
#endif
inline
Number_tag
@ -80,27 +60,23 @@ inline
Sign
sign(const leda_integer& n)
{ return (Sign)::sign(n); }
#endif // CGAL_CFG_NO_NAMESPACE
#endif
inline
Interval_base
to_interval (const leda_integer & z)
{
Protect_FPU_rounding<true> P (CGAL_FE_TONEAREST);
Interval_nt_advanced approx (z.to_double());
FPU_set_cw(CGAL_FE_UPWARD);
return approx + Interval_base::Smallest;
double cn = CGAL::to_double(n);
leda_integer pn = ( n>0 ? n : -n);
if ( pn.iszero() || log(pn) < 53 )
return Interval_base(cn);
else {
FPU_set_cw(CGAL_FE_UPWARD);
return Interval_base(cn)+Interval_base::Smallest;
}
}
CGAL_END_NAMESPACE
/*
#if LEDA_ROOT_INCL_ID == 349063
#undef LEDA_ROOT_INCL_ID
#include <LEDA/UNDEFINE_NAMES.h>
#endif
*/
#endif // CGAL_INTEGER_H
#endif // CGAL_LEDA_INTEGER_H