Contenido
Sub EjemploBinomInv()
Dim numEnsaios As Long
Dim probabilidadExito As Double
Dim criterioProbabilidad As Double
Dim resultado As Long
' Ejemplo: Cual es el minimo número de ensayos para obtener al menos 2 éxitos
' con un 80% de probabilidad si la probabilidad de éxito en cada ensayo es del 50%
numEnsaios = 2
probabilidadExito = 0.5
criterioProbabilidad = 0.8
resultado = Application.WorksheetFunction.Binom_Inv(numEnsaios, probabilidadExito, criterioProbabilidad)
MsgBox "El número mínimo de ensayos necesarios es: " & resultado
End Sub
Ten en cuenta que Binom_Inv tiene tres argumentos:
1. numEnsaios (Number of Trials): El número de ensayos independientes.
2. probabilidadExito (Probability of Success on Each Trial): La probabilidad de éxito en cada ensayo.
3. criterioProbabilidad (Criterio Probability): El criterio de probabilidad acumulada.
La función devuelve el valor mínimo de ensayos necesarios para tener una probabilidad acumulada de éxito igual o mayor que el criterio especificado.
Este ejemplo te mostrará un mensaje (MessageBox) con el número mínimo de ensayos necesarios para alcanzar al menos el número de éxitos dado con la probabilidad de confianza especificada.
Asegúrate de sustituir las variables numEnsaios, probabilidadExito y criterioProbabilidad con los valores que se correspondan con tu problema específico.