Section 8.3 Exponential Distribution
Once again, consider a Poisson Process where you start with an interval of variable length X so that X measures the interval needed in order to obtain a first success with R=(0,∞).R=(0,∞). The resulting distribution of X will be called an Exponential distribution. To derive the probability function for this distribution, consider finding f(x) by first considering F(x).Theorem 8.3.1. Exponential Probability Function.
For an exponential random variable X,X,
where λλ is a given parameter.
(Note that we will find later that λ=1μλ=1μ or the reciprocal of the theoretical mean.)
Proof.
where the discrete Poisson Probability Function is used to answer the probability of exactly no changes in the "fixed" interval [0,x].
Using this distribution function and taking the derivative yields
Theorem 8.3.2. Verification of Exponential Probability Function.
Proof.
where we used the substitution \(u = \lambda x\text{.}\)
Theorem 8.3.3. Derivation of Statistics for Exponential Distribution and Plotting.
Proof.
For the mean, use integration by parts with \(u = x\) and \(dv = \lambda e^{-\lambda \cdot x}\) to get (eventually)
and so the use of \(\lambda = \frac{1}{\mu}\) in f(x) is warranted.
The remaining statistics are derived similarly using repeated integration by parts. The interactive Sage cell below calculates those for you automatically.
Corollary 8.3.4. Alternate Form for the Exponential Distribution Probability Function.
Given a Poisson process and a constant μ=1λ,μ=1λ, suppose XX measures the variable interval length needed until you get a first success. Then XX has an exponential distribution with probability function
Proof.
Simply replace the mean as derived above in the original function.
xxxxxxxxxx
# Exponential Distribution
var('x,mu')
assume(mu>0)
f(x) =e^(-x/mu)/mu
mu = integral(x*f,x,0,oo).factor()
M2 = integral(x^2*f,x,0,oo).factor()
M3 = integral(x^3*f,x,0,oo).factor()
M4 = integral(x^4*f,x,0,oo).factor()
pretty_print('Mean = ',mu)
v = (M2-mu^2).factor()
pretty_print('Variance = ',v)
stand = sqrt(v)
sk = (((M3 - 3*M2*mu + 2*mu^3))/stand^3).simplify()
pretty_print('Skewness = ',sk)
kurt = (M4 - 4*M3*mu + 6*M2*mu^2 -3*mu^4).factor()/stand^4
pretty_print('Kurtosis = ',(kurt-3).factor(),'+3')
def _(m = slider(1,12,1/2,2,label='mu')):
plot(f(mu=m),x,0,30).show(ymax=1)
Theorem 8.3.5. Distribution function for Exponential Distribution.
Proof.
Using \(f(x) = \frac{1}{\mu} e^{-\frac{x}{\mu}}\text{,}\) note
Example 8.3.6. Router Requests Revisited.
Once again, let's consider a router which, over time, has been shown to receive on average 1000 such requests in any given 10 minute period during regular working hours. This would mean that, on average, it would take μ=101000=1100=0.01μ=101000=1100=0.01 minutes (i.e., less than a second) to receive the first request. If X were to measure the time interval until the first actual request comes in, then the Exponential distribution would be a good model using
Let's determine the probability that a first request arrives in the next two seconds. First, note that since X is a continuous variable that f(x) is NOT the probability of exactly X minutes but you must integrate to compute all probabilities. Also, the next 2 seconds is actually the next 260=130260=130 of a minute. Therefore, F(x) is what you need in general and you find
Checkpoint 8.3.7. WebWork - Exponential.
xxxxxxxxxx
r=1 # the number of successes desired
# the mean till first must be given
mu = 3
sdev = sqrt(mu) # the formula for the standard deviation
M = mu*3 # the space is infinite but we just go out 3 standard deviations
X = 0:M # quantiles for the space R of the random variable
Pexp <- function(x){dexp(x, mu )} # create the probability function over X
curve(Pexp, from=0, to=M, xlab="X", col="blue", lwd=3,
main="Gamma Sampling vs Gamma Curve vs Approximating 'Bell Curve'")
Pnormal <- function(X){dnorm(X, mean=mu, sd=sdev)} # to overlap a bell curve
curve(Pnormal, col="red", lwd=2, add=TRUE)
Psample = rexp(10^6, mu) # to create a histogram, sample a lot
# Xtop=max(Psample) # for scaling the x-axis. Shift by 1/2 below.
hist(Psample, prob=TRUE, add=TRUE)
Theorem 8.3.8. The Exponential Distribution yields a continuous memoryless model..
If X has an exponential distribution and a and b are nonnegative integers, then
Proof.
Using the definition of conditional probability,