sqrt 293 src/number.c m = sqrt(r*r+i*i); sqrt 706 src/number.c double a = sqrt(r*r+i*i); sqrt 889 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI/2.0, -log(x + sqrt(x*x-1.0))); sqrt 891 src/stdlib.c SCM_RESULT = Scm_MakeComplex(-M_PI/2.0, -log(-x - sqrt(x*x-1.0))); sqrt 915 src/stdlib.c SCM_RESULT = Scm_MakeComplex(0, log(x + sqrt(x*x-1.0))); sqrt 917 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI, log(-x - sqrt(x*x-1.0))); sqrt 1034 src/stdlib.c if (x < 0) SCM_RETURN(Scm_MakeComplex(0.0, sqrt(-x))); sqrt 1035 src/stdlib.c else SCM_RETURN(Scm_MakeFlonum(sqrt(x)));