\[(e^{a} - 1)^* \cdot \cot a\]
Test:
(* (expm1 a) (cotan a))
Bits:
128 bits
Bits error versus a
Bits error versus b
Time: 3.9 s
Input Error: 0.2
Output Error: 0.2
Log: ⚲
Profile: 🕒
\((e^{a} - 1)^* \cdot \cot a\)
  1. Started with
    \[(e^{a} - 1)^* \cdot \cot a\]
    0.2

Original test:


(lambda ((a default) (b default))
  #:name "(* (expm1 a) (cotan a))"
  (* (expm1 a) (cotan a)))