Pourcentage "non lineaire"
Publié : mer. 15/mai/2019 11:49
Salut,
je poste ici un truc et astuce.
Ca sert a quoi me direz vous ?
Imaginez que vous faisiez un jeu où il faut tuer des monstres qui droppent des items. Parmi ces items, un item tres rare. Et bien, il correspondrait au chiffre 10 qui sort a 1% du temps (grace a la ligne : (Random(Random(absis))) )

je poste ici un truc et astuce.
Distribution de 20000 nombres :
Nombre 0 : 5582 (28%)
Nombre 1 : 3649 (18%)
Nombre 2 : 2776 (14%)
Nombre 3 : 2153 (11%)
Nombre 4 : 1639 (8%)
Nombre 5 : 1378 (7%)
Nombre 6 : 955 (5%)
Nombre 7 : 785 (4%)
Nombre 8 : 559 (3%)
Nombre 9 : 364 (2%)
Nombre 10 : 160 (1%)
Code : Tout sélectionner
;;;;;;;;;;;
cmb=20000
absis=10
;;;;;;;;;;;
Dim nb(absis)
For i=1 To cmb
a=(Random(Random(absis)))
nb(a)+1
Next
;;;;;;;;;;;
Dim pourcentage.f(absis)
Debug "Distribution de "+Str(cmb)+" nombres :"
Debug ""
For i=0 To absis
pourcentage(i)=(nb(i)*100)/cmb
Debug "Nombre "+Str(i)+" : "+Str(nb(i))+" ("+StrF(pourcentage(i))+"%)"
Next
;;;;;;;;;;;;;;;;;;;;;;;
Imaginez que vous faisiez un jeu où il faut tuer des monstres qui droppent des items. Parmi ces items, un item tres rare. Et bien, il correspondrait au chiffre 10 qui sort a 1% du temps (grace a la ligne : (Random(Random(absis))) )