Ralf Jones

Aqui no fórum tem alguns tópicos https://www.comoganharnaloteria.com.br/forum/topico/30990-pé-de-meia-lottoland/#comment-323665 https://www.comoganharnaloteria.com.br/forum/topico/35440-alguém-já-usou-e-ganhou-na-lottoland/#comment-458489 https://www.comoganharnaloteria.com.br/forum/topico/32665-quais-sites-vocês-acham-confiáveis-para-apostar-em-loterias-internacionais/#comment-366629

Matriz do crupier x C(21,14,11,14)=9 esta com 73,383213% Aqui com mais linhas e 100% C(21,14,11,14)=24 é a matriz inversa da C(21,7,4,7)=24 100% C(21,14,11,14)=24 100% 01 02 03 04 06 07 08 09 13 15 16 17 19 20 01 02 03 04 08 10 11 12 14 15 17 18 19 20 01 02 03 05 06 07 08 12 14 15 16 18 19 21 01 02 03 05 06 08 09 10 11 13 14 15 16 20 01 02 03 07 09 10 11 13 14 16 17 18 19 21 01 02 04 05 06 07 09 10 11 12 16 18 19 20 01 02 04 05 06 07 11 13 14 15 17 18 20 21 01 02 04 05 07 08 09 10 12 13 14 15 19 21 01 02 04 05 07 08 10 11 13 14 16 17 19 20 01 02 06 08 09 10 12 13 15 16 17 18 20 21 01 03 04 05 06 08 09 10 11 15 17 18 19 21 01 03 04 05 06 10 12 13 14 16 17 19 20 21 01 03 04 05 07 08 10 11 12 13 15 16 17 18 01 03 04 06 07 08 09 11 12 13 14 18 20 21 01 03 04 06 07 09 10 12 13 15 16 18 19 21 01 05 07 08 09 11 12 14 15 16 17 19 20 21 02 03 04 05 07 08 09 10 14 16 17 18 20 21 02 03 04 05 09 11 12 13 15 16 18 19 20 21 02 03 04 06 07 09 10 11 12 14 15 16 17 21 02 03 05 06 07 08 10 11 12 13 17 19 20 21 02 03 05 06 08 09 11 12 14 15 17 18 20 21 02 04 05 06 08 09 11 12 13 14 16 17 18 19 03 05 06 07 09 10 12 13 14 15 17 18 19 20 04 06 07 08 10 11 13 14 15 16 18 19 20 21

@Brasileiro3010 https://ljcr.dmgordon.org/cover/show_cover.php?v=60&k=15&t=6

{$APPTYPE CONSOLE} uses SysUtils; const NUMBER_OF_SPHERES = 45; NUMBER_OF_BITS_ARRAY_UPPER_END = 255; var counter, counterCopy, counterOffset, range: int64; bitCounter, bitCount, bitPosition: integer; combCounter: integer; byteFragmentIndexOfCounter: integer; positionOfLowestBitOutOfSix: integer; numberOfBits: array[0..NUMBER_OF_BITS_ARRAY_UPPER_END] of byte; before, after, beforePrint, afterPrint: TDateTime; combstr: string; lottoList: TStringList; function powerOf2(exponent: integer): int64; var shifter: int64; counter: integer; begin shifter:= 1; for counter:= 1 to exponent do shifter:= shifter + shifter; result:= shifter; end; procedure presetBitCountLookupTable(highestIndex: integer); var arrayIndex: integer; numberOfBitsSet: integer; byteValue: integer; begin //preset bit count lookup table for arrayIndex:= 0 to highestIndex do begin byteValue:= arrayIndex; numberOfBitsSet:= 0; for bitCounter:= 1 to 8 do begin if ((byteValue and 1) = 1) then inc(numberOfBitsSet); byteValue:= byteValue shr 1; end; numberOfBits[arrayIndex]:= numberOfBitsSet; end; end; begin //main try presetBitCountLookupTable(NUMBER_OF_BITS_ARRAY_UPPER_END); range:= powerOf2(NUMBER_OF_SPHERES); lottoList:= TStringlist.create; before:= Time; Writeln('Lotto report start at: '+ FormatDateTime('hh:nn:ss.zzz',before)); Writeln('You get a file "All_lotto_combinations2.txt" of about 240 MByte!'); counter:= 0; lottoList.add('All lotto combinations 6/ ' +IntToStr(NUMBER_OF_SPHERES)); lottoList.add('**********************************************************'); while counter range do begin //check cases bitCount:= 0; counterCopy:= counter; for byteFragmentIndexOfCounter:= 0 to 5 do begin bitCount:= bitCount+numberOfBits[counterCopy mod 256]; counterCopy:= counterCopy shr 8; end; if (bitCount=6) then begin counterCopy:= counter; positionOfLowestBitOutOfSix:= -1; inc(combCounter); //write('combination #' + inttostr(combinationCounter) +': '); for bitCounter:=1 to NUMBER_OF_SPHERES do begin if ((counterCopy and 1) = 1) then begin //write(inttoStr(bitCounter) +' '); combstr:= combstr+ ' '+inttoStr(bitCounter); if (positionOfLowestBitOutOfSix= -1) then positionOfLowestBitOutOfSix:= bitCounter; end; counterCopy:= counterCopy shr 1; end; //writeln(' '); lottoList.add('# '+inttostr(combCounter)+': '+ combstr); combstr:= ''; counterOffset:= 1; bitPosition:= 1; while (bitPositionpositionOfLowestBitOutOfSix) do begin counterOffset:= counterOffset + counterOffset; inc(bitPosition); end; counter:= counter + counterOffset; end else counter:= counter + 1; end; //while after:= Time; beforePrint:= time; Writeln('Save lotto file start: '+TimeToStr(beforePrint)+' '+DateToStr(date)); lottoList.SaveToFile('All_lotto_combinations2.txt'); lottoList.Free; afterPrint:= time; Writeln('Save lotto stopped at: '+TimeToStr(afterPrint)+' '+DateToStr(date)); Writeln('Save file lasted: '+FormatDateTime('hh:nn:ss.zzz',afterPrint-beforePrint)); Writeln('Lotto report calc end: '+ FormatDateTime('hh:nn:ss.zzz',after)); Writeln('Lotto calc lasted: '+FormatDateTime('hh:nn:ss.zzz',after-before)); Writeln('Lotto report total lasted: '+FormatDateTime('hh:nn:ss.zzz',afterPrint-before)); Writeln('6 of '+IntToStr(NUMBER_OF_SPHERES)+'are: ' +IntToStr(combCounter)); except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

Olá @rockcavera. Estou precisando de uma ajuda, e acredito que talvez vc possa me ajudar. Eu não sou programador, mas dou meus pulos em VBA e Delphi/Pascal. Fiz um programa p/ conferir Sistemas/Matrizes, pois acho o Cologa muito lento nesta tarefa. Olha ficou mais rápido que o colega sim, mas quando utilizei o seu LotDrw Systems Checker nossa foi um impacto No meu programa a matriz 25,15,14,15=50.867 demorou 00:12:17 :782 [12 minutos] no seu LotDrw Systems Checker 0,79...... Muito mais rápido, acho que vê programou ele em Nim né. Se não for pedir muito vc poderia me passar o trecho do seu código que faz essa conferencia, pode ser em Min mesmo Para eu estudá-lo. Bom o motivo é que esta osso fazer alguns teste, pois tenho que gerar as matrizes com alguns filtros em outro programa que fiz Ai salvar a matriz, abri no Lotar Systems Checker (só uso ele agora rsrs) se o teste não vingou bora fazer tudo de novo etc... Pretendo add a conferencia nesse outro programa meu, assim posso escolher alguns parâmetros e o programa Vai gerando as matrizes verifica se não passar, descarta e parti para a próxima. Gerar as matrizes é super. rápido o gargalo está na conferência 12 minutos . Aqui está meu codigo Tartaruga não ninja. É só o trecho que faz a conferencia ok. for var LinhaFechamento := 1 to High(arr_Fechamento) do // Total de linhas do fechamento begin Acertos := 0; Erros := 0; for var n := 1 to NumPorLinha do // Dezenas por linha begin if VetorCombinacoes[0, arr_Fechamento[LinhaFechamento, n]] >0 then begin Inc(Acertos); if Acertos = Pontuacao then begin Break; end; end else begin Inc(Erros); if Erros > MaximoDeErros then begin Break; end; end; end; if Acertos >= Pontuacao then begin Inc(Aprovadas); Break; end; end;

Olá Jimmy, tenho duas indicações. @AFAS e o @rockcavera

@Adenil 15-8-6-8 = 24 Autor: Alessandro Jurcovich

@Isabella Olá Isabella, seja bem vinda ao Fórum. Talvez este tópico lhe ajude um pouco. Iniciantes em Loteria https://www.comoganharnaloteria.com.br/forum/topico/19112-iniciantes-em-loteria/?tab=comments#comment-90540

@Igor Enrick C(40,20,06,06)=323 100% Created by: LJCR https://ljcr.dmgordon.org/cover/show_cover.php?v=40&k=20&t=6

@Pataca Que bom que funcionou Desejo muita sorte ai nos seus estudos.

@Igor Enrick Created by: Jan de Heer and Steve Muir Method of Construction: Private Tools Lower Bound: Schonheim https://ljcr.dmgordon.org/cover/show_cover.php?v=40&k=20&t=4 C(40,20,4,4) = 32 100% Já conferi no Cologa 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 33 34 35 36 01 02 03 04 06 09 10 12 14 17 18 20 21 26 28 31 32 36 37 40 01 02 03 04 06 09 10 12 14 19 22 23 24 25 27 29 30 36 38 39 01 02 05 07 09 10 13 15 16 17 18 22 23 25 28 30 31 34 38 39 01 02 05 07 09 10 13 15 16 19 20 21 24 26 27 29 32 37 39 40 01 02 08 09 10 11 16 17 18 19 21 24 27 28 29 31 33 34 35 39 01 02 08 09 10 11 20 21 22 23 25 26 30 32 33 34 35 37 38 40 01 03 05 06 09 11 12 15 16 17 18 21 22 24 25 26 27 35 37 39 01 03 05 06 09 11 12 15 16 19 20 23 28 29 30 31 32 35 38 40 01 03 06 07 08 09 12 13 17 18 19 21 23 26 29 30 33 34 37 38 01 03 06 07 08 09 12 13 20 22 24 25 27 28 31 32 33 34 39 40 01 04 05 08 09 14 15 16 17 18 19 20 22 25 29 32 33 34 36 40 01 04 05 08 09 14 15 16 21 23 24 26 27 28 30 31 33 36 37 38 01 04 05 08 09 14 15 16 21 23 24 26 27 30 33 34 36 37 38 39 01 04 07 09 11 13 14 17 18 20 23 24 27 30 32 35 36 38 39 40 01 04 07 09 11 13 14 19 21 22 25 26 28 29 31 34 35 36 37 39 02 03 04 05 06 07 17 23 24 25 26 28 29 32 33 34 35 36 38 40 02 03 04 05 06 07 18 19 20 21 22 27 30 31 33 34 35 36 37 39 02 03 04 06 08 11 13 15 16 17 19 22 26 27 28 30 32 36 39 40 02 03 04 06 08 11 13 15 16 18 20 21 23 24 25 29 31 36 37 38 02 05 07 08 11 12 14 15 18 21 22 24 26 29 30 31 32 34 39 40 02 05 07 08 11 12 14 17 19 20 21 23 25 27 28 31 34 37 38 39 02 12 13 14 15 16 17 20 21 22 24 28 29 30 31 33 34 35 37 39 02 12 13 14 15 16 18 19 23 25 26 27 31 32 33 34 35 38 39 40 03 05 06 08 10 11 13 14 16 17 19 20 22 24 25 26 30 31 34 35 03 05 06 08 10 13 14 18 21 22 23 27 28 29 32 35 37 38 39 40 03 06 07 10 11 14 15 16 17 20 22 23 26 27 29 31 33 34 38 39 03 06 07 10 11 14 15 16 18 19 21 24 25 28 30 32 33 34 37 40 04 05 10 11 12 13 17 21 25 27 29 30 31 32 33 34 36 37 39 40 04 05 10 11 12 13 18 19 20 22 23 24 26 28 31 33 34 36 38 39 04 07 08 10 12 15 16 17 19 21 22 23 24 31 32 35 36 37 38 40 04 07 08 10 12 15 16 18 20 25 26 27 28 29 30 31 34 35 36 39

A macro esta aqui

@Friaça Se for isso aqui que você quer problema resolvido TutorialExcel.wmv

@Friaça Desculpa amigo o que você quer seria isto Linha 1: em B2:K2 [01,03,08,02,05,07,09,12,06,15] Linha 2: em B3:K3 [02,04,08,03,01,07,09,05,10,11] M3 com a fórmula =SOMARPRODUTO(--(B2:K2=B3:K3)) Resultado = 3

@Friaça Linha 1: em B3:K3 [01,03,08,02,05,07,09,12,06,15] Linha 2: em B4:K4 [02,04,08,03,01,07,09,05,10,11] M4 com a fórmula =SOMARPRODUTO(CONT.SE(B3:K3;B4:K4)) Resultado = 7