Exception for Sample trimmed logistic on [-pi, pi]

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

Math

\[\left(-s\right) \cdot \log \left(\frac{1}{u \cdot \left(\frac{1}{1 + e^{\frac{-\pi}{s}}} - \frac{1}{1 + e^{\frac{\pi}{s}}}\right) + \frac{1}{1 + e^{\frac{\pi}{s}}}} - 1\right) \]

FPCore

(FPCore (u s)
 :precision binary32
 (*
  (- s)
  (log
   (-
    (/
     1.0
     (+
      (*
       u
       (- (/ 1.0 (+ 1.0 (exp (/ (- PI) s)))) (/ 1.0 (+ 1.0 (exp (/ PI s))))))
      (/ 1.0 (+ 1.0 (exp (/ PI s))))))
    1.0))))

C

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