Download bajar

Programa de Estadística Descriptiva para datos tabulados
Autor: Prof. Eliseo Martinez H.
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 y verifique los resultados para ver si funciona correctamente.
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