sorel Posted December 1, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 1, 2016 Share Posted 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) Quote Link to comment Share on other sites More sharing options...
sorel Posted December 1, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 2, 2016 Share Posted 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 5602 07 52 57 03 08 53 58 04 09 54 59 05 10 55 60 11 16 61 6612 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 7925 30 75 80 31 36 81 86 32 37 82 87 33 38 83 88 34 39 84 8935 40 85 90 41 46 91 96 42 47 92 97 43 48 93 98 44 49 94 99 45 50 95 00 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 2, 2016 Share Posted 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 5602 07 52 57 03 08 53 58 04 09 54 59 05 10 55 60 11 16 61 6612 17 62 67 13 18 63 68 14 19 64 69 15 20 65 70 21 26 71 76 22 27 72 7723 28 73 78 24 29 74 7925 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 9844 49 94 99 45 50 95 00 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 2, 2016 Share Posted 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 5602 07 52 57 03 08 53 58 04 09 54 59 05 10 55 60 11 16 61 6612 17 62 67 13 18 63 68 14 19 64 69 15 20 65 70 21 26 71 76 22 27 72 7723 28 73 78 24 29 74 7925 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 9844 49 94 99 45 50 95 00 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 2, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
eduardodp Posted December 2, 2016 Share Posted December 2, 2016 (edited) ...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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 2, 2016 Share Posted December 2, 2016 boa esta sistema de por em linha os quadrantes da menor e maior, da pra ver por coluna, beleza EDU Quote Link to comment Share on other sites More sharing options...
eduardodp Posted December 2, 2016 Share Posted December 2, 2016 (edited) 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 3, 2016 Share Posted December 3, 2016 ala EDU, a quantidade é de duplas trincas ou uma somente por linha? Quote Link to comment Share on other sites More sharing options...
eduardodp Posted December 3, 2016 Share Posted December 3, 2016 5 horas atrás, sorel disse: ala EDU, a quantidade é de duplas trincas ou uma somente por linha? das 4 dezenas Quote Link to comment Share on other sites More sharing options...
eduardodp Posted December 3, 2016 Share Posted December 3, 2016 (edited) ...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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 3, 2016 Share Posted December 3, 2016 EDU, tem sorteios em que da as 4 dezenas? Quote Link to comment Share on other sites More sharing options...
sorel Posted December 3, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted December 6, 2016 Download Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted December 6, 2016 ala grande EDUADO DP tem que ter macros, uma macro cada quadranteUma 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çadasQuando a referência fixa é o quadrante azul não pode repetir as letrasE assim com os quadrantes vermelhos e amarelosTemos 4 macrosOutro 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 noDesenhos, não repetindo posiçõesEm seguida, cinco por linha 10 e 5 por coluna sem repetir as letras do quadrante baseEm cada macro gerar cerca de 300 formações. esta é a ideia mas ainda noa conseguimos fazer Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
Elétron Posted December 6, 2016 Author Share Posted 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 Jamais desista porque você tá quase chegando lá Sorte e intuição Elétron Quote Link to comment Share on other sites More sharing options...
sorel Posted December 6, 2016 Share Posted 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!!! Quote Link to comment Share on other sites More sharing options...
sorel Posted December 7, 2016 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
sorel Posted December 7, 2016 Share Posted 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!! 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.