Octave 3.8, oct_fill_randg

Percentage Accurate: 99.7% → 99.8%
Time: 7.5s
Alternatives: 10
Speedup: 2.4×

Specification

?
\[\begin{array}{l} \\ \begin{array}{l} t_0 := a - \frac{1}{3}\\ t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right) \end{array} \end{array} \]
(FPCore (a rand)
 :precision binary64
 (let* ((t_0 (- a (/ 1.0 3.0))))
   (* t_0 (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 t_0))) rand)))))
double code(double a, double rand) {
	double t_0 = a - (1.0 / 3.0);
	return t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, rand)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: rand
    real(8) :: t_0
    t_0 = a - (1.0d0 / 3.0d0)
    code = t_0 * (1.0d0 + ((1.0d0 / sqrt((9.0d0 * t_0))) * rand))
end function
public static double code(double a, double rand) {
	double t_0 = a - (1.0 / 3.0);
	return t_0 * (1.0 + ((1.0 / Math.sqrt((9.0 * t_0))) * rand));
}
def code(a, rand):
	t_0 = a - (1.0 / 3.0)
	return t_0 * (1.0 + ((1.0 / math.sqrt((9.0 * t_0))) * rand))
function code(a, rand)
	t_0 = Float64(a - Float64(1.0 / 3.0))
	return Float64(t_0 * Float64(1.0 + Float64(Float64(1.0 / sqrt(Float64(9.0 * t_0))) * rand)))
end
function tmp = code(a, rand)
	t_0 = a - (1.0 / 3.0);
	tmp = t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
end
code[a_, rand_] := Block[{t$95$0 = N[(a - N[(1.0 / 3.0), $MachinePrecision]), $MachinePrecision]}, N[(t$95$0 * N[(1.0 + N[(N[(1.0 / N[Sqrt[N[(9.0 * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := a - \frac{1}{3}\\
t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right)
\end{array}
\end{array}

Sampling outcomes in binary64 precision:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 10 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 99.7% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := a - \frac{1}{3}\\ t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right) \end{array} \end{array} \]
(FPCore (a rand)
 :precision binary64
 (let* ((t_0 (- a (/ 1.0 3.0))))
   (* t_0 (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 t_0))) rand)))))
double code(double a, double rand) {
	double t_0 = a - (1.0 / 3.0);
	return t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, rand)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: rand
    real(8) :: t_0
    t_0 = a - (1.0d0 / 3.0d0)
    code = t_0 * (1.0d0 + ((1.0d0 / sqrt((9.0d0 * t_0))) * rand))
end function
public static double code(double a, double rand) {
	double t_0 = a - (1.0 / 3.0);
	return t_0 * (1.0 + ((1.0 / Math.sqrt((9.0 * t_0))) * rand));
}
def code(a, rand):
	t_0 = a - (1.0 / 3.0)
	return t_0 * (1.0 + ((1.0 / math.sqrt((9.0 * t_0))) * rand))
function code(a, rand)
	t_0 = Float64(a - Float64(1.0 / 3.0))
	return Float64(t_0 * Float64(1.0 + Float64(Float64(1.0 / sqrt(Float64(9.0 * t_0))) * rand)))
end
function tmp = code(a, rand)
	t_0 = a - (1.0 / 3.0);
	tmp = t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
end
code[a_, rand_] := Block[{t$95$0 = N[(a - N[(1.0 / 3.0), $MachinePrecision]), $MachinePrecision]}, N[(t$95$0 * N[(1.0 + N[(N[(1.0 / N[Sqrt[N[(9.0 * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := a - \frac{1}{3}\\
t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right)
\end{array}
\end{array}

Alternative 1: 99.8% accurate, 1.4× speedup?

\[\begin{array}{l} \\ \mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right) \end{array} \]
(FPCore (a rand)
 :precision binary64
 (fma
  (/ (- a 0.3333333333333333) 3.0)
  (/ rand (sqrt (- a 0.3333333333333333)))
  (- a 0.3333333333333333)))
double code(double a, double rand) {
	return fma(((a - 0.3333333333333333) / 3.0), (rand / sqrt((a - 0.3333333333333333))), (a - 0.3333333333333333));
}
function code(a, rand)
	return fma(Float64(Float64(a - 0.3333333333333333) / 3.0), Float64(rand / sqrt(Float64(a - 0.3333333333333333))), Float64(a - 0.3333333333333333))
end
code[a_, rand_] := N[(N[(N[(a - 0.3333333333333333), $MachinePrecision] / 3.0), $MachinePrecision] * N[(rand / N[Sqrt[N[(a - 0.3333333333333333), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] + N[(a - 0.3333333333333333), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)
\end{array}
Derivation
  1. Initial program 99.8%

    \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-*.f64N/A

      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
    2. lift-+.f64N/A

      \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
    3. +-commutativeN/A

      \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \]
    4. distribute-lft-inN/A

      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) + \left(a - \frac{1}{3}\right) \cdot 1} \]
  4. Applied rewrites99.9%

    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)} \]
  5. Add Preprocessing

Alternative 2: 99.8% accurate, 1.6× speedup?

\[\begin{array}{l} \\ \mathsf{fma}\left(\frac{rand}{\sqrt{\left(a - 0.3333333333333333\right) \cdot 9}}, a - 0.3333333333333333, a - 0.3333333333333333\right) \end{array} \]
(FPCore (a rand)
 :precision binary64
 (fma
  (/ rand (sqrt (* (- a 0.3333333333333333) 9.0)))
  (- a 0.3333333333333333)
  (- a 0.3333333333333333)))
double code(double a, double rand) {
	return fma((rand / sqrt(((a - 0.3333333333333333) * 9.0))), (a - 0.3333333333333333), (a - 0.3333333333333333));
}
function code(a, rand)
	return fma(Float64(rand / sqrt(Float64(Float64(a - 0.3333333333333333) * 9.0))), Float64(a - 0.3333333333333333), Float64(a - 0.3333333333333333))
end
code[a_, rand_] := N[(N[(rand / N[Sqrt[N[(N[(a - 0.3333333333333333), $MachinePrecision] * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[(a - 0.3333333333333333), $MachinePrecision] + N[(a - 0.3333333333333333), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\mathsf{fma}\left(\frac{rand}{\sqrt{\left(a - 0.3333333333333333\right) \cdot 9}}, a - 0.3333333333333333, a - 0.3333333333333333\right)
\end{array}
Derivation
  1. Initial program 99.8%

    \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-*.f64N/A

      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
    2. *-commutativeN/A

      \[\leadsto \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \cdot \left(a - \frac{1}{3}\right)} \]
    3. lift-+.f64N/A

      \[\leadsto \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \cdot \left(a - \frac{1}{3}\right) \]
    4. +-commutativeN/A

      \[\leadsto \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \cdot \left(a - \frac{1}{3}\right) \]
    5. distribute-lft1-inN/A

      \[\leadsto \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \cdot \left(a - \frac{1}{3}\right) + \left(a - \frac{1}{3}\right)} \]
    6. lower-fma.f6499.8

      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand, a - \frac{1}{3}, a - \frac{1}{3}\right)} \]
  4. Applied rewrites99.8%

    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{rand}{\sqrt{\left(a - 0.3333333333333333\right) \cdot 9}}, a - 0.3333333333333333, a - 0.3333333333333333\right)} \]
  5. Add Preprocessing

Alternative 3: 99.8% accurate, 1.7× speedup?

\[\begin{array}{l} \\ \mathsf{fma}\left(\frac{rand}{\sqrt{a - 0.3333333333333333}}, 0.3333333333333333, 1\right) \cdot \left(a - 0.3333333333333333\right) \end{array} \]
(FPCore (a rand)
 :precision binary64
 (*
  (fma (/ rand (sqrt (- a 0.3333333333333333))) 0.3333333333333333 1.0)
  (- a 0.3333333333333333)))
double code(double a, double rand) {
	return fma((rand / sqrt((a - 0.3333333333333333))), 0.3333333333333333, 1.0) * (a - 0.3333333333333333);
}
function code(a, rand)
	return Float64(fma(Float64(rand / sqrt(Float64(a - 0.3333333333333333))), 0.3333333333333333, 1.0) * Float64(a - 0.3333333333333333))
end
code[a_, rand_] := N[(N[(N[(rand / N[Sqrt[N[(a - 0.3333333333333333), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * N[(a - 0.3333333333333333), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\mathsf{fma}\left(\frac{rand}{\sqrt{a - 0.3333333333333333}}, 0.3333333333333333, 1\right) \cdot \left(a - 0.3333333333333333\right)
\end{array}
Derivation
  1. Initial program 99.8%

    \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-*.f64N/A

      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
    2. *-commutativeN/A

      \[\leadsto \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \cdot \left(a - \frac{1}{3}\right)} \]
    3. lower-*.f6499.8

      \[\leadsto \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \cdot \left(a - \frac{1}{3}\right)} \]
  4. Applied rewrites99.8%

    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{rand}{\sqrt{a - 0.3333333333333333}}, 0.3333333333333333, 1\right) \cdot \left(a - 0.3333333333333333\right)} \]
  5. Add Preprocessing

Alternative 4: 91.7% accurate, 2.1× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(\sqrt{a} \cdot 0.3333333333333333\right) \cdot rand\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \end{array} \]
(FPCore (a rand)
 :precision binary64
 (if (or (<= rand -4.7e+110) (not (<= rand 3.5e+84)))
   (* (* (sqrt a) 0.3333333333333333) rand)
   (- a 0.3333333333333333)))
double code(double a, double rand) {
	double tmp;
	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
		tmp = (sqrt(a) * 0.3333333333333333) * rand;
	} else {
		tmp = a - 0.3333333333333333;
	}
	return tmp;
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, rand)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: rand
    real(8) :: tmp
    if ((rand <= (-4.7d+110)) .or. (.not. (rand <= 3.5d+84))) then
        tmp = (sqrt(a) * 0.3333333333333333d0) * rand
    else
        tmp = a - 0.3333333333333333d0
    end if
    code = tmp
end function
public static double code(double a, double rand) {
	double tmp;
	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
		tmp = (Math.sqrt(a) * 0.3333333333333333) * rand;
	} else {
		tmp = a - 0.3333333333333333;
	}
	return tmp;
}
def code(a, rand):
	tmp = 0
	if (rand <= -4.7e+110) or not (rand <= 3.5e+84):
		tmp = (math.sqrt(a) * 0.3333333333333333) * rand
	else:
		tmp = a - 0.3333333333333333
	return tmp
function code(a, rand)
	tmp = 0.0
	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84))
		tmp = Float64(Float64(sqrt(a) * 0.3333333333333333) * rand);
	else
		tmp = Float64(a - 0.3333333333333333);
	end
	return tmp
end
function tmp_2 = code(a, rand)
	tmp = 0.0;
	if ((rand <= -4.7e+110) || ~((rand <= 3.5e+84)))
		tmp = (sqrt(a) * 0.3333333333333333) * rand;
	else
		tmp = a - 0.3333333333333333;
	end
	tmp_2 = tmp;
end
code[a_, rand_] := If[Or[LessEqual[rand, -4.7e+110], N[Not[LessEqual[rand, 3.5e+84]], $MachinePrecision]], N[(N[(N[Sqrt[a], $MachinePrecision] * 0.3333333333333333), $MachinePrecision] * rand), $MachinePrecision], N[(a - 0.3333333333333333), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\
\;\;\;\;\left(\sqrt{a} \cdot 0.3333333333333333\right) \cdot rand\\

\mathbf{else}:\\
\;\;\;\;a - 0.3333333333333333\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if rand < -4.6999999999999998e110 or 3.4999999999999999e84 < rand

    1. Initial program 99.5%

      \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-*.f64N/A

        \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
      2. lift-+.f64N/A

        \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
      3. +-commutativeN/A

        \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \]
      4. distribute-lft-inN/A

        \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) + \left(a - \frac{1}{3}\right) \cdot 1} \]
    4. Applied rewrites99.7%

      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)} \]
    5. Taylor expanded in rand around inf

      \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)} \]
    6. Step-by-step derivation
      1. associate-*r*N/A

        \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} \]
      2. lower-*.f64N/A

        \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} \]
      3. lower-*.f64N/A

        \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right)} \cdot \sqrt{a - \frac{1}{3}} \]
      4. lower-sqrt.f64N/A

        \[\leadsto \left(\frac{1}{3} \cdot rand\right) \cdot \color{blue}{\sqrt{a - \frac{1}{3}}} \]
      5. lower--.f6492.2

        \[\leadsto \left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{\color{blue}{a - 0.3333333333333333}} \]
    7. Applied rewrites92.2%

      \[\leadsto \color{blue}{\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a - 0.3333333333333333}} \]
    8. Taylor expanded in a around inf

      \[\leadsto \left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a} \]
    9. Step-by-step derivation
      1. Applied rewrites90.3%

        \[\leadsto \left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a} \]
      2. Step-by-step derivation
        1. Applied rewrites90.4%

          \[\leadsto \left(\sqrt{a} \cdot 0.3333333333333333\right) \cdot \color{blue}{rand} \]

        if -4.6999999999999998e110 < rand < 3.4999999999999999e84

        1. Initial program 99.9%

          \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
        2. Add Preprocessing
        3. Taylor expanded in rand around 0

          \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
        4. Step-by-step derivation
          1. +-commutativeN/A

            \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
          2. associate--l+N/A

            \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
          3. associate-*r*N/A

            \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
          4. lower-fma.f64N/A

            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
          5. lower-*.f64N/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
          6. lower-sqrt.f64N/A

            \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
          7. lower--.f64N/A

            \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
          8. lower--.f64100.0

            \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
        5. Applied rewrites100.0%

          \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
        6. Taylor expanded in a around inf

          \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a}, a - \frac{1}{3}\right) \]
        7. Step-by-step derivation
          1. Applied rewrites99.7%

            \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \]
          2. Taylor expanded in rand around 0

            \[\leadsto a - \color{blue}{\frac{1}{3}} \]
          3. Step-by-step derivation
            1. Applied rewrites93.8%

              \[\leadsto a - \color{blue}{0.3333333333333333} \]
          4. Recombined 2 regimes into one program.
          5. Final simplification92.7%

            \[\leadsto \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(\sqrt{a} \cdot 0.3333333333333333\right) \cdot rand\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \]
          6. Add Preprocessing

          Alternative 5: 91.7% accurate, 2.1× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a}\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \end{array} \]
          (FPCore (a rand)
           :precision binary64
           (if (or (<= rand -4.7e+110) (not (<= rand 3.5e+84)))
             (* (* 0.3333333333333333 rand) (sqrt a))
             (- a 0.3333333333333333)))
          double code(double a, double rand) {
          	double tmp;
          	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
          		tmp = (0.3333333333333333 * rand) * sqrt(a);
          	} else {
          		tmp = a - 0.3333333333333333;
          	}
          	return tmp;
          }
          
          module fmin_fmax_functions
              implicit none
              private
              public fmax
              public fmin
          
              interface fmax
                  module procedure fmax88
                  module procedure fmax44
                  module procedure fmax84
                  module procedure fmax48
              end interface
              interface fmin
                  module procedure fmin88
                  module procedure fmin44
                  module procedure fmin84
                  module procedure fmin48
              end interface
          contains
              real(8) function fmax88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(4) function fmax44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(8) function fmax84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmax48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
              end function
              real(8) function fmin88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(4) function fmin44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(8) function fmin84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmin48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
              end function
          end module
          
          real(8) function code(a, rand)
          use fmin_fmax_functions
              real(8), intent (in) :: a
              real(8), intent (in) :: rand
              real(8) :: tmp
              if ((rand <= (-4.7d+110)) .or. (.not. (rand <= 3.5d+84))) then
                  tmp = (0.3333333333333333d0 * rand) * sqrt(a)
              else
                  tmp = a - 0.3333333333333333d0
              end if
              code = tmp
          end function
          
          public static double code(double a, double rand) {
          	double tmp;
          	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
          		tmp = (0.3333333333333333 * rand) * Math.sqrt(a);
          	} else {
          		tmp = a - 0.3333333333333333;
          	}
          	return tmp;
          }
          
          def code(a, rand):
          	tmp = 0
          	if (rand <= -4.7e+110) or not (rand <= 3.5e+84):
          		tmp = (0.3333333333333333 * rand) * math.sqrt(a)
          	else:
          		tmp = a - 0.3333333333333333
          	return tmp
          
          function code(a, rand)
          	tmp = 0.0
          	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84))
          		tmp = Float64(Float64(0.3333333333333333 * rand) * sqrt(a));
          	else
          		tmp = Float64(a - 0.3333333333333333);
          	end
          	return tmp
          end
          
          function tmp_2 = code(a, rand)
          	tmp = 0.0;
          	if ((rand <= -4.7e+110) || ~((rand <= 3.5e+84)))
          		tmp = (0.3333333333333333 * rand) * sqrt(a);
          	else
          		tmp = a - 0.3333333333333333;
          	end
          	tmp_2 = tmp;
          end
          
          code[a_, rand_] := If[Or[LessEqual[rand, -4.7e+110], N[Not[LessEqual[rand, 3.5e+84]], $MachinePrecision]], N[(N[(0.3333333333333333 * rand), $MachinePrecision] * N[Sqrt[a], $MachinePrecision]), $MachinePrecision], N[(a - 0.3333333333333333), $MachinePrecision]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\
          \;\;\;\;\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a}\\
          
          \mathbf{else}:\\
          \;\;\;\;a - 0.3333333333333333\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if rand < -4.6999999999999998e110 or 3.4999999999999999e84 < rand

            1. Initial program 99.5%

              \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
            2. Add Preprocessing
            3. Step-by-step derivation
              1. lift-*.f64N/A

                \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
              2. lift-+.f64N/A

                \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
              3. +-commutativeN/A

                \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \]
              4. distribute-lft-inN/A

                \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) + \left(a - \frac{1}{3}\right) \cdot 1} \]
            4. Applied rewrites99.7%

              \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)} \]
            5. Taylor expanded in rand around inf

              \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)} \]
            6. Step-by-step derivation
              1. associate-*r*N/A

                \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} \]
              2. lower-*.f64N/A

                \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} \]
              3. lower-*.f64N/A

                \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right)} \cdot \sqrt{a - \frac{1}{3}} \]
              4. lower-sqrt.f64N/A

                \[\leadsto \left(\frac{1}{3} \cdot rand\right) \cdot \color{blue}{\sqrt{a - \frac{1}{3}}} \]
              5. lower--.f6492.2

                \[\leadsto \left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{\color{blue}{a - 0.3333333333333333}} \]
            7. Applied rewrites92.2%

              \[\leadsto \color{blue}{\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a - 0.3333333333333333}} \]
            8. Taylor expanded in a around inf

              \[\leadsto \left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a} \]
            9. Step-by-step derivation
              1. Applied rewrites90.3%

                \[\leadsto \left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a} \]

              if -4.6999999999999998e110 < rand < 3.4999999999999999e84

              1. Initial program 99.9%

                \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
              2. Add Preprocessing
              3. Taylor expanded in rand around 0

                \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
              4. Step-by-step derivation
                1. +-commutativeN/A

                  \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
                2. associate--l+N/A

                  \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
                3. associate-*r*N/A

                  \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
                4. lower-fma.f64N/A

                  \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
                5. lower-*.f64N/A

                  \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
                6. lower-sqrt.f64N/A

                  \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                7. lower--.f64N/A

                  \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                8. lower--.f64100.0

                  \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
              5. Applied rewrites100.0%

                \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
              6. Taylor expanded in a around inf

                \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a}, a - \frac{1}{3}\right) \]
              7. Step-by-step derivation
                1. Applied rewrites99.7%

                  \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \]
                2. Taylor expanded in rand around 0

                  \[\leadsto a - \color{blue}{\frac{1}{3}} \]
                3. Step-by-step derivation
                  1. Applied rewrites93.8%

                    \[\leadsto a - \color{blue}{0.3333333333333333} \]
                4. Recombined 2 regimes into one program.
                5. Final simplification92.6%

                  \[\leadsto \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a}\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \]
                6. Add Preprocessing

                Alternative 6: 91.6% accurate, 2.1× speedup?

                \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(\sqrt{a} \cdot rand\right) \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \end{array} \]
                (FPCore (a rand)
                 :precision binary64
                 (if (or (<= rand -4.7e+110) (not (<= rand 3.5e+84)))
                   (* (* (sqrt a) rand) 0.3333333333333333)
                   (- a 0.3333333333333333)))
                double code(double a, double rand) {
                	double tmp;
                	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
                		tmp = (sqrt(a) * rand) * 0.3333333333333333;
                	} else {
                		tmp = a - 0.3333333333333333;
                	}
                	return tmp;
                }
                
                module fmin_fmax_functions
                    implicit none
                    private
                    public fmax
                    public fmin
                
                    interface fmax
                        module procedure fmax88
                        module procedure fmax44
                        module procedure fmax84
                        module procedure fmax48
                    end interface
                    interface fmin
                        module procedure fmin88
                        module procedure fmin44
                        module procedure fmin84
                        module procedure fmin48
                    end interface
                contains
                    real(8) function fmax88(x, y) result (res)
                        real(8), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                    end function
                    real(4) function fmax44(x, y) result (res)
                        real(4), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                    end function
                    real(8) function fmax84(x, y) result(res)
                        real(8), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                    end function
                    real(8) function fmax48(x, y) result(res)
                        real(4), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                    end function
                    real(8) function fmin88(x, y) result (res)
                        real(8), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                    end function
                    real(4) function fmin44(x, y) result (res)
                        real(4), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                    end function
                    real(8) function fmin84(x, y) result(res)
                        real(8), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                    end function
                    real(8) function fmin48(x, y) result(res)
                        real(4), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                    end function
                end module
                
                real(8) function code(a, rand)
                use fmin_fmax_functions
                    real(8), intent (in) :: a
                    real(8), intent (in) :: rand
                    real(8) :: tmp
                    if ((rand <= (-4.7d+110)) .or. (.not. (rand <= 3.5d+84))) then
                        tmp = (sqrt(a) * rand) * 0.3333333333333333d0
                    else
                        tmp = a - 0.3333333333333333d0
                    end if
                    code = tmp
                end function
                
                public static double code(double a, double rand) {
                	double tmp;
                	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84)) {
                		tmp = (Math.sqrt(a) * rand) * 0.3333333333333333;
                	} else {
                		tmp = a - 0.3333333333333333;
                	}
                	return tmp;
                }
                
                def code(a, rand):
                	tmp = 0
                	if (rand <= -4.7e+110) or not (rand <= 3.5e+84):
                		tmp = (math.sqrt(a) * rand) * 0.3333333333333333
                	else:
                		tmp = a - 0.3333333333333333
                	return tmp
                
                function code(a, rand)
                	tmp = 0.0
                	if ((rand <= -4.7e+110) || !(rand <= 3.5e+84))
                		tmp = Float64(Float64(sqrt(a) * rand) * 0.3333333333333333);
                	else
                		tmp = Float64(a - 0.3333333333333333);
                	end
                	return tmp
                end
                
                function tmp_2 = code(a, rand)
                	tmp = 0.0;
                	if ((rand <= -4.7e+110) || ~((rand <= 3.5e+84)))
                		tmp = (sqrt(a) * rand) * 0.3333333333333333;
                	else
                		tmp = a - 0.3333333333333333;
                	end
                	tmp_2 = tmp;
                end
                
                code[a_, rand_] := If[Or[LessEqual[rand, -4.7e+110], N[Not[LessEqual[rand, 3.5e+84]], $MachinePrecision]], N[(N[(N[Sqrt[a], $MachinePrecision] * rand), $MachinePrecision] * 0.3333333333333333), $MachinePrecision], N[(a - 0.3333333333333333), $MachinePrecision]]
                
                \begin{array}{l}
                
                \\
                \begin{array}{l}
                \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\
                \;\;\;\;\left(\sqrt{a} \cdot rand\right) \cdot 0.3333333333333333\\
                
                \mathbf{else}:\\
                \;\;\;\;a - 0.3333333333333333\\
                
                
                \end{array}
                \end{array}
                
                Derivation
                1. Split input into 2 regimes
                2. if rand < -4.6999999999999998e110 or 3.4999999999999999e84 < rand

                  1. Initial program 99.5%

                    \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                  2. Add Preprocessing
                  3. Step-by-step derivation
                    1. lift-*.f64N/A

                      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
                    2. lift-+.f64N/A

                      \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
                    3. +-commutativeN/A

                      \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \]
                    4. distribute-lft-inN/A

                      \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) + \left(a - \frac{1}{3}\right) \cdot 1} \]
                  4. Applied rewrites99.7%

                    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)} \]
                  5. Taylor expanded in a around inf

                    \[\leadsto \color{blue}{a \cdot \left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right)} \]
                  6. Step-by-step derivation
                    1. *-commutativeN/A

                      \[\leadsto \color{blue}{\left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right) \cdot a} \]
                    2. lower-*.f64N/A

                      \[\leadsto \color{blue}{\left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right) \cdot a} \]
                    3. +-commutativeN/A

                      \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right) + 1\right)} \cdot a \]
                    4. *-commutativeN/A

                      \[\leadsto \left(\frac{1}{3} \cdot \color{blue}{\left(rand \cdot \sqrt{\frac{1}{a}}\right)} + 1\right) \cdot a \]
                    5. associate-*r*N/A

                      \[\leadsto \left(\color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{\frac{1}{a}}} + 1\right) \cdot a \]
                    6. lower-fma.f64N/A

                      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\frac{1}{a}}, 1\right)} \cdot a \]
                    7. lower-*.f64N/A

                      \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{\frac{1}{a}}, 1\right) \cdot a \]
                    8. lower-sqrt.f64N/A

                      \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{\frac{1}{a}}}, 1\right) \cdot a \]
                    9. lower-/.f6497.6

                      \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{\color{blue}{\frac{1}{a}}}, 1\right) \cdot a \]
                  7. Applied rewrites97.6%

                    \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{\frac{1}{a}}, 1\right) \cdot a} \]
                  8. Taylor expanded in a around 0

                    \[\leadsto \frac{1}{3} \cdot \color{blue}{\left(\sqrt{a} \cdot rand\right)} \]
                  9. Step-by-step derivation
                    1. Applied rewrites89.4%

                      \[\leadsto \left(\sqrt{a} \cdot rand\right) \cdot \color{blue}{0.3333333333333333} \]

                    if -4.6999999999999998e110 < rand < 3.4999999999999999e84

                    1. Initial program 99.9%

                      \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                    2. Add Preprocessing
                    3. Taylor expanded in rand around 0

                      \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
                    4. Step-by-step derivation
                      1. +-commutativeN/A

                        \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
                      2. associate--l+N/A

                        \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
                      3. associate-*r*N/A

                        \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
                      4. lower-fma.f64N/A

                        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
                      5. lower-*.f64N/A

                        \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
                      6. lower-sqrt.f64N/A

                        \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                      7. lower--.f64N/A

                        \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                      8. lower--.f64100.0

                        \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
                    5. Applied rewrites100.0%

                      \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
                    6. Taylor expanded in a around inf

                      \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a}, a - \frac{1}{3}\right) \]
                    7. Step-by-step derivation
                      1. Applied rewrites99.7%

                        \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \]
                      2. Taylor expanded in rand around 0

                        \[\leadsto a - \color{blue}{\frac{1}{3}} \]
                      3. Step-by-step derivation
                        1. Applied rewrites93.8%

                          \[\leadsto a - \color{blue}{0.3333333333333333} \]
                      4. Recombined 2 regimes into one program.
                      5. Final simplification92.3%

                        \[\leadsto \begin{array}{l} \mathbf{if}\;rand \leq -4.7 \cdot 10^{+110} \lor \neg \left(rand \leq 3.5 \cdot 10^{+84}\right):\\ \;\;\;\;\left(\sqrt{a} \cdot rand\right) \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;a - 0.3333333333333333\\ \end{array} \]
                      6. Add Preprocessing

                      Alternative 7: 99.8% accurate, 2.4× speedup?

                      \[\begin{array}{l} \\ \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right) \end{array} \]
                      (FPCore (a rand)
                       :precision binary64
                       (fma
                        (* 0.3333333333333333 rand)
                        (sqrt (- a 0.3333333333333333))
                        (- a 0.3333333333333333)))
                      double code(double a, double rand) {
                      	return fma((0.3333333333333333 * rand), sqrt((a - 0.3333333333333333)), (a - 0.3333333333333333));
                      }
                      
                      function code(a, rand)
                      	return fma(Float64(0.3333333333333333 * rand), sqrt(Float64(a - 0.3333333333333333)), Float64(a - 0.3333333333333333))
                      end
                      
                      code[a_, rand_] := N[(N[(0.3333333333333333 * rand), $MachinePrecision] * N[Sqrt[N[(a - 0.3333333333333333), $MachinePrecision]], $MachinePrecision] + N[(a - 0.3333333333333333), $MachinePrecision]), $MachinePrecision]
                      
                      \begin{array}{l}
                      
                      \\
                      \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)
                      \end{array}
                      
                      Derivation
                      1. Initial program 99.8%

                        \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                      2. Add Preprocessing
                      3. Taylor expanded in rand around 0

                        \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
                      4. Step-by-step derivation
                        1. +-commutativeN/A

                          \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
                        2. associate--l+N/A

                          \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
                        3. associate-*r*N/A

                          \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
                        4. lower-fma.f64N/A

                          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
                        5. lower-*.f64N/A

                          \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
                        6. lower-sqrt.f64N/A

                          \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                        7. lower--.f64N/A

                          \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                        8. lower--.f6499.8

                          \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
                      5. Applied rewrites99.8%

                        \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
                      6. Add Preprocessing

                      Alternative 8: 98.9% accurate, 2.7× speedup?

                      \[\begin{array}{l} \\ \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \end{array} \]
                      (FPCore (a rand)
                       :precision binary64
                       (fma (* 0.3333333333333333 rand) (sqrt a) (- a 0.3333333333333333)))
                      double code(double a, double rand) {
                      	return fma((0.3333333333333333 * rand), sqrt(a), (a - 0.3333333333333333));
                      }
                      
                      function code(a, rand)
                      	return fma(Float64(0.3333333333333333 * rand), sqrt(a), Float64(a - 0.3333333333333333))
                      end
                      
                      code[a_, rand_] := N[(N[(0.3333333333333333 * rand), $MachinePrecision] * N[Sqrt[a], $MachinePrecision] + N[(a - 0.3333333333333333), $MachinePrecision]), $MachinePrecision]
                      
                      \begin{array}{l}
                      
                      \\
                      \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right)
                      \end{array}
                      
                      Derivation
                      1. Initial program 99.8%

                        \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                      2. Add Preprocessing
                      3. Taylor expanded in rand around 0

                        \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
                      4. Step-by-step derivation
                        1. +-commutativeN/A

                          \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
                        2. associate--l+N/A

                          \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
                        3. associate-*r*N/A

                          \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
                        4. lower-fma.f64N/A

                          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
                        5. lower-*.f64N/A

                          \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
                        6. lower-sqrt.f64N/A

                          \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                        7. lower--.f64N/A

                          \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                        8. lower--.f6499.8

                          \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
                      5. Applied rewrites99.8%

                        \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
                      6. Taylor expanded in a around inf

                        \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a}, a - \frac{1}{3}\right) \]
                      7. Step-by-step derivation
                        1. Applied rewrites99.0%

                          \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \]
                        2. Add Preprocessing

                        Alternative 9: 97.8% accurate, 3.1× speedup?

                        \[\begin{array}{l} \\ \mathsf{fma}\left(\sqrt{a} \cdot rand, 0.3333333333333333, a\right) \end{array} \]
                        (FPCore (a rand)
                         :precision binary64
                         (fma (* (sqrt a) rand) 0.3333333333333333 a))
                        double code(double a, double rand) {
                        	return fma((sqrt(a) * rand), 0.3333333333333333, a);
                        }
                        
                        function code(a, rand)
                        	return fma(Float64(sqrt(a) * rand), 0.3333333333333333, a)
                        end
                        
                        code[a_, rand_] := N[(N[(N[Sqrt[a], $MachinePrecision] * rand), $MachinePrecision] * 0.3333333333333333 + a), $MachinePrecision]
                        
                        \begin{array}{l}
                        
                        \\
                        \mathsf{fma}\left(\sqrt{a} \cdot rand, 0.3333333333333333, a\right)
                        \end{array}
                        
                        Derivation
                        1. Initial program 99.8%

                          \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                        2. Add Preprocessing
                        3. Step-by-step derivation
                          1. lift-*.f64N/A

                            \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
                          2. lift-+.f64N/A

                            \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)} \]
                          3. +-commutativeN/A

                            \[\leadsto \left(a - \frac{1}{3}\right) \cdot \color{blue}{\left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand + 1\right)} \]
                          4. distribute-lft-inN/A

                            \[\leadsto \color{blue}{\left(a - \frac{1}{3}\right) \cdot \left(\frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) + \left(a - \frac{1}{3}\right) \cdot 1} \]
                        4. Applied rewrites99.9%

                          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{a - 0.3333333333333333}{3}, \frac{rand}{\sqrt{a - 0.3333333333333333}}, a - 0.3333333333333333\right)} \]
                        5. Taylor expanded in a around inf

                          \[\leadsto \color{blue}{a \cdot \left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right)} \]
                        6. Step-by-step derivation
                          1. *-commutativeN/A

                            \[\leadsto \color{blue}{\left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right) \cdot a} \]
                          2. lower-*.f64N/A

                            \[\leadsto \color{blue}{\left(1 + \frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right)\right) \cdot a} \]
                          3. +-commutativeN/A

                            \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(\sqrt{\frac{1}{a}} \cdot rand\right) + 1\right)} \cdot a \]
                          4. *-commutativeN/A

                            \[\leadsto \left(\frac{1}{3} \cdot \color{blue}{\left(rand \cdot \sqrt{\frac{1}{a}}\right)} + 1\right) \cdot a \]
                          5. associate-*r*N/A

                            \[\leadsto \left(\color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{\frac{1}{a}}} + 1\right) \cdot a \]
                          6. lower-fma.f64N/A

                            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\frac{1}{a}}, 1\right)} \cdot a \]
                          7. lower-*.f64N/A

                            \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{\frac{1}{a}}, 1\right) \cdot a \]
                          8. lower-sqrt.f64N/A

                            \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{\frac{1}{a}}}, 1\right) \cdot a \]
                          9. lower-/.f6497.4

                            \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{\color{blue}{\frac{1}{a}}}, 1\right) \cdot a \]
                        7. Applied rewrites97.4%

                          \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{\frac{1}{a}}, 1\right) \cdot a} \]
                        8. Taylor expanded in a around 0

                          \[\leadsto a + \color{blue}{\frac{1}{3} \cdot \left(\sqrt{a} \cdot rand\right)} \]
                        9. Step-by-step derivation
                          1. Applied rewrites97.1%

                            \[\leadsto \mathsf{fma}\left(\sqrt{a} \cdot rand, \color{blue}{0.3333333333333333}, a\right) \]
                          2. Add Preprocessing

                          Alternative 10: 63.5% accurate, 17.0× speedup?

                          \[\begin{array}{l} \\ a - 0.3333333333333333 \end{array} \]
                          (FPCore (a rand) :precision binary64 (- a 0.3333333333333333))
                          double code(double a, double rand) {
                          	return a - 0.3333333333333333;
                          }
                          
                          module fmin_fmax_functions
                              implicit none
                              private
                              public fmax
                              public fmin
                          
                              interface fmax
                                  module procedure fmax88
                                  module procedure fmax44
                                  module procedure fmax84
                                  module procedure fmax48
                              end interface
                              interface fmin
                                  module procedure fmin88
                                  module procedure fmin44
                                  module procedure fmin84
                                  module procedure fmin48
                              end interface
                          contains
                              real(8) function fmax88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmax44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmax84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmax48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                              end function
                              real(8) function fmin88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmin44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmin84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmin48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                              end function
                          end module
                          
                          real(8) function code(a, rand)
                          use fmin_fmax_functions
                              real(8), intent (in) :: a
                              real(8), intent (in) :: rand
                              code = a - 0.3333333333333333d0
                          end function
                          
                          public static double code(double a, double rand) {
                          	return a - 0.3333333333333333;
                          }
                          
                          def code(a, rand):
                          	return a - 0.3333333333333333
                          
                          function code(a, rand)
                          	return Float64(a - 0.3333333333333333)
                          end
                          
                          function tmp = code(a, rand)
                          	tmp = a - 0.3333333333333333;
                          end
                          
                          code[a_, rand_] := N[(a - 0.3333333333333333), $MachinePrecision]
                          
                          \begin{array}{l}
                          
                          \\
                          a - 0.3333333333333333
                          \end{array}
                          
                          Derivation
                          1. Initial program 99.8%

                            \[\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right) \]
                          2. Add Preprocessing
                          3. Taylor expanded in rand around 0

                            \[\leadsto \color{blue}{\left(a + \frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right)\right) - \frac{1}{3}} \]
                          4. Step-by-step derivation
                            1. +-commutativeN/A

                              \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + a\right)} - \frac{1}{3} \]
                            2. associate--l+N/A

                              \[\leadsto \color{blue}{\frac{1}{3} \cdot \left(rand \cdot \sqrt{a - \frac{1}{3}}\right) + \left(a - \frac{1}{3}\right)} \]
                            3. associate-*r*N/A

                              \[\leadsto \color{blue}{\left(\frac{1}{3} \cdot rand\right) \cdot \sqrt{a - \frac{1}{3}}} + \left(a - \frac{1}{3}\right) \]
                            4. lower-fma.f64N/A

                              \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right)} \]
                            5. lower-*.f64N/A

                              \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{3} \cdot rand}, \sqrt{a - \frac{1}{3}}, a - \frac{1}{3}\right) \]
                            6. lower-sqrt.f64N/A

                              \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \color{blue}{\sqrt{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                            7. lower--.f64N/A

                              \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{\color{blue}{a - \frac{1}{3}}}, a - \frac{1}{3}\right) \]
                            8. lower--.f6499.8

                              \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, \color{blue}{a - 0.3333333333333333}\right) \]
                          5. Applied rewrites99.8%

                            \[\leadsto \color{blue}{\mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a - 0.3333333333333333}, a - 0.3333333333333333\right)} \]
                          6. Taylor expanded in a around inf

                            \[\leadsto \mathsf{fma}\left(\frac{1}{3} \cdot rand, \sqrt{a}, a - \frac{1}{3}\right) \]
                          7. Step-by-step derivation
                            1. Applied rewrites99.0%

                              \[\leadsto \mathsf{fma}\left(0.3333333333333333 \cdot rand, \sqrt{a}, a - 0.3333333333333333\right) \]
                            2. Taylor expanded in rand around 0

                              \[\leadsto a - \color{blue}{\frac{1}{3}} \]
                            3. Step-by-step derivation
                              1. Applied rewrites65.0%

                                \[\leadsto a - \color{blue}{0.3333333333333333} \]
                              2. Add Preprocessing

                              Reproduce

                              ?
                              herbie shell --seed 2024364 
                              (FPCore (a rand)
                                :name "Octave 3.8, oct_fill_randg"
                                :precision binary64
                                (* (- a (/ 1.0 3.0)) (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 (- a (/ 1.0 3.0))))) rand))))