Function DistrQsN(ByVal Rnd0à1 As Double, ByVal Moyenne As Double, ByVal ÉcartType As Double) As Double
Rem. Distribution quasi normale à part que le nombre engendré ne fuira la moyenne de plus de 4 fois l'écart type
DistrQsN = (Rnd0à1 ^ 0.18148 - (1 - Rnd0à1) ^ 0.18148) * 4 * ÉcartType + Moyenne
End Function
Function DistrQsNMnMx(ByVal Rnd0à1 As Double, ByVal MinI As Double, ByVal MaxI As Double) As Double
DistrQsNMnMx = DistrQsN(Rnd0à1, (MinI + MaxI) / 2, (MaxI - MinI) / 8)
End Function