깜박깜박가
좌측 세로 1~10 까지 , 가로 0~0.9 까지
a=Int(N * Rnd) + 1
N=10
엑셀 VB 스크립트에서 랜덤 수를 구할 때
저 식을 많이 알려주시더군요
사용하다가 비슷한 숫자가 자주 나오길래 궁금해서 VB 도움말을 찾아봤습니다.
https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.vbmath.rnd?view=net-5.0
The Rnd function returns a value less than 1, but greater than or equal to zero.
제대로 이해를 했는지 모르겠습니다
remark에 나온 문구대로 엑셀로 어떤 숫자가 나올 수 있는지 간략하게 따져보니
확률상으로 보면 10이 나올 경우가 제일 적은 것처럼 나옵니다.
제가 잘못 이해를 한 것인가요?
아니면 확률적으로 균등하게 나올 수 있는 식이 따로 있을까요?
꿈만 꾸는 공상가
Int(2 + Rnd * (30 - 2 + 1))
https://www.automateexcel.com/vba/random-number/
이런식으로 하라고 나와있는데요 .
저 식은 지식인 통해서 받은 겁니다
저런 식이 많이 나오더라구요
알려주신 링크 참조하겠습니다
작은 범위의 임의의 수를 생성하면 필연적으로 같은 수가 나오는 것 같은 느낌이 들 수 있습니다.
큰 범위의 임의의 수를 많이 생성해서, 패턴을 보면 균등한 확률로 난수를 생성하는지 알 수 있겠습니다.
아니면, 랜덤 시드를 계속 초기화 해서 사용해 보시는 것은 어떨까요?
계속 동일한 수가 구해집니다 ㅋ
그래서 Rnd에 의문이, 저 식에 의문이 들었습니다
초짜라 김제연님이 알려주신 링크에서 도움을 받아보려구요
10*Rnd는 0에서 9.9999에 고르게 분포되고..
Int로 정수만 떼오면 0 ~9
1을 더해서 1~10로 분포됩니다
즉 Rnd의 신뢰도와 같다고 생각되네요
n개가 동일한 랜덤 값을 구하는 식을 만들어서
엑셀에서 돌려봤는데 n이 증가할수록 나오는 값이
고정되어 나옵니다
a01 integer
a02 integer
.
.
.
a09 integer
b01 integer
.
.
.
b03 integer
c01 integer
do
do
a01=(NxRnd)+1
.
.
.
a03=(NxRnd)+1
loop until a01 = a02 and a01= a03
b01 = a01
.
.
.
do
a07=(NxRnd)+1
.
.
.
a09=(NxRnd)+1
loop until a07=a08 and a07= a09
b03=a07
loop until b01 =b02 and b01 =b03
c03=b01
초짜라 대충 이런 식으로 do loop until을
중첩시켜서 N개가 동일하게 나올 수 있는 랜덤 값을
구해보려고 돌렸습니다
(동일한 값 4개 이상 비교할 경우 엑셀이 수식 연산으로
응답없음으로 넘어가서 나오지 않기에
3개씩 끊어서 돌리는 게 최선이었습니다)
do loop 중첩 식이 잘못된 것인지 모르겠지만
랜덤으로 생성한 값인데
최종 c01의 값이 랜덤하게 나오는 것이 아니라
일정한 숫자들만 나옵니다
이걸 여러번 중첩시키면 동일한 숫자 1개만 계속 나옵니다
뭐가 문젤까요?
cpu가 문제인건지...수식이 문제인건지...
Rnd 신뢰도가 문제인건지...
초짜라 모르겠습니다 ㅋ
loop until a01 = a02 and a01= a03
이 코드는 3개가 연속으로 같은게 나올때까지 반복하는걸로 보입니다. 의도하신게 맞나요?
Rnd결과가 연달아 같은 값을 가지는것과 고르게 퍼지는것은 별개 이야기라 생각합니다
엑셀 vba 코드로 rnd 검증하는 코드를 짜봤습니다
Rnd를 적당히 많이 수행하고 결과를 카운팅하는 코드입니다
Sub test()
Dim a(1 to 10)
Dim i,j
For i = 0 to 1000000
j = Int(Rnd * 10) + 1
a(i) = a(i) + 1
Next i
For i = 1 to 10
Cells(i,1) = a(i)
Next i
End sub
예로
1~10까지 랜덤한 숫자가 나오는
10개의 통에서
동일한 숫자가 10개의 통에서 나올 때까지 계속 돌리고
그 동일한 숫자가 무엇인가를 구하는 것입니다.
같은 값이 나오니 다른 방법을 찾아봐야겠습니다
VB의 코딩 방법은 모르지만,
1~10사이의 임의의 수를 10개 생성한 다음,
1번째와 2번째가 동일하고, 1번째와 3번째가 동일하고,,, 1번째와 10번쨰가 동일한가를 반복적으로 판단하는 식으로 코딩하는게 편하지 않을까 생각됩니다.
통상적으로 컴퓨터의 난수는 충분히 난수라 할 수 있는 의사 난수로 알고 있습니다.
VB 스크립트를 동시에 여러개 실행할 수 있다면, 코어 숫자만큼 동시에 돌려서 확인해 보겠습니다.
여러번 넣어도 되는지 모르겠지만
확실히 동일한 값은 안나오네요