JADELottery's Blog

JADELottery's Premium Blog: https://blogs.lotterypost.com/jadelottery

It never ends...

Soon as I'm back from Colorado: Mow the lawn, fix the gutter, trim the weeds... sheesh....

Now it's back to the maths, the posts, the apps...

Come Thursday it'll be back to work.

Crazy

Entry #4,160

Watch for a rise in Volcanic Activity, VEI 5 to 6 maybe a 7.

We think there's a tie in with Solar Magnetic Storm Activity (Sun Spots) and the interactivity between our Terrestrial Magnetic field, the Earth's Molten Iron Core and the containment of that liquid by those interactions.

Should this happen during the solar minimum, Tambora comes to mind and the Year Without A Summer, (1815-1817).

Entry #4,159

A Better Random Comb.

Function RandComb(ByVal N As Integer, ByVal R As Integer) As String
    Dim vs As Integer 'Value Selection
    Dim v(99) As Integer 'Values Array
    Dim s(99) As Boolean 'Sorted Selected Values Array
    Dim temp As String 'Temporary String Storeage
    temp = "" 'Initialize Temporary String
   
    'Initialize Arrays
    For a = 0 To 99
        v(a) = a
        s(a) = False
    Next
   
    'Select R of N values
    For a = 1 To R
        vs = Int(Rnd * (N - a + 1)) + 1 'Randomly select a value from 1 to N of any remaining values less by previous selections
        s(v(vs)) = True 'Set sorted select value array


        'Shift to lower array positions those values greater than the current randomly selected value
        For b = 1 To N - a
            If b >= vs Then
                v(b) = v(b + 1)
            End If
        Next
    Next
   
    'Add in order the selected values
    For a = 1 To 99
        If (s(a)) Then temp = temp + Format(a, "00 ")
    Next
   
    'Return the selected R of N values
    RandComb = temp

End Function

Entry #4,158