code 41551;
real procedure LOGISTICINV (PROB, MU, SIGMA);
value PROB, MU, SIGMA; real PROB, MU, SIGMA;
LOGISTICINV:= if SIGMA ≤ 0
     then   STATAL3 ERROR(“LOGISTICINV”, 3, SIGMA)
     else   if PROB ≤ 0 ∨ PROB ≥ 1
     then   STATAL3 ERROR(“LOGISTICINV”, 1, PROB)
     else   - SIGMA × LN((1 - PROB) / PROB) + MU;
eop