Programa de Estadística Descriptiva para datos tabulados
Usted debe entregar el número de intervalos de clase codificado en el programa como "Numero de datos, n = ". Una vez que usted ingresa el número de intervalos de clases, el programa le pedirá el punto medio de ese intervalo y luego la frecuencia correspondiente a ese intervalo de clase, y así sucesivamente hasta completar el número de intervalos indicado al inicio. El programa le entrega el promedio, varianza, desviación estándar y coeficiente de variación. Luego pregunta si usted quiere calcular algún percentil, mediante una pregunta lógica, que se vuelve a repetir hasta que usted ordena que ya basta de cálculo. Este programita no está en las librerías habituales de la CASIO. Además este programita es susceptible de ser mejorado, evidentemente. De momento, por problema de memoria en la CASIO (que me la prestó el profesor Douglas Fuenteseca) se programó hasta para 10 intervalos de clase, pero usted la puede ampliar aumentando las dimensiones en la sentencia número 10. Demás está decir que está autorizado su uso libremente. Escriba con cuidado las sentencias.
| 5 CLEAR |
| 10 DIM X(10), F(10), A(10) |
| 20 INPUT "Numero de intervalos, n = ", N |
| 30 FOR I = 1 TO N |
| 40 INPUT "X = ", X( I ) |
| 50 INPUT "Frecuencia de X = ", F( I ) |
| 60 NEXT |
| 65 AMP = X( 2 ) - X( 1 ) |
| 70 FOR I = 1 TO N |
| 80 LET T = T + F( I ) |
| 90 NEXT |
| 100 FOR I = 1 TO N |
| 110 PROD = PROD + (X( I ) * F( I )) |
| 115 CUAD = CUAD + ((X( I )^2* F( I)) |
| 120 NEXT |
| 130 PROM = PROD / T |
| 140 V = (CUAD / T) - (PROM^2) |
| 150 D = SQR( V ) |
| 170 CV = D / PROM |
| 180 PRINT "MEDIA = " PROM, "VARIANZA = " V, "DESV EST = " D, "COEF. VAR = " CV |
| 200 INPUT "PERCENTIL? S, N ", A$ |
| 210 IF A$ = "N" THEN END ELSE GOTO 220 |
| 220 INPUT "INGRESE K? ", K |
| 225 ACUM = 0 |
| 230 FOR I = 1 TO N |
| 240 ACUM = ACUM + F( I ) |
| 250 A( I ) = ACUM |
| 260 NEXT |
| 262 IF (K * T / 100) < = A( 1) THEN GOTO 264 ELSE GOTO 270 |
| 264 PER = (X( 1 ) - AMP / 2) + ((K * T / 100) / A( 1)) * AMP |
| 266 GOTO 310 |
| 270 FOR I = 1 TO N |
| 280 IF A( I ) < = (K * T / 100) AND (K * T / 100) < = A( I + 1 ) THEN GOTO 300 ELSE GOTO 290 |
| 290 NEXT |
| 300 PER = ((X( I + 1) - AMP / 2)) + ( ( (K * T / 100) - A( I) ) / (A( I + 1) - A( I ) ) ) * AMP |
| 310 PRINT "PERCENTIL " K " = " PER |
| 320 INPUT "OTRO PERCENTIL ? ; S, N", C$ |
| 330 IF C$ = "S" THEN GOTO 220 ELSE GOTO 340 |
| 340 INPUT "CALCULAR % DEL PERCENTIL? ; S, N", D$ |
| 350 IF D$ = "S" THEN GOTO 360 ELSE END |
| 360 INPUT "INGRESE PERCENTIL ", PE |
| 362 ACUM=0 |
| 364 FOR I = 1 TO N |
| 366 ACUM = ACUM + F(I) |
| 368 A(I) = ACUM |
| 375 FOR I=1 TO N |
| 380 IF PE <( X( I+1 ) - AMP/2) THEN GOTO 390 ELSE GOTO 400 |
| 390 NEXT |
| 400 H = (100 / T)*(((A(I) - A( I - 1 ))/AMP)*(PE - (X( I ) - AMP/2) + A(I - 1)) |
| 410 PRINT "PORCENTAJE DE " PE " ES " H |
| 420 INPUT "OTRO % DE PERCENTIL? ; S, N", F$ |
| 430 IF F$ = "S" THEN GOTO 360 ELSE END |