calculo.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
<?php
/* V 0.2
Creado por alrik.
Pequeño paquete con funciones estadisticas
*/
function poscalc($porcentaje)
{
if($porcentaje <= 0) echo 'Error: No se puede usar un porcentaje menor que 0%';
if($porcentaje >= 100) echo 'Error: No se puede usar un porcentaje mayor que 100%';
$rand = rand(0,100);
if($porcentaje < $rand) return false;
else return true;
}
// Esto para el calculo de factoriales.
function fact($int){
if($int<2) return 1;
for($f=2;$int-1>1;$f*=$int--);
return $f;
};
// distribución binomial
// k es el número de aciertos
// n es el número de ensayos
// p es la probabilidad de éxito
function pbinom($k,$n,$p)
{
return fact($n)/(fact($k)*fact($n-$k)) * pow($p,$k) * pow((1-$p),($n-$k));
}
// Ley de gauss
// X puntuación bruta
// Y media aritmética
// S desviación típica.
function pgauss($x,$y,$s)
{
return ($x-$y)/$s;
}
// Regla de Laplace
// N númeo de casos favorables al suceso
// K número de casos posibles
function regla_laplace($n,$k)
{
return ($n/$k);
}
// Formula de correción del azar
// A número de aciertos
// E número de errores
// K número de opciones
// Devuelve la puntuación corregida o RC
function rc($a,$e,$k)
{
return ($a-$e)/($k-1);
}
// Otra binomial
//n = número de intentos
//k = número de éxitos
//n - k = número de fallos
//q = 1 - p = probabilidad de fallo en un intento
//p = probabilidad de éxito en un intento
function pbinom2($n,$k,$q,$p)
{
return ($n/$k)*pow($p,$k)*pow($q,$n-$k);
}
?>