Замена Rnd

Originally posted by Diplomat+Oct 11 2005, 06:17 PM--><div class='quotetop'>ЦИТАТА(Diplomat @ Oct 11 2005, 06:17 PM)</div><div class='quotemain'>Забавная задачка:
Используя генератор Rnd, написать ф-ю, которая возвращала бы значения 1, 2 или 3 с равной вероятностью.[/b]

Originally posted by SubZer0@Oct 11 2005, 09:54 PM

Dim Value(4)
For q=0 To 10000
X=aRnd(1,4)
Value(X)=Value(X)+1
Next
For q=0 To 4
Print q+" возвращалось приблизительно в "+ Value(q)/100+"% случаев..."
Next
WaitKey()
End


function arnd%(b%,e%)

b1%=-b%*10
e1%=e%*20

repeat

r%=rnd(b1%,e1%)

until r%>=b% and r%<=e%

if r>e then r=r-e

return r%
end function

результат - супер! скорость работы - подбирается коэффициентами умножения... тут типа движок* <Скорость> -----0----- <Ровнее график> чемто надо жертвовать..

<!--QuoteBegin-PAX@Oct 11 2005, 10:04 PM
А вот что я придумал :

Dim Value(4)
For q=0 To 1000000
X=arnd(1,4)
Value(X)=Value(X)+1
Next
For q=0 To 4
Print q+" возвращалось приблизительно в "+ Value(q)/100+"% случаев..."
Next
WaitKey()
End


Function arnd%(b%,e%)
If Rand(0,1) Then
Return Rnd(b%,e%/2)
Else
Return Rnd(e%/2+1,e%)
EndIf
End Function

На большом количестве испытаний показывает почти одинаковые результаты[/quote]

невижу смысла в етой функции

если делать генератор случайных чисел - то делать его а не перефразировать то что уже есть
и на asm мы такое делали


Дискуссии в FAQ - плохая привычка. http://community.boolean.name/index.php?showtopic=216