Excel-엑셀-VBA] 남녀 키(신장)의 평균, 표준편차 랜덤 난수 발생; Human Stature Random Number

Sub Human_Stature_Random_Number_Example()

  Randomize

  Dim i


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 20 ~ 24세 남자의 키: 평균 1738 mm, 표준편차: 58.3 mm
' A열에 출력
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  For i = 1 To 1000
    Cells(i, 1).Value = Round((58.3 * gaussianRandom()) + 1738)
  Next i




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 20 ~ 24세 여자의 키: 평균 1607 mm, 표준편차: 49.4 mm
' C열에 출력
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  For i = 1 To 1000
    Cells(i, 3).Value = Round((49.4 * gaussianRandom()) + 1607)
  Next i

End Sub




Function gaussianRandom() As Double

  Dim v1 As Double, v2 As Double, s As Double


  Do
    v1 = 2# * Rnd - 1#
    v2 = 2# * Rnd - 1#
    s = v1 * v1 + v2 * v2
  Loop While s >= 1# Or s = 0#


  s = Sqr((-2# * Log(s)) / s)

  gaussianRandom = v1 * s

End Function