\[\left(\left((e^{d} - 1)^* \cdot c\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
Test:
(fmod (* (expm1 d) c) (atan2 8.61318337292339e-131 d))
Bits:
128 bits
Bits error versus a
Bits error versus b
Bits error versus c
Bits error versus d
Time: 12.6 s
Input Error: 22.7
Output Error: 15.8
Log: ⚲
Profile: 🕒
\(\begin{cases} \left(\left({\left((e^{(e^{\log_* (1 + \log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c}))} - 1)^*} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) & \text{when } d \le -4.0174092f-38 \\ \left(\left(\left(-c\right) \cdot (e^{-d} - 1)^*\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-d}\right)\right) & \text{otherwise} \end{cases}\)

    if d < -4.0174092f-38

    1. Started with
      \[\left(\left((e^{d} - 1)^* \cdot c\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      7.4
    2. Using strategy rm
      7.4
    3. Applied add-sqr-sqrt to get
      \[\left(\color{red}{\left((e^{d} - 1)^* \cdot c\right)} \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\color{blue}{\left({\left(\sqrt{(e^{d} - 1)^* \cdot c}\right)}^2\right)} \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      7.7
    4. Using strategy rm
      7.7
    5. Applied expm1-log1p-u to get
      \[\left(\left({\color{red}{\left(\sqrt{(e^{d} - 1)^* \cdot c}\right)}}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\left({\color{blue}{\left((e^{\log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c})} - 1)^*\right)}}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      7.9
    6. Using strategy rm
      7.9
    7. Applied expm1-log1p-u to get
      \[\left(\left({\left((e^{\color{red}{\log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c})}} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\left({\left((e^{\color{blue}{(e^{\log_* (1 + \log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c}))} - 1)^*}} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      8.0

    if -4.0174092f-38 < d

    1. Started with
      \[\left(\left((e^{d} - 1)^* \cdot c\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      30.1
    2. Using strategy rm
      30.1
    3. Applied add-sqr-sqrt to get
      \[\left(\color{red}{\left((e^{d} - 1)^* \cdot c\right)} \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\color{blue}{\left({\left(\sqrt{(e^{d} - 1)^* \cdot c}\right)}^2\right)} \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      30.1
    4. Using strategy rm
      30.1
    5. Applied expm1-log1p-u to get
      \[\left(\left({\color{red}{\left(\sqrt{(e^{d} - 1)^* \cdot c}\right)}}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\left({\color{blue}{\left((e^{\log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c})} - 1)^*\right)}}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right)\]
      30.1
    6. Applied taylor to get
      \[\left(\left({\left((e^{\log_* (1 + \sqrt{(e^{d} - 1)^* \cdot c})} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{d}\right)\right) \leadsto \left(\left({\left((e^{\log_* (1 + \sqrt{-1 \cdot \frac{(e^{\frac{-1}{d}} - 1)^*}{c}})} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right)\]
      29.6
    7. Taylor expanded around -inf to get
      \[\color{red}{\left(\left({\left((e^{\log_* (1 + \sqrt{-1 \cdot \frac{(e^{\frac{-1}{d}} - 1)^*}{c}})} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right)} \leadsto \color{blue}{\left(\left({\left((e^{\log_* (1 + \sqrt{-1 \cdot \frac{(e^{\frac{-1}{d}} - 1)^*}{c}})} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right)}\]
      29.6
    8. Applied simplify to get
      \[\color{red}{\left(\left({\left((e^{\log_* (1 + \sqrt{-1 \cdot \frac{(e^{\frac{-1}{d}} - 1)^*}{c}})} - 1)^*\right)}^2\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right)} \leadsto \color{blue}{\left(\left((e^{\frac{-1}{d}} - 1)^* \cdot \frac{-1}{c}\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right)}\]
      29.9
    9. Applied taylor to get
      \[\left(\left((e^{\frac{-1}{d}} - 1)^* \cdot \frac{-1}{c}\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{\frac{-1}{d}}\right)\right) \leadsto \left(\left(-1 \cdot \left(c \cdot (e^{-1 \cdot d} - 1)^*\right)\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-1 \cdot d}\right)\right)\]
      19.6
    10. Taylor expanded around inf to get
      \[\color{red}{\left(\left(-1 \cdot \left(c \cdot (e^{-1 \cdot d} - 1)^*\right)\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-1 \cdot d}\right)\right)} \leadsto \color{blue}{\left(\left(-1 \cdot \left(c \cdot (e^{-1 \cdot d} - 1)^*\right)\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-1 \cdot d}\right)\right)}\]
      19.6
    11. Applied simplify to get
      \[\left(\left(-1 \cdot \left(c \cdot (e^{-1 \cdot d} - 1)^*\right)\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-1 \cdot d}\right)\right) \leadsto \left(\left(\left(-c\right) \cdot (e^{-d} - 1)^*\right) \bmod \left(\tan^{-1}_* \frac{8.61318337292339 \cdot 10^{-131}}{-d}\right)\right)\]
      19.6
    12. Applied final simplification
  1. Removed slow pow expressions

Original test:


(lambda ((a default) (b default) (c default) (d default))
  #:name "(fmod (* (expm1 d) c) (atan2 8.61318337292339e-131 d))"
  (fmod (* (expm1 d) c) (atan2 8.61318337292339e-131 d)))