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

Lines Matching refs:NIMAG
74 #define NIMAG(num)		&((num)->imag)
630 	    set_real_object(NIMAG(num), OCXI(obj));
656 	clear_real(NIMAG(num));
711 	OCXI(obj) = make_real_object(NIMAG(num));
1217     abs_real(NIMAG(num));
1219     if (cmp_real_real(NREAL(num), NIMAG(num)) < 0) {
1220 	memcpy(&temp, NIMAG(num), sizeof(n_real));
1221 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1225     if (cmp_real_real(NIMAG(num), &zero) == 0) {
1234 	    clear_real(NIMAG(num));
1237 	div_real_real(NIMAG(num), NREAL(num));
1238 	set_real_real(&temp, NIMAG(num));
1239 	mul_real_real(NIMAG(num), &temp);
1242 	add_real_real(NIMAG(num), &one);
1243 	sqrt_real(NIMAG(num));
1245 	mul_real_real(NIMAG(num), NREAL(num));
1247 	memcpy(NREAL(num), NIMAG(num), sizeof(n_real));
1308 	neg_real(NIMAG(num));
1528     set_real_real(imag, NIMAG(num));
1547 	div_real_real(NIMAG(num), NREAL(num));
1548 	div_real_real(NIMAG(num), &two);
1552 	memcpy(imag, NIMAG(num), sizeof(n_real));
1555 	memcpy(NIMAG(num), real, sizeof(n_real));
1556 	sub_real_real(NIMAG(num), NREAL(num));
1557 	div_real_real(NIMAG(num), &two);
1558 	sqrt_real(NIMAG(num));
1560 	    neg_real(NIMAG(num));
1566 	div_real_real(NREAL(num), NIMAG(num));
1577 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1578 	neg_real(NIMAG(num));
1579 	rsqrt_xi(NIMAG(num));
1612 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1613 	neg_real(NIMAG(num));
1614 	rsqrt_xr(NIMAG(num));
2460 		return (cmp_real_object(NIMAG(op1), OCXI(op2)));
2463 	else if (cmp_real_real(NIMAG(op1), &zero) == 0)
3274 		    if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3279 		    if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3286 		    if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3290 		    if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3300 	sub_real_object(NIMAG(num), div);
3304 	add_real_object(NIMAG(num), div);
3391 		    if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3396 		    if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3403 		    if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3407 		    if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3417 	sub_real_object(NIMAG(num), div);
3421 	add_real_object(NIMAG(num), div);
3486     rbr_canonicalize(NIMAG(num));
3487     rsign = cmp_real_real(NIMAG(num), &zero);
3506 			if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3511 			if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3518 			if (cmp_real_real(NIMAG(num), &cmp) >= 0)
3522 			if (cmp_real_real(NIMAG(num), &cmp) <= 0)
3533 	sub_real_object(NIMAG(num), div);
3537 	add_real_object(NIMAG(num), div);
3572     set_real_object(NIMAG(num), OCXI(comp));
3591     mul_real_object(NIMAG(num), OCXI(comp));
3605     set_real_real(NIMAG(num), NREAL(num));
3611     mul_real_object(NIMAG(num), OCXI(comp));
3643     mul_real_object(NIMAG(num), OCXI(comp));
3644     mul_real_real(NIMAG(num), NREAL(num));
3650     div_real_real(NIMAG(num), &div);
3691     mul_real_object(NIMAG(num), re);
3703     div_real_object(NIMAG(num), re);
3719     add_real_object(NIMAG(num), OCXI(comp));
3731     sub_real_object(NIMAG(num), OCXI(comp));
3744     set_real_real(&IaIb, NIMAG(num));
3756     mul_real_object(NIMAG(num), OCXR(comp));
3757     add_real_real(NIMAG(num), &RaIb);
3774     set_real_real(&temp1, NIMAG(num));
3787     mul_real_object(NIMAG(num), OCXR(comp));
3788     sub_real_real(NIMAG(num), &temp2);
3805     div_real_real(NIMAG(num), &temp1);