rockcavera
-
Posts
373 -
Joined
-
Last visited
-
Days Won
1
Content Type
Profiles
Forums
Downloads
Posts posted by rockcavera
-
-
8 horas atrás, Hendrix disse:
Minha configuração de processamento atual é:
Intel(R) Core(TM) i7-10750H CPU @ 2.60GHz 2.59 GHz
RAM 16,0 GB (utilizável: 15,9 GB)
Placa Vídeo NVIDIA GeForce GTX 1650 4gbFui lá nas "Opções de Desempenho/Avançado..." alterei para máximo "Tamanho personalizado" mas não funcionou e continua o "out of memory"
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.
-
1
-
-
21 horas atrás, Hendrix disse:
@PS_(Soares) Conseguiu resolver esse "out of memory" ?
Está acontecendo comigo no Cologa X Windows 11 original
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.
-
2
-
-
1 hora atrás, Tuareg disse:
Todas as linhas são distintas dentro da mesma matriz. Essa afirmativa é válida para todas as 4.707 encontradas. @rockcavera, em seus estudos, isso também ocorreu? Será que é uma característica instríseca?
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.
-
1
-
1
-
-
Aqui está 10,3,1,1=4
Spoiler1 2 3
4 5 6
6 8 9
7 9 10Lembrando que 4 é o mínimo teórico.
-
2
-
-
5 horas atrás, alissonsanchez disse:
Bom dia!
Tenho esta abaixo com 74,91% , alguém tem melhor com no máximo 10 linhas? Ou 15-6-4-5 com no máximo 10 linhas?
01 02 03 07 11 14
01 02 08 09 12 15
01 04 10 11 13 16
01 05 06 07 13 15
02 03 04 06 09 13
02 05 07 09 10 16
03 05 06 08 11 12
03 06 10 14 15 16
04 05 09 11 14 15
04 07 08 12 13 14A 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:Spoiler3 5 11 12 13 15
1 5 7 8 12 14
2 4 5 7 10 11
2 4 6 12 13 14
1 6 8 10 11 13
4 5 6 8 9 15
1 3 4 9 11 14
2 3 8 10 14 15
3 6 7 9 10 12
1 2 7 9 13 15-
1
-
-
16 horas atrás, oiregor disse:
OUTRO ALGORITMO...
31 DEZENAS
FAVOR CONFERIR ATÉ 2663
01 04 05 06 08 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
..................
QUATRO MODELOS DIFERENTES COM 30 DEZENAS E NÃO ENCONTREI NENHUMA LINHA COM PELO MENOS UMA DEZENA EM TODOS OS 2663 SORTEIOS
Será que usamos o mesmo algoritmo? Pois chegamos ao mesmo resultado. Veja esse comentário, depois da etapa 6.
-
8 minutos atrás, Friaça disse:
Obrigado por postar @rockcavera.
Olhando bem de perto esse programinha ele é bem parecido com aquele que o amigo compilou para mim que buscava cabeçalhos repetidos em um arquivo csv.
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.
-
1
-
1
-
-
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.
-
4
-
-
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
-
3
-
-
Em 29/11/2023 em 20:05, PS_(Soares) disse:
Motivado em ajudar, depois de ser ajudado, mesmo sendo um desafio para mim, pois sinceramente não entendi qual é a lógica de busca, para essas Invictas e também pelo fato de não ser muito dedicado a esse assunto por isso talvez, não seja a pessoa mais indicada para essa tarefa, mesmo assim achei interessante, tentar buscar algo ou mesmo partir de algo mesmo que inicial, realmente não consegui sequer chegar em um número aproximado de 33 ou mesmo 34 dezenas, o que eu fiz gerou incriveis 51 dezenas !
Mas o bacana é que chegando aqui já haviam muitas soluções, ótimas e precisas!
Abandonei o projeto por enquanto, no futuro vou tentar entender melhor .
Apenas para registar a tentativa de ajuda! (Tentei Aline.)
Certamente em breve teremos um sw, para isso!
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.
-
4
-
-
Em 19/11/2023 em 12:55, Aline Marie disse:
A sequência de 32 números 01 03 04 05 07 08 10 11 14 15 16 17 22 28 31 32 35 36 37 41 42 43 45 47 49 50 51 52 53 54 57 60 fica apenas um jogo sem zerar. Conferência feita no site da XLoterias.
Alguém consegue achar a sequência de 32 números invictos para a Mega-Sena ou sequência menor ou me indica um programa que faça tal análise?
Grata
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.
-
4
-
-
Em 17/11/2023 em 21:37, PS_(Soares) disse:
Nobres calculistas, favor quem puder, gere para mim todas essas combinações 15.890.700, sei que são muitas, não se preocupe com isso, preciso apenas, que postem aqui ou onde puderem.
Obrigado mesmo a quem puder ajudar.
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.
-
3
-
-
3 horas atrás, sam88 disse:
massa, hein!
To usando esse porque não implementei algo no meu programa.
Vou usar esse seu por conta da portabilidade.
Compilei pra Linux (Xubuntu 20.04) e funciona muito bem.
Obrigado!
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.
-
2 horas atrás, Sphgf disse:
Bom dia Dr RockCavera !!
Deu certo funcionou, obrigado !!
Aproveitei e pendurei a planilha atualizada em:
Sds,
Sphgf
Irei baixar sua planilha para conhecer o seu trabalho.
Abraço.
-
4
-
-
1 hora atrás, Sphgf disse:
Cavera, estou tentando capturar esta formula e só agora (antes tarde do que nunca) consegui rodar a macro no excel, mas para valores m<>t ainda sem sucesso se puder me ajudar.
Exemplo 17-5-4-5 = 102 (mínimo) tentando chegar a este valor !!
Pela hipergeométrica :
E a macro funciona para m=t
[]
Function CalcularBlocosMinimos(V As Double, k As Double, t As Double) As Double
Dim resultado As Double
Dim i As Double
resultado = 1
For i = t - 1 To 0 Step -1
resultado = WorksheetFunction.RoundUp(resultado * (V - i) / (k - i), 0)
Next i
CalcularBlocosMinimos = resultado
End Function[]
Para m=t funciona corretamente.
Se puder me orientar como chegar no valor de 102 mínimo calculado para 17-5-4-5 .
agradeço,
obrigado,
Sds,
Sphgf
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 SubO Sub min() ali foi só para chamar as funções...
-
2
-
2
-
-
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.
-
2
-
1
-
-
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.
-
1
-
1
-
-
28 minutos atrás, OdeioParasita disse:
Observe que tomei o cuidado de usar a expressão “tão eficaz quanto” e não o termo “equivalente”. Visto que equivalência matemática é um conceito bem definido. Além disso, desconheço técnicas de se provar equivalência de fechamentos. O conceito de prova de equivalência proposicional não se aplica.
Aqueles que forem mais empolgados com a Matemática, ou que gostam de entender a razão das coisas, podem tentar explicar o porquê. Já aqueles que forem mais pragmáticos podem se perguntar: - Há outros fechamentos com o mesmo comportamento? Tão eficazes quanto?
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.
-
1
-
-
5 horas atrás, OdeioParasita disse:
Já que ganhar em loteria depende da sorte, um desafio intelectual para passar o tempo.
Montar um fechamento é coisa trivial. Entretanto, entender as propriedades matemáticas dos fechamentos é algo muito mais desafiante.
O título desse tópico é Fechamentos Inconsistentes. Uma combinação de 15 números acertará, necessariamente, no mínimo 5 pontos. Então, por que o fechamento 18-15-9-9 é tão eficaz quanto um 18-15-14-15?
Quem souber responder a esse desafio irá ganhar conhecimento e, se tiver sorte, poderá até ganhar na loteria.
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ê?
-
3
-
-
9 horas atrás, Eolocos disse:
tenho uma dúvida, e dado ao teu conhecimento e experiência em programação, pode me ajudar ?
no site de Ion Saliu, tem um código em Basic, para calcular o CSN, código este que eu modifiquei para usar em Perl
abaixo, o meu código em Perl
#!/bin/perl # CSN_Comb2Index # Conversão de combinatorial para notação CSN # n = número de elementos a serem combinados # r = números por combinação $n = 100; $r = 20; @results = (81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100); $CSN = 0; sub comb { # recebe valor N,M como parametros # Function Combine (25,15) = 3268760 my $NN= $_[0]; my $MM= $_[1]; my $yy = 0; my $gg = 0; my $aa = 1; for ( $yy = 1; $yy <= $MM; $yy++ ) { $aa = $aa * $yy} # calcula o fatorial de M my $vv = 1; for ( $gg = ( $NN - $MM + 1 ); $gg <= $NN; $gg++ ) { $vv = $vv * $gg } # calcula combinação (N,M) my $comb_value = $vv / $aa; return $comb_value; # retorna valor comb(N,M) da subrotina comb } sub CSN_Result2Index { # recebe valor N,M, array como parametros my @Num = (); my @array = (); my @resultados = @{$_[2]}; # recebe array com resultados my $NN = $_[0]; # recebe scalar com universo de escolhas -> LF = 25 / LM = 100 my $MM = $_[1]; # recebe scalar com dezenas escolhidas -> LF = 15 / LM = 20 @Num = sort { $a <=> $b } @resultados; unshift @Num, 0; my $l = 0; my $t = 0; my $r = 0; my $CSNN = 0; my $P1 = $MM - 1; for ( $t = 1; $t <= $P1 ; $t++ ) { $array[$t] = 0; if ( $t != 1 ) { $array[$t] = $array[$t - 1] } TURING: $array[$t] = $array[$t] + 1; $r = comb($NN - $array[$t], $MM - $t); $l = $l + $r; if ($array[$t] < $Num[$t]) { goto TURING } $l = $l - $r; } $CSNN = $l + $Num[$MM] - $Num[$P1]; return $CSNN; } $CSN = CSN_Result2Index ($n, $r, \@results); print $CSN,"\n"; exit ();a dúvida é, a diferença dos resultados.
será que tem a ver com a compilação do código em Basic para um executável, talvez, para 32 bits ??
# o código original em Basic, que foi compilado ( acredito que para 32 bits ) devolve os seguintes valores:
#array (81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100) = -136338493960 !!!!
#array (0,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99) = -137730469619 !!!!
# o código adaptado para Perl, executado em 64 bits, devolve o seguinte valor:
#array (81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100) = 5.3598337040381e+20 !!!!
eu não sei onde o erro se encontra !
de repente, quando o código foi escrito originalmente, não previa o caso de uma loteria com 100 números para escolha
se puder me ajudar a resolver isto, agradeço de antemão.
@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.
-
2
-
-
Em 23/06/2023 em 11:00, Eolocos disse:
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.
-
2
-
-
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:
Spoiler11
34
50
56
57
58
176
263
266
271
617
618
647-
1
-
1
-
-
45 minutos atrás, sam88 disse:
Entendo, nesse caso não posso usar porque esse meu código faz parte de uma aplicação comercial
Depois manda uma key do software. Reduzimos em 10x o tempo de verificação
Zoeira. Boa sorte no seu programa.
-
2
-
-
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.
-
1
-
Tentando "Lucro se 15 em 22" (ou mais)...
in LotoFacil
Posted
Testei com meu programa, que acredito que seja o mesmo que você testou, e obtive o mesmo resultado.