You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
638 B
35 lines
638 B
// round2().
|
|
|
|
// General includes.
|
|
#include "cl_sysdep.h"
|
|
|
|
// Specification.
|
|
#include "cln/real.h"
|
|
|
|
|
|
// Implementation.
|
|
|
|
#include "cl_R.h"
|
|
#include "cln/rational.h"
|
|
#include "cl_R_div_t.h"
|
|
|
|
namespace cln {
|
|
|
|
const cl_R_div_t round2 (const cl_R& x, const cl_R& y)
|
|
{
|
|
// Methode:
|
|
// Beides rationale Zahlen -> round2(x,y).
|
|
// Sonst: round2(x/y) -> (q,r). Liefere q und x-y*q=y*r.
|
|
if (rationalp(x))
|
|
if (rationalp(y)) {
|
|
DeclareType(cl_RA,x);
|
|
DeclareType(cl_RA,y);
|
|
return round2(x,y);
|
|
}
|
|
var cl_R_div_t q_r = round2(x/y);
|
|
var cl_I& q = q_r.quotient;
|
|
var cl_R& r = q_r.remainder;
|
|
return cl_R_div_t(q,y*r);
|
|
}
|
|
|
|
} // namespace cln
|