LOTOMANIA TROCANDO OS DÍGITOS

[sorel]

eduardo acho que os pares espelho funciona melhor que os pares invertidos

do ultimo sorteio para o proximo para excluir o espelho

[sorel]

esta lista abaixo é para 2º quadrante

 em 95% tem ao menos uma dezena e 60% duas dezenas na dupla confira

16	27
16	28
16	29
16	37
16	38
16	39
16	47
16	48
16	49
17	26
17	28
17	29
17	36
17	38
17	39
17	46
17	48
17	49
18	26
18	27
18	29
18	36
18	37
18	39
18	46
18	47
18	49
19	26
19	27
19	28
19	36
19	37
19	38
19	46
19	47
19	48
26	37
26	38
26	39
26	47
26	48
26	49
27	36
27	38
27	39
27	46
27	48
27	49
28	36
28	37
28	39
28	46
28	47
28	49
29	36
29	37
29	38
29	46
29	47
29	48
36	47
36	48
36	49
37	46
37	48
37	49
38	46
38	47
38	49
39	46
39	47
39	48
#

[sorel]

entao do 2º quadrante temos 96% de uma a duas dezenas fazer estatistica para ver atrasos

16 27
16 28
16 29
16 37
16 38
16 39
16 47
16 48
16 49
17 26
17 28
17 29
17 36
17 38
17 39
17 46
17 48
17 49
18 26
18 27
18 29
18 36
18 37
18 39
18 46
18 47
18 49
19 26
19 27
19 28
19 36
19 37
19 38
19 46
19 47
19 48
26 37
26 38
26 39
26 47
26 48
26 49
27 36
27 38
27 39
27 46
27 48
27 49
28 36
28 37
28 39
28 46
28 47
28 49
29 36
29 37
29 38
29 46
29 47
29 48
36 47
36 48
36 49
37 46
37 48
37 49
38 46
38 47
38 49
39 46
39 47
39 48

[sorel]

ola EDUARDO DP  ´PRECISO DE TUA AJUDA PARA MONTA RUMA PERGUNTA

 SOBR ALGORITMO DAS ESTATISTICA QUE FIZESTE A PERGUNTA

= Você pode criar uma macro com a função de um padrões algorithmSearch? Depois de estatísticas bancárias e padrões macroSelects o que foi selecionado na filesFiles estatísticas estão agora prontos para uma loteria, os dados são sempre atualizados. A macro será lookAs se fosse um algoritmo as normas exigidas, isso é possível? Excel 2010 ou superior Windows 10

O cara quer saber como eu pretendo fazer e falou=

Você pode criar uma macro com a função de um padrões algorithmSearch? Depois de estatísticas bancárias e padrões macroSelects o que foi selecionado na filesFiles estatísticas estão agora prontos para uma loteria, os dados são sempre atualizados. A macro será lookAs se fosse um algoritmo as normas exigidas, isso é possível? Excel 2010 ou superior Windows 10 Resposta curta, mas inútil, Sim, eu espero que isso é possível. Infelizmente, eu não entendo o que você está tentando fazer. Você sabe o que busca e / ou padrão algoritmo de correspondência que deseja usar? O que os dados parecem com que você deseja aplicar esses algoritmos para? você poderia fornecer um exemplo de planilha simplificada com um exemplo trabalhado para nos ajudar a entender o que você está tentando fazer, o que peças que você já sabe como fazer, e que partes você está tendo problemas com?

     Eu não acho que você tenha fornecido informações suficientes para fornecer ajuda específica (ou ainda não estou entendendo). Você se refere a "cada arquivo estatística": Que tipo de arquivo são esses arquivos? Texto, Excel, Outros planilha, Acesso / outro arquivo de banco de dados, ou algum outro tipo de arquivo? Você está familiarizado com as demonstrações de VBA e / ou modelo de objetos que são usados para interagir com o tipo de qualquer arquivo que esses arquivos estatísticos são? Você diz que a principal questão é como levantar o assunto ou cabeçalho de cada arquivo. Qual é o assunto ou cabeçalho e onde é que as informações armazenadas no arquivo de estatística? Responder com QuoteRegister Para Responder Responder ao tópico

[sorel]

o voce tem fazer é ver como montar uma diretivas de busca ele pode fazer mas precisa

 saber como. por favor, pode ver

 preciso dar retorno

[eduardodp]

2 horas atrás, sorel disse:

o voce tem fazer é ver como montar uma diretivas de busca ele pode fazer mas precisa

 saber como. por favor, pode ver

 preciso dar retorno

SAI QUE É SUA TAFAREL RISOS

[sorel]

eduardo dp nao preciso saber quais os quesitos para montar a macro de busca nos arquivos

 ele quer saber, ou nao tem como?

 

[sorel]

eduardo no link da planilia temos todas as total possiveis formaçoes simetricas

 tres por coluna e tres linhas do quadrnte 1º mas mas na 1ª sheet( aba)

 é ir na matriz e trocar  no 2º 3º e 4º mas sao duas mil

 mas usado o filtro das terminaçoes ou a dezenas da quadupla ou das duplas sem e com

 vi a ajudar a fitrar  diz se entendeu????

http://www.mediafire.com/download/f1st1164ek11o59/Generate_random_3x3.xlsx

[sorel]

nao tem como  fazer? é isto? por isto os risos? preciso das diretivas EDU

ola EDUARDO DP  ´PRECISO DE TUA AJUDA PARA MONTA RUMA PERGUNTA

 SOBR ALGORITMO DAS ESTATISTICA QUE FIZESTE A PERGUNTA

 

[sorel]

eduardo olhe no 1686

 deu 6 acertos aonde um chegava quando da 6,a 9 num quadrante é festa

claro temos filtrar muiitos este formaçoes simetricas

Arquivo analisado: C:\jgfacil\jogos\boa augusto.txt
Arquivo: C:\JGFACIL\JOGOS\SIMULA.TXT
Dezenas a conferir: 01 08 18 21 22 24 25 26 27 31 32 37 39 41 47 53 68 78 87 94
Analise: Quantidade de pontos igual a 06

         Cartela: 00202 21 22 24 25 31 41 6 acertos.
         Cartela: 00242 01 22 24 25 31 41 6 acertos.
         Cartela: 00245 01 21 24 25 31 41 6 acertos.
         Cartela: 00248 01 21 22 25 31 41 6 acertos.
         Cartela: 00249 01 21 22 24 31 41 6 acertos.
         Cartela: 00252 01 21 22 24 25 41 6 acertos.
         Cartela: 00262 01 21 22 24 25 31 6 acertos.

Sequencia pesquisada: 01 08 18 21 22 24 25 26 27 31 32 37 39 41 47 53 68 78 87 94
Total de acertos  em: 7 cartelas.

Resumo da conferencia
Total de resultados analisados.: 1
Total de resultados com premios: 1 com mais de 0 cartelas premiadas
Total do aproveitamento........: 100%

Total geral de cartelas com 06 acertos          7      0,00% de garantia

[sorel]

eduardo quando da 7,8,9,10 num quadrante a probalidade de dar 3 numa lina  de 5e tres na coluna e grande

 enas formaçoes temos 100% fechado basta dar o padrao e pronto claro tem filtrar pelo digito inicila com oa final, quando da  muitas de nas 6 acertos de 3,4,5 já serve é muito

 imagina acertar 4em 6 maravilha isto da simetricos por quadrantes

nao esquecer quem ganha uma cloi , fhone 7 sevidor bala ( ddr4) e um par de sapatos ahhh!!

[sorel]

eduardo esta é a mesma mas com  opçao para filtrar digtito inicial e final

tudo que tem saber por quadrante é saber digtio incial e final do simetrico

http://www.mediafire.com/download/0l8pi96or502902/Generate_random_3x3(1)(1).xlsx

[sorel]

voce pode montar tambem para lotofacil olhe

 teste 1408 ( porque tem ter 15 no quadrante ou menor na matriz 5x5 que igual ao quadrante lotomania

voce pode usar e colocar de 01 a 25 ela faz

 no 1408

teve 49 cartela bastava um para usar como ficxa acerta 6 e 6
Dezenas a conferir: 01 03 05 08 10 11 12 13 14 19 21 22 23 24 25
Analise: Quantidade de pontos igual a 06

         Cartela: 00254 01 11 12 13 14 21 6 acertos.
         Cartela: 00451 01 11 21 23 24 25 6 acertos.
         Cartela: 00452 01 11 21 22 24 25 6 acertos.
         Cartela: 00453 01 11 21 22 23 25 6 acertos.
         Cartela: 00454 01 11 21 22 23 24 6 acertos.
         Cartela: 01026 01 03 05 08 13 23 6 acertos.
         Cartela: 01229 08 11 12 13 14 23 6 acertos.
         Cartela: 01259 03 11 12 13 14 23 6 acertos.
         Cartela: 01274 03 08 12 13 14 23 6 acertos.
         Cartela: 01277 03 08 11 13 14 23 6 acertos.
         Cartela: 01279 03 08 11 12 14 23 6 acertos.
         Cartela: 01280 03 08 11 12 13 23 6 acertos.
         Cartela: 01299 03 08 11 12 13 14 6 acertos.
         Cartela: 01422 08 13 22 23 24 25 6 acertos.
         Cartela: 01425 08 13 21 23 24 25 6 acertos.
         Cartela: 01428 08 13 21 22 23 25 6 acertos.
         Cartela: 01429 08 13 21 22 23 24 6 acertos.
         Cartela: 01452 03 13 22 23 24 25 6 acertos.
         Cartela: 01455 03 13 21 23 24 25 6 acertos.
         Cartela: 01458 03 13 21 22 23 25 6 acertos.
         Cartela: 01459 03 13 21 22 23 24 6 acertos.
         Cartela: 01472 03 08 22 23 24 25 6 acertos.
         Cartela: 01475 03 08 21 23 24 25 6 acertos.
         Cartela: 01478 03 08 21 22 23 25 6 acertos.
         Cartela: 01479 03 08 21 22 23 24 6 acertos.
         Cartela: 01491 03 08 13 23 24 25 6 acertos.
         Cartela: 01492 03 08 13 22 24 25 6 acertos.
         Cartela: 01493 03 08 13 22 23 25 6 acertos.
         Cartela: 01494 03 08 13 22 23 24 6 acertos.
         Cartela: 01495 03 08 13 21 24 25 6 acertos.
         Cartela: 01496 03 08 13 21 23 25 6 acertos.
         Cartela: 01497 03 08 13 21 23 24 6 acertos.
         Cartela: 01498 03 08 13 21 22 25 6 acertos.
         Cartela: 01499 03 08 13 21 22 24 6 acertos.
         Cartela: 01500 03 08 13 21 22 23 6 acertos.
         Cartela: 01506 01 03 05 14 19 24 6 acertos.
         Cartela: 01710 11 12 13 14 19 24 6 acertos.
         Cartela: 01903 14 19 22 23 24 25 6 acertos.
         Cartela: 01906 14 19 21 23 24 25 6 acertos.
         Cartela: 01908 14 19 21 22 24 25 6 acertos.
         Cartela: 01910 14 19 21 22 23 24 6 acertos.
         Cartela: 02274 05 10 12 13 14 25 6 acertos.
         Cartela: 02277 05 10 11 13 14 25 6 acertos.
         Cartela: 02279 05 10 11 12 14 25 6 acertos.
         Cartela: 02280 05 10 11 12 13 25 6 acertos.
         Cartela: 02474 05 10 22 23 24 25 6 acertos.
         Cartela: 02477 05 10 21 23 24 25 6 acertos.
         Cartela: 02479 05 10 21 22 24 25 6 acertos.
         Cartela: 02480 05 10 21 22 23 25 6 acertos.

Sequencia pesquisada: 01 03 05 08 10 11 12 13 14 19 21 22 23 24 25
Total de acertos  em: 49 cartelas.

Resumo da conferencia

[sorel]

eduardo tem como ver por quadrante qual linha e a coluna atrasada?

objetivo ir na planilia é filtras nas simetricas consegue?conseguiu abrir esta ultimo link que tem o filtro?

das simetricas 3x3?

[sorel]

De acordo com o artigo publicado na Revista Brasileira biométrico , a lotaria bola de energia nos Estados Unidos, por exemplo, tem 19 grupos de probabilidades diferentes, em oposição a uma única probabilidade que se aplica a todas as combinações possíveis de números.

Em primeiro lugar, a ferramenta LotoRainbow divide-se os números por cores.

Fonte da imagem: LotoRainbow

Mesmo se você escolher números muito diferentes em dois jogos, por exemplo, pode ter o mesmo modelo de cor.

Embora diferentes números foram escolhidas, neste exemplo, eles têm o mesmo modelo de cor. (Fonte da imagem: LotoRainbow)

A partir daí, a ferramenta descreve diferentes tipos de combinações modelo de cor.

Fonte da imagem: LotoRainbow

Em seguida, com base no jogo a ser jogado, uma probabilidade teórica de uma combinação é dada. O exemplo abaixo mostra a probabilidade (em ordem decrescente) da combinação PP no jogo de loteria brasileira chamada Super Sena. Isso mostra que há uma probabilidade teórica de 38,27 por cento, que uma combinação de PP serão os números premiados, o que significa que aconteceria 38 de cada 100 desenhos. Este tipo de estratégia pode ajudar os jogadores a diminuir a combinação de números que eles poderiam escolher que poderia resultar em uma vitória mais provável.

Fonte da imagem: LotoRainbow

Descrevendo essas descobertas como o "Geometry of Chance", o estudo disse que, embora "todas as apostas são igualmente prováveis, padrões de comportamento obedecer probabilidades diferentes, que podem fazer toda a diferença no conceito de jogos, beneficiando apostadores que fazem uso das informações racional . "

Com esta informação, Gianella disse que a "lotaria não deve mais ser visto como uma forma de jogo, mas uma verdadeira representação da teoria probabilística e da Lei dos Grandes Números".

(H / T: Daily Mail )

 

  

by Taboola 

Sponsored Lin

[sorel]

no caso temos fazer por cada quadrante 5x5 este conceito.

[sorel]

Hoje, atendendo a alguns pedidos da galera aqui, vou mostrar como localizar arquivos no hd de seu computador, via código, ou seja, através de macro VBA. Dessa maneira, é possível manipular o resultado da pesquisa da forma que desejar, seja validando os itens encontrados, calculando seus tamanhos, verificando seus tipos, relacionando seus nomes, imprimindo a pesquisa, etc. As possibilidades são diversas e dependerá da finalidade que você definir para o projeto.

Para explicar uma maneira de conseguir estes resultados, vou criar um exemplo de uma planilha que listará todas as músicas, em formato .mp3, presentes em seu computador, ou em qualquer pasta que o usuário quiser procurar. A macro solicitará ao usuário em qual pasta deverá fazer a busca e listará o resultado na planilha.

Vejamos como fazer.

 

Inserindo o código

 

Primeiramente, vamos acessar o ambiente VBA. Para isso, tecle ALT+F11.

Insira dois Módulos no projeto e nomeie-os MóduloAPI e MóduloPesquisa, respectivamente. Veja abaixo os códigos que você deverá escrever em cada um deles.

MóduloPesquisa

01	Sub Listar_arquivos_mp3()

02	Dim i As Long

03	Dim sh As Worksheet

04	Dim iSomaMb As Double

05	Dim sPasta As Variant

06	Dim iLinha As Long

07

08	Set sh = ThisWorkbook.ActiveSheet

09

10	'Exibe a caixa para escolha da pasta onde será feita a pesquisa

11	sPasta = GetPasta

12

13	If sPasta = "" Then

14	Exit Sub        'Cancela pesquisa

15

End If

16

17	'Apaga o conteúdo

18	sh.Range("B:C").EntireColumn.ClearContents

19

20	'Escreve o cabeçalho

21	sh.Cells(4, 2).Value = "Música"

22	sh.Cells(4, 3).Value = "Tamanho (Mb)"

23

24	'Define a linha inicial da listagem

25	iLinha = 5

26

27	Application.StatusBar = "Aguarde... Pesquisando ... "

28

29	'Usa o objeto de pesquisa

30	With Application.FileSearch

31	.LookIn = sPasta                        'Define a pasta onde será pesquisado

32	.Filename = "*.mp3"                     'Define o termo da pesquisa

33	.SearchSubFolders = True                'Informa se será feita a pesquisa nas subpastas

34	.Execute                                'Executa a pesquisa  Ohhhhh!!!!

35

36	'Percorre os itens encontrados e escreve na planilha

37	For i = 1 To .FoundFiles.Count

38	sh.Cells(iLinha, 2).Value = .FoundFiles(i)

39	sh.Cells(iLinha, 3).Value = CDbl(Format((FileLen(.FoundFiles(i)) / 1048576), "0.00"))

40

41	iSomaMb = iSomaMb + sh.Cells(iLinha, 3).Value

42	iLinha = iLinha + 1

43

44	Application.StatusBar = "Preenchendo lista ... " & Format(i / .FoundFiles.Count, "0%")

45

Next i

46

47	sh.Cells(1, 2).Value = "Músicas em " & sPasta

48	sh.Cells(2, 2).Value = "Total de Músicas: " & .FoundFiles.Count

49	sh.Cells(3, 2).Value = "Espaço Utilizado: " & Format(iSomaMb, "0.00") & " MB"

50

End With

51

52	sh.Range("A1").Select

53	Application.StatusBar = False

54

55

End Sub

[sorel]

vai ter trocar mp3 por .txt ( 00) e outras cosita mas

[sorel]

eduardo temos nos cabeçalhos de estatistica cad uma dela para a busca na hora de estruturar as apostas das fixas

consegui alguma coisa na internet e fiz algumas adaptações (este código lista todos os arquivos do diretório (importante: faz uma varredura de todas pastas e sub-pastas) informado na célula E1, que tenham o nome informado na célula C1e cuja extensão consta na célula D1 - pode-se usar "*" como coringa, tanto no nome do arquivo quanto na sua extensão) segue o cód.:

Sub FileSearchByHavrda_teste()

Dim FileNameWithPath As Variant

Dim ListOfFilenamesWithParh As New Collection

Dim r As Long

Dim n As String

Dim e As String

Dim f As String

n = Range("C1").Value

e = Range("D1").Value

f = Range("E1").Value

Range("B2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.ClearContents

' Filling a collection of filenames (search Excel files including subdirectories)

Call FileSearchByHavrda(ListOfFilenamesWithParh, f, n & "." & e, True)

For Each FileNameWithPath In ListOfFilenamesWithParh ' cycle for list(collection) processing

Debug.Print FileNameWithPath & Chr(13)

r = Range("B65536").End(xlUp).Row + 1

Cells(r, 2).Formula = FileNameWithPath & Chr(13)

Next FileNameWithPath

If ListOfFilenamesWithParh.Count = 0 Then

Debug.Print "No file was found !"

MsgBox "No file was found !"

Else

Range("a1").Value = ListOfFilenamesWithParh.Count

End If

Range("B2").Select

Range(Selection, Selection.End(xlDown)).Select

End Sub

------------------------------------------------------------------------------------------------

Private Sub FileSearchByHavrda(pFoundFiles As Collection, pPath As String, pMask As String, pIncludeSubdirectories As Boolean)

Dim DirFile As String

Dim CollectionItem As Variant

Dim SubDirCollection As New Collection

pPath = Trim(pPath)

If Right(pPath, 1) <> "\" Then pPath = pPath & "\"

DirFile = Dir(pPath & pMask)

Do While DirFile <> ""

pFoundFiles.Add pPath & DirFile

DirFile = Dir ' next file

Loop

' Procedure exiting if searching in subdirectories isn't enabled

If Not pIncludeSubdirectories Then Exit Sub

' Searching for subdirectories in path

DirFile = Dir(pPath & "*", vbDirectory)

Do While DirFile <> ""

' Add subdirectory to local list(collection) of subdirectories in path

If DirFile <> "." And DirFile <> ".." Then If ((GetAttr(pPath & DirFile) And vbDirectory) = 16) Then SubDirCollection.Add pPath & DirFile

DirFile = Dir 'next file

Loop

' Subdirectories list(collection) processing

For Each CollectionItem In SubDirCollection

Call FileSearchByHavrda(pFoundFiles, CStr(CollectionItem), pMask, pIncludeSubdirectories) ' Recursive procedure call

Next

End Sub

[sorel]

as macro de busca do arquivos de estatistcas e estudo ( os que estao dando mais aproveitamento)

 75% a 80% do tempo) já serve, para poder cruzar as informaçoes na mesa

[sorel]

ala eduardo dp vamos ver isto= quadrupla inicial  dezena inicial de cada quadrante

 e quadrupla da dezena final de cada quadrante( nada haver com quadradupla sem reptiçao de digtios) alias ela pode fazer conexao, para o embriao das fixas vamos traballar com tres quadruplas

1ª quadrupla= sem reptiçao de dg ( uma dezena cad quadrante

2ª quadrupla da dezena inicial ou menor de cada quadrante( uma dezena podendo se da sem repetilao

3ª quadrupla  da dezena final ou maior de cad quadrante(podendo ter conexao( uma dezena com a quadrupla sem reptiçao

 o mais importante sao as duas quadruplas dos extremos( maior emenor nem que na conexao a quadraduplas sem so tenha 3 dezenas ou duas vamos ver isto?será muito bom isto beleza

[sorel]

exemplo 1695

quadrupla da menor dezena por quadrante

12 19 54 58

quadradupla da maior dezena

42 49 92 89    (99) era gemea no serve como  maior no entra

 quadrupla sem repetiçao= 31 40 92 69

conexao deuma dezena a 92

 o que  mais importa sao as duas quadruplas do maior  e menor por causa das restante(34dezenas) que vai dar dentro dos limite das quadruplas a quadrupla sem reptiçao pode fazer conexao uma ou duas dezena das duas quadruplas  entende para ser base das duplas com e sem repetiçao

 acertando as duas quadruplas menor e maior temos 8 acetos mais 3 acertos da outra quadradupla( sem reptiçao)  e dpois mais com as duplas sem e com fazendo conexao com as quadruplas  1 acerto cada aquadrante total 4  entao 8,3,4 sao 15 em 16   se o acerto de 12,13,14 em 16 ja é muito bom

 imagina 14,a15 em 16, sendo que as outras 34 é dentro dos limites das quadruplas

 consegue fazer?

[sorel]

eduardo esta string 2,3,7 é somente para as terminaçoes( last digit) digito final

 ver a presença dos 3 digtios em 100 sorteio já serve

 para somente a string 2,3,7 gemeas pode entrar e e é no geral( os 4 quadrante juntos por causa do 7)

somente terminaçoes, esta string 2,3,7, pode sser das duas quadruplas  nas duplas com e sem entende

 é apenas um ponto de conexao de um digito da dezena( a terminaçao)

[eduardodp]

SOREL

COMO VOCE QUER QUE GERE AS QUADUPLAS

 

[sorel]

eduardo=

 

COMO VOCE QUER QUE GERE AS QUADUPLAS?

como voce já tem os 4 quadrantes nos sorteios a macro procura, alias estas duas macro pode servir se nao criar  uma que  em cada quadrante separe a dezenas menor de cada quadrante

 depois ela( a macro separa uma dezena por quadrante da maior de cada

para fazer estatisticas, vou ter ver qual é total de quadraduplas  em 100% no total ou 95%

depois coloco no post