sorel Posted August 4, 2016 Share Posted August 4, 2016 pontos de partida possíveis:https://en.wikipedia.org/wiki/Randomness_testshttps://www.random.org/analysis/http://www.johndcook.com/Beautiful_Testing_ch10.pdfhttp://www.math.umn.edu/~garrett/students/reu/pRNGs.pdfhttp://csrc.nist.gov/groups/ST/toolk...issc-paper.pdfEm uma leitura rápida, eu vi o teste de Kolmogorov-Smirnov citados, o que me levou a esta página com as discussões sobre a análise estatística no Excel: http://www.real-statistics.com/tests...-smirnov-test/Finalmente, um pouco de trivia: Up através de aproximadamente 2002, gerador de números aleatórios do Excel falhar muitos destes testes para aleatoriedade. Em 2003, MS supostamente melhorou o algoritmo gerador de números aleatórios. Http://www.amstat.org/sections/srms/...004-000710.pdf Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 de certa forma o problema da geração de aleatórios computacionais é que esses são a partir do relogio mesmo existindo um fator de equação acaba tendo uma certa simetria pq as próprias rotinas acabam determinando um tempo de leitura dos valores e esses por sua vez tem tempo constante para um processador gerar aleatórios perfeitos teria que ser algo em separado , algum tipo de oscilador de alta velocidade dependente da temperatura por exemplo , e como a temperatura é altamente variante mas em questão de loterias acho que nem ajuda muita coisa e aleatórios só se usa para provar técnicas de previsão elas não levam na resolução das próprias técnicas para loteria se pode ter um metodo mais direto todos os sorteios possíveis, com o resultados como ponto de aleatórios ou vc acha que no aleatório vai ter algo a mais do que os resultados possível? só que nesse caso a analise seria oposta Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 beleza edcrons2 preciso que ative, só ativar o codigo precisi ddas formaçoes quadruplas For i1 = 0 to 9is i2 = 0 to 9for i3 = 0 to 9sequence & i1 = i2 & i3next i3next i2next i1 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 4 minutos atrás, sorel disse: beleza edcrons2 preciso que ative, só ativar o codigo precisi ddas formaçoes quadruplas For i1 = 0 to 9is i2 = 0 to 9for i3 = 0 to 9sequence & i1 = i2 & i3next i3next i2next i1 e onde vc quer chegar com isso? pq consertando o codigo ele apenas geraria 10 sequencias de 00 até 99 e nada mais Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 pretendo gerar quadruplas da lotomania exemplo 01 23 45 89 ....... todas possiveis nao pode ter repetiçoes exemplo 01 20 45 89 = tem 0 duas nao pode consegue ampliar o codigo? por favor Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 https://en.wikipedia.org/wiki/Permutation#Generation_in_lexicographic_order Quote Link to comment Share on other sites More sharing options...
Elétron Posted August 4, 2016 Share Posted August 4, 2016 13 minutos atrás, edcronos2 disse: e onde vc quer chegar com isso? pq consertando o codigo ele apenas geraria 10 sequencias de 00 até 99 e nada mais edcronos2, É curioso!! Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 29 minutos atrás, sorel disse: pretendo gerar quadruplas da lotomania exemplo 01 23 45 89 ....... todas possiveis nao pode ter repetiçoes exemplo 01 20 45 89 = tem 0 duas nao pode consegue ampliar o codigo? por favor sorel isso vc faz com algum permutador , descupe mas ainda não vejo onde vc quer chegar essa são coisas que já está abarrotada até no proprio forum como vc vai escolher entre as tantas sequencias ?, ao meu ver é mais um aleatorio acho que vc tem que mudar o foco um pouco Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 for a = 0 to 96 for b = a+1 to 97 for c = b+1 to 98 for d = c+1 to 99 next next next next assim consegue ativar por favor Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 é codigo como faço para ativar?? for a = 0 to 96 for b = a+1 to 97 for c = b+1 to 98 for d = c+1 to 99 next next next next Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 1 minuto atrás, sorel disse: for a = 0 to 96 for b = a+1 to 97 for c = b+1 to 98 for d = c+1 to 99 next next next next assim consegue ativar por favor sorel, buca algum permutador , em excel nem vai caber nas linhas teria que ser varias paginas Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 ok quer dizer muitas conbinaçoes? tipo 100mil formaçoes? como faço para ativar? Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 lembrando 3 milhoes 00 a 99 quadruplas mas porquer tem de tudo eu preciso somente as sem repetiçao entende Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 desculpa, até seria facil montar algo mas pelo que sei vc mesmo já postou uma planilha que faz oq vc quer e eu já estou cansado de ficar fazendo um monte de coisa para ir pro lixo Quote Link to comment Share on other sites More sharing options...
Jamel007 Posted August 4, 2016 Share Posted August 4, 2016 2 minutos atrás, sorel disse: lembrando 3 milhoes 00 a 99 quadruplas mas porquer tem de tudo eu preciso somente as sem repetiçao entende e sorel tenho que admitir você e uma pessoa que trabalha em cima de muitas possibilidades com certeza vai conseguir o tal objetivo que são os 20 pontos você merece cara 1 Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 mas esta das quadruplas ainda nao postei se postei algo foi no inttuito de somar ajudar nao me lembro das quadruplas! Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 Quote Link to comment Share on other sites More sharing options...
sorel Posted August 4, 2016 Author Share Posted August 4, 2016 todos que vai buscar( esforça e trabalha) um dia vem Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 11 minutos atrás, sorel disse: esse codigo não dá esse padrão numerido, até dá mas esplhado entre outros 12 minutos atrás, sorel disse: todos que vai buscar( esforça e trabalha) um dia vem estou vendo muita gente tentando mas com pouco retorno, e loteria não é trabalho, talvez para quem vende esquema , tem loterica, organiza bolão ou ... Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 4, 2016 Share Posted August 4, 2016 32 minutos atrás, sorel disse: ok , acho que estou confundindo o loop que vc postou com oq vc quer Quote Link to comment Share on other sites More sharing options...
sorel Posted August 5, 2016 Author Share Posted August 5, 2016 edcronos 2 preciso das formaçoes quantas sao? de 00 a 99 exemplo 01 23 34 56 01 24 35 57..... Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 5, 2016 Share Posted August 5, 2016 bem, o arquivo ficou um pouquinho grande demais para mim enviar mas deu quase 40colunas X 4 dezenas * 100000 linhas Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 5, 2016 Share Posted August 5, 2016 Sub sequencial() li = 2 lf = 100000 ci = 1 ReDim seq(1 To lf, 1 To 4) l = 1 For a = 0 To 96 For b = a + 1 To 97 For c = b + 1 To 98 For d = c + 1 To 99 seq(l, 1) = a seq(l, 2) = b seq(l, 3) = c seq(l, 4) = d l = l + 1 If l >= lf Then l = 1 ci = ci + 5 Range(Cells(li, ci), Cells(li + lf - 1, ci + 3)).Value2 = seq End If Next Next Next Next ci = ci + 5 Range(Cells(li, ci), Cells(li + l - 1, ci + 3)).Value2 = seq End Sub tá aí o codigo , mais rapido que isso em vba é impossivel Quote Link to comment Share on other sites More sharing options...
sorel Posted August 5, 2016 Author Share Posted August 5, 2016 bem agora é possivel eu digito num campo oito digito que acho que vai sair um pouco diferentes do ultimo exemplo uma campo aonde digito exemplo 01,2,3,5,6,8,9= digitos e a macro separa da lista consegue Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted August 5, 2016 Share Posted August 5, 2016 1 minuto atrás, sorel disse: bem agora é possivel eu digito num campo oito digito que acho que vai sair um pouco diferentes do ultimo exemplo uma campo aonde digito exemplo 01,2,3,5,6,8,9= digitos e a macro separa da lista consegue consigo não, melhor pedir para outro Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.