Cross Reference: /xsrc/external/mit/xedit/dist/lisp/mathimp.c

Lines Matching defs:den
65 #define NRFRD(num)		(num)->real.data.fixratio.den
80 #define NIFRD(num)		(num)->imag.data.fixratio.den
91 #define RFRD(real)		(real)->data.fixratio.den
130 	    long den;
1463     n_real num, den;
1469 	num.type = den.type = N_FIXNUM;
1471 	den.data.fixnum = RFRD(real);
1489 	    den.type = N_FIXNUM;
1490 	    den.data.fixnum = mpi_geti(RBRD(real));
1496 	    den.type = N_BIGNUM;
1497 	    den.data.bignum = bignum;
1502     rsqrt_xi(&den);
1506     div_real_real(real, &den);
1507     clear_real(&den);
2787     long num, numerator, den, denominator, rest;
2790     den = denominator = RFRD(real);
2794     if (num == MINSLONG || den == MINSLONG) {
2798 	mpr_seti(bigratio, num, den);
2813 	if ((rest = den % num) == 0)
2815 	den = num;
2818     if (den != 1) {
4080 rop_fi_fr_as_xr(n_real *real, long num, long den, int nop)
4085     fit = !fi_fi_mul_overflow(op, den);
4087 	value = op * den;
4098 	RFRD(real) = den;
4108 	mpi_muli(&iop, &iop, den);
4111 	mpr_seti(bigr, num, den);
4124 rop_fi_fr_md_xr(n_real *real, long num, long den, int nop)
4132 	fit = !fi_fi_mul_overflow(op, den);
4136 	    RFRD(real) = den;
4139 	    RFRN(real) = op * den;
4154 	    mpr_seti(bigr, num, den);
4156 	    mpr_seti(bigr, den, num);
4166 radd_fi_fr(n_real *real, long num, long den)
4168     rop_fi_fr_as_xr(real, num, den, NOP_ADD);
4172 rsub_fi_fr(n_real *real, long num, long den)
4174     rop_fi_fr_as_xr(real, num, den, NOP_SUB);
4178 rmul_fi_fr(n_real *real, long num, long den)
4180     rop_fi_fr_md_xr(real, num, den, NOP_MUL);
4184 rdiv_fi_fr(n_real *real, long num, long den)
4186     rop_fi_fr_md_xr(real, num, den, NOP_DIV);
4190 cmp_fi_fr(long fi, long num, long den)
4192     return (cmp_flonum((double)fi, (double)num / (double)den));
4379 rop_bi_fr_as_xr(n_real *real, long num, long den, int nop)
4386     mpi_muli(&iop, &iop, den);
4389     mpr_seti(bigr, num, den);
4404 rop_bi_fr_md_xr(n_real *real, long num, long den, int nop)
4410     mpr_seti(bigr, num, den);
4426 radd_bi_fr(n_real *real, long num, long den)
4428     rop_bi_fr_as_xr(real, num, den, NOP_ADD);
4432 rsub_bi_fr(n_real *real, long num, long den)
4434     rop_bi_fr_as_xr(real, num, den, NOP_SUB);
4438 rmul_bi_fr(n_real *real, long num, long den)
4440     rop_bi_fr_md_xr(real, num, den, NOP_MUL);
4444 rdiv_bi_fr(n_real *real, long num, long den)
4446     rop_bi_fr_md_xr(real, num, den, NOP_DIV);
4450 cmp_bi_fr(mpi *bignum, long num, long den)
4460     mpr_seti(&cmp2, num, den);
4565     long value = 0, num = RFRN(real), den = RFRD(real);
4567     fit = !fi_fi_mul_overflow(op, den);
4570 	value = op * den;
4588 	mpr_seti(bigr, num, den);
4591 	mpi_muli(&iop, &iop, den);
4606     long num = RFRN(real), den = RFRD(real);
4615     else if (!fi_fi_mul_overflow(op, den)) {
4616 	RFRD(real) = op * den;
4625 	mpr_seti(bigr, num, den);
4661 cmp_fr_fi(long num, long den, long fixnum)
4663     return (cmp_flonum((double)num / (double)den, (double)fixnum));
4737 cmp_fr_bi(long num, long den, mpi *bignum)
4743     mpr_seti(&cmp1, num, den);
4764     long num1 = RFRN(real), den1 = RFRD(real), num = 0, den = 0;
4771 	    den = num2 * den1;
4773 		if ((fit = !fi_fi_add_overflow(num, den)) != 0)
4774 		    num += den;
4776 	    else if ((fit = !fi_fi_sub_overflow(num, den)) != 0)
4777 		num -= den;
4781 		    den = den1 * den2;
4787 	RFRD(real) = den;
4816     long num1 = RFRN(real), den1 = RFRD(real), num = 0, den = 0;
4822 	    den = den1 * den2;
4829 	    den = den1 * num2;
4835 	RFRD(real) = den;
4861 radd_fr_fr(n_real *real, long num, long den)
4863     rop_fr_fr_as_xr(real, num, den, NOP_ADD);
4867 rsub_fr_fr(n_real *real, long num, long den)
4869     rop_fr_fr_as_xr(real, num, den, NOP_SUB);
4873 rmul_fr_fr(n_real *real, long num, long den)
4875     rop_fr_fr_md_xr(real, num, den, NOP_MUL);
4879 rdiv_fr_fr(n_real *real, long num, long den)
4881     rop_fr_fr_md_xr(real, num, den, NOP_DIV);
4948 cmp_fr_br(long num, long den, mpr *bigratio)
4954     mpr_seti(&cmp1, num, den);
5096 rop_br_fr_asmd_xr(n_real *real, long num, long den, int nop)
5101     mpr_seti(&rop, num, den);
5121 radd_br_fr(n_real *real, long num, long den)
5123     rop_br_fr_asmd_xr(real, num, den, NOP_ADD);
5127 rsub_br_fr(n_real *real, long num, long den)
5129     rop_br_fr_asmd_xr(real, num, den, NOP_SUB);
5133 rmul_br_fr(n_real *real, long num, long den)
5135     rop_br_fr_asmd_xr(real, num, den, NOP_MUL);
5139 rdiv_br_fr(n_real *real, long num, long den)
5141     rop_br_fr_asmd_xr(real, num, den, NOP_DIV);
5145 cmp_br_fr(mpr *bigratio, long num, long den)
5151     mpr_seti(&cmp2, num, den);