Jump to content

Souto

Membro Inativo
  • Posts

    12
  • Joined

  • Last visited

Everything posted by Souto

  1. Para gerar sorteios aleatorios baixe a planilha erre 6...(souto) la tem uma macro que gera. Acho mais interessante sortear um numero aleatorio de 1 ate o concurso atual e testar seus jogos com este concurso.
  2. Version 1.0.0

    36 downloads

    Olá SILVA-GGS, sua planilha automática foi feita mas não testei se há erro de fórmulas.
  3. Muito bom. Já faz tempo que pesquisei a mesma matriz no lotto designers 25 4 3 10=20 mas até agora só preju...
  4. 2 jogos simples que nao pontuem mais que 6 pontos entre si, inseridos 25C15, resultam em retorno do investimento 21% dos possíveis resultados. Começarei a jogar com o tico e o teco pois tenho pouco dinheiro para investir em desdobramentos com menor porcentagem de retorno. Por ex. 1 cartao de 17 dezenas tem somente 12.8% de retorno do investimento em 25C15, ou seja, investimento de alto risco.
  5. lotofacil 70,23% retorno do investimento 22 15 R(70,23%) 15=2jogos
  6. Olá. Acredito que este seja o melhor lugar para deixar a seguinte informação. Quaisquer 2 jogos no universo 22c15=170544 e que pontuem 8 pontos entre si resultam em 70,23% de retorno do investimento se "15 em 22".
  7. minimo teorico, ininuga 20 dezenas 15 15 5 0 combin(15;15)*combin(5;0) 1 15 14 5 1 combin(15;14)*combin(5;1) 75 15 13 5 2 combin(15;13)*combin(5;2) 1050 15 12 5 3 combin(15;12)*combin(5;3) 4550 15 11 5 4 combin(15;11)*combin(5;4) 6825 A total 12501 B combin(22;15) 15504 B/A minimo teorico 11pts 1,24 minimo teorico, ininuga 21 dezenas 15 15 6 0 combin(15;15)*combin(6;0) 1 15 14 6 1 combin(15;14)*combin(6;1) 90 15 13 6 2 combin(15;13)*combin(6;2) 1575 15 12 6 3 combin(15;12)*combin(6;3) 9100 15 11 6 4 combin(15;11)*combin(6;4) 20475 A total 31241 B combin(22;15) 54264 B/A minimo teorico 11pts 1,74 minimo teorico, ininuga 22 dezenas 15 15 7 0 combin(15;15)*combin(7;0) 1 15 14 7 1 combin(15;14)*combin(7;1) 105 15 13 7 2 combin(15;13)*combin(7;2) 2205 15 12 7 3 combin(15;12)*combin(7;3) 15925 15 11 7 4 combin(15;11)*combin(7;4) 47775 A total 66011 B combin(22;15) 170544 B/A minimo teorico 11pts 2,58 minimo teorico, ininuga 23 dezenas 15 15 8 0 combin(15;15)*combin(8;0) 1 15 14 8 1 combin(15;14)*combin(8;1) 120 15 13 8 2 combin(15;13)*combin(8;2) 2940 15 12 8 3 combin(15;12)*combin(8;3) 25480 15 11 8 4 combin(15;11)*combin(8;4) 95550 A total 124091 B combin(22;15) 490314 B/A minimo teorico 11pts 3,95 minimo teorico, ininuga 24 dezenas 15 15 9 0 combin(15;15)*combin(9;0) 1 15 14 9 1 combin(15;14)*combin(9;1) 135 15 13 9 2 combin(15;13)*combin(9;2) 3780 15 12 9 3 combin(15;12)*combin(9;3) 38220 15 11 9 4 combin(15;11)*combin(9;4) 171990 A total 214126 B combin(22;15) 1307504 B/A minimo teorico 11pts 6,11 minimo teorico, ininuga 25 dezenas 15 15 10 0 combin(15;15)*combin(10;0) 1 15 14 10 1 combin(15;14)*combin(10;1) 150 15 13 10 2 combin(15;13)*combin(10;2) 4725 15 12 10 3 combin(15;12)*combin(10;3) 54600 15 11 10 4 combin(15;11)*combin(10;4) 286650 A total 346126 B combin(22;15) 3268760 B/A minimo teorico 11pts 9,44
  8. Há algumas semanas postei o código inverso csn para combinatorio Espero que seja útil para o grupo Att. Souto
  9. csn para combinatorio pode ser modificado para outras loterias ex: mega sena n=60 k=6 49=5 Att. Souto
  10. RESPOSTA PARA, PARAFUSO, LOTOMANIA... ESPERO QUE TENHA ENTENDIDO... FONTE DO ALGORITMO 3W.DREAMsinCODE.COM; O algoritmo para calcular a combinação a partir do CSN é uma engenhosa obra prima de B. P. Buckles e M. Lyabanon, publicada em 1974. MODIFICADO POR SOUTO PARA RODAR NO EXCEL NA ABA DESENVOLVEDOR EXCEL> INSERIR NOVO MODULO >COPIAR E COLAR A FUNCTION ABAIXO IR PARA PLAN1 > A1=CSN DESEJADO (1 A COMBIN(100;50)) SELECIONAR AS PROXIMAS 50 COLUNAS E ESCREVER "=CSNparaCOMBINACAOlotomania=A1" + "CTRL+SHIFT+ENTER" <FORMULA MATRICIAL> Function CSNparaCOMBINACAOlotomania(seq As Long) As Variant Dim CSN As Long Dim N, k As Integer Dim combinacao(0 To 49) As Variant CSN = seq N = 100 k = 50 LIMITE_INFERIOR = 0 R = 0 For i = 0 To (k - 1) combinacao(i) = i Next i For i = 0 To k - 2 If combinacao(i) > 0 Then combinacao(i) = combinacao(i - 1) End If Do While LIMITE_INFERIOR < CSN combinacao(i) = combinacao(i) + 1 R = Application.WorksheetFunction.Combin(N - combinacao(i), (k - 1) - i) LIMITE_INFERIOR = LIMITE_INFERIOR + R Loop LIMITE_INFERIOR = LIMITE_INFERIOR - R Next i combinacao(k - 1) = combinacao(k - 2) + CSN - LIMITE_INFERIOR CSNparaCOMBINACAOlotomania = combinacao End Function
  11. Deixo aqui minha contribuição para o forum csn para combinatorio . Na aba desenvolvedor: inserir novo modulo colar a função em a1 colocar numeros de 1 a 3.268.760 clicar em a2 e selecionar de b2:p2>escrever csnparacombinacao=a1>apertar ctrl+shift+enter Function CSNparaCOMBINACAO(seq As Long) As Variant Dim CSN, N, k As Integer Dim combinacao(0 To 14) As Variant Dim TXT As String CSN = seq N = 25 k = 15 LIMITE_INFERIOR = 0 R = 0 For i = 0 To (k - 1) combinacao(i) = i Next i For i = 0 To k - 2 'Debug.Print i 'LIMITE_INFERIOR = 0 'R = 0 If combinacao(i) > 0 Then combinacao(i) = combinacao(i - 1) End If Do While LIMITE_INFERIOR < CSN 'Debug.Print combinacao(i) combinacao(i) = combinacao(i) + 1 R = Application.WorksheetFunction.Combin(N - combinacao(i), (k - 1) - i) LIMITE_INFERIOR = LIMITE_INFERIOR + R 'Debug.Print r ' Debug.Print limite_inferior Loop LIMITE_INFERIOR = LIMITE_INFERIOR - R Next i combinacao(k - 1) = combinacao(k - 2) + CSN - LIMITE_INFERIOR ' TXT = combinacao(0) 'For i = 1 To 14 'TXT = TXT & " " & combinacao(i) 'Next i 'CSNparaCOMBINACAO = TXT CSNparaCOMBINACAO = combinacao End Function
×
×
  • Create New...