//HP PRIME PROGRAMA PARA PROBABILIDAD Y
ESTADISTICA
//ALGORITMO CREADO POR PAUL TERRAZAS CARRERA:[Link] ELECTRICA
//PARA DATOS AGRUPADOS POR INTERVALOS
Version.6.7
EXPORT QUARTIL(I1,I2,fi,Mi,Qk,Dk,Pk)
BEGIN
N:=SIZE(fi);
LOCAL n:=0,X:=0;
LOCAL FA1:=0,FB1=0;
LOCAL FA2:=0,FB2:=0;
LOCAL FA3:=0,FB3:=0;
LOCAL Ci,Q1,Q2,Q3,Qx,Dx,Px;
LOCAL P,P1,P2,P3,X1,X2,X3,Mo;
LOCAL xprom,S,CV,Y,K;
LOCAL A:=0,B:=0,C:=0,x:=0;
//Suma de frecuencia absoluta fi
FOR I FROM 1 TO N DO
n:=n+fi(I);
x:=x+fi(I)*Mi(I);
END; //Fin FOR
xprom:=x/n;
FOR I FROM 1 TO N DO
A:=A+((Mi(I)-xprom)^2)*fi(I);
B:=B+((Mi(I)-xprom)^3)*fi(I);
C:=C+((Mi(I)-xprom)^4)*fi(I);
END
// Calculamos la Moda (Mo) que trabaja con fi
FOR I FROM 1 TO N DO
If X fi(I) THEN
X:=fi(I);
P:=I;
ELSE
X:=X;
END;
END; //Fin FOR
// *
//Ingreso de valores de operación
Q1:=n*Qk/4;
Q2:=n*Dk/10;
Q3:=n*Pk/100;
//Inicializo las x’s
X1:=0; X2:=0; X3:=0;
//Buscamos el punto de operación Q1,Q2,Q3 en Fi no en fi
//Y guardamos su posición en P1,P2,P3
ING. CIVIL ELÉCTRICA |PTRRZA
//Para Q1:
FOR I FROM 1 TO N DO
X1:=X1+fi(I); //Obtenemos la frecuencia acumulada Fi
IF Q1>X1 THEN //Se compara con el valor de operación Q
P1:=I+1; //si cumple se almacena la posición
siguiente
END; //Así si el valor está entre medio
//se usa el siguiente
IF Q1=X1 THEN //Si es igual se conserva esa posición
P1:=I;
ELSE
X1:=X1;
END;
END;//Fin FOR1
//**
//Para Q2:
FOR I FROM 1 TO N DO
X2:=X2+fi(I); //Obtenemos la frecuencia acumulada Fi
IF Q2>X2 THEN //Se compara con el valor de operación Q2
P2:=I+1; //si cumple se almacena la posición siguiente
END;
IF Q2=X2 THEN //Si es igual se conserva esa posicion
P2:=I;
ELSE
X2:=X2;
END;
END;//Fin FOR2
//Para Q3:
FOR I FROM 1 TO N DO
X3:=X3+fi(I); //Obtenemos la frecuencia acumulada Fi
IF Q3>X3 THEN //Se compara con el valor de operación
Q3
P3:=I+1; //si cumple se almacena la posición
siguiente
END;
IF Q3=X3 THEN //Si es igual se conserva esa posición
P1:=I;
ELSE
X3:=X3;
END;
END;//Fin FOR3
// ***
ING. CIVIL ELÉCTRICA |PTRRZA
//Encuentra valor en la frecuencia absoluta hasta P1,P2,P3
FOR I FROM 1 TO P1 DO
FA1:=FA1+fi(I); //Guardamos el valor de Fi
IF I>1 THEN //Evitamos un error de falta de dato
FB1:=FB1+fi(I-1);//Guardando el valor F(i-1)
END;
END;
FOR I FROM 1 TO P2 DO
FA2:=FA2+fi(I); //Obtenemos Fi
IF I>1 THEN
FB2:=FB2+fi(I-1); //Obtenemos F(i-1)
END;
END;
FOR I FROM 1 TO P3 DO
FA3:=FA3+fi(I); //Obtenemos Fi
IF I>1 THEN
FB3:=FB3+fi(I-1); //Obtenemos F(i-1)
END;
END;
//****
//Ingresamos FORMULAS
//Cuartil, decil percentil, y moda
Ci:=I2(P1)-I1(P1);
Qx:=I1(P1)+Ci*(Qk*n/4-FB1)/(FA1-FB1);
Dx:=I1(P2)+Ci*(Dk*n/10-FB2)/(FA2-FB2);
Px:=I1(P3)+Ci*(Pk*n/100-FB3)/(FA3-FB3);
Mo:=I1(P)+Ci*(fi(P)-fi(P-1))/((fi(P)-fi(P-1))+(fi(P)-fi(P+1)));
//Desviación estándar, CV, distribución y curtosis.
S:= ((1/(n-1))*A);
CV:=S/xprom;
Y:=(B/n)/(S^3);
K:=(C/n)/(S^4)-3;
RETURN “Qx:”+Qx+ “ Dx:”+Dx+
“ Px:”+Px+ “ Mo:”+Mo+ “ Ci:”+Ci+ “ n:”+n+
“ P1:”+Q1+ “ P2:”+Q2+ “ P4:”+Q3+
“ FA1:”+FA1+ “ FB1:”+FB1+
“ FA2:”+FA2+ “ FB2:”+FB2+
“ FA3:”+FA3+ “ FB3:”+FB3+
“ Q1:”+Q1+ “ Q2:”+Q2+ “ Q3:”+Q3+
“ A:”+A+ “ B:”+B+ “ C:”+C+
“ xprom:”+xprom+
“ S:”+S+ “ CV:”+CV+
“ Y:”+Y+ “ K:”+K;
END//Fin programa QUARTIL()
ING. CIVIL ELÉCTRICA |PTRRZA
1.1.- Moda Quartil Decil Percentil de orden k .
Ejemplo: Considerando los datos calcular Moda, Quartil Decil 5, Percentil 65, Desviación Estándar,
Coeficiente de Variación, Coeficiente de Distribución.
Tabla 1.1. Tabla general de frecuencia absoluta y acumulada.
[12:16] 13 13 14 -7.5 731.25 -5484.37
]16:20] 16 29 18 -3.5 196.00 -686.00
]20:24] 19 48 22 0.5 4.75 2.375
]24:28] 15 63 26 4.5 303.75 1366.87
]28:32] 9 72 30 8.5 650.25 5527.13
n=72 A=1886 B=726
ING. CIVIL ELÉCTRICA |PTRRZA
1.1.- Calculo intervalo
Nivel de conocimiento funcionarios de la Municipalidad en área de informática.
Puntos(%)
15 45 675 -16 256 3840 -61.440 983.040
34 61 2074 0 0 0 0 0
15 77 1155 16 256 3840 61.440 983.040
ING. CIVIL ELÉCTRICA |PTRRZA
