Jump to content

All Activity

This stream auto-updates

  1. Past hour
  2. Parabéns pelos 15 pontos ==>> @Miudo
  3. 3103 01 02 03 04 05 08 10 11 12 13 14 16 17 18 21 22 23 24 25 01 02 04 05 06 07 08 09 10 11 12 13 14 16 17 20 21 22 24 01 02 03 05 07 08 09 10 12 13 14 15 17 18 19 21 23 24 25
  4. 3103 02 03 04 05 08 11 12 13 14 16 17 18 21 22 25 01 02 04 06 08 09 11 12 13 14 16 17 20 22 24 02 03 05 07 10 12 13 14 15 17 18 19 21 23 25 01 02 06 07 09 10 12 13 14 15 17 19 20 23 24 01 02 03 05 06 09 12 13 14 17 18 19 21 24 25
  5. 3103 01 02 03 04 05 09 10 11 12 13 15 16 23 24 25 01 02 03 04 05 06 07 08 14 17 18 19 20 21 22 06 07 08 09 10 11 12 14 15 16 17 18 19 20 23 01 02 03 04 05 06 08 11 13 14 15 21 22 24 25 01 07 09 10 12 13 16 17 18 19 20 21 22 23 24
  6. 3103 02 03 04 05 07 09 10 11 12 13 14 15 16 17 18 21 23 24 25 01 02 04 06 07 08 09 10 11 13 16 17 18 19 20 21 22 23 24 01 03 04 05 06 08 12 13 14 15 16 18 19 20 21 22 23 24 25
  7. Today
  8. 3103 01 02 03 04 05 06 07 08 11 12 13 15 16 17 25 01 02 03 04 05 07 09 10 12 15 16 19 21 22 23 02 03 04 05 06 07 08 11 13 15 16 18 21 22 25 02 03 04 05 07 09 10 14 15 16 18 19 21 23 25 02 04 05 07 08 09 12 13 16 17 19 20 21 23 25
  9. Obrigado Grande BigMax, todas as informações aqui são muito importantes!!! SHOW!!!
  10. Continuando com as linhas do @genesioggs23 As 400 linhas de 21 estão no spoiler: Observo que para ter linhas com 6pt deverá ter 3 linhas zeradas na formação 0,0,0,3,2,1 e suas variações, porém a linha de 2 e 3pt não podem estarem entre as 4 últimas. Nessa imagem tem 6pt: Nesse tipo de formação (2 e 3 nas 4 últimas) pode não ter 6pt: É só para conhecimento, sei que é impossível manter um jogo de espera nesses moldes, mas é um passatempo ficar fazendo isso. Continuando...Essa 400 linhas de 21 números geram cerca de 27 milhões de linhas de 6 números e dessas "apenas" 4.992.000 linhas tem potencial de 6pt considerando as condicionais acima.
  11. @Jimmy acho que uma adição legal seria uma area só para uso de IAs nas loterias, agora com o gpt e o gemini facilitando muito o estudo e desenvolvimento , com o novo gpt 4 suportanto 25 mil palavras dá até para ter um projeto mais complexo tipo um exemplo que fiz de teste com o novo gpt no modo gratuito EU: "voce conseguiria juntar tudo numa coisa só mas trabalhando com matrizes de 15 colunas x 4 mil linhas com dezenas de 1 a 80?" GPT4: Claro, vamos criar um projeto VBA que integra uma rede neural, algoritmo genético e regressão linear em uma única planilha, trabalhando com matrizes de 15 colunas x 4000 linhas com dezenas de 1 a 80. Vou dar uma estrutura básica para cada componente e depois juntar tudo. Passos: Estrutura do Projeto: Criar uma planilha chamada "Dados" onde os dados serão armazenados. Criar uma planilha chamada "Resultados" onde os resultados serão exibidos. Rede Neural: Adaptação da rede neural para lidar com 15 entradas e 4000 exemplos de treinamento. Algoritmo Genético: Ajustar para 15 genes em cada indivíduo. Regressão Linear: Ajustar para prever valores baseados em uma coluna específica. Código Integrado: Sub ProjetoIntegrado() ' Inicializar dados e parâmetros Dim entradas(1 To 4000, 1 To 15) As Double Dim saidas(1 To 4000) As Double Dim pesosIH(1 To 15, 1 To 10) As Double ' Pesos entre camada de entrada e oculta Dim pesosHO(1 To 10, 1 To 1) As Double ' Pesos entre camada oculta e saída Dim biasH(1 To 10) As Double ' Biases da camada oculta Dim biasO(1 To 1) As Double ' Bias da camada de saída Dim taxaAprendizado As Double taxaAprendizado = 0.1 ' Taxa de aprendizado ' Inicializar pesos e biases com valores aleatórios Dim i As Integer, j As Integer For i = 1 To 15 For j = 1 To 10 pesosIH(i, j) = Rnd Next j Next i For i = 1 To 10 For j = 1 To 1 pesosHO(i, j) = Rnd Next j Next i For i = 1 To 10 biasH(i) = Rnd Next i For i = 1 To 1 biasO(i) = Rnd Next i ' Carregar dados da planilha "Dados" Dim wsDados As Worksheet Set wsDados = ThisWorkbook.Sheets("Dados") For i = 1 To 4000 For j = 1 To 15 entradas(i, j) = wsDados.Cells(i + 1, j).Value Next j saidas(i) = wsDados.Cells(i + 1, 16).Value Next i ' Treinamento da rede neural TreinarRedeNeural entradas, saidas, pesosIH, pesosHO, biasH, biasO, taxaAprendizado ' Algoritmo genético AlgoritmoGenetico ' Regressão linear RegressaoLinear End Sub Sub TreinarRedeNeural(ByRef entradas As Variant, ByRef saidas As Variant, _ ByRef pesosIH As Variant, ByRef pesosHO As Variant, _ ByRef biasH As Variant, ByRef biasO As Variant, _ ByVal taxaAprendizado As Double) Dim epocas As Integer epocas = 1000 ' Número de épocas de treinamento Dim entrada(1 To 15) As Double Dim saidaDesejada As Double Dim saidaObtida As Double Dim somasOculta(1 To 10) As Double Dim saidasOculta(1 To 10) As Double Dim somasSaida(1 To 1) As Double Dim erroSaida(1 To 1) As Double Dim erroOculta(1 To 10) As Double Dim i As Integer, j As Integer, k As Integer, epoca As Integer For epoca = 1 To epocas For i = 1 To 4000 ' Configurar entrada e saída desejada For j = 1 To 15 entrada(j) = entradas(i, j) Next j saidaDesejada = saidas(i) ' Propagação para frente For j = 1 To 10 somasOculta(j) = biasH(j) For k = 1 To 15 somasOculta(j) = somasOculta(j) + entrada(k) * pesosIH(k, j) Next k saidasOculta(j) = Sigmoid(somasOculta(j)) Next j For j = 1 To 1 somasSaida(j) = biasO(j) For k = 1 To 10 somasSaida(j) = somasSaida(j) + saidasOculta(k) * pesosHO(k, j) Next k saidaObtida = Sigmoid(somasSaida(j)) Next j ' Propagação para trás (retropropagação) For j = 1 To 1 erroSaida(j) = saidaDesejada - saidaObtida For k = 1 To 10 pesosHO(k, j) = pesosHO(k, j) + taxaAprendizado * erroSaida(j) * saidasOculta(k) Next k biasO(j) = biasO(j) + taxaAprendizado * erroSaida(j) Next j For j = 1 To 10 erroOculta(j) = 0 For k = 1 To 1 erroOculta(j) = erroOculta(j) + erroSaida(k) * pesosHO(j, k) Next k erroOculta(j) = erroOculta(j) * saidasOculta(j) * (1 - saidasOculta(j)) For k = 1 To 15 pesosIH(k, j) = pesosIH(k, j) + taxaAprendizado * erroOculta(j) * entrada(k) Next k biasH(j) = biasH(j) + taxaAprendizado * erroOculta(j) Next j Next i Next epoca End Sub Function Sigmoid(x As Double) As Double Sigmoid = 1 / (1 + Exp(-x)) End Function Sub AlgoritmoGenetico() Dim populacao(1 To 100, 1 To 15) As Integer Dim novaPopulacao(1 To 100, 1 To 15) As Integer Dim fitness(1 To 100) As Double Dim i As Integer, j As Integer, k As Integer ' Inicializar a população com números aleatórios For i = 1 To 100 For j = 1 To 15 populacao(i, j) = Int((80 - 1 + 1) * Rnd + 1) Next j Next i ' Avaliar a aptidão de cada indivíduo For i = 1 To 100 fitness(i) = AvaliarAptidao(populacao, i) Next i ' Evolução por várias gerações For k = 1 To 100 ' Seleção, crossover e mutação For i = 1 To 100 Dim pai1 As Integer, pai2 As Integer pai1 = SelecionarPai(fitness) pai2 = SelecionarPai(fitness) For j = 1 To 15 If Rnd < 0.5 Then novaPopulacao(i, j) = populacao(pai1, j) Else novaPopulacao(i, j) = populacao(pai2, j) End If ' Mutação If Rnd < 0.01 Then novaPopulacao(i, j) = Int((80 - 1 + 1) * Rnd + 1) End If Next j Next i ' Atualizar população e recalcular aptidão For i = 1 To 100 For j = 1 To 15 populacao(i, j) = novaPopulacao(i, j) Next j fitness(i) = AvaliarAptidao(populacao, i) Next i Next k ' Exibir os melhores resultados Dim melhorAptidao As Double Dim melhorIndividuo As Integer melhorAptidao = 0 For i = 1 To 100 If fitness(i) > melhorAptidao Then melhorAptidao = fitness(i) melhorIndividuo = i End If Next i MsgBox "Melhor combinação: " & Join(Application.Index(populacao, melhorIndividuo, 0), ", ") End Sub Function AvaliarAptidao(populacao As Variant, indice As Integer) As Double ' Função de aptidão simples que soma os números (ajuste conforme necessário) Dim soma As Double soma = 0 Dim i As Integer For i = 1 To 15 soma = soma + populacao(indice, i) Next i AvaliarAptidao = soma End Function Function SelecionarPai(fitness As Variant) As Integer ' Seleção por roleta viciada (proporcional à aptidão) Dim somaFitness As Double somaFitness = Application.Sum(fitness) Dim roleta As Double roleta = Rnd * somaFitness Dim i As Integer Dim acumulado As Double acumulado = 0 For i = 1 To UBound(fitness) acumulado = acumulado + fitness(i) If acumulado >= roleta Then SelecionarPai = i Exit Function End If Next i End Function Sub RegressaoLinear() Dim wsResultados As Worksheet Set wsResultados = ThisWorkbook.Sheets("Resultados") Dim ultimaLinha As Long ultimaLinha = wsResultados.Cells(wsResultados.Rows.Count, 1).End(xlUp).Row Dim x() As Double Dim y() As Double ReDim x(1 To ultimaLinha - 1) ReDim y(1 To ultimaLinha - 1) Dim i As Long For i = 2 To ultimaLinha x(i - 1) = wsResultados.Cells(i, 1).Value ' Ajuste conforme necessário y(i - 1) = wsResultados.Cells(i, 2).Value ' Ajuste conforme necessário Next i Dim sumX As Double, sumY As Double, sumXY As Double, sumX2 As Double sumX = 0: sumY = 0: sumXY = 0: sumX2 = 0 For i = 1 To UBound(x) sumX = sumX + x(i) sumY = sumY + y(i) sumXY = sumXY + x(i) * y(i) sumX2 = sumX2 + x(i) ^ 2 Next i Dim n As Long n = UBound(x) Dim a As Double, b As Double b = (n * sumXY - sumX * sumY) / (n * sumX2 - sumX ^ 2) a = (sumY - b * sumX) / n ' Exibir os resultados MsgBox "Equação da Regressão: y = " & a & " + " & b & "x" ' Previsão para um novo valor de x Dim novoX As Double novoX = InputBox("Insira o valor de x para previsão:") Dim previsao As Double previsao = a + b * novoX MsgBox "Previsão para x = " & novoX & " é y = " & previsao End Sub Explicação: Função Principal (ProjetoIntegrado): Inicializa os dados e parâmetros. Carrega dados da planilha "Dados". Chama as sub-rotinas para treinar a rede neural, executar o algoritmo genético e a regressão linear. Sub-rotina de Treinamento da Rede Neural (TreinarRedeNeural): Treina uma rede neural simples com 15 entradas e 10 neurônios na camada oculta. Sub-rotina do Algoritmo Genético (AlgoritmoGenetico): Implementa um algoritmo genético com 15 genes em cada indivíduo. Sub-rotina de Regressão Linear (RegressaoLinear): Realiza a regressão linear nos dados da planilha "Resultados". Esta implementação assume que os dados estão adequadamente organizados nas planilhas "Dados" e "Resultados". Para usar o código, certifique-se de ajustar os dados conforme necessário e executá-lo em um ambiente VBA habilitado. ===================================================== acho que fica uma area legal para aproveitar o potencial das novas ferramentas
  12. 3103 Teste 06 15 11 12 19 22 23 24 07 18 11 13 15 17 22 24 09 11 12 17 18 19 23 25 13 22 14 17 19 20 23 25 17 20 13 14 22 23 24 25
  13. Verificação da PTM utilizando a analise tradicionalda Coruja do dia anterior. PTM-RJ 11:20 1°1102 01....Dezena 02 2°9359 15....xx9 (chave 9) 3°4411 03 4°9288 22....Par 92 28 + Grupo 22 5°5382 21....Dezena 82 6°9542 11....Dezena 42 7° 313 04
  14. Verificando a analise demo PTM-RJ 11:20 1°1102 01....10 (consecutivo) Bingo CTN 012 2°9359 15 3°4411 03....41 (consecutivo) 4°9288 22 5°5382 21
  15. parodiando o filme "FUGA DAS GALINHAS" em 15:50s começa o sorteio AO VIVO pela tv. em 16:58s começa a fuga.... em 17:19s a garota da sorte vai evitar a fuga, mas todas a bolinhas sorteadas fugiram! (que lambança! começou a catação de bolinhas no chão) os números sorteados foram: 6439 (13/05/2024) 03 31 62 64 80 o sorteio acima trouxe dezenas emblemáticas: lembrando que 31-03-64 foi a DATA da revolução militar.
  16. Franco Atzeni e sua equipe reduzindo algumas matrizes http://www.coveringrepository.com/systems.aspx http://www.coveringrepository.com/systems.aspx?li=1 39 08 03 04 = 117 63 11 03 04 = 193 62 11 03 04 = 185 36 09 03 04 = 59 38 11 03 04 = 39 44 11 03 04 = 64 43 11 03 04 = 59 34 13 06 10 = 67 41 11 03 04 = 51 40 11 03 04 = 47 39 11 03 04 = 43 32 09 03 04 = 44 31 09 03 04 = 40 30 09 03 04 = 36 29 09 03 04 = 32 26 14 09 11 = 296 26 12 10 15 = 296 26 14 10 13 = 238 26 12 09 13 = 238 26 14 11 15 = 203 26 12 08 11 = 203
  17. PARA O 3103 01 02 03 04 06 09 11 12 13 16 17 20 21 23 24 01 02 03 04 06 08 12 13 14 15 17 19 21 23 24 01 02 03 04 06 09 11 12 13 15 16 17 21 23 24 02 04 05 06 08 09 11 12 13 15 18 21 22 24 25 02 04 05 06 09 11 12 13 15 16 18 21 23 24 25 02 04 05 06 08 09 11 12 13 17 18 21 22 24 25 PARA SAIR DA LANTERNA EM GRANDE ESTILO.
  18. Uma nova Analise demo para PPT PPT 9:20hs 14.05.24 8042 11 4376 19......3+6=9, chave é 7 o que sobrou 9104 01 5666 17 2637 10......6+3=9, chave é 7 o que sobrou ----------------------------------------Sairam todos os algarismos do 1ao5 9925 07 191 23 Brinca dos Consecutivos 376 = 37 76 36 73 67 63 104 = 10 14 04 01 41 40 637 = 63 67 37 36 76 73 Triplos e Falsos triplos pode trazer consecutivos 666.....................567 678 654 111 espelho......123 901 012 -------------------------616 661 116 Magico Zero (vertical) 0 3 8 33 88 1 6 11 66 4 9 44 99 7 2 77 22 0 0 6 1 66 11 3 8 33 88 ------------------------------------- CTN com Zero com dupla de numeros Pares. Temos o exemplo do 1p 042. Zero com uma dupla par 42 (24) Em nivel global em loterias similares ao JB, esta estratégia puxa em até 10 extrações uma das centenas abaixo, secas ou combinadas: 024 026 028 046 048 068
  19. 3103 03 04 05 07 08 10 11 13 14 17 18 19 20 22 25 Agora vai...........................
  20. PPT 9:20hs 14.05.24 8042 11....Dezena 42 (Ausencia do algarismo 2) 4376 19....xx6 (chave é 6 o que sobrou) 3xx (chave 3) 9104 01 5666 17....666 (chave é 6 o que sobrou) 2637 10....6xx (chave é 6 o que sobrou) x3x (chave 3) 9925 07....Dezena 25 (Ausencia do algarismo 2) 99xx (chave 9) 191 23.....x9x (chave 9) Brinca do Consecutivo 960 = 906 = 90 06 96 mais sua viradinha 689 = 689 = 68 69 89 mais sua viradinha 679 = 679 = 67 69 79 mais sua viradinha......76 2p
  21. RESULTADOS RIO - 14/05/2024 PTM ...... GP 1- 8042 -11 2- 4376 -19 3- 9104 -01 4- 5766 -17 5- 2637 -10 6- 2.9925 -07 7- 191 ========== PTM 1- 1102 -01 2- 9359 -15 3- 4411 -03 4- 9288 -22 5- 5382 -21 6- 2.9542 -11 7- 313 ========== PT 1- 2656 -14 2- 8021 -06 3- 9282 -21 4- 3473 -19 5- 6924 -06 6- 3.0356 -14 7- 303 => palpites diários, dinâmica de análise , Na minha pagina do instgran, vc tem todas as informações ====================== NA PAGINA DO INSTAGRAN tem o VALOR SIMBÓLICO MENSAL, para o envio diário dos palpites ====================== => meus contatos estão no meu perfil ou => no instagram palpitessandrajb (Curte lá) para quem quer aprender a achar gps ATE PTV e até 3º premio informações la no instagran Sandra Moraes
  22. Muitos apreciadores do JB a moda antiga gostam de analisar a Coruja Rio. Utilizam para traçar um plano de jogo para o dia seguinte. Vamos lá.... COR-RJ 21:20 1°4960 15......9+0=9, chave é 6 o que sobrou 2°3689 23 3°6681 21......8+1=9, chave é 6 o que sobrou 4°5679 20 5°6453 14......4+5=9, chave é 3 o que sobrou ---------------------------------------------------------Ausencia do algarismo 2 6°7462 16 7° 297 25......2+1=5, chave é 9 o que sobrou Brinca do Zero 0 9 4 9 4 1 6 9 6 Brinca do Consecutivo 960 = 906 = 90 06 96 mais sua viradinha 689 = 689 = 68 69 89 mais sua viradinha 679 = 679 = 67 69 79 mais sua viradinha
  23. 3103 03 05 09 10 11 12 13 14 15 18 20 22 24 25 01 02 03 04 06 07 08 09 10 16 17 19 21 23
  24. Verificação de 13.05.24 - Noturnas PTN-RJ 18:20 1°8433 09....P1 2°9465 17.........P8 3°3775 19....P9 P8 4°2754 14....P9 5°5272 18.........P8 P1 Dupla de grupo P1 e P9 Terno de Grupo P8 COR-RJ 21:20 1°4960 15....P9 2°3689 23 3°6681 21....P9 4°5679 20 5°6453 14....P9 Terno de Grupo P9
  25. 3103 02 03 04 09 10 11 13 14 19 20 22 24 25 01 05 06 07 08 12 15 16 17 18 20 21 23
  1. Load more activity
×
×
  • Create New...