Controlar porcentaje de random

[orodrf]

Exactamente el control del porcentaje es aqui
$porcentaje=$mat[1]*100/$can
de modo que
if ( $mat[1]*100/$can > 5) {
...
}

Fue un error mio por no probar, simplemente deberias incluir el 50
// evaluamos valor obtenido e incrementamos la cantidad para valores bajos, o altos
if ( $ale>=50 ) {
$mat[0]++; //cantidad de numeros altos
} else {
$mat[1]++; //cantidad de numeros bajos
}

o podrias simplificar las cosas generar primero el 1% de los numeros controlando
$min y max en un bucle y luego el resto en otro bucle.