rockcavera

Testei com meu programa, que acredito que seja o mesmo que você testou, e obtive o mesmo resultado.

Abra o COLOGA, aperte CTRL + ALT + DEL, clique em Gerenciador de Tarefas e verifique quanto de memória ele está usando antes de iniciar o processo que você está fazendo. Verifique quantos por centos da sua memória estão em uso no momento (no geral). Depois inicie o processo que você deseja no COLOGA e mantenha o Gerenciador de Tarefas aberto monitorando o uso de memória, provavelmente a memória em uso pelo COLOGA vai aumentar até o ponto de não haver mais memória suficiente no sistema. Pelo seu print, você está criando um desdobramento 42,7,7,7, que seria o mesmo que gerar todas as combinações de 7 elementos de um grupo de 42 elementos. Se for isso, use o programa que está no link deste comentário.

Isso não é um problema do programa. Isso acontece quando o programa precisa alocar mais memória do que você tem disponível no momento. Então, o programa entra em erro irrecuperável e fecha.

Primeiro parabéns por ter conseguido reduzir bastante essa matriz. Não, eu não reparei nisso, até pq não fiquei muito em cima disso.

Aqui está 10,3,1,1=4 Lembrando que 4 é o mínimo teórico.

A sua 16-6-4-6=10 com 74,91% de cobertura é o máximo também que consegui. Já a 15-6-4-5=10, eu consegui 46,95% de cobertura com:

Será que usamos o mesmo algoritmo? Pois chegamos ao mesmo resultado. Veja esse comentário, depois da etapa 6.

Como o programa sempre precisa de uma entrada de dados, então ele é parecido nesse sentido. No entanto, a função dele é achar linhas que pontuam pelo menos um ponto nos concursos da mega-sena fornecido. Nada mais e nada menos que isso. O programa é determinístico, ou seja, sempre retorna a mesma resposta quando se fornece a mesma entrada.

Aqueles que quiserem rodar o meu programa que acha linhas invictas, segue aqui o link para download. @Aline Marie O programa é em linha de comando, você executa ele, seleciona o arquivo com os resultados da mega-sena e o separador dos números, depois disso ele faz o serviço sozinho. O arquivo zip tem 3 arquivos: invictas64.exe, invictas32.exe e Mega-Sena.csv. Os arquivos .exe são os programas, sendo o 64 para windows 64 bits e o 32 para windows 32 bits. Já o arquivo Mega-Sena.csv possuí todos os resultados da mega-sena até o concurso 2662. Você consegue abrir esse arquivo tanto no Excel quanto no bloco de notas. No Excel ele vai salvar usando o separador ; (ponto e virgula), já se você editar no bloco de notas, vai ter que adicionar cada dezena separada por ;. Qualquer dúvida, sugestão e qualquer outra coisa, entre em contato.

Errata sobre publicação anterior: acho que tinha atualizado errado os resultados da mega-sena até o concurso 2662, na verdade meu algoritmo achou 01 linha com 31 números; 811 linhas com 32 números e 5058 linhas com 33 números. @DixieJoe meu algoritmo é praticamente o seu. De fato invictas é um conceito esquisito. 1) começa com todos os resultados da mega-sena 2) conta-se quantas vezes cada dezena saiu 3) pega a dezena que mais vezes saiu 4) remove todos os concursos que essa dezena saiu 5) conta-se quantas vezes cada dezena aparece nos concursos que sobraram 6) volta para o passo 3 até não haver mais concurso A diferença que fiz agora é a seguinte: às vezes há mais de uma dezena com a mesma quantidade de aparições. Quando isso ocorre, eu faço o caminho até não haver mais concurso para todas as dezenas que apresentam a mesma ocorrência. Ou seja, em vez de começar e terminar com apenas uma linha, o algoritmo percorre todas as possibilidades quando houver mais de uma dezena com a mesma frequência. Menor linha que consegui até o concurso 2662, com 31 números: 1 4 5 6 8 10 14 15 16 22 25 26 30 32 34 36 39 40 41 42 43 44 45 50 51 52 53 54 55 56 57

Olá, caro colega. Eu também não recordava muito bem o conceito de invictas que lançaram nesse tópico. Acredito que tive que ler umas duas vezes o tópico para entender e pensar em um algoritmo simples para chegar no resultado. Hoje estou pelo celular (internet móvel), pois estou sem internet (fibra de casa) para mandar pelo computador a mensagem. Inclusive, por estar sem internet hoje, o dia todo, dediquei a fazer uma caminhada completa no algoritmo que usei, que explicarei na postagem que estar por vir, quando minha internet de casa for reestabelecida. Também disponibilizo o software que dele resultou. Essa caminhada completa, usando o algoritmo simples, resultou, com o concurso da mega de hoje (concurso 2662), em 01 linha de 30 números; 44 linhas de 31 números; 2244 linhas de 32 números; 9442 linhas de 33 números; e 2520 linhas de 34 números. Errata: acho que tinha atualizado errado os resultados da mega-sena até o concurso 2662, na verdade meu algoritmo achou 01 linha com 31 números; 811 linhas com 32 números e 5058 linhas com 33 números.

Achei essa sequência com 32 números: 1 2 3 4 5 6 7 8 10 13 16 20 22 28 29 30 32 33 36 37 41 44 46 47 49 50 51 52 53 54 56 58 Não sei se é a menor possível, pois fiz o algoritmo mais simples que consegui pensar para obter ela.

Sei que já resolveram o seu o problema, mas caso precise de algo parecido no futuro, eu fiz um programa que gera todas as combinações de X,Y. No seu caso, seria C(50, 6). Aqui está o link da postagem do programa.

Boa noite. Meu caro, não vai funcionar, pois a Caixa mudou a API. Agora os resultados são baixados diretamente por arquivo de excel. Inclusive, abri um issue no repositório que fala sobre: #1 Claro que irá compilar... mas não funciona mais. Abraço.

Irei baixar sua planilha para conhecer o seu trabalho. Abraço.

Olá. Quero te ajudar a chegar na resposta. Aparentemente seu resultado está sendo 103,13. Correto? Fiz rapidinho esse código VBA (minha primeira codificação em VBA) e deu certo. Segue abaixo: Function blocksCoveredByBlock(v As Double, k As Double, t As Double, m As Double) As Double Dim num As Double num = k If m < k Then num = m End If For i = t To num If (m - i) <= (v - k) Then blocksCoveredByBlock = blocksCoveredByBlock + WorksheetFunction.Combin(k, i) * WorksheetFunction.Combin(v - k, m - i) End If Next End Function Function minimoTeorico(v As Double, k As Double, t As Double, m As Double) As Double Dim combsVM As Double Dim bcbb As Double combsVM = WorksheetFunction.Combin(v, m) bcbb = blocksCoveredByBlock(v, k, t, m) minimoTeorico = WorksheetFunction.RoundUp(combsVM / bcbb, 0) End Function Sub min() MsgBox minimoTeorico(17, 5, 4, 5) End Sub O Sub min() ali foi só para chamar as funções...

Acessei a calculadora de mínimo teórico do lotdrw.tk pelo web.archive.org, pois estou no cel e não no pc, e o mínimo é 10 grupos de 10 dezenas. Lembrando que esse mínimo nem sempre é possivel de atingir.

No universo da lotofácil seria uma matriz 25,10,8,15. O mínimo teórico nesse caso não se calcula pela Fórmula de Schonheim. Site meu lotdrw tinha a fórmula para isso.

Bom, eu usei o termo equivalente, pois ambos fechamentos trazem a mesma quantidade de cobertura, ou seja, 100%. Não sou matemático e não conheço a definição de equivalente na matemática. Uma rápida procura no google apenas trouxe sobre frações equivalentes. Então, como sou curioso por conhecimento, quero aprender a definição matemática de equivalente. Sei que alguns pode dizer que foge do assunto do tópico, mas eu acho interessante. Abraço.

Vamos lá. Como ponto de partida, eu achei os fechamentos 18,3,3,9=24 e 18,3,2,3=24, que são os fechamentos inversos 18,15,9,9=24 e 18,15,14,15=24, respectivamente. Se você verificar o fechamento 18,15,9,9 como um fechamento 18,15,14,15 e vice-versa, você verificará que um satisfaz o outro. Ou seja, há uma equivalência entre eles, pois o fechamento 18,15,9,9 é um fechamento 100% para 18,15,14,15 e vice-versa. Para brincar, gerei quatro 18,15,14,15. Um com 31, 30, 27 e 24. Os com 30 e 24 também satisfizeram o fechamento 18,15,9,9. Já os com 31 e 27 ficaram em 99,6%. Portanto, nem todo 18,15,14,15 satisfaz um 18,15,9,9. Ainda, continuando a brincadeira, gerei 18,15,9,9 = 24,25,26,27,28,29,30 e 31. Desses, apenas o 18,15,9,9=28 que não satisfez 100% para 18,15,14,15, mas, sim, 96,81%. Portanto, nem todo 18,15,9,9 satisfaz um 18,15,14,15. Da brincadeira consegue se verificar que nem sempre um fechamento vai ser equivalente ao outro. As vezes um fechamento está contido em outro, como nos casos dos fechamentos 18,15,11,15 estar contido no 18,15,12,15, pois este fechamento é mais restritivo que aquele. Entretanto, o caso do 18,15,9,9 e 18,15,14,15 não parece ser esse. O que fica é uma boa pergunta: Por quê?

@Eolocos, obrigado por lembrar de mim. Estou respondendo pelo celular, então não rodei o código e nem olhei a fundo. Primeiro, você está usando o CORE perl sem importar nenhuma biblioteca, então está usando as operações matemática de tipos numéricos, q se não me engano, usam double para números em perl. Então, tudo tem um limite. Quando tentamos combinações de 100, você precisa de tipos numéricos que conseguem chegar lá. Recomendo usar alguma importação de bigint para perl. Em Nim eu sei que um inteiro de 128 bits seria suficiente. No seu caso, para saber se o seu código bate com o código basic, limite a construção até 32. Depois disso, use uma biblioteca de bigints para ir até 100.

Gosto muito dos vídeos do Fabio Akita. Esse eu ainda não tinha visto. Mas, sim, ele só responde o que já pensava sem estudar a fundo. A inteligência artificial não tem nada de inteligente, mas, sim, uso de probabilidades. Fabio Akita sempre passando conhecimento de forma objetiva e clara. Quem não conhecia esse cara, recomendo sempre assistir os vídeos dele sobre assuntos que te interessam. Alguns vídeos são meios que introdução para outros assuntos que ele irá falar e vale a pena assistir até os vídeos que não tem interessam, pois a forma dele de explicar vai fazer você abrir seus olhos para novos assuntos.

Aparentemente alguém da Caixa está resolvendo os problemas de resultados faltantes. Ainda bem! Será que estão acessando o forum aqui e viram a postagem? Não sei. Porém a situação da Quina se resolveu, pois não há mais nenhum concurso faltando. Em relação a Timemania o número de concursos faltantes agora são 13, antes eram 41. Já a Federal continuou na mesma. Tendo em vista que o relatado foi há mais de 2 meses, acredito que, nesse ritmo, a Caixa até o final do ano arrume tudo . Concursos faltantes da Timemania na API da Caixa:

Depois manda uma key do software. Reduzimos em 10x o tempo de verificação Zoeira. Boa sorte no seu programa.

A hospedagem do lotdrw.tk (Nexus Bytes), que parecia confiável, acabou ficando off sem avisar os usuários (grátis e pagos) em janeiro de 2023. O projeto era um hobbie meu, que pretendia tornar mais profissional, mas a falta de tempo acabou impedindo de progredir a contento. Acredito que no curto prazo eu não volte o projeto. Infelizmente, eu não sei onde está o último backup do site, que havia feito em meados de outubro de 2022. Nesses últimos meses acabei formatando o notebook 2 vezes, pois um HD pifou, comprei um SSD e depois comprei um outro HD. Como nem sempre salvo a pasta de downloads do Windows, onde provavelmente estava o backup de outubro de 2022, acabei perdendo ele. Já procurei nos backups do HD externo e nada. Acabou ficando um backup de dezembro de 2021. Então, perdi vários sistemas que foram enviados. Sim, havia um ou dois usuários ativos enviados os sistemas. Queria pedir desculpas aos dois que estavam fazendo a contribuição e dedicando seu tempo. Sobre as ferramentas aqui anunciadas, eu vou subir um repositório no GitHub para hospedar as ferramentas. Acredito que faça isso até essa semana e redirecione o lotdrw.tk para lá. Abraços.