Question

En un proceso de baño químico utilizado para grabar tarjetas de circuito impreso, se están comparado dos diferentes catalizadores para determinar si requieren diferentes tiempos de inmersión para remover cantidades idénticas de material foto resistente. Se efectuaron 12 baños con el catalizador 1, resultando un tiempo de inmersión medio de muestra de X1 = 24.6 minutos y una desviación estándar de S1 = 0.85 minutos. Con el catalizador 2 se efectuaron 15 baños, siendo el tiempo de inmersión medio de X2 = 22.1 minutos y una desviación estándar de S2 = 0.98 minutos. Deseamos determinar un intervalo de confianza del 95 por ciento en la diferencia en las medias µ1 - µ2, suponiendo que las desviaciones estándar (o varianzas) de las dos poblaciones son iguales.

Answer 1

Con el algoritmo de solución se ha determinado un intervalo de confianza del 95% de la diferencia de los promedios de tiempo de inmersión en cada catalizador de: límite inferior en 2.00405 y el límite superior en 2.99594.

Algoritmo IConfianza95Entre2Medias

• // Definir variables

Definir d1,d2,avrage1,avrage2,z95,dsde1,hsta1,dsde2,hsta2,difm Como Real

Definir c1,c2 Como Entero

Escribir 'Dada la diferencia entre dos medias, calcular del intervalo de confianza del 95%'

• // Asignamos el valor de z95%

z95 <- 1.96

• //Leer datos catlizador 1

Escribir "**CATALIZADOR 1**'

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

Leer c1

Escribir 'Promedio del tiempo de inmersión: ' Sin Saltar

Leer avrage1

Escribir 'Desviación estándar: ' Sin Saltar

Leer d1

• //Leer datos catalizador 2

Escribir "**CATALIZADOR 2**'

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

Leer c2

Escribir 'Promedio del tiempo de inmersión: ' Sin Saltar

Leer avrage2

Escribir 'Desviación estándar: ' Sin Saltar

Leer d2

• // Calcular diferencia de la media
• difm <- abs(avrage1-avrage2)

• // Intervalo confianza diferencia de la media (catalizador 1)

dsde1 <- difm-(z95*(d1/raiz(c1)))

hsta1 <- difm+(z95*(d1/raiz(c1)))

• // Intervalo confianza diferencia de media (catalizador 2)

dsde2 <- difm-(z95*(d2/raiz(c2)))

hsta2 <- difm+(z95*(d2/raiz(c2)))

• // Mostrar resultados

Escribir " "

Escribir '**INTERVALO DE CONFIANZA 95%**"

Escribir "DIFERENCIA DE LA MEDIA (µ1-µ2):", difm

Escribir "**CATALIZADOR 1**'

Escribir 'Inferior: ',dsde1

Escribir 'Superior: ',hsta1

Escribir "**CATALIZADOR 2**'

Escribir 'Inferior: ',dsde2

Escribir 'Superior: ',hsta2

FinAlgoritmo

Para saber más acerca de intervalo de confianza consulte brainly.lat/tarea/66107169

#SPJ1