Omesmo

exatamente, no zap, face e essas outras redes sociais a informação postada se perde na linha do tempo, sem nenhuma organização, são mais para coisas rápidas, tipo o proprio palpites no que se diz de loteria já que se tem uma vida util curta, o proprio forum poderia ter grupos de palpites nessas redes só para fazer propaganda do furum . a maioria vem achando que vai ter soluções magicas e ideias prontas para"ter lucro" nas loterias eu tenho minhas proprias ideias e fomento elas por conta propria , crio minhas planilhas e macros, no caso ao postar algo no forum é apenas uma maneira de desestressar

bem de certa forma sim, se bem que redes sociais é mais para disponibilizar diretamente , em quanto isso um forum é mais para discutir e planeja, então de nada adianta ter visitas se ninguém participa em si discutir ideias é diferente de divulgar, como voce mesmo falou, voce cobra por suas ideias já prontas mas sim, o forum tem que ter uma area aberta para dar visibilidade uma ideia é quem criar o topico decidir se esse vai ser aberto ou restrito bem, pelo andar das coisas acaba tudo na mesma, topicos abertos ou restritos a participação acaba sendo minima, a nao ser nos de palpites onde as pessoas só postam seus numeros aleatorios

acho que esse é o melhor, para dar visualização ao forum, voce tinha falando antes em colocar a possibilidade de acesso vip de criar tópicos particulares e convidar quem quisar, voce pode fazer isso para os que pagam mensalidade ou anuidade , pode tirar isso dos super vip que tem acesso sem pagar com frequência , é tipo aluguel de um pedacinho do forum ,

não tem como deixar uma area aberta onde outros de foram possam visualizar e seja livre para membros novos nao pagantes, assim pessoas novas podem visitar, se apresentar, conversar, perguntar ou propor ideias sem visualizar o resto do forum, , mesmo que seja um topico, isso nao tiraria o interesse no resto do conteúdo do forum e ainda permitiria as pessoas terem um leve acesso mesmo sem pagar para criar interesse

me lembrou de quando tive a infelicidade de me casar com uma viúva. Ela tinha uma filha. Se eu soubesse, nunca teria feito isso. Meu pai, para piorar a situação, era viúvo. Ele se apaixonou e casou com a filha da minha esposa, então minha esposa era sogra do sogro dela, minha enteada virou minha mãe e meu pai ao mesmo tempo foi meu genro. Pouco depois, minha madrasta trouxe ao mundo um menino, que era meu irmão, mas ele era neto da minha esposa, então eu era avô do meu irmão. Com o passar do tempo, minha esposa trouxe ao mundo um homem que, por ser irmão de minha mãe, era cunhado de meu pai e tio de seus filhos. Minha esposa era sogra de sua filha. Eu, porém, sou o pai da minha mãe, e meu pai e sua esposa são meus filhos. Além disso, sou meu próprio avô. A questão do casamento é o que menos importa.

por isso eu opinei sobre incluir uma area só para uso de IAS , assim se pode conversar sobre o tema e discutir sobre a melhor estratégia tal vez até ter um arquivo base e comandos padrões para iniciar o chat para se ter respostas mais padronizadas e que o gpt nao fique jogando conversa fora

como assim algumas linhas? bem em vba é meio dificil ter boas respostas já que tudo é feito com funções simples, e no gratuito nao tem tempo de resposta suficiente para trabalhar a solução de qualquer forma tudo depende do tipo de pedido e dos comando que se faz

@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

@Jimmy acho que tem que indicar se o post teve edição, mesmo para os super vip, pelo menos na area de palpites , tipo mostrar a hora que a pessoa editou, pq se editou antes do sorteio ainda fica valendo o palpite

se puder escolher se vai criar o topico automático é uma função interessante, se nao puder escolher fica algo exagerado já que muitos só querem postar a planilha e nada mais, a maioria nao coloca nem uma imagem ou mesmo uma explicação na planilha, imagina fomentar um topico só da planilha fora que tbm tem o caso das planilhas que nao precisam de topico, tipo de sorteio, de resultado, as mais comuns que se encontram

pelo que entendi quem é Super VIP nao perde mais, mas depois de novembro niguem mais vai conseguir comprar o Super VIP, somente acesso até 1 ano, e voce já é Super VIP

https://www.walottery.com/WinningNumbers/PastDrawings.aspx?gamename=megamillions https://www.texaslottery.com/export/sites/lottery/Games/Powerball/Winning_Numbers/powerball.csv https://www.texaslottery.com/export/sites/lottery/Games/Mega_Millions/Winning_Numbers/megamillions.csv https://www.texaslottery.com/export/sites/lottery/Games/Mega_Millions/Winning_Numbers/print.html_1444349437.html

sei lá, o forum é seu e voce que sabe os custos e o trabalho que dá a manutenção, e de certa forma o forum é feito de quem participa mas ao meu ver, super vip teria que ter somente quem participa ativamente para o conteudo do forum, seja com postagens, planilhas, respostas, matrizes, ou seja, tudo que faz o forum funcionar e atrair novos usuarios, se a pessoa que nao participa e que paga só para pegar o conteudo do furum, depois de 1 ano certamente pararia novamente para pegar novamente os novos conteudos postados, e quem paga só para ajudar a custear vai ajudar de qualquer jeito

Uma única aposta venceu o prêmio estimado em US$ 1,58 bilhão (cerca de R$ 7,75 bilhões) da loteria Mega Millions, nos Estados Unidos, na noite desta terça-feira (8). A aposta foi feita no estado da Flórida, segundo a organização do sorteio. 08/08/23 32 19 13 33 20 14

de certa forma voce tem razão , a maioria das instituições nao são 100% filantrópicas, sendo uma boa parte falsas , pilantras usando a boa fé das pessoas para pegar o dinheiro. tbm tem as instituições nao governamentais que apesar de ser "não" governamentais vivem de dinheiro de impostos. o proprio governo cobra grandes impostos com uma desculpa de ações sociais . sim até nisso se tem que ter cuidado e nao apenas sair distribuindo o dinheiro

tbm tenho umas ideias de maluco, mas como nao consigo resolver nem minha propria vida ... sempre tento resolver os problemas do cara do outro lado do espelho , mas sempre me manda deixar de ser burro e pensar numa melhor solução e tratar de mim mesmo

tem gente fazendo isso sem dinheiro mas pelas escolhas acho que voce quer mesmo é encurtar sua vida com fortes emoções, nao seria melhor ir logo participar da guerra da ucrania como soldado voluntario?

se voce vai fazer tudo isso e ainda ter trabalho para administrar nao seria melhor receber os 1,55 bi de dolares ao longo dos 30 anos? mais seguro , menos trabalho, seria só fazer um testamento para o dinheiro ir para instituições de caridade no final de sua vida, tipo criar uma um fundo de ajuda no seu nome o valor que iria pegar a cada ano ainda poderia viver muito bem , aplicar e ajudar a quem quiser sem prerigo de ficar sem tudo a gente pensa que pode ser muito , mas um desgovernado baladeiro consegue gastar isso em muito pouco tempo imagina o cara comprar um iate, um helicóptero, um jatinho , uma mansão e esquecer que ainda tem os custo de manutenção, impostos, entre outras coisas, aí a pessoa vai gastando em festas e viagens sem olhar o saldo da conta , para essas pessoas o melhor é pegar em 30 anos , se no primeiro ano fizer merda nos outros já se controla mais

conta aí como voce usaria toda essa grana precisaria investir? daria algo em torno de 529,900,000 dolares considerando uns 30% de impostos entre os 2 paises (pode ser mais) "imposto dos eua nesse caso é maior que do brasil já que lá a tributação é maior na renda do que no consumo" oq pela cotação de venda hoje daria 2,506,427,000 de reais mas vamos considerar um premio liquido de 2 bi de reais o que seria logico fazer com um dinheiro desse?

acho que o problema nao é o dinheiro, e sim nao ter familia e somente ter parentes que as vezes são piores do que inimigos esse é o meu caso, eu teria mais a fazer por "estranhos" do que por parentes, fora o perigo que parente se torna sabendo que a gente teria muito dinheiro sim, é muito dinheiro para se saber oq fazer e com quem dividir o bonus da bonança , ainda mais para quem só quer uma vida simples com mais facilidades

o premio está em 1,55 bilhões de dólares se for resgatar em 30 anos e 757 milhões se for resgatar a vista para voces qual forma teria mais vantagens e pq? bem, claro que esses valores sem os impostos nem daqui nem dos eua, no minimo aí iria perder uns 30% no meu caso nao tenho dinheiro para apostar, nem vontade de ganhar um valor desse nao sou novo, nao tenho filhos, nao sou amante de aventuras e coisas luxuosas , nao tenho a menor ideia de como iria gastar um dinheiro desse , somente tenho visão de uma vida simples a unica coisa seria pensar e realizar se dependesse de dinheiro, talvez passar o resto da vida viajando pelo mundo

tem sim, se nao me engano tem topico sobre links de atualização de lotereias mundo a fora aqui no forum, só que vai ter que procurar na minha planilha uso esse "https://www.texaslottery.com/export/sites/lottery/Games/Mega_Millions/Winning_Numbers/megamillions.csv" os ultimos 25 resultados 09/05/23 46 48 4 37 51 19 12/05/23 2 23 40 45 1 15 16/05/23 36 70 69 34 15 17 19/05/23 55 41 11 5 44 14 23/05/23 10 66 22 3 65 19 26/05/23 12 64 41 20 37 1 30/05/23 64 16 13 68 40 21 02/06/23 36 60 16 3 19 25 06/06/23 29 57 23 6 12 4 09/06/23 68 19 53 3 60 13 13/06/23 44 47 19 10 8 4 16/06/23 45 34 4 57 24 19 20/06/23 46 37 39 6 45 21 23/06/23 13 65 62 69 67 14 27/06/23 52 34 41 8 35 12 30/06/23 51 47 22 13 55 9 04/07/23 54 33 67 21 61 12 07/07/23 55 66 8 10 17 3 11/07/23 51 33 10 64 17 5 14/07/23 10 51 24 66 48 15 18/07/23 37 31 22 54 19 18 21/07/23 57 47 50 29 40 25 25/07/23 44 6 61 3 5 25 28/07/23 52 28 5 63 10 18 01/08/23 8 24 61 45 30 12

palpite Powerball 10/07/23 675mi 17-26-28-32-67-- 04

eu repeti a 5ª serie por causa da professora de portugues , ela veio com um papo para minha mae que iria me ajudar com meu problema, nas outras materias eu ia bem, só que eu fazia até fonometria na epoca e nao creio que eu tenha tido problemas de concordância nem de interpretação de textos , gostava de ler, mas me enrolava na palavras, nas outras materias eu ia bem a merda da professora me fez repetir e nem trabalhou no colegio no ano seguinte, e eu que já comecei a estudar tarde acabei desanimando no processo e nao me esforcei para continuar estudando enquanto trabalhava bem, atualmente está bem complicado, existem muitos erros banais onde a pessoa realmente nao sabe escrever a palavra certa ou dar uma logica na frase , outros erros pela complexidade do protugues , eu aprendo muita coisa na internet"pena que logo esqueço" nao me importo quando me corrigem , mas acho que a maioria dos erros é falta de atenção ou pq nao estamos nem aí mesmo para consertar , ou até pelos motivos expostos mas tbm nao acho que vale a pena ficar a sair corrigindo os erros de todo mundo na internet acabamos pegando vicios de linguagem com a internet, tipo se ficamos a acompanhar muitas paginas de pt Portugal ou em espanhol "espanhol eu consigo ler mas na hora de escrever nao lembro uma palavra"