断片/数学的な話題/一つのクラスに同じ誕生日の人がいる確率のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
断片/数学的な話題/一つのクラスに同じ誕生日の人がいる確率へ行く。
- 1 (2010-09-02 (木) 16:42:08)
- 2 (2010-09-02 (木) 17:06:29)

追加された行はこの色です。
削除された行はこの色です。

#topicpath

** 一つのクラスに同じ誕生日の人がいる確率 [#z715b3fe]
- 概要~
一つのクラスに同じ誕生日の人が一組以上いる確率を求めてみる。~

  ############################################
  #
  # クラスに同じ誕生日の人がいる確率.R
  #
  ############################################
  
  ProbabilityOfTheSameBirthday <- function(n, NumberOfTheDaysInAYear=365){
    ProbabilityNG    <- NULL
    ProbabilityNG[1] <- 1
    for( i in 2:max(n) ){
      ProbabilityNG[i] <- ProbabilityNG[i-1] * (NumberOfTheDaysInAYear - i + 1) / NumberOfTheDaysInAYear
    }
    return (1 - ProbabilityNG)
  }
  
  n <- 1:45
  plot(n, ProbabilityOfTheSameBirthday(n), type='l', ylim=c(0,1))

断片/数学的な話題/一つのクラスに同じ誕生日の人がいる確率 のバックアップ差分(No.1)

断片/数学的な話題/一つのクラスに同じ誕生日の人がいる確率のバックアップ差分(No.1)