Download bajar
Document related concepts
no text concepts found
Transcript
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