Alguem conhece esse programa,link tirado do forum multipasko

[Bruno Cintra]

 

[DixieJoe]

não conheço.

 

Ele gera desdobramentos ou testa desdobramentos?

[Bruno Cintra]

gera eu tenho certeza,testar eu não sei,sera esse programa que consegue reduções tão pequena.achei uma versão do autor,olha ai http://uploadfile.pl/profil/777ch.html,mais parece que só vai até 5 por coluna,estou tentando achar esse do video

[Bruno Cintra]

tem que traduzir para tentar entender um pouco,rsrsrs

[Kazu&LotoMania]

É Polônia ou polonez  chama-se

Jumper randon convering By 777ch pelo que vi o video. 

[Sphgf]

Olá,

os poloneses vem apresentando excelentes resultados com seus métodos e softwares, é de tirar o chapéu também pra eles !!

Mas... " Como mencionei esta versão de trabalho, decidi que não iria desenvolvê-lo porque a ferramenta para tudo não é boa para qualquer coisa; é principalmente as considerações de alocação de memória, você pode para um processo específico, faça um soft mais eficiente. mas ........ Vou ver mais. 777ch "

 

No meio acadêmico* parece ser uma rotina esconder os nomes verdadeiros sob pretexto para não jogar a própria reputação no esquecimento*...

 

Penso que todos softs são bons mas eles tem um limite, o próprio nome "Jumper" implica que o algoritmo usa heurística de busca com intervalo de parada saltado... 

 

Lembro que tentei desenvolver algo neste sentido pra Lotomania, o tal soft pulador Lotomania3.

 

Onde emperra os fechamentos com muitos números, na alocação de memória, no volume a testar, nos saltos, na razão velocidade maquina/algoritmo claro que na busca pela eficiência o tempo de processamento será o fator relevante, a menos que " o software gere a combinação certa " ....

 

O Jumper faz muitas referencias a qdo m=t... será que... ?!

 

 

Com a solução matemática gerar certo será mais rápido que qualquer software !!

 

Não tenho a solução matemática,

 

Obrigado,

 

Sphgf

 

[Bruno Cintra]

um codigo de fonte do autor em vba,velocidade é bem boa.gera combinações 5 se acertar 6 com 6 numeros por volante

Sub bezpowtórek5w6()

' Makro zarejestrowane 2010-01-25, autor 777ch

Dim Liczba_STARTOWA As Byte, Liczba_KOnCOWA As Byte
Dim kombi As Long

Dim fs, a
Dim l1, l2, l3, l4, l5, l6
Dim kn As Long

Dim tabwyl() As Long
Dim v As Byte
Dim k As Byte
Dim tabkomb() As Long
Dim HH As Byte
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ThisWorkbook.Path & "/" & "Leo6.txt", True)
Range("a1:a3") = ""
9911
Dim c(80)
Dim num(80)
Liczba_STARTOWA = 1
Liczba_KOnCOWA = Range("I1")
v = Liczba_KOnCOWA ' liczb
k = 5 ' skreslen
kombi = 0
kn = 0
kombino = 0
ReDim tabkomb(6, 5)
ReDim tabwyl(25000000, 1)

For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 5
For l2 = l1 + 1 To Liczba_KOnCOWA - 4
For l3 = l2 + 1 To Liczba_KOnCOWA - 3
For l4 = l3 + 1 To Liczba_KOnCOWA - 2
For l5 = l4 + 1 To Liczba_KOnCOWA - 1
For l6 = l5 + 1 To Liczba_KOnCOWA
kombi = kombi + 1

11
tabkomb(1, 1) = l1 'liczba pierwsza
tabkomb(1, 2) = l2 'liczba druga
tabkomb(1, 3) = l3 'liczba trzecia
tabkomb(1, 4) = l4 'liczba czwarta
tabkomb(1, 5) = l5 'liczba piata
12
tabkomb(2, 1) = l1 'liczba pierwsza
tabkomb(2, 2) = l2 'liczba druga
tabkomb(2, 3) = l3 'liczba trzecia
tabkomb(2, 4) = l4 'liczba czwarta
tabkomb(2, 5) = l6 'liczba piata
13
tabkomb(3, 1) = l1 'liczba pierwsza
tabkomb(3, 2) = l2 'liczba druga
tabkomb(3, 3) = l3 'liczba trzecia
tabkomb(3, 4) = l5 'liczba czwarta
tabkomb(3, 5) = l6 'liczba piata
14
tabkomb(4, 1) = l1 'liczba pierwsza
tabkomb(4, 2) = l2 'liczba druga
tabkomb(4, 3) = l4 'liczba trzecia
tabkomb(4, 4) = l5 'liczba czwarta
tabkomb(4, 5) = l6 'liczba piata
15
tabkomb(5, 1) = l1 'liczba pierwsza
tabkomb(5, 2) = l3 'liczba druga
tabkomb(5, 3) = l4 'liczba trzecia
tabkomb(5, 4) = l5 'liczba czwarta
tabkomb(5, 5) = l6 'liczba piata
16
tabkomb(6, 1) = l2 'liczba pierwsza
tabkomb(6, 2) = l3 'liczba druga
tabkomb(6, 3) = l4 'liczba trzecia
tabkomb(6, 4) = l5 'liczba czwarta
tabkomb(6, 5) = l6 'liczba piata

HH = 1
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn1 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
777: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 777
li = li - r

Next i
csn1 = li + num(k) - num(p1)

kombino = kombino + 1

HH = 2
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn2 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
888: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 888
li = li - r

Next i
csn2 = li + num(k) - num(p1)

kombino = kombino + 1

HH = 3
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn3 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
999: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 999
li = li - r

Next i
csn3 = li + num(k) - num(p1)

kombino = kombino + 1

HH = 4
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn4 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
666: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 666
li = li - r

Next i
csn4 = li + num(k) - num(p1)

kombino = kombino + 1

HH = 5
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn5 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
555: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 555
li = li - r

Next i
csn5 = li + num(k) - num(p1)

kombino = kombino + 1

HH = 6
For i = 1 To 5
num(i) = tabkomb(HH, i)
Next i

li = 0
csn6 = 0
p1 = k - 1

For i = 1 To p1

c(i) = 0
If i <> 1 Then c(i) = c(i - 1)
444: c(i) = c(i) + 1

r = Combine(v - c(i), k - i)
li = li + r
If c(i) < num(i) Then GoTo 444
li = li - r

Next i
csn6 = li + num(k) - num(p1)

kombino = kombino + 1

If tabwyl(csn1, 1) = csn1 Then GoTo 10
If tabwyl(csn2, 1) = csn2 Then GoTo 10
If tabwyl(csn3, 1) = csn3 Then GoTo 10
If tabwyl(csn4, 1) = csn4 Then GoTo 10
If tabwyl(csn5, 1) = csn5 Then GoTo 10
If tabwyl(csn6, 1) = csn6 Then GoTo 10
DoEvents

kn = kn + 1
With a
.WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5 & " " & l6)
End With
Cells(1, 1) = "Gerando Combinações 5/6 = " & l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5 & " " & l6
Cells(2, 1) = "Combinações Gerados 5 se acertar 6 = " & kn

tabwyl(csn1, 1) = csn1
tabwyl(csn2, 1) = csn2
tabwyl(csn3, 1) = csn3
tabwyl(csn4, 1) = csn4
tabwyl(csn5, 1) = csn5
tabwyl(csn6, 1) = csn6

10
Next l6
Next l5
Next l4
Next l3
Next l2
Next l1

Cells(3, 1) = "Calculos concluídos, salvo em arquivos L6.txt"

End Sub
Function Combine(n, m)

FA = 1
For i = 1 To m: FA = FA * i: Next i
vA = 1
For j = (n - m + 1) To n: vA = vA * j: Next j
Combine = vA / FA

End Function
 

 

[RobSmith]

@Bruno CintraBoa noite voce tem o executavel do programa do 777ch

[Bruno Cintra]

5 horas atrás, RobSmith disse:

@Bruno CintraBoa noite voce tem o executavel do programa do 777ch

não