Welcome Guest
Log In | Register )
You last visited December 9, 2016, 5:30 am
All times shown are
Eastern Time (GMT-5:00)

PowerBall Odds -- Math Puzzle SOLVED

Topic closed. 1 reply. Last post 11 years ago by RJOh.

Page 1 of 1
PrintE-mailLink
Avatar

United States
Member #21574
September 11, 2005
138 Posts
Offline
Posted: September 19, 2005, 2:37 pm - IP Logged

Have fun with this VisualBasic Program.  Copy and paste the code into the Form_Load Event.  It will self-justify.  There are no controls required.


Private Sub Form_Load()

Dim a, b, c, d, e, f, g, h, i, X, FLD, XTRA

'PowerBall
FLD = 55
XTRA = 42

a = Format(((((FLD * (FLD - 1)) / (5 * 4 * 3 * 2 * 1)) * ((FLD - 2) * (FLD - 3))) * (FLD - 4)) * XTRA, "#,###,###")
'5+1        1:146,107,968
'
'      55!
'a = --------- * (42) = 146,107,968
'    5!(55-5)!
'
'Jackpot

b = Format((a / (XTRA - 1)), "#,###,###")
'5+0          1:3,563,609
'
'      55!        }
'b = --------- * 42 } / (42-1) = 3,563,609
'    5!(55-5)!      }
'
'$200,000

'********************************************************************************************************
'********************************************************************************************************
'********************************************************************************************************
X = Format((((FLD * (FLD - 1)) / (5 * 4 * 3 * 2 * 1)) * ((FLD - 2) * (FLD - 3))) * (FLD - 4), "#,###,###")
'5            1:3,478,761
'
'      55!
'X = --------- = 3,478,761        >>>  X  <<<  is a CONSTANT used in c, e, g, h & i below
'    5!(55-5)!
'********************************************************************************************************
'********************************************************************************************************
'********************************************************************************************************

c = Format((X / (5 * 50)) * XTRA, "#,###,###")
'4+1  Note: ^X  1:584,432
'
'        3,478,761
'c = ----------------- * 42 = 584,432
'      5!
'    -------- * (55-5)
'    5!(5-4)!
'
'$10,000

d = Format((c / (XTRA - 1)), "#,###,###")
'4+0  Note: ^c    1:14,254
'
'        3,478,761          }
'd = ----------------- * 42 } / (42-1) = 14,254
'      5!                  }
'    -------- * (55-5)      }
'    4!(5-4)!              }
'
'$100

e = Format(((X / (((5 * 4 * 3) / (3 * 2)) * ((50 * 49) / 2))) * XTRA), "#,###,###")
'3+1  Note: ^X  1:11,927
'
'          3,478,761
'e = -------------------- * 42 = 11,927
'      5!        50!
'    -------- * ---------
'    3!(5-3)!  2!(50-2)!
'
'$100

f = Format((e / (XTRA - 1)), "#,###,###")
'3+0  Note: ^e      1:291
'
'          3,478,761          }
'f = -------------------- * 42 } / (42-1) = 291
'      5!        50!        }
'    -------- * ---------      }
'    3!(5-3)!  2!(50-2)!      }
'

'$7

g = Format(((X / (((5 * 4) / 2) * (((50 * 49) / 6) * 48))) * XTRA), "#,###,###")
'2+1  Note: ^X      1:745        ((50 * 49 * 48) / 6)
'
'          3,478,761
'g = -------------------- * 42 = 745
'      5!        50!
'    -------- * ---------
'    2!(5-2)!  3!(50-3)!
'
'$7

h = Format(((X / ((5 / 1) * (((50 * 49) / 24) * (48 * 47)))) * XTRA), "#,###,###")
'1+1  Note: ^X      1:127        ((50 * 49 * 48 * 47)/24)
'
'          3,478,761
'h = -------------------- * 42 = 127
'      5!        50!
'    -------- * ---------
'    1!(5-1)!  4!(50-4)!
'
'$4

i = Format(((X / (((50 * 49) * ((48 * 47) / 120)) * 46)) * XTRA), "#,###,###")
'                  (50 * 49 * 48 * 47 * 46) / (5 * 4 * 3 * 2)
'0+1  Note: ^X      1:69
'
'          3,478,761
'i = -------------------- * 42 = 69
'            50!
'          ---------
'          5!(50-5)!
'
'$3

Stop  'Place cursor over a, b, X, c, d, e, f, g, h & i to view CALCULATED result

End Sub

    RJOh's avatar - chipmunk
    mid-Ohio
    United States
    Member #9
    March 24, 2001
    19830 Posts
    Offline
    Posted: September 19, 2005, 3:10 pm - IP Logged

    What was the puzzle?

     * you don't need to buy more tickets, just buy a winning ticket * 
       
                 Evil Looking