幾何機率分佈（Exponential Probability Distribution）

GNU R：

# Exponential Probability 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 }