search for: 9e10

...================================== --- psy.c (revision 18737) +++ psy.c (working copy) @@ -29,7 +29,7 @@ #include "scales.h" #include "misc.h" -#define NEGINF -9999.f +#define NEGINF (-9999.f) static const double stereo_threshholds[]={0.0, .5, 1.0, 1.5, 2.5, 4.5, 8.5, 16.5, 9e10}; static const double stereo_threshholds_limited[]={0.0, .5, 1.0, 1.5, 2.0, 2.5, 4.5, 8.5, 9e10}; @@ -40,7 +40,7 @@ look->channels=vi->channels; - look->ampmax=-9999.; + look->ampmax=NEGINF; look->gi=gi; return(look); } @@ -836,7 +836,7 @@ float secs=(float)n/vi...

dear R experts--- I have (many) unidimensional root problems. think loc.of.root <- uniroot( f= function(x,a) log( exp(a) + a) + a, c(.,9e10), a=rnorm(1) ) $root (for some coefficients a, there won't be a solution; for others, it may exceed the domain. implied volatilities in various Black-Scholes formulas and variant formulas are like this, too.) except I don't need 1 root, but a few million. to get so many roots, I can use...

...1 psy.c --- a/psy.c 21 Oct 2002 07:00:11 -0000 1.81 +++ b/psy.c 23 Mar 2004 03:16:32 -0000 @@ -29,6 +29,8 @@ #include "scales.h" #include "misc.h" +#include <stdint.h> + #define NEGINF -9999.f static double stereo_threshholds[]={0.0, .5, 1.0, 1.5, 2.5, 4.5, 8.5, 16.5, 9e10}; @@ -966,9 +968,17 @@ /* this is for per-channel noise normalization */ static int apsort(const void *a, const void *b){ - float f1=fabs(**(float**)a); - float f2=fabs(**(float**)b); +#if 0 + float f1=fabsf(**(float**)a); + float f2=fabsf(**(float**)b); return (f1<f2)-(f1>f2); +#e...