13 #include "cl_R_div_t.h"
17 const cl_R_fdiv_t ftruncate2 (const cl_R& x, const cl_R& y)
20 // x,y beide rational: truncate(x,y), Quotienten in Float umwandeln.
21 // Sonst: ftruncate(x/y) -> q,r. Liefere die Werte q und x-y*q = y*r.
24 // beides rationale Zahlen
27 var cl_R_div_t q_r = truncate2(x,y);
28 var cl_I& q = q_r.quotient;
29 var cl_R& r = q_r.remainder;
30 return cl_R_fdiv_t(cl_float(q),r);
32 var cl_R_fdiv_t q_r = ftruncate2(x/y);
33 var cl_F& q = q_r.quotient;
34 var cl_R& r = q_r.remainder;
35 return cl_R_fdiv_t(q,y*r);