機場安檢時間機率計算

場景：

• 已知某機場平均安檢索需時間：12.1 min。
• 已知由安檢關卡至登機門需要時間：12 min。

問題：

• 求算 10 min 內完成安檢機率。（0.5623984）
• 求算 20 min 以上完成安檢機率。（0.1914952）
• 求算 10 ~ 20 min 內完成安檢機率。（0.2461064）
• 求算 30 min 內錯過登機機率。（0.2259135）

GNU R：

# Probability with Time ExponentialProbabilityDesity <- function(timeExpect, timeMean) { myPower <- -1 * (timeExpect / timeMean) myProbability <- exp(myPower) / timeMean myProbability } ExponentialCumulativeProbability <- function(timeExpect, timeMean) { myPower <- -1 * (timeExpect / timeMean) myProbability <- 1 - exp(myPower) myProbability } #################################################################### # 平均安檢時間 timeMean <- 12.1 myProbability <- vector(mode="double", 3) # 10 min 內完成安檢機率 timeExpect <- 10 myProbability[1] <- ExponentialCumulativeProbability(timeExpect, timeMean) print(myProbability[1]) # 20 min 內完成安檢機率 timeExpect <- 20 myProbability[2] <- ExponentialCumulativeProbability(timeExpect, timeMean) # 超過 20 min 內完成安檢機率 print(1- myProbability[2]) # 10 ~ 20 min 內完成安檢機率 print(myProbability[2] - myProbability[1]) # 必須在 30 min 內登機 # 從安檢關卡至登機門需時：12 min # 最多安檢時間，否則遲到 timeExpect <- 30 - 12 # 最多安檢時間內機率 myProbability[3] <- ExponentialCumulativeProbability(timeExpect, timeMean) # 超過最多安檢時間內機率，遲到機率 print(1- myProbability[3])