Help me to randomize simple algorithm

[DesireDenied]

Anyone want to help me randomize this algorithm?

Right now, despite a series of randomizations, all numbers are drawn almost the same. The difference is slight.

Func GenerateNumbers()
    Local $aResult[0]

    For $i = 1 To 12
        $r = Random(1, 49, 1)
        $r2 = Random(1, 4)
        Switch($r2)
            Case 1
                If $r>=1 And $r<=15 Then $r = Abs(Random(-$r, 25, 1))
            Case 2
                If $r>=16 And $r<=31 Then $r = Abs(Random(-$r, 15, 1))
            Case 3
                If $r>=32 And $r<=49 Then $r = Abs(Random(-$r, 0, 1))
            case 4
        EndSwitch
        _ArrayAdd($aResult, $r)
    Next

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

Thanks in advance.

 

[Danp2]

Have you tried calling SRandom?

[DesireDenied]

Actually, I've never used it, this is my very first time, but it does not change my results too much.

Func GenerateNumbers()
    Local $aResult[49]
    Local $iTotalNumbers = 0
    Local $r = 1
    Local $iSeed = 1
    Do
        $iSeed = Random(1, 14000000, 1)
        SRandom($iSeed)
        $r = Int(Random()*100)
        If $r >= 1 And $r <= 49 Then
            ConsoleWrite($r & @CRLF)
            $aResult[$iTotalNumbers] = $r
            $iTotalNumbers += 1
        EndIf
    Until $iTotalNumbers = 12

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

Edited February 1, 2021 by DesireDenied

[Nine]

Help file says :

Quote

After each call to SRandom() random number generator starts a new sequence.

Normally you should call it once for the whole sequence, not before each call to random

[DesireDenied]

Thanks. Nothing really much has changed.

Func GenerateNumbers()
    Local $aResult[12]
    Local $iTotalNumbers = 0
    Local $r = 1
    Local $iSeed = Random(1, 28000000, 1)
    SRandom($iSeed)
    Do
        $r = String(Random())
        $r = StringMid($r, Random(2, 12, 1), 2)
        $r = Int($r)
        If $r >= 1 And $r <= 49 Then
            ConsoleWrite($r & @CRLF)
            $aResult[$iTotalNumbers] = $r
            $iTotalNumbers += 1
        EndIf
    Until $iTotalNumbers = 12

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

I have also started to experiment with Sin() but it does make bigger difference.

Func GenerateNumbers()
    Local $aResult[12]
    Local $iTotalNumbers = 0
    Local $r = 1
    Do
        $r = Int(Sin(Random(1, 14000000))*100)

        If $r >= 1 And $r <= 49 Then
            ConsoleWrite($r & @CRLF)
            $aResult[$iTotalNumbers] = $r
            $iTotalNumbers += 1
        EndIf
    Until $iTotalNumbers = 12

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

Do you have any other ideas how to make draws more chaotic?

[RTFC]

3 minutes ago, DesireDenied said:

    Local $iSeed = Random(1, 28000000, 1)  

  SRandom($iSeed)

This still produces the same sequence every time you run it. You need to use an external seed when calling SRandom, for example @AutoitPID or @MSEC (or a combination thereof) BEFORE ever calling Random.

[Nine]

What is it you want to achieve ?  Random numbers from what to what ?

[DesireDenied]

Oh yeah! It works!

I made to separate functions with totally different seeds, and now the difference is huge.

expandcollapse popup

Func GenerateCoupon()
    Local $aResult[12]
    Local $iTotalNumbers = 0
    Local $r = 1
    Local $iSeed = @MSEC + TimerInit()
    SRandom($iSeed)
    Do
        $r = String(Random())
        $r = StringMid($r, Random(2, 12, 1), 2)
        $r = Int($r)
        If $r >= 1 And $r <= 49 Then
            ConsoleWrite($r & @CRLF)
            $aResult[$iTotalNumbers] = $r
            $iTotalNumbers += 1
        EndIf
    Until $iTotalNumbers = 12

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

Func GenerateDraw()
    Local $aResult[12]
    Local $iTotalNumbers = 0
    Local $r = 1
    Local $iSeed = @AutoItPID + @MSEC
    SRandom($iSeed)
    Do
        $r = String(Random())
        $r = StringMid($r, Random(2, 12, 1), 2)
        $r = Int($r)
        If $r >= 1 And $r <= 49 Then
            ConsoleWrite($r & @CRLF)
            $aResult[$iTotalNumbers] = $r
            $iTotalNumbers += 1
        EndIf
    Until $iTotalNumbers = 12

    $aResult = _ArrayUnique($aResult, 0, 0, 0, $ARRAYUNIQUE_NOCOUNT)
    $aResult = _ArrayExtract($aResult, 0, 5)
    Return $aResult
EndFunc

 

[DesireDenied]

@Nine I want to have totally chaotic distribution of numbers between 1-49.
Example from above satisfies me a lot, but i will now try to add some more random variables to seeds.

[Melba23]

DesireDenied,

If that is all you need then I suggest simply using _ArrayShuffle:

#include <Array.au3>

Global $aArray[50]

For $i = 1 To 49
    $aArray[$i] = $i
Next

_ArrayShuffle($aArray, 1, 49)

_ArrayDisplay($aArray, "", Default, 8)

The function uses the Fisher-Yates shuffle algorithm, so should be properly random.

M23

Edited February 1, 2021 by Melba23
Added link

[DesireDenied]

@Melba23 Thanks

I am trying to make occurrences of all numbers more chaotic. Right now some of the occurrences are too uniform.

[Melba23]

DesireDenied,

You appear to be confusing "truly random" with what you perceive as "random". It is quite likely that successive numbers in a truly random sequence will be close neighbours - just look at any lottery draw. So trying to avoid such occurrences is in fact making the series less random, not more.

M23

[DesireDenied]

@Melba23

Hmm, actually, you might be right...

I have tried to use shuffle, but it gives me very uniform pattern.

[Nine]

Try this :

#include <Constants.au3>
#include <Array.au3>

Const $MAX = 49
Local $aArray[$MAX]

For $i = 1 to 500
  GenerateNumber(20)
Next

_ArrayDisplay($aArray)

Func GenerateNumber($iNum)
  SRandom(Int(@MSEC))
  For $i = 1 to $iNum
    $aArray[Random(1,$MAX,1)-1] += 1
  Next
  Sleep(Random(5,15,1))
EndFunc

Looks to me quite random...

[DesireDenied]

@Melba23

You're completely right. 
Idea to make draws more chaotic would only damage final results of my simulations.
Thanks a lot.

Also thanks for your code, its not is twice faster than generating array of 5 element and using random, it is almost that good as statistics from the game I am trying to simulate.

[DesireDenied]

6 minutes ago, Nine said:

Try this :

#include <Constants.au3>
#include <Array.au3>

Const $MAX = 49
Local $aArray[$MAX]

For $i = 1 to 500
  GenerateNumber(20)
Next

_ArrayDisplay($aArray)

Func GenerateNumber($iNum)
  SRandom(Int(@MSEC))
  For $i = 1 to $iNum
    $aArray[Random(1,$MAX,1)-1] += 1
  Next
  Sleep(Random(5,15,1))
EndFunc

Looks to me quite random...

@Nine Thanks, it works, but its very slow. But it is a good lesson to me

[Nine]

Yes it is kind of slow, did not know it was a criteria 

[DesireDenied]

Forgot to mention

I am running millions of simulations with different number of coupons / week, different jackpots, and checking results.

So far @Melba23 solution is closest to original game statistics and is fast as hell.

[Werty]

Semi-ontopic,...

I needed a "FairRandom" function once and used nested randoms...

Random(0, Random(0, Random(0, Random(0, Random(0, Random(0, Random(0, Random(0, 99999999), 1), 1), 1), 1), 1), 1), 1

This way a fair amount of each "Block" of numbers gets picked, like, an equal amount of numbers between 0 and 10000, and 10000 to 20000, 20000 to 30000 and so on.

Like a lottery with numbers from 1 to 1 million, most numbers picked would be way above 100000, with very few numbers between 1 100000 being picked, with nested randoms the drawing is more fair.

 

This is probably very slow though, but works fine and fair if it was a lottery drawing.

[Nine]

Here my attempt with fast performance criteria in :

#include <Constants.au3>
#include <Array.au3>

Const $MAX = 49
Local $aArray[$MAX]

For $i = 1 to 500
  GenerateNumber(20)
Next

_ArrayDisplay($aArray)

Func GenerateNumber($iNum)
  SRandom(Mod(DllCall ("kernel32.dll", "bool", "QueryPerformanceCounter", "uint64*", 0)[1],111))
  For $i = 1 to $iNum
    $aArray[Random(1,$MAX,1)-1] += 1
  Next
EndFunc