Beckmann Sample, normalization factor

Percentage Accurate: 97.9% → 98.5%

Time: 21.3s

Alternatives: 10

Speedup: 1.3×

Specification

\[\left(0 < cosTheta \land cosTheta < 0.9999\right) \land \left(-1 < c \land c < 1\right)\]

Math

\[\begin{array}{l} \\ \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   (+ 1.0 c)
   (*
    (* (/ 1.0 (sqrt PI)) (/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta))
    (exp (* (- cosTheta) cosTheta))))))

C

float code(float cosTheta, float c) {
	return 1.0f / ((1.0f + c) + (((1.0f / sqrtf(((float) M_PI))) * (sqrtf(((1.0f - cosTheta) - cosTheta)) / cosTheta)) * expf((-cosTheta * cosTheta))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(Float32(1.0) / sqrt(Float32(pi))) * Float32(sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp(Float32(Float32(-cosTheta) * cosTheta)))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / ((single(1.0) + c) + (((single(1.0) / sqrt(single(pi))) * (sqrt(((single(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp((-cosTheta * cosTheta))));
end

Initial Program: 97.9% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   (+ 1.0 c)
   (*
    (* (/ 1.0 (sqrt PI)) (/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta))
    (exp (* (- cosTheta) cosTheta))))))

C

float code(float cosTheta, float c) {
	return 1.0f / ((1.0f + c) + (((1.0f / sqrtf(((float) M_PI))) * (sqrtf(((1.0f - cosTheta) - cosTheta)) / cosTheta)) * expf((-cosTheta * cosTheta))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(Float32(1.0) / sqrt(Float32(pi))) * Float32(sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp(Float32(Float32(-cosTheta) * cosTheta)))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / ((single(1.0) + c) + (((single(1.0) / sqrt(single(pi))) * (sqrt(((single(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp((-cosTheta * cosTheta))));
end

Alternative 1: 98.5% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ \frac{1}{\left(1 + c\right) + \frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}} \cdot e^{cosTheta \cdot \left(-cosTheta\right)}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   (+ 1.0 c)
   (*
    (/ 1.0 (/ (* (sqrt PI) cosTheta) (sqrt (- (- 1.0 cosTheta) cosTheta))))
    (exp (* cosTheta (- cosTheta)))))))

C

float code(float cosTheta, float c) {
	return 1.0f / ((1.0f + c) + ((1.0f / ((sqrtf(((float) M_PI)) * cosTheta) / sqrtf(((1.0f - cosTheta) - cosTheta)))) * expf((cosTheta * -cosTheta))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(1.0) / Float32(Float32(sqrt(Float32(pi)) * cosTheta) / sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)))) * exp(Float32(cosTheta * Float32(-cosTheta))))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / ((single(1.0) + c) + ((single(1.0) / ((sqrt(single(pi)) * cosTheta) / sqrt(((single(1.0) - cosTheta) - cosTheta)))) * exp((cosTheta * -cosTheta))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. frac-times 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1 \cdot \sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   2. *-un-lft-identity 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}{\sqrt{\pi} \cdot cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   3. clear-num 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

3. Applied egg-rr 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

4. Final simplification 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}} \cdot e^{cosTheta \cdot \left(-cosTheta\right)}} \]

Alternative 2: 98.5% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ \frac{1}{\left(1 + c\right) + \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\left(\sqrt{\pi} \cdot cosTheta\right) \cdot e^{cosTheta \cdot cosTheta}}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   (+ 1.0 c)
   (/
    (sqrt (- (- 1.0 cosTheta) cosTheta))
    (* (* (sqrt PI) cosTheta) (exp (* cosTheta cosTheta)))))))

C

float code(float cosTheta, float c) {
	return 1.0f / ((1.0f + c) + (sqrtf(((1.0f - cosTheta) - cosTheta)) / ((sqrtf(((float) M_PI)) * cosTheta) * expf((cosTheta * cosTheta)))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)) / Float32(Float32(sqrt(Float32(pi)) * cosTheta) * exp(Float32(cosTheta * cosTheta))))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / ((single(1.0) + c) + (sqrt(((single(1.0) - cosTheta) - cosTheta)) / ((sqrt(single(pi)) * cosTheta) * exp((cosTheta * cosTheta)))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-*l* 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. *-commutative 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\color{blue}{cosTheta \cdot \left(-cosTheta\right)}}\right)} \]

   3. exp-prod 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot \color{blue}{{\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}}\right)} \]

3. Simplified 98.0%

   \[\leadsto \color{blue}{\frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot {\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}\right)}} \]
4. Step-by-step derivation

   1. associate-*r* 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot {\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}}} \]

   2. pow-neg 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot \color{blue}{\frac{1}{{\left(e^{cosTheta}\right)}^{cosTheta}}}} \]

   3. pow-exp 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot \frac{1}{\color{blue}{e^{cosTheta \cdot cosTheta}}}} \]

   4. div-inv 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}}{e^{cosTheta \cdot cosTheta}}}} \]

   5. frac-times 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\frac{1 \cdot \sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}}}{e^{cosTheta \cdot cosTheta}}} \]

   6. *-un-lft-identity 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\frac{\color{blue}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}{\sqrt{\pi} \cdot cosTheta}}{e^{cosTheta \cdot cosTheta}}} \]

   7. associate-/l/ 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{e^{cosTheta \cdot cosTheta} \cdot \left(\sqrt{\pi} \cdot cosTheta\right)}}} \]

5. Applied egg-rr 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{e^{cosTheta \cdot cosTheta} \cdot \left(\sqrt{\pi} \cdot cosTheta\right)}}} \]

6. Final simplification 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\left(\sqrt{\pi} \cdot cosTheta\right) \cdot e^{cosTheta \cdot cosTheta}}} \]

Alternative 3: 98.0% accurate, 1.3× speedup

Math

\[\begin{array}{l} \\ \frac{1}{\left(1 + c\right) + e^{cosTheta \cdot \left(-cosTheta\right)} \cdot \frac{\sqrt{\frac{\left(1 - cosTheta\right) - cosTheta}{\pi}}}{cosTheta}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   (+ 1.0 c)
   (*
    (exp (* cosTheta (- cosTheta)))
    (/ (sqrt (/ (- (- 1.0 cosTheta) cosTheta) PI)) cosTheta)))))

C

float code(float cosTheta, float c) {
	return 1.0f / ((1.0f + c) + (expf((cosTheta * -cosTheta)) * (sqrtf((((1.0f - cosTheta) - cosTheta) / ((float) M_PI))) / cosTheta)));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(exp(Float32(cosTheta * Float32(-cosTheta))) * Float32(sqrt(Float32(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta) / Float32(pi))) / cosTheta))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / ((single(1.0) + c) + (exp((cosTheta * -cosTheta)) * (sqrt((((single(1.0) - cosTheta) - cosTheta) / single(pi))) / cosTheta)));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. frac-times 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1 \cdot \sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   2. *-un-lft-identity 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}{\sqrt{\pi} \cdot cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   3. associate-/r* 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi}}}{cosTheta}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

3. Applied egg-rr 98.0%

   \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi}}}{cosTheta}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
4. Step-by-step derivation

   1. sqrt-undiv 98.1%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\sqrt{\frac{\left(1 - cosTheta\right) - cosTheta}{\pi}}}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

5. Applied egg-rr 98.1%

   \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\sqrt{\frac{\left(1 - cosTheta\right) - cosTheta}{\pi}}}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

6. Final simplification 98.1%

   \[\leadsto \frac{1}{\left(1 + c\right) + e^{cosTheta \cdot \left(-cosTheta\right)} \cdot \frac{\sqrt{\frac{\left(1 - cosTheta\right) - cosTheta}{\pi}}}{cosTheta}} \]

Alternative 4: 96.1% accurate, 1.3× speedup

Math

\[\begin{array}{l} \\ \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   1.0
   (+
    c
    (/
     (- 1.0 cosTheta)
     (* (sqrt PI) (* cosTheta (exp (* cosTheta cosTheta)))))))))

C

float code(float cosTheta, float c) {
	return 1.0f / (1.0f + (c + ((1.0f - cosTheta) / (sqrtf(((float) M_PI)) * (cosTheta * expf((cosTheta * cosTheta)))))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(c + Float32(Float32(Float32(1.0) - cosTheta) / Float32(sqrt(Float32(pi)) * Float32(cosTheta * exp(Float32(cosTheta * cosTheta))))))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / (single(1.0) + (c + ((single(1.0) - cosTheta) / (sqrt(single(pi)) * (cosTheta * exp((cosTheta * cosTheta)))))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-+l+ 98.0%

      \[\leadsto \frac{1}{\color{blue}{1 + \left(c + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. associate-*l* 98.0%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}\right)} \]

   3. associate-*l/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1 \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}{\sqrt{\pi}}}\right)} \]

   4. *-lft-identity 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}}{\sqrt{\pi}}\right)} \]

   5. associate-/r/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}}{\sqrt{\pi}}\right)} \]

   6. associate-/l/ 98.6%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot \frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}\right)} \]

3. Simplified 98.6%

   \[\leadsto \color{blue}{\frac{1}{1 + \left(c + \frac{\sqrt{\mathsf{fma}\left(cosTheta, -2, 1\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)}} \]

4. Taylor expanded in cosTheta around 0 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 + -1 \cdot cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]
5. Step-by-step derivation

   1. neg-mul-1 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{1 + \color{blue}{\left(-cosTheta\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

   2. sub-neg 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

6. Simplified 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

7. Final simplification 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

Alternative 5: 97.7% accurate, 1.3× speedup

Math

\[\begin{array}{l} \\ \frac{1}{1 + \frac{\sqrt{\frac{1 + cosTheta \cdot -2}{\pi}}}{cosTheta \cdot e^{cosTheta \cdot cosTheta}}} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   1.0
   (/
    (sqrt (/ (+ 1.0 (* cosTheta -2.0)) PI))
    (* cosTheta (exp (* cosTheta cosTheta)))))))

C

float code(float cosTheta, float c) {
	return 1.0f / (1.0f + (sqrtf(((1.0f + (cosTheta * -2.0f)) / ((float) M_PI))) / (cosTheta * expf((cosTheta * cosTheta)))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(sqrt(Float32(Float32(Float32(1.0) + Float32(cosTheta * Float32(-2.0))) / Float32(pi))) / Float32(cosTheta * exp(Float32(cosTheta * cosTheta))))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / (single(1.0) + (sqrt(((single(1.0) + (cosTheta * single(-2.0))) / single(pi))) / (cosTheta * exp((cosTheta * cosTheta)))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-*l* 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. *-commutative 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\color{blue}{cosTheta \cdot \left(-cosTheta\right)}}\right)} \]

   3. exp-prod 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot \color{blue}{{\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}}\right)} \]

3. Simplified 98.0%

   \[\leadsto \color{blue}{\frac{1}{\left(1 + c\right) + \frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot {\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}\right)}} \]
4. Step-by-step derivation

   1. associate-*r* 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot {\left(e^{cosTheta}\right)}^{\left(-cosTheta\right)}}} \]

   2. pow-neg 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot \color{blue}{\frac{1}{{\left(e^{cosTheta}\right)}^{cosTheta}}}} \]

   3. pow-exp 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot \frac{1}{\color{blue}{e^{cosTheta \cdot cosTheta}}}} \]

   4. div-inv 98.0%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}}{e^{cosTheta \cdot cosTheta}}}} \]

   5. frac-times 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\frac{1 \cdot \sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}}}{e^{cosTheta \cdot cosTheta}}} \]

   6. *-un-lft-identity 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\frac{\color{blue}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}{\sqrt{\pi} \cdot cosTheta}}{e^{cosTheta \cdot cosTheta}}} \]

5. Applied egg-rr 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}}{e^{cosTheta \cdot cosTheta}}}} \]

6. Taylor expanded in c around 0 97.8%

   \[\leadsto \color{blue}{\frac{1}{1 + \frac{1}{cosTheta \cdot e^{{cosTheta}^{2}}} \cdot \sqrt{\frac{1 - 2 \cdot cosTheta}{\pi}}}} \]
7. Step-by-step derivation

   1. associate-*l/ 97.8%

      \[\leadsto \frac{1}{1 + \color{blue}{\frac{1 \cdot \sqrt{\frac{1 - 2 \cdot cosTheta}{\pi}}}{cosTheta \cdot e^{{cosTheta}^{2}}}}} \]

   2. cancel-sign-sub-inv 97.8%

      \[\leadsto \frac{1}{1 + \frac{1 \cdot \sqrt{\frac{\color{blue}{1 + \left(-2\right) \cdot cosTheta}}{\pi}}}{cosTheta \cdot e^{{cosTheta}^{2}}}} \]

   3. metadata-eval 97.8%

      \[\leadsto \frac{1}{1 + \frac{1 \cdot \sqrt{\frac{1 + \color{blue}{-2} \cdot cosTheta}{\pi}}}{cosTheta \cdot e^{{cosTheta}^{2}}}} \]

   4. *-commutative 97.8%

      \[\leadsto \frac{1}{1 + \frac{1 \cdot \sqrt{\frac{1 + \color{blue}{cosTheta \cdot -2}}{\pi}}}{cosTheta \cdot e^{{cosTheta}^{2}}}} \]

   5. *-lft-identity 97.8%

      \[\leadsto \frac{1}{1 + \frac{\color{blue}{\sqrt{\frac{1 + cosTheta \cdot -2}{\pi}}}}{cosTheta \cdot e^{{cosTheta}^{2}}}} \]

   6. unpow2 97.8%

      \[\leadsto \frac{1}{1 + \frac{\sqrt{\frac{1 + cosTheta \cdot -2}{\pi}}}{cosTheta \cdot e^{\color{blue}{cosTheta \cdot cosTheta}}}} \]

8. Simplified 97.8%

   \[\leadsto \color{blue}{\frac{1}{1 + \frac{\sqrt{\frac{1 + cosTheta \cdot -2}{\pi}}}{cosTheta \cdot e^{cosTheta \cdot cosTheta}}}} \]

9. Final simplification 97.8%

   \[\leadsto \frac{1}{1 + \frac{\sqrt{\frac{1 + cosTheta \cdot -2}{\pi}}}{cosTheta \cdot e^{cosTheta \cdot cosTheta}}} \]

Alternative 6: 96.1% accurate, 1.3× speedup

Math

\[\begin{array}{l} \\ \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \left(cosTheta + {cosTheta}^{3}\right)}\right)} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/
  1.0
  (+
   1.0
   (+ c (/ (- 1.0 cosTheta) (* (sqrt PI) (+ cosTheta (pow cosTheta 3.0))))))))

C

float code(float cosTheta, float c) {
	return 1.0f / (1.0f + (c + ((1.0f - cosTheta) / (sqrtf(((float) M_PI)) * (cosTheta + powf(cosTheta, 3.0f))))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(c + Float32(Float32(Float32(1.0) - cosTheta) / Float32(sqrt(Float32(pi)) * Float32(cosTheta + (cosTheta ^ Float32(3.0))))))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / (single(1.0) + (c + ((single(1.0) - cosTheta) / (sqrt(single(pi)) * (cosTheta + (cosTheta ^ single(3.0)))))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-+l+ 98.0%

      \[\leadsto \frac{1}{\color{blue}{1 + \left(c + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. associate-*l* 98.0%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}\right)} \]

   3. associate-*l/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1 \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}{\sqrt{\pi}}}\right)} \]

   4. *-lft-identity 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}}{\sqrt{\pi}}\right)} \]

   5. associate-/r/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}}{\sqrt{\pi}}\right)} \]

   6. associate-/l/ 98.6%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot \frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}\right)} \]

3. Simplified 98.6%

   \[\leadsto \color{blue}{\frac{1}{1 + \left(c + \frac{\sqrt{\mathsf{fma}\left(cosTheta, -2, 1\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)}} \]

4. Taylor expanded in cosTheta around 0 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 + -1 \cdot cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]
5. Step-by-step derivation

   1. neg-mul-1 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{1 + \color{blue}{\left(-cosTheta\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

   2. sub-neg 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

6. Simplified 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

7. Taylor expanded in cosTheta around 0 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \color{blue}{\left(cosTheta + {cosTheta}^{3}\right)}}\right)} \]

8. Final simplification 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \left(cosTheta + {cosTheta}^{3}\right)}\right)} \]

Alternative 7: 95.0% accurate, 2.0× speedup

Math

\[\begin{array}{l} \\ \frac{1}{1 + \sqrt{\frac{1}{\pi}} \cdot \left(\frac{1}{cosTheta} + -1\right)} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/ 1.0 (+ 1.0 (* (sqrt (/ 1.0 PI)) (+ (/ 1.0 cosTheta) -1.0)))))

C

float code(float cosTheta, float c) {
	return 1.0f / (1.0f + (sqrtf((1.0f / ((float) M_PI))) * ((1.0f / cosTheta) + -1.0f)));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(sqrt(Float32(Float32(1.0) / Float32(pi))) * Float32(Float32(Float32(1.0) / cosTheta) + Float32(-1.0)))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / (single(1.0) + (sqrt((single(1.0) / single(pi))) * ((single(1.0) / cosTheta) + single(-1.0))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-+l+ 98.0%

      \[\leadsto \frac{1}{\color{blue}{1 + \left(c + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. associate-*l* 98.0%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}\right)} \]

   3. associate-*l/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1 \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}{\sqrt{\pi}}}\right)} \]

   4. *-lft-identity 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}}{\sqrt{\pi}}\right)} \]

   5. associate-/r/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}}{\sqrt{\pi}}\right)} \]

   6. associate-/l/ 98.6%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot \frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}\right)} \]

3. Simplified 98.6%

   \[\leadsto \color{blue}{\frac{1}{1 + \left(c + \frac{\sqrt{\mathsf{fma}\left(cosTheta, -2, 1\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)}} \]

4. Taylor expanded in cosTheta around 0 96.2%

   \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\left(-1 \cdot \sqrt{\frac{1}{\pi}} + \frac{1}{cosTheta} \cdot \sqrt{\frac{1}{\pi}}\right)}\right)} \]
5. Step-by-step derivation

   1. distribute-rgt-out 96.2%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\sqrt{\frac{1}{\pi}} \cdot \left(-1 + \frac{1}{cosTheta}\right)}\right)} \]

6. Simplified 96.2%

   \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\sqrt{\frac{1}{\pi}} \cdot \left(-1 + \frac{1}{cosTheta}\right)}\right)} \]

7. Taylor expanded in c around 0 96.1%

   \[\leadsto \color{blue}{\frac{1}{1 + \sqrt{\frac{1}{\pi}} \cdot \left(\frac{1}{cosTheta} - 1\right)}} \]

8. Final simplification 96.1%

   \[\leadsto \frac{1}{1 + \sqrt{\frac{1}{\pi}} \cdot \left(\frac{1}{cosTheta} + -1\right)} \]

Alternative 8: 95.8% accurate, 2.0× speedup

Math

\[\begin{array}{l} \\ \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot cosTheta}\right)} \end{array} \]

FPCore

(FPCore (cosTheta c)
 :precision binary32
 (/ 1.0 (+ 1.0 (+ c (/ (- 1.0 cosTheta) (* (sqrt PI) cosTheta))))))

C

float code(float cosTheta, float c) {
	return 1.0f / (1.0f + (c + ((1.0f - cosTheta) / (sqrtf(((float) M_PI)) * cosTheta))));
}

Julia

function code(cosTheta, c)
	return Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(c + Float32(Float32(Float32(1.0) - cosTheta) / Float32(sqrt(Float32(pi)) * cosTheta)))))
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0) / (single(1.0) + (c + ((single(1.0) - cosTheta) / (sqrt(single(pi)) * cosTheta))));
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-+l+ 98.0%

      \[\leadsto \frac{1}{\color{blue}{1 + \left(c + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. associate-*l* 98.0%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}\right)} \]

   3. associate-*l/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1 \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}{\sqrt{\pi}}}\right)} \]

   4. *-lft-identity 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}}{\sqrt{\pi}}\right)} \]

   5. associate-/r/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}}{\sqrt{\pi}}\right)} \]

   6. associate-/l/ 98.6%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot \frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}\right)} \]

3. Simplified 98.6%

   \[\leadsto \color{blue}{\frac{1}{1 + \left(c + \frac{\sqrt{\mathsf{fma}\left(cosTheta, -2, 1\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)}} \]

4. Taylor expanded in cosTheta around 0 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 + -1 \cdot cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]
5. Step-by-step derivation

   1. neg-mul-1 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{1 + \color{blue}{\left(-cosTheta\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

   2. sub-neg 97.1%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

6. Simplified 97.1%

   \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{1 - cosTheta}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)} \]

7. Taylor expanded in cosTheta around 0 96.8%

   \[\leadsto \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot \color{blue}{cosTheta}}\right)} \]

8. Final simplification 96.8%

   \[\leadsto \frac{1}{1 + \left(c + \frac{1 - cosTheta}{\sqrt{\pi} \cdot cosTheta}\right)} \]

Alternative 9: 93.1% accurate, 2.1× speedup

Math

\[\begin{array}{l} \\ \sqrt{\pi} \cdot cosTheta \end{array} \]

FPCore

(FPCore (cosTheta c) :precision binary32 (* (sqrt PI) cosTheta))

C

float code(float cosTheta, float c) {
	return sqrtf(((float) M_PI)) * cosTheta;
}

Julia

function code(cosTheta, c)
	return Float32(sqrt(Float32(pi)) * cosTheta)
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = sqrt(single(pi)) * cosTheta;
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. frac-times 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1 \cdot \sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot cosTheta}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   2. *-un-lft-identity 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \frac{\color{blue}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}{\sqrt{\pi} \cdot cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

   3. clear-num 98.6%

      \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

3. Applied egg-rr 98.6%

   \[\leadsto \frac{1}{\left(1 + c\right) + \color{blue}{\frac{1}{\frac{\sqrt{\pi} \cdot cosTheta}{\sqrt{\left(1 - cosTheta\right) - cosTheta}}}} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]

4. Taylor expanded in cosTheta around 0 94.3%

   \[\leadsto \color{blue}{cosTheta \cdot \sqrt{\pi}} \]

5. Final simplification 94.3%

   \[\leadsto \sqrt{\pi} \cdot cosTheta \]

Alternative 10: 10.7% accurate, 421.0× speedup

Math

\[\begin{array}{l} \\ 1 \end{array} \]

FPCore

(FPCore (cosTheta c) :precision binary32 1.0)

C

float code(float cosTheta, float c) {
	return 1.0f;
}

Fortran

real(4) function code(costheta, c)
    real(4), intent (in) :: costheta
    real(4), intent (in) :: c
    code = 1.0e0
end function

Julia

function code(cosTheta, c)
	return Float32(1.0)
end

MATLAB

function tmp = code(cosTheta, c)
	tmp = single(1.0);
end

Derivation

1. Initial program 98.0%

   \[\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}} \]
2. Step-by-step derivation

   1. associate-+l+ 98.0%

      \[\leadsto \frac{1}{\color{blue}{1 + \left(c + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}} \]

   2. associate-*l* 98.0%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1}{\sqrt{\pi}} \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}\right)} \]

   3. associate-*l/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{1 \cdot \left(\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}\right)}{\sqrt{\pi}}}\right)} \]

   4. *-lft-identity 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta} \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}}{\sqrt{\pi}}\right)} \]

   5. associate-/r/ 98.5%

      \[\leadsto \frac{1}{1 + \left(c + \frac{\color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}}{\sqrt{\pi}}\right)} \]

   6. associate-/l/ 98.6%

      \[\leadsto \frac{1}{1 + \left(c + \color{blue}{\frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{\sqrt{\pi} \cdot \frac{cosTheta}{e^{\left(-cosTheta\right) \cdot cosTheta}}}}\right)} \]

3. Simplified 98.6%

   \[\leadsto \color{blue}{\frac{1}{1 + \left(c + \frac{\sqrt{\mathsf{fma}\left(cosTheta, -2, 1\right)}}{\sqrt{\pi} \cdot \left(cosTheta \cdot e^{cosTheta \cdot cosTheta}\right)}\right)}} \]

4. Taylor expanded in cosTheta around inf 10.4%

   \[\leadsto \color{blue}{\frac{1}{1 + c}} \]

5. Taylor expanded in c around 0 10.4%

   \[\leadsto \color{blue}{1} \]

6. Final simplification 10.4%

   \[\leadsto 1 \]

Reproduce

herbie shell --seed 2023279 
(FPCore (cosTheta c)
  :name "Beckmann Sample, normalization factor"
  :precision binary32
  :pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999)) (and (< -1.0 c) (< c 1.0)))
  (/ 1.0 (+ (+ 1.0 c) (* (* (/ 1.0 (sqrt PI)) (/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta)) (exp (* (- cosTheta) cosTheta))))))