Average Error: 2.2 → 0.3
Time: 7.1s
Precision: binary64
\[\]
↓
\[\]
↓
double code(double x, double y, double z, double t, double a, double b) {
	return ((double) (x * ((double) exp(((double) (((double) (y * ((double) (((double) log(z)) - t)))) + ((double) (a * ((double) (((double) log(((double) (1.0 - z)))) - b))))))))));
}

↓
double code(double x, double y, double z, double t, double a, double b) {
	double VAR;
	if ((((double) (((double) (y * ((double) (((double) log(z)) - t)))) + ((double) (a * ((double) (((double) log(((double) (1.0 - z)))) - b)))))) <= 5.197244624865617e+115)) {
		VAR = ((double) (x * ((double) exp(((double) (((double) (y * ((double) (((double) log(z)) - t)))) + ((double) (a * ((double) (((double) (((double) log(1.0)) + ((double) (((double) (((double) (((double) (z / 1.0)) * ((double) (z / 1.0)))) * -0.5)) - ((double) (z * 1.0)))))) - b))))))))));
	} else {
		VAR = ((double) (x * ((double) log(((double) pow(((double) exp(((double) pow(((double) (z / ((double) exp(t)))), y)))), ((double) pow(((double) (((double) (1.0 - z)) / ((double) exp(b)))), a))))))));
	}
	return VAR;
}

Error
Bits error versus x
Bits error versus y
Bits error versus z
Bits error versus t
Bits error versus a
Bits error versus b
Try it out
Your Program's Arguments
Results
Enter valid numbers for all inputs
Derivation
  1. Split input into 2 regimes
  2. if  (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b)))  < 5.19724462486561662e115
    1. Initial program 1.5
      \[\]
    2. Taylor expanded around 0 0.0
      \[\leadsto \]
    3. Simplified0.0
      \[\leadsto \]
    if 5.19724462486561662e115 <  (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))) 
    1. Initial program 64.0
      \[\]
    2. Using strategy rm
    3. Applied add-log-exp64.0
      \[\leadsto \]
    4. Simplified21.8
      \[\leadsto \]
  3. Recombined 2 regimes into one program.
  4. Final simplification0.3
    \[\leadsto \]
Reproduce
herbie shell --seed 2020190 
(FPCore (x y z t a b)
  :name "Numeric.SpecFunctions:incompleteBetaApprox from math-functions-0.1.5.2, B"
  :precision binary64
  (* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))))))