비베 자료

소개글

비주얼베이직 programmingForBinomialDistribution입니다.

목차

없음

본문내용

---------Form--------------------
Dim x As Integer
Dim n As Integer
Dim p As Single
Dim pdf() As Single
n = CInt(TxtN.Text)
p = CSng(TxtP.Text)
ReDim pdf(0 To n)

Recursive방법을 이용하여 pdf구하기
pdf(0) = (1 - p) ^ n
For x = 1 To n
pdf(x) = CombinationRecursiveFunction(n, x)
pdf(x) = pdf(x) * (p ^ x) * ((1 - p) ^ (n - x))
Next x
For x = 0 To n

참고 자료

없음