on to the next thing...

Published:

SB is a no-go, can't get any improvements.

on to the next set of projects...

up now is the PRNG synch for PA mid 3/4, and some paper testing of a "focused forecast" for powerball... too complex for backtesting right now, lost a bit of ambition on the SB bust...

I have to start PA mid testing clean-sheet because I don't normally track CPU draws. seed fortesting will start at the number value of the date+time (also known as NOW() in excel) adding 13:10 as a start and working forward.

I will be using VBA for the RNG, calling it in the sheet as a custom function. I will use several functions at a time for streamlined testing, not holding my breath for any great results, but gotta try

Entry #108

Comments

Avatar truecritic -
#1
Not so much with the lottery but I have made mistakes in programming that produced good results. Then in my case, I took those errors and checked against other databases to see if the errors were really better than the correct code. HaHa, no such luck - it does take a lot out of you.
Avatar hypersoniq -
#2
the pages are started... using some functions to get the ball rolling... probably error-laden, but they do stay static over the draw history (without changing during recalcs)... holler if you see any errors!

here is the code for the actual functions (used functions to start, easier)

Function test(seed As Double) ' fixed seed, picks a 3 digit combo
Dim i As Integer
Randomize (seed)
i = 1000 * Rnd() - 1
If i < 0 Then i = 0
test = i
End Function


Function test2(seed As Double) 'first iteration of fixed seed... for picking each digit
Dim i As Integer
Rnd (-1)
Randomize (seed)
i = 10 * Rnd() - 1
If i < 0 Then i = 0
test2 = i
End Function

Function test3(seed As Double) 'second iteration of fixed seed
Dim i As Integer
Rnd (-1)
Randomize (seed)
For a = 1 To 2
i = 10 * Rnd() - 1
Next a
If i < 0 Then i = 0
test3 = i
End Function

Function test4(seed As Double) '3rd iteration of fixed seed
Dim i As Integer
Rnd (-1)
Randomize (seed)
For a = 1 To 3
i = 10 * Rnd() - 1
Next a
If i < 0 Then i = 0

seed is the general number format of the time/date
for example
1/14/2006 1:10 PM (alleged time of the drawing)= 38731.54861

this is only good for quick seed sweeps, will be trying a more involved method later... this one has a quick backtest and has so far failed, but it is still new yet

Post a Comment

Please Log In

To use this feature you must be logged into your Lottery Post account.

Not a member yet?

If you don't yet have a Lottery Post account, it's simple and free to create one! Just tap the Register button and after a quick process you'll be part of our lottery community.

Register