Question

El fabricante de una nueva línea de impresoras de inyección de tinta desea incluir, como parte de su publicidad, el número de páginas que el usuario puede imprimir con un cartucho. Una muestra de 10 cartuchos reveló el siguiente número de páginas impresas.


2698 2028 2474 2395 2372 2475 1927 3006 2334 2379


Construye un intervalo de confianza de 95% de la media poblacional.

Answer 1

Respuesta:

Explicación:

Answer 2

A continuación se muestra algoritmo para calcular el intervalo de confianza de cualquier distribución estadística. Respuesta: (2229.79 , 2587.8). Se adjunta imagen de salida por pantalla del programa y el diagrama de flujo.

Algoritmo intervaloConfianza

• // Definir variables

Definir x,res,sma,dscionstad,dstribucion,v,mdia, vc, vlor, inf, sup Como Real

Definir n, op Como Entero

Definir porc Como Caracter

Dimension dstribucion[1000]

Escribir 'Calcular el intervalo de confianza de la media'

Escribir '********************************************'

• //Ingresamos porcentaje de confianza

Escribir 'Escoja opción de porcentaje de confianza'

Escribir '(1) 80% '

Escribir '(2) 85% '

Escribir '(3) 90% '

Escribir '(4) 95% '

Escribir '(5) 99% '

Escribir '(6) 99.5% '

Escribir '(7) 99.9% '

Repetir

 Leer op

Mientras Que no op>=1 Y op<=7

• //Asignamos el valor crítico

segun op Hacer

 1: vc <- 1.282

  porc<- "80%"

 2: vc <- 1.440

  porc<- "85%"

 3: vc <- 1.645

  porc<- "90%"

 4: vc <- 1.960

  porc<- "95%"

 5: vc <- 2.576

  porc<- "99%"

 6: vc <- 2.807

  porc<- "99.5%"

 7: vc <- 3.291

  porc<- "99.9%"

FinSegun

• // Ingresamos los términos de la muestra

Escribir 'Tamaño de la muestra: ' Sin Saltar

Repetir

 Leer n

Mientras Que n>10000 Y n<=0

Para x<-1 Hasta n Hacer

 Escribir 'dstribucion(',x,') = ' Sin Saltar

 Leer dstribucion[x]

FinPara

// Calculamos la media

Para x<-1 Hasta n Hacer

 sma <- sma+dstribucion[x]

FinPara

mdia <- sma/n

// Cuadrado de la distancia a la media para cada elemento de la muestra

sma <- 0

Para x<-1 Hasta n Hacer

 res <- (dstribucion[x]-mdia)^2

 sma <- sma+res

 // Dividimos entre el número de elementos de la muestra

FinPara

• // Calculamos la desviación estándar

dscionstad <- sma/(n)

dscionstad <- raiz(dscionstad)

// Calculamos intervalo de confianza

vlor <- vc*(dscionstad/raiz(n))

inf<-mdia-vlor

sup<-mdia+vlor

• // Imprimimos resultados

Escribir 'La desviación estandar es: ',dscionstad

Escribir 'Media aritmética: ',mdia

Escribir "Porcentaje de confianza: ", porc

Escribir "Suma: +", vlor

Escribir "Resta: -", vlor

Escribir 'Intervalo de confianza de la media"

Escribir "Límite inferior: ',inf

Escribir "Límite superior: ",sup

FinAlgoritmo

Para saber más acerca de intervalo de confianza de la media de una muestra consulte: https://brainly.lat/tarea/21767119

#SPJ2