ага, придумал как график рвать:
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%)
r%=rnd(b%,e%*2)
if r>e then r=r-e
return r%
end function
по скорости работы побыстрей и график гораздо ровнее чем в простом rnd
надо теперь совместить два метода и все.
