Original Blog Entry: Additional information on the StraightsMatrix Excel File.

JADELottery — Sat, 17 Mar 2012 14:44:50 GMT

Hello everyone,

The other day we posted an Excel file with a simple example of a function we created to find straight combos from a square matrix.

You can get the file here for reference -- http://members.lotterypost.com/jadelottery/StraightsMatrix.xls

Essentially, this is a simple wheel for Daily Pick 3.

We actually use this in our Pick 3 Hot Box program under the ' Fill the Play Combos ' options as ' Straight from the Side ' .

It works by creating straight combos from the left side of the square matrix to the right side.

The general square matrix is the following.

Inputs

A B C

D E F

G H I

The function takes the inputs and runs through the permutations for each column and removes any duplication after creating the playable list.

The playable list is generally the following.

Outputs

A B C

A B F

A B I

A E C

A E F

A E I

A H C

A H F

A H I

D B C

D B F

D B I

D E C

D E F

D E I

D H C

D H F

D H I

G B C

G B F

G B I

G E C

G E F

G E I

G H C

G H F

G H I

By example, if the following are the inputs.

Inputs

2 4 5

5 2 8

9 6 4

Then the outputs are...

Outputs

224

225

228

244

245

248

264

265

268

524

525

528

544

545

548

564

565

568

924

925

928

944

945

948

964

965

968

An example of a case where duplicates are removed.

Inputs

4 9 4

4 0 3

2 5 3

Outputs

203

204

253

254

293

294

403

404

453

454

493

494

Duplicates are created when any two or more numbers are the same; in the same column.

In the above example, because 4 and 4 are in the first column; 3 and 3 are in the last column, it creates duplicates through the permutation process.

The original output would look like the following, color highlighted for the duplication and the non-duplication are Italic.

Outputs

494

493

493

404

403

403

454

453

453

494

493

493

404

403

403

454

453

453

294

293

293

204

203

203

254

253

253

The program code working behind the scenes is the following.

__________

Dim arry() As Integer

Public Function StraightsMatrix(ByVal theRange As Range) As String

Randomize(Timer)

ReDim arry(27) As Integer

Dim tmp As String

tmp =

If (theRange.Rows.Count = 3) And (theRange.Columns.Count = 3) Then

For a = 1 To 3

For b = 1 To 3

For c = 1 To 3

arry(1 + 1 * (c - 1) + 3 * (b - 1) + 9 * (a - 1)) = 100 * Val(theRange.Cells(a, 1)) + 10 * Val(theRange.Cells(b, 2)) + 1 * Val(theRange.Cells(c, 3))

Next

Next

Next

QuickSort(1, 27)

For r = 1 To 26

If arry(r) arry(r + 1) Then

tmp = tmp Format(arry(r), 000 )

End If

If r = 26 Then

tmp = tmp Format(arry(r + 1), 000 )

End If

Next

StraightsMatrix = tmp

Else

StraightsMatrix =

End If

End Function

Sub QuickSort(ByVal Low As Long, ByVal High As Long)

Dim RandIndex, i, j As Integer

Dim p As Integer

If Low High Then

If High - Low = 1 Then

If arry(Low) arry(High) Then

SwapArrayElements(Low, High)

End If

Else

RandIndex = RandInt(Low, High)

SwapArrayElements(High, RandIndex)

p = arry(High)

Do

i = Low : j = High

Do While (i j) And (arry(i) = p)

i = i + 1

Loop

Do While (j i) And (arry(j) = p)

j = j - 1

Loop

If i j Then

SwapArrayElements(i, j)

End If

Loop While i j

SwapArrayElements(i, High)

If (i - Low) (High - i) Then

QuickSort(Low, i - 1)

QuickSort(i + 1, High)

Else

QuickSort(i + 1, High)

QuickSort(Low, i - 1)

End If

End If

End If

End Sub

Sub SwapArrayElements(ByVal a, ByVal b)

Dim hold As Integer

hold = arry(a)

arry(a) = arry(b)

arry(b) = hold

End Sub

Function RandInt(ByVal Lower, ByVal Upper) As Integer

RandInt = Int(Rnd * (Upper - Lower + 1)) + Lower

End Function

__________

... [ More ]