Disney BSSRDF, sample scattering profile, lower

Percentage Accurate: 60.9% → 99.3%

Time: 11.6s

Alternatives: 12

Speedup: 11.4×

Specification

\[\left(0 \leq s \land s \leq 256\right) \land \left(2.328306437 \cdot 10^{-10} \leq u \land u \leq 0.25\right)\]

Math

\[\begin{array}{l} \\ s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \end{array} \]

FPCore

(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))

C

float code(float s, float u) {
	return s * logf((1.0f / (1.0f - (4.0f * u))));
}

Fortran

real(4) function code(s, u)
    real(4), intent (in) :: s
    real(4), intent (in) :: u
    code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function

Julia

function code(s, u)
	return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u)))))
end

MATLAB

function tmp = code(s, u)
	tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u))));
end

Initial Program: 60.9% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \end{array} \]

FPCore

(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))

C

float code(float s, float u) {
	return s * logf((1.0f / (1.0f - (4.0f * u))));
}

Fortran

real(4) function code(s, u)
    real(4), intent (in) :: s
    real(4), intent (in) :: u
    code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function

Julia

function code(s, u)
	return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u)))))
end

MATLAB

function tmp = code(s, u)
	tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u))));
end

Alternative 1: 99.3% accurate, 0.5× speedup

Math

\[\begin{array}{l} \\ -\mathsf{fma}\left(s, -\mathsf{log1p}\left(4 \cdot u\right), s \cdot \mathsf{log1p}\left(u \cdot \left(u \cdot -16\right)\right)\right) \end{array} \]

FPCore

(FPCore (s u)
 :precision binary32
 (- (fma s (- (log1p (* 4.0 u))) (* s (log1p (* u (* u -16.0)))))))

C

float code(float s, float u) {
	return -fmaf(s, -log1pf((4.0f * u)), (s * log1pf((u * (u * -16.0f)))));
}

Julia

function code(s, u)
	return Float32(-fma(s, Float32(-log1p(Float32(Float32(4.0) * u))), Float32(s * log1p(Float32(u * Float32(u * Float32(-16.0)))))))
end

Derivation

1. Initial program 62.5%

   \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
2. Add Preprocessing

3. Taylor expanded in s around 0

   \[\leadsto \color{blue}{s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)} \]
4. Step-by-step derivation

   1. *-commutative N/A

      \[\leadsto \color{blue}{\log \left(\frac{1}{1 - 4 \cdot u}\right) \cdot s} \]

   2. log-rec N/A

      \[\leadsto \color{blue}{\left(\mathsf{neg}\left(\log \left(1 - 4 \cdot u\right)\right)\right)} \cdot s \]

   3. distribute-lft-neg-out N/A

      \[\leadsto \color{blue}{\mathsf{neg}\left(\log \left(1 - 4 \cdot u\right) \cdot s\right)} \]

   4. distribute-rgt-neg-in N/A

      \[\leadsto \color{blue}{\log \left(1 - 4 \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right)} \]

   5. lower-*.f32 N/A

      \[\leadsto \color{blue}{\log \left(1 - 4 \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right)} \]

   6. cancel-sign-sub-inv N/A

      \[\leadsto \log \color{blue}{\left(1 + \left(\mathsf{neg}\left(4\right)\right) \cdot u\right)} \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   7. metadata-eval N/A

      \[\leadsto \log \left(1 + \color{blue}{-4} \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   8. lower-log1p.f32 N/A

      \[\leadsto \color{blue}{\mathsf{log1p}\left(-4 \cdot u\right)} \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   9. *-commutative N/A

      \[\leadsto \mathsf{log1p}\left(\color{blue}{u \cdot -4}\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   10. lower-*.f32 N/A

       \[\leadsto \mathsf{log1p}\left(\color{blue}{u \cdot -4}\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   11. lower-neg.f32 99.3

       \[\leadsto \mathsf{log1p}\left(u \cdot -4\right) \cdot \color{blue}{\left(-s\right)} \]

5. Applied rewrites 99.3%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(u \cdot -4\right) \cdot \left(-s\right)} \]

7. Applied rewrites 99.2%

   \[\leadsto \left(\mathsf{log1p}\left(-\left(u \cdot u\right) \cdot 16\right) - \mathsf{log1p}\left(4 \cdot u\right)\right) \cdot \left(-\color{blue}{s}\right) \]
8. Step-by-step derivation

9. Applied rewrites 99.1%

   \[\leadsto \mathsf{fma}\left(-s, \color{blue}{\mathsf{log1p}\left(\left(u \cdot u\right) \cdot -16\right)}, \left(-s\right) \cdot \left(-\mathsf{log1p}\left(u \cdot 4\right)\right)\right) \]
10. Step-by-step derivation

11. Applied rewrites 99.4%

    \[\leadsto -\mathsf{fma}\left(s, -\mathsf{log1p}\left(u \cdot 4\right), s \cdot \mathsf{log1p}\left(u \cdot \left(u \cdot -16\right)\right)\right) \]

12. Final simplification 99.4%

    \[\leadsto -\mathsf{fma}\left(s, -\mathsf{log1p}\left(4 \cdot u\right), s \cdot \mathsf{log1p}\left(u \cdot \left(u \cdot -16\right)\right)\right) \]
13. Add Preprocessing

Alternative 2: 99.4% accurate, 1.1× speedup

Math

\[\begin{array}{l} \\ \mathsf{log1p}\left(u \cdot -4\right) \cdot \left(-s\right) \end{array} \]

FPCore

(FPCore (s u) :precision binary32 (* (log1p (* u -4.0)) (- s)))

C

float code(float s, float u) {
	return log1pf((u * -4.0f)) * -s;
}

Julia

function code(s, u)
	return Float32(log1p(Float32(u * Float32(-4.0))) * Float32(-s))
end

Derivation

1. Initial program 60.9%

   \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
2. Add Preprocessing

3. Taylor expanded in s around 0

   \[\leadsto \color{blue}{s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)} \]
4. Step-by-step derivation

   1. *-commutative N/A

      \[\leadsto \color{blue}{\log \left(\frac{1}{1 - 4 \cdot u}\right) \cdot s} \]

   2. log-rec N/A

      \[\leadsto \color{blue}{\left(\mathsf{neg}\left(\log \left(1 - 4 \cdot u\right)\right)\right)} \cdot s \]

   3. distribute-lft-neg-out N/A

      \[\leadsto \color{blue}{\mathsf{neg}\left(\log \left(1 - 4 \cdot u\right) \cdot s\right)} \]

   4. distribute-rgt-neg-in N/A

      \[\leadsto \color{blue}{\log \left(1 - 4 \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right)} \]

   5. lower-*.f32 N/A

      \[\leadsto \color{blue}{\log \left(1 - 4 \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right)} \]

   6. cancel-sign-sub-inv N/A

      \[\leadsto \log \color{blue}{\left(1 + \left(\mathsf{neg}\left(4\right)\right) \cdot u\right)} \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   7. metadata-eval N/A

      \[\leadsto \log \left(1 + \color{blue}{-4} \cdot u\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   8. lower-log1p.f32 N/A

      \[\leadsto \color{blue}{\mathsf{log1p}\left(-4 \cdot u\right)} \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   9. *-commutative N/A

      \[\leadsto \mathsf{log1p}\left(\color{blue}{u \cdot -4}\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   10. lower-*.f32 N/A

       \[\leadsto \mathsf{log1p}\left(\color{blue}{u \cdot -4}\right) \cdot \left(\mathsf{neg}\left(s\right)\right) \]

   11. lower-neg.f32 99.4

       \[\leadsto \mathsf{log1p}\left(u \cdot -4\right) \cdot \color{blue}{\left(-s\right)} \]

5. Applied rewrites 99.4%

   \[\leadsto \color{blue}{\mathsf{log1p}\left(u \cdot -4\right) \cdot \left(-s\right)} \]
6. Add Preprocessing

Reproduce

herbie shell --seed 2024228 
(FPCore (s u)
  :name "Disney BSSRDF, sample scattering profile, lower"
  :precision binary32
  :pre (and (and (<= 0.0 s) (<= s 256.0)) (and (<= 2.328306437e-10 u) (<= u 0.25)))
  (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))