result_imag 881 src/number.c double result_real, result_imag; result_imag 904 src/number.c result_imag = 0.0; result_imag 938 src/number.c result_imag = 0.0; result_imag 952 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); result_imag 963 src/number.c result_imag += SCM_COMPLEX_IMAG(arg1); result_imag 967 src/number.c result_imag), result_imag 971 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_imag 985 src/number.c double result_real, result_imag; result_imag 990 src/number.c result_imag = 0.0; result_imag 1052 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); result_imag 1063 src/number.c result_imag -= SCM_COMPLEX_IMAG(arg1); result_imag 1067 src/number.c result_imag), result_imag 1071 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_imag 1087 src/number.c double result_real, result_imag; result_imag 1113 src/number.c result_imag = 0.0; result_imag 1142 src/number.c result_imag = 0.0; result_imag 1155 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); result_imag 1160 src/number.c result_imag *= (double)SCM_INT_VALUE(arg1); result_imag 1164 src/number.c result_imag *= dd; result_imag 1167 src/number.c result_imag *= SCM_FLONUM_VALUE(arg1); result_imag 1171 src/number.c double t = result_real * r - result_imag * i; result_imag 1172 src/number.c result_imag = result_real * i + result_imag * r; result_imag 1177 src/number.c result_imag), result_imag 1181 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_imag 1198 src/number.c double result_real = 0.0, result_imag = 0.0; result_imag 1203 src/number.c result_real = result_imag = div_real = div_imag = 0.0; result_imag 1275 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); result_imag 1291 src/number.c result_imag), result_imag 1295 src/number.c r = (result_real*div_real + result_imag*div_imag)/d; result_imag 1296 src/number.c i = (result_imag*div_real - result_real*div_imag)/d; result_imag 1298 src/number.c result_imag = i; result_imag 1300 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag);