\[\left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)\]
Test:
Jmat.Real.erfi, branch x greater than or equal to 5
Bits:
128 bits
Bits error versus x
Time: 2.1 m
Input Error: 1.5
Output Error: 0.8
Log:
Profile: 🕒
\((\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{15 \cdot \left(\frac{e^{{\left(\left|x\right|\right)}^2}}{{\left(\left|x\right|\right)}^3 \cdot \left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right)}{8 \cdot {\left(\left|x\right|\right)}^3}\right))_*\)
  1. Started with
    \[\left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)\]
    1.5
  2. Applied simplify to get
    \[\color{red}{\left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)} \leadsto \color{blue}{(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}} \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right))_*}\]
    1.4
  3. Using strategy rm
    1.4
  4. Applied div-inv to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\color{red}{\frac{\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}} \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\color{blue}{\left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \frac{1}{\sqrt{\pi}}\right)} \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right))_*\]
    1.3
  5. Applied associate-*l* to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \color{red}{\left(\left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \frac{1}{\sqrt{\pi}}\right) \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right)})_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \color{blue}{\left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\frac{1}{\sqrt{\pi}} \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right)\right)})_*\]
    1.3
  6. Applied simplify to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \color{red}{\left(\frac{1}{\sqrt{\pi}} \cdot \frac{{\left(\frac{1}{\left|x\right|}\right)}^3 \cdot {\left(\frac{1}{\left|x\right|}\right)}^3}{\left|x\right|}\right)}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \color{blue}{\left(\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{\frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}\right)}\right))_*\]
    0.8
  7. Using strategy rm
    0.8
  8. Applied associate-*r/ to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \color{red}{\left(\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{\frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}\right)}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \color{blue}{\frac{\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}}\right))_*\]
    0.8
  9. Applied associate-*l/ to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\color{red}{\left(\frac{15}{8} \cdot e^{\left|x\right| \cdot \left|x\right|}\right)} \cdot \frac{\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\color{blue}{\frac{15 \cdot e^{\left|x\right| \cdot \left|x\right|}}{8}} \cdot \frac{\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}\right))_*\]
    0.8
  10. Applied frac-times to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \color{red}{\left(\frac{15 \cdot e^{\left|x\right| \cdot \left|x\right|}}{8} \cdot \frac{\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}}{{\left(\left|x\right|\right)}^3}\right)})_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \color{blue}{\left(\frac{\left(15 \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}\right)}{8 \cdot {\left(\left|x\right|\right)}^3}\right)})_*\]
    0.8
  11. Applied taylor to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{\left(15 \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\frac{\frac{1}{\sqrt{\pi}}}{{\left(\left|x\right|\right)}^3} \cdot \frac{1}{\left|x\right|}\right)}{8 \cdot {\left(\left|x\right|\right)}^3}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{15 \cdot \left(\frac{e^{{\left(\left|x\right|\right)}^2}}{{\left(\left|x\right|\right)}^3 \cdot \left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right)}{8 \cdot {\left(\left|x\right|\right)}^3}\right))_*\]
    0.8
  12. Taylor expanded around 0 to get
    \[(\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{\color{red}{15 \cdot \left(\frac{e^{{\left(\left|x\right|\right)}^2}}{{\left(\left|x\right|\right)}^3 \cdot \left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right)}}{8 \cdot {\left(\left|x\right|\right)}^3}\right))_* \leadsto (\left(\frac{e^{\left|x\right| \cdot \left|x\right|}}{\sqrt{\pi}}\right) * \left(\frac{1}{\left|x\right|} + (\left({\left(\frac{1}{\left|x\right|}\right)}^3 \cdot \left(\frac{1}{\left|x\right|} \cdot \frac{3}{4}\right)\right) * \left(\frac{1}{\left|x\right|}\right) + \left(\frac{{\left(\frac{1}{\left|x\right|}\right)}^3}{2}\right))_*\right) + \left(\frac{\color{blue}{15 \cdot \left(\frac{e^{{\left(\left|x\right|\right)}^2}}{{\left(\left|x\right|\right)}^3 \cdot \left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right)}}{8 \cdot {\left(\left|x\right|\right)}^3}\right))_*\]
    0.8

Original test:


(lambda ((x default))
  #:name "Jmat.Real.erfi, branch x greater than or equal to 5"
  (* (* (/ 1 (sqrt PI)) (exp (* (fabs x) (fabs x)))) (+ (+ (+ (/ 1 (fabs x)) (* (/ 1 2) (* (* (/ 1 (fabs x)) (/ 1 (fabs x))) (/ 1 (fabs x))))) (* (/ 3 4) (* (* (* (* (/ 1 (fabs x)) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x))))) (* (/ 15 8) (* (* (* (* (* (* (/ 1 (fabs x)) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x))) (/ 1 (fabs x)))))))