The three main posiible outcome of a football match =27 and 64 for fout matches, list all 64 possible predictions

[mass junior high]

VB:
Sub stuff()
Const v& = 3
Dim z, y() As String , q()
Dim a&, b&, c&, d&, p&, MaxRow& MaxRow = 65536 z = Array("H", "D", "A") u = UBound (z) + 1
Redim y(1 To u ^ v, 1 To v)
For a = 1 To v
For b = 1 To u ^ v Step u ^ a
For c = b To b + u ^ (a - 1) - 1
For d = 1 To u y(c + u ^ (a - 1) * (d - 1), v - a + 1) = z(d - 1)
Next d, c, b, a
For a = 1 To u ^ v Step MaxRow

 

[oldbrewer]

3

l

1

w

2

d

3

l

formula in F1

=VLOOKUP(E1,mytable,2)

above is named mytable

this macro produces all combos

w

w

w

w

w

d

rrow = 9

w

w

l

For j = 1 To 3

w

d

w

For k = 1 To 3

w

d

d

For l = 1 To 3

w

d

l

Cells(1, 5) = j

w

l

w

num1 = Cells(1, 6)

w

l

d

Cells(1, 5) = k

w

l

l

num2 = Cells(1, 6)

d

w

w

Cells(1, 5) = l

d

w

d

num3 = Cells(1, 6)

d

w

l

rrow = rrow + 1

d

d

w

Cells(rrow, 1) = num1

d

d

d

Cells(rrow, 2) = num2

d

d

l

Cells(rrow, 3) = num3

d

l

w

Next l

d

l

d

Next k

d

l

l

Next j

l

w

w

End Sub

l

w

d

l

w

l

l

d

w

l

d

d

l

d

l

l

l

w

l

l

d

l

l

l

<colgroup><col width="64" span="15" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[mass junior high]

Thank you sir

 

[oldbrewer]

you should be able to modify it so that it handles 4 or even 5 matches

note the symmetry in the output table

 

[mass junior high]

Thanks for your reply, provided with 64 combination for 4 marches, I wish to a line every four combination by the total number of matches which is four.
Example, let the 4 matches for a given combo be considered as a ticket.
Ticket1. Ticket2 ticket3 Ticket4 Ticket5
1) W. W. W. W. L
2) W W w l L
3) W w d d L
4) W d. d w L
I will be forever grateful for your help. Thanks

 

[oldbrewer]

I do not understand your post 5

are you saying I can buy a ticket and select the permutation eg WWLDW and then you check to see if I am a winner ?

or do you want a RANDOM permutation to be generated when I buy a ticket

 

[mass junior high]

Thanks for your help,
if I select 4 games with 3 outcomes( win, draw and lose) there will be 64 possible combinations therefore, 64 tickets ,eg t1, wwww, t2, wwwd, t3,wwwl. And so on 1 winning ticket,63 losing tickets.
I want to generate all 64 permutation.
I will also like to generate a permutation for 12 matches with 2 outcomes win(W) and lose(l). Since there are 144 permutations.

 

[oldbrewer]

can you not see how to modify the macro in my post 2 to give you 64 PERMUTATIONS (WWD and DWW are the same combination)

 

[mass junior high]

Whenever I type the code on a macros, nothing happens don't know if there's something I left, I study excel in secondary am good in carrying out basic calculations until I learnt I knew nothing when things like Marcos existed on excel ,while doing my research.

 

[sezuh]

HI,
4 Matches with 3 outcomes is 81 lines you need,also 12 team with 2 outcomes is 4096 lines not 144.
here is a Macro from PGC from this valuable forum.

Sub Perm()Application.ScreenUpdating = False
Dim rSets As Range, rOut As Range
Dim vArr As Variant, lrow As Long
 
Set rSets = Range("A1").CurrentRegion
ReDim vArr(1 To rSets.Columns.Count)
Set rOut = Cells(1, rSets.Columns.Count + 3)
Perm1 rSets, vArr, rOut, 1, lrow
End Sub
 
Sub Perm1(rSets As Range, ByVal vArr As Variant, rOut As Range, ByVal lSetN As Long, lrow As Long)
Dim j As Long
 
For j = 1 To rSets.Rows.Count
    If rSets(j, lSetN) = "" Then Exit Sub
    vArr(lSetN) = rSets(j, lSetN)
    If lSetN = rSets.Columns.Count Then
        lrow = lrow + 1
        rOut(lrow).Resize(1, rSets.Columns.Count).Value = vArr
    Else
        Perm1 rSets, vArr, rOut, lSetN + 1, lrow
    End If
Next j
Application.ScreenUpdating = True
End Sub

and this is how to put your data;

A	B	C	D	E	F	G	H	I
W	W	W	W		W	W	W	W
D	D	D	D		W	W	W	D
L	L	L	L		W	W	W	L

<colgroup><col span="7"><col span="2"></colgroup><tbody>
</tbody>

i hope this help you.