Jump to content

Rambo

Super VIP
  • Posts

    17
  • Joined

  • Last visited

Posts posted by Rambo

  1. 21 horas atrás, Silva - GGS disse:

    Use a Matriz 60-14-6-6(61670) 100% Sena em qualquer concurso da Mega Sena.

    https://ljcr.dmgordon.org/cover/table.html#t=6

     

    Use a Matriz 60-14-5-6(7554) 100% Quina em qualquer concurso da Mega Sena.

    https://ljcr.dmgordon.org/cover/table.html#t=5

     

    Use a Matriz 60-15-5-6(4055) 100% Quina em qualquer concurso da Mega Sena.

    https://ljcr.dmgordon.org/cover/table.html#t=5

     

    Obrigado @Silva - GGS vou colocar no coloca e usar alguns filtros para tirar algumas apostas pra tentar a sorte.

  2. Boa noite,

    é o seguinte um cara aqui está com jogo que é em cima do resultado da mega-sena, apostas começam em 1 real acima, os números jogados e prêmios:

    Quantidade de Dezenas              -                Valor do Prêmio

    14                                                          -                6.000,00

    15                                                          -                4.000,00

    16                                                          -                2.600,00

    17                                                          -                1.800,00

    18                                                          -                1.300,00

    19                                                          -                    900,00

    20                                                          -                    650,00

    25                                                          -                    150,00

    30                                                          -                       48,00

    35                                                          -                       18,00

    40                                                          -                          8,00

     

    Obrigatoriamente deve acertar 6 dezenas.

    5 ou 4 dezenas não tem prêmios.

    Meu questionamento é: Qual método ou técnica poderia potencializar que em uma quantidade minima de jogos eu acertaria "Sempre/Quase Sempre" 6 dezenas?

  3. Quero entrar com um jogo de 50 dezenas e ele gerar mais alguns (5 ou mais jogos - com 5 ou mais dezenas diferente do jogo base), de forma que cada jogo tenha 5 ou mais dezenas diferentes entre si, por exemplo semana passada ganhei com 15 acertos e se eu tivesse gerado mais uns 10 mais jogos com 5 ou mais dezenas diferentes entre si, teria aumentado a chance de eu acertar 16, 17, 18, 19 ou até mesmo as 20 dezenas.

  4. Em 27/04/2010 at 19:25, luiz.antonio disse:

    olá jaime,

    é o seguinte, 11.372.635 é apenas uma probalidade matemática, ainda é inviavel a nivel de software, gerar essas combinações, au até consigo gera-las, mas te adianto....não fecha nada, já fiz o teste. mas se ainda sim quiser, me passa teu email que te mando o arquivo. (é meio grande mas acho que dá)

    paz e prosperidade.

    luiz

     

    Boa tarde,

    Poderia me enviar o arquivo?

    email: carteiro2016@gmail.com

  5. 22 minutos atrás, wander1 disse:

     

    Isso acontece pq vc está pegando apenas sequências de 14 números, mas na verdade a ideia era pegar jogos que possuem 14 dezenas comuns entre si. 

     

    Por exemplo, no jogo 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15, uma possível combinação com 14 dezenas em comum que não está listada aí seria:

     

    01 02 03 05 06 07 08 09 10 11 12 13 14 15 16

     

    Mas ele tem 14 em comum com todos os demais?

    Porque pelo que entendi ele deve exatamente 14 iguais entre todos os jogos.

  6. 13 minutos atrás, wander1 disse:

    Boa noite, Rambo!

     

    Na verdade, as apostas não devem começar com 1, 2 ou 3, elas devem começar com o trio 1,2,3, entendeu?

     

     

    Veja o seguinte se eu fizer apenas esse filtro ele gera 646.646 jogos, agora se eu mandar ele filtrar dizendo que deve ter exatamente 14 dezenas iguais entre as apostas só ficam 11 apostas válidas e essas apostas não são inteligentes:

     

     01  02  03  04  05  06  07  08  09  10  11  12  13  14  15
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  16
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  17
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  18
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  19
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  20
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  21
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  22
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  23
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  24
     01  02  03  04  05  06  07  08  09  10  11  12  13  14  25


    Porque elas contem 14 números em sequencia. (do 1 ao 14)

     

    As estatísticas dessas apostas são as seguintes, se voce tivesse jogado elas em todos os concursos teria tido o seguinte total de

    levando se em conta que são 11 apostas por concurso dá um total de 17.204 apostas

     

    Quantidades de apostas  10    236    1398    4088    5691    3996    1496    268    21    0    0

    quantidade de acertos      05      06        07         08        09         10        11       12    13   14  15

     

    e veja também o seguinte, até o concurso 1564 o números de dezenas em sequência foram os seguintes:

     

    MAIOR QUANTIDADES DE DEZENAS SORTEADAS EM SEQUENCIA
    2 3 4 5 6 7 8 9 10 11 12 13
    34 278 464 389 225 92 42 17 16 3 1 1

     

     

    agora veja também o seguinte, com base nesses mesmos sorteios as estatísticas de dezenas que repetiram do concurso anterior:

    REPETIDOS DO CONCURSO ANTERIOR
    5        6 7 8 9 10 11 12 13 14 15
    1       18 137 392 539 326 123 23 3 1 0

     

    Acho que seria melhor trabalhar em cima de algum filtro com essas informações.

  7. Desculpe pelo erro, enqueci de de colocar o End If

    O código seria o seguinte:

     

     

    Sub ContMaiorSequencia()
    Dim SeqMaior, SeqAtual, LinIn, LinFin, col As Integer
    SeqMaior = 1
    SeqAtual = 1
    LinIn = 1
    col = 2
    LinFin = Range("A65536").End(xlUp).Row

    For LinIn = 1 To LinFin
    If Cells(LinIn, 19).Text = "" Then
        For col = 2 To 15
            If Cells(LinIn, col) = Cells(LinIn, col - 1) + 1 Then
            SeqAtual = SeqAtual + 1
            Else
            If SeqAtual > SeqMaior Then
            SeqMaior = SeqAtual
            End If
            SeqAtual = 1
            End If
        Next col
        
        Cells(LinIn, 19).Value = SeqMaior
        SeqMaior = 1
    Else


    SeqMaior = 1

     

    End If 'Esqueci de colocar este End If


    Next LinIn

    End Sub
     

    Maior Frequencia.JPG

    • Thanks 1
  8. Boa noite,

    Para quem não tem o código em VBA para resolver o problema da MAIOR frequência, segue o código que desenvolvi:

    No meu caso a planilha esta da seguinte forma:

    A primeira coluna tem a data do concurso

    Da coluna 2 até a 16 tem as dezenas sorteadas em ordem crescente

    A coluna 17 e 18 uso para outras estatisticas

    E na 19 salvo o valor da maior frequência

     

    Eu chamo essa macro diretamente na barra do excel mas pode criar um botão e chamar por ele.

     

    Sub ContMaiorSequencia()
    Dim SeqMaior, SeqAtual, LinIn, LinFin, col As Integer
    SeqMaior = 1
    SeqAtual = 1
    LinIn = 1
    col = 2
    LinFin = Range("A65536").End(xlUp).Row 'Este método retorna qual a ultima linha em que deve buscar a frequencia

     

    For LinIn = 1 To LinFin
    If Cells(LinIn, 19).Text = "" Then ' aqui testa se a linha já foi calculada a maior frequência para evitar processamento repetido e desnecessário 
        For col = 2 To 15
            If Cells(LinIn, col) = Cells(LinIn, col - 1) + 1 Then
            SeqAtual = SeqAtual + 1
            Else
            If SeqAtual > SeqMaior Then
            SeqMaior = SeqAtual
            End If
            SeqAtual = 1
            End If
        Next col
        
        Cells(LinIn, 19).Value = SeqMaior 'Aqui é onde eu mando salvar a MAIOR frequência escontrada
        SeqMaior = 1
    Else
    SeqMaior = 1
    Next LinIn

    End Sub

     

    Maior Frequencia.JPG

×
×
  • Create New...