LOTOMANIA TROCANDO OS DÍGITOS

sorel · December 1, 2016

ala EDU. para dominar a oxilaçao de duas há 10 dezenas em cada quadrante, ou seja este grafico das quantidades a unica forma é fazer em 4 ediçoes ( um quadrante de cada vez) que sera usado como base)

ou seja fazendo em 4 vai pegar o quadrante que vai ter de 6 a 10,

depois outra forma de garantir em 100% as intersecçoes zeradas que sao 25 cada quadrante

entao teremos que jogar 100 cartoes, mas vendo porestaisticas e atrasos da para diminuir as interseçoes

com a lacunas e mediana, mas já temos alguma coisa muito boa

sorel · December 1, 2016

ala edu, o que vai mandar sao os padroes por quadrantes, se há a variantes de duas a 8 e 9 dezenas

aqui é o foco, , indo de encontro aos padroes de saida por quadrantes( quantidades de dezenas)

sorel · December 1, 2016

ala EDU, preciso o seguinte
nos 120 ultimos sorteios diga qual quadrante teve de 6 para cima

exemplo no quadrante 1º teve de 6 para cima

já 1712 no 4º quadrante teve mais de 6

entao enumerar numa lista qual quadrante em cada sorteio teve de 6 dezenas pra cima

objetivo= tem nao jogar nas 4 ediçoes( tentando achar o quadrante com mais de 6) mas apenas um quadrante atraves da estatistica de atraso

sorel · December 2, 2016

ala edu consegue num determinado numero de sorteios apartir do ultimo ver os duques e trincas repetidas nas posiçoes das letras, quadruplas é dificilmente de acontecer

sao 25 formaçoes no total em 100% mas da quadruplas( uma dezena por quadrantes)

1714= sorteio ahh!!

02 07 57

12 62

25 80

35 90

01 06 51 56
02 07 52 57
03 08 53 58
04 09 54 59
05 10 55 60
11 16 61 66
12 17 62 67
13 18 63 68
14 19 64 69
15 20 65 70
21 26 71 76
22 27 72 77
23 28 73 78
24 29 74 79
25 30 75 80
31 36 81 86
32 37 82 87
33 38 83 88
34 39 84 89
35 40 85 90
41 46 91 96
42 47 92 97
43 48 93 98
44 49 94 99
45 50 95 00

sorel · December 2, 2016

ala EDU esta lista de 25 é 100%

objetivo=

ver em cada sorteio em que posiçao passou o sorteio

sao todas as 20 dezenas aqui nao leva em conta as repetidas para ver as nas 4 posiçoes

teste 1714= 02,07,09,12,23,25,34,35,45,46,48,51,53,57,62,74,76,80,88,90

posiçao 1ª=4 posiçao 2ª=4 posiçao 3ª=4 posiçao = 4ª = 8 corrigir se tiver erro nas quantidades

tambem ver na numeraçao de 1 a 25 as posiçoes

exemplo na posiçao 1ª foi na linha 2,7,13,15

1ª 2ª 3ª 4ª

01 06 51 56
02 07 52 57
03 08 53 58
04 09 54 59
05 10 55 60
11 16 61 66
12 17 62 67
13 18 63 68
14 19 64 69
15 20 65 70
21 26 71 76
22 27 72 77
23 28 73 78
24 29 74 79
25 30 75 80
31 36 81 86
32 37 82 87
33 38 83 88
34 39 84 89
35 40 85 90
41 46 91 96
42 47 92 97
43 48 93 98
44 49 94 99
45 50 95 00

sorel · December 2, 2016

ala edu dentro das 25 linhas estas abaixo

consegue fazer a interçeçao das posiçoes com as 25 linhas

a matriz das 25 sempre sera a mesma porque é 100%

objetivo ver posiçoes e linhas em atraso

exemplo se te, grande tendencoa jogar na 4ª posiçao na linha 17

so vou jogar a dezena e e nao jogar na mesma posiçao ou tres desta capichi

consegue?

1ª 2ª 3ª 4ª

01 06 51 56
02 07 52 57
03 08 53 58
04 09 54 59
05 10 55 60
11 16 61 66
12 17 62 67
13 18 63 68
14 19 64 69
15 20 65 70
21 26 71 76
22 27 72 77
23 28 73 78
24 29 74 79
25 30 75 80
31 36 81 86
32 37 82 87
33 38 83 88
34 39 84 89
35 40 85 90
41 46 91 96
42 47 92 97
43 48 93 98
44 49 94 99
45 50 95 00

sorel · December 2, 2016

ala edu,lembrando a lista de 25 sao todas as dezenas com suas 4 posiçoes em 100% sera fixa tipo um matriz

nem sorteio foge dela so para lembrar

eduardodp · December 2, 2016

...DEZENAS MENOR / MAIOR POR QUADRANTE............................................
CONC.01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.TT
..................................................................................
1710.............05.11..........15..........24................35.41.......44....07
1710..........09....16.17................28.....................................04
1710.51.52................63.......71.............81............................05
1710.56....58........................................87.............97..........04
..................................................................................
1711.......03.04.............14.15.21...........................................05
1711.......08....10.......18.19.................................................04
1711....52...............................73....75.81.............91.............05
1711..........59.60.......68...................80.......88.............98.......06
..................................................................................
1712.01................12.........................31....33....35..........44....06
1712...............................26.......29......................47..........03
1712................61..........65.......73.............83......................04
1712................66.............76.77...................89.90..........99.00.07
..................................................................................
1713.01.......04.............14....21..........25.............35.41....43.......08
1713...............................26.......29.30............................50.04
1713................61...................73..........82...................94....04
1713.............60............................80.......88................99....04
..................................................................................
1714....02.............12................23....25..........34.35.............45.07
1714....07....09.................................................46....48.......04
1714.51....53..........62...................74..................................04
1714....57.........................76..........80.......88....90................05
..................................................................................

Edited December 2, 2016 by eduardodp

sorel · December 2, 2016

boa esta sistema de por em linha os quadrantes da menor e maior, da pra ver por coluna, beleza EDU

eduardodp · December 2, 2016

15 ULTIMOS RESULTADOS

...............................................................................
CONC.01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25
...............................................................................
T-Q1.04.03.02.04.02.03.04.03.04.05.06.02.02.04.06.03.01.04.01.06.03.00.03.07.03
T-Q2.01.02.02.04.02.02.04.02.01.02.05.03.03.06.07.02.02.00.00.02.01.03.03.03.04
T-Q3.04.06.03.01.03.04.02.01.02.02.03.03.06.01.03.03.02.05.01.03.04.00.01.02.02
T-Q4.05.04.05.03.04.03.03.03.02.04.06.02.02.01.05.02.02.04.06.03.00.02.04.04.03
...............................................................................
TOTA.14.15.12.12.11.12.13.09.09.13.20.10.13.12.21.10.07.13.08.14.08.05.11.16.12

Edited December 2, 2016 by eduardodp

sorel · December 3, 2016

ala EDU, a quantidade é de duplas trincas ou uma somente por linha?

eduardodp · December 3, 2016

5 horas atrás, sorel disse:

ala EDU, a quantidade é de duplas trincas ou uma somente por linha?

das 4 dezenas

eduardodp · December 3, 2016

...DEZENAS MENOR / MAIOR POR QUADRANTE............................................
CONC.01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.TT

1714....02.............12................23....25..........34.35.............45.07
1714....07....09.................................................46....48.......04
1714.51....53..........62...................74..................................04
1714....57.........................76..........80.......88....90................05

1715................11...................23....25..........34.......42.43.......06
1715....07.08.............18.......26...................38....40................06
1715.51...............................72......................85.......93.94....05
1715.......58...................70..................................97..........03

...15 ULTIMOS RESULTADOS..........................................................
QUA1.04.03.02.04.02.04.04.03.04.05.06.01.03.04.06.03.01.04.02.06.03.01.04.06.03...
QUA2.01.03.03.04.02.01.03.03.01.02.06.03.03.06.06.01.02.01.00.03.01.03.02.02.04...
QUA3.05.06.03.01.03.04.02.01.01.02.03.04.05.01.03.03.02.05.01.03.03.00.02.03.02...
QUA4.05.04.05.03.04.03.02.03.02.04.06.02.01.00.05.02.02.03.06.03.00.03.04.03.03...
TOTA.15.16.13.12.11.12.11.10.08.13.21.10.12.11.20.09.07.13.09.15.07.07.12.14.12...

Edited December 3, 2016 by eduardodp

sorel · December 3, 2016

EDU, tem sorteios em que da as 4 dezenas?

sorel · December 3, 2016

ala EDU,

dividir o quadrante em 3 grupos

a=01,02,03,04,05,11,12,13

b=14 15 21 22 23 24 25 31

c=32 33 34 35 41 42 43 44 45

objetivo trincas de uma dezena por grupo, so mente pode haver mais , mas como é para as fixas

uma trinca já esta bom

exemplo= 02 23 45

as vezes nao da trinca, porque so temos fazer em um quadrante( aquele que tem de 6 a 9) capichi

apenas em um quadrante como noa soubemos qual fazer em 4 ediçoes

sorel · December 6, 2016

ala EDU PRECISO DE TUA AJUDA PARA ativar a macro, esta macro

faz semetricamente 5 por colunas e 5 por linhas e no maximo repete uma posiçao das letras

é umtipo de rodas semetricas sem repetir as posiçoes das letras e 4 quadrantes , por favor

Private Sub ShiftRight(arr())
  Dim i As Long, j As Long, v
  For i = 1 To UBound(arr, 1)
      v = arr(i, UBound(arr, 2))
      For j = UBound(arr, 2) To 2 Step -1
          arr(i, j) = arr(i, j - 1)
      Next j
      arr(i, 1) = v
  Next i
End Sub
Private Sub ShiftDown(arr())
  Dim i As Long, j As Long, v
  For j = 1 To UBound(arr, 2)
      v = arr(UBound(arr, 1), j)
      For i = UBound(arr, 1) To 2 Step -1
          arr(i, j) = arr(i - 1, j)
      Next i
      arr(1, j) = v
  Next j
End Sub
Sub Test()
  Dim arrNum(1 To 4), arrLtr(1 To 4), arrTemp1(), arrTemp2(), i As Long, j As Long
  Sheets("Plan1").Select
  arrNum(1) = Range("A1").CurrentRegion.Value: arrLtr(1) = Range("M1").CurrentRegion.Value
  arrNum(2) = Range("G1").CurrentRegion.Value: arrLtr(2) = Range("S1").CurrentRegion.Value
  arrNum(3) = Range("A7").CurrentRegion.Value: arrLtr(3) = Range("M7").CurrentRegion.Value
  arrNum(4) = Range("G7").CurrentRegion.Value: arrLtr(4) = Range("S7").CurrentRegion.Value
  For i = 2 To 4
      arrTemp1 = arrNum(i)
      arrTemp2 = arrLtr(i)
      For j = 2 To i
          ShiftRight arrTemp1: ShiftDown arrTemp1
          ShiftRight arrTemp2: ShiftDown arrTemp2
      Next j
      arrNum(i) = arrTemp1
      arrLtr(i) = arrTemp2
  Next i
  Application.ScreenUpdating = False
    Range("Y1").Resize(5, 5).Value = arrNum(1):  Range("AK1").Resize(5, 5).Value = arrLtr(1)
    Range("AE1").Resize(5, 5).Value = arrNum(2): Range("AQ1").Resize(5, 5).Value = arrLtr(2)
    Range("Y7").Resize(5, 5).Value = arrNum(3):  Range("AK7").Resize(5, 5).Value = arrLtr(3)
    Range("AE7").Resize(5, 5).Value = arrNum(4): Range("AQ7").Resize(5, 5).Value = arrLtr(4)
  Application.ScreenUpdating = True
End Sub

sorel · December 6, 2016

Download

sorel · December 6, 2016

ala edu coloque no mediefire esta é idéia de volantes simetricos e nao jogar nas letras( posiçoes)

ttp://www.mediafire.com/file/gl9dmrmey8s1947/EF1165580b%283%29.xls

sorel · December 6, 2016

ala grande EDUADO DP

tem que ter macros, uma macro cada quadrante
Uma macro para o quadrante verde, uma para o azul, uma para o vermelho e uma para o amarelo = 4 partes
, quando o quadrante verde é uma referência, ou a base, pode repetir as letras dos outros três quadrantes, como mostrado pelo exemplo das bordas realçadas
Quando a referência fixa é o quadrante azul não pode repetir as letras
E assim com os quadrantes vermelhos e amarelos
Temos 4 macros
Outro exemplo = quando a referência base ou fixa é o quadrante 4 (amarelo)
Você não pode repetir as posições das letras do resto, que é o padrão que é desenhado no
Desenhos, não repetindo posições
Em seguida, cinco por linha 10 e 5 por coluna sem repetir as letras do quadrante base
Em cada macro gerar cerca de 300 formações.

esta é a ideia mas ainda noa conseguimos fazer

sorel · December 6, 2016

ala edu agora com quadrante base, e posiçoes noa repetidas das letras e

MONTANDO UM JOGO COM 5 GRUPOS DE DEZ DEZENAS ACIMA,VOCE TERÁ UMA APOSTA COM:

5 DEZ EM CADA COLUNA
5 DEZENA EM CADA LINHA
25 DEZ PARES E 25 DEZENAS IMPARES
25 DEZENAS NA PARTE DE CIMA DO VOLANTE E 25 DEZENAS NA PARTE DE BAIXO
25 DEZENAS NA METADE DO VOLANTE PARA ESQUERDA E 25 PARA DIREITA

sorel · December 6, 2016

se o padrao de nao repetir as letras( tolerancia de ao menos uma posiçao repetidas)

acontecendo o padrao temos ir de encontro, nos volante simetricos

Elétron · December 6, 2016

1 hora atrás, sorel disse:

ala edu agora com quadrante base, e posiçoes noa repetidas das letras e

MONTANDO UM JOGO COM 5 GRUPOS DE DEZ DEZENAS ACIMA,VOCE TERÁ UMA APOSTA COM:

5 DEZ EM CADA COLUNA
5 DEZENA EM CADA LINHA
25 DEZ PARES E 25 DEZENAS IMPARES
25 DEZENAS NA PARTE DE CIMA DO VOLANTE E 25 DEZENAS NA PARTE DE BAIXO
25 DEZENAS NA METADE DO VOLANTE PARA ESQUERDA E 25 PARA DIREITA

Boa tarde, sorel

Eu quero ver quem tem 1 software ou programa que faça esses filtros

Sorel, não tem software ou programa que faço isso :mrgreen:

Jamais desista porque você tá quase chegando lá :-P

Sorte e intuição

Elétron

sorel · December 6, 2016

ahhh, eletron, agora esta sentindo firmeza né!! isto acima vai de encontro aos padroes de saida

nao tem mesmo porque sepode ganhar depois em qualquer parte do mundo,, porque???

bem porque, quando se divide alotomania em 4 quadrante tem a varinaçao de de 2 a 10 dezenas rotacionando dentro, como uma nuvem ( falo de quadrante de mais de 6 a 9 que servirá como base

a unica preocupaçao é se da o padrao o resto vem de acarona 19 e 20 pontos mais o base para matar impoderavel o improvavel esta ai

o que voce achou???/ ahhh!!!

sorel · December 7, 2016

ala edu

Code:
---------
Private Function Comb(r As Long, n As Long)
Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v
For i = 1 To n
c1.Add Array(-1, i)
Next i
While c1.Count
arr = c1(1)
c1.Remove 1
j = UBound(arr)
If j = r Then
c2.Add arr
Else
ReDim Preserve arr(j + 1)
For i = arr(j) + 1 To n
arr(j + 1) = i
c1.Add arr
Next i
End If
Wend
ReDim arr(1 To c2.Count)
ReDim arrTemp(1 To r)
i = 0
For Each v In c2
i = i + 1
For j = 1 To r
arrTemp(j) = v(j)
Next j
arr(i) = arrTemp
Next v
Comb = arr
End Function

Sub Main()
Dim rng As Range, arrTemp(), arr(), arr1(), arr2(), arrComb(1 To 4), isFound As Boolean, v
Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i As Long, j As Long, k As Long

For i = 1 To 4
arrComb(i) = Comb(i, 5)
Next i

Sheets("Plan2").Select
Set rng = Range("A1").CurrentRegion
Rows("12:23").ClearContents
rng.Interior.ColorIndex = 2
arr = rng.Value
ReDim arrTemp(1 To 5)

loop1:
arr1 = arr
For i = 1 To 5
arrTemp(1) = 1: arrTemp(2) = 1: arrTemp(3) = Int(Rnd * 2): arrTemp(4) = 0: arrTemp(5) = 0
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j) = IIf(arrTemp(j) = 1, 1, vbNullString)
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j))
Next i
If k = 0 Or k = 5 Then GoTo loop1
Next j
arr = arr1

loop2:
arr1 = arr
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i, j))
Next j
For j = 1 To k
arrTemp(j) = 0
Next j
For j = k + 1 To 5
arrTemp(j) = 1
Next j
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j + 5) = IIf(arrTemp(j) = 1, 1, vbNullString)
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j + 5))
Next i
If k = 0 Or k = 5 Then GoTo loop2
Next j
arr = arr1

loop3:
arr1 = arr
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j))
Next i
For i = 1 To k
arrTemp(i) = 0
Next i
For i = k + 1 To 5
arrTemp(i) = 1
Next i
For i = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(i)
arrTemp(i) = arrTemp(k)
arrTemp(k) = v
Next i
For i = 1 To 5
arr1(i + 5, j) = IIf(arrTemp(i) = 1, 1, vbNullString)
Next i
Next j
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j))
Next j
If k = 0 Or k = 5 Then GoTo loop3
Next i
arr = arr1

loop4:
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j))
Next j
arrTemp(i) = arrComb(5 - k)
Next i
For i1 = 1 To UBound(arrTemp(1))
For j = 1 To 5
arr1(6, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(1)(i1))
arr1(6, 5 + arrTemp(1)(i1)(j)) = 1
Next j
For i2 = 1 To UBound(arrTemp(2))
For j = 1 To 5
arr1(7, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(2)(i2))
arr1(7, 5 + arrTemp(2)(i2)(j)) = 1
Next j
For i3 = 1 To UBound(arrTemp(3))
For j = 1 To 5
arr1(8, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(3)(i3))
arr1(8, 5 + arrTemp(3)(i3)(j)) = 1
Next j
For i4 = 1 To UBound(arrTemp(4))
For j = 1 To 5
arr1(9, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(4)(i4))
arr1(9, 5 + arrTemp(4)(i4)(j)) = 1
Next j
For i5 = 1 To UBound(arrTemp(5))
For j = 1 To 5
arr1(10, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(5)(i5))
arr1(10, 5 + arrTemp(5)(i5)(j)) = 1
Next j
'=================
isFound = True
For j = 1 To 5
k = 0
For i = 1 To 10
k = k + Val(arr1(i, j + 5))
Next i
If k <> 5 Then
isFound = False
Exit For
End If
Next j
If isFound Then
arr = rng.Value
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
If arr1(i, j) = vbNullString Then arr(i, j) = vbNullString
Next j
Next i
Range("A12").Resize(UBound(arr1, 1), UBound(arr, 2)).Value = arr
ReDim arrTemp(1 To 1, 1 To 101)
k = 0
For i = 1 To 5
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 1 To 5
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
k = k + 1
arrTemp(1, k) = "Total " & k - 1 & " numbers."
Range("A23").Resize(1, k) = arrTemp
Exit Sub
End If
'=================
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
Sub Generate300()
Dim i As Long
With Sheets("Plan3")
.Cells.ClearContents
For i = 1 To 300
Main
Sheets("Plan2").Range("A23").CurrentRegion.Copy .Range("A65000").End(xlUp).Offset(1)
MsgBox "Iteration : " & i
Next i
End With
End Sub

sorel · December 7, 2016

ala EDUARDO,A atençao, a macro é apenas para tipo uma roda simetrica,

NOTA= nao tem nada haver com nosso estudo, que continua claro, é apenas uma macro para gerar

volantes simetricos, ok nao misturar as ideias, nosso projeto segue normal claro!!

Sign In

LOTOMANIA TROCANDO OS DÍGITOS

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members