Jump to content

Souto

Membro Inativo
  • Posts

    12
  • Joined

  • Last visited

Posts posted by Souto

  1. Em 29/10/2020 em 18:14, Julio Cezar disse:

    dai  que passei a maria  FoFoca 

    a 3  rias em uma so L

    2069  OU  2070

    03 12 17

    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.

    • Like 1
  2. Em 31/08/2020 em 06:02, Julio Cezar disse:

    Sorteio testado  com 15 Ac

    15Ac 2018 R$1,00
    11 116 580
    12 13 130
    13 8 200
    14 0 910

    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".

    • Like 1
    • Thanks 2
  3. 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

  4. 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
                                                  

     

    • Like 2
  5. 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

     

    • Like 3
    • Thanks 1
×
×
  • Create New...