All Activity

This stream auto-updates     

  1. Past hour
  2. Today
  3. Sphgf

    [PEDIDO] MATRIZES ECONOMICAS

    @Yusuke Sim. Pense que as 80 dezenas foram separadas em 3 grupos ( 20 fixas ou em comum nos dois cartões ) e 30 dezenas não comuns ou sem repetição em cada cartão. Na pior hipótese sendo sorteados 20 dezenas pode ocorrer: A = 20 dezenas --> 0 acertos B = 30 dezenas --> 10 acertos C = 30 dezenas --> 10 acertos Cartão 1: A + B = 50 dezenas = 10 acertos; Cartão 2: A + C = 50 dezenas = 10 acertos; Para conseguir mais do que 10 acertos qdo houver 20 sorteadas nas 80, tem que haver desequilíbrio de acertos nos grupos de 30 dezenas e óbvio acertar algumas dezenas fixas. O interessante desta montagem é que se pode rotacionar de 2 em 2 cartões alternando os grupos de 30 e 20 dezenas !! Ou seja pode-se inserir variados palpites. saudações, Sphgf
  4. Yesterday
  5. Na realidade, pelo que eu soube, se você tentar realizar uma compra internacional on-line, a operação é automaticamente cancelada. Eu resolvi pesquisar sobre a questão do câmbio e, especificamente, sobre o envolvimento das casas lotéricas. Pelo que entendi, não é qualquer lotérica que presta o serviço e não sei se há um valor mínimo. Segue o resultado: http://www.leasingabel.com.br/noticias/correios-e-lotericas-podem-fazer-cambio/ "A partir de hoje, as agências do Correios e as casas lotéricas poderão trocar moeda estrangeira em transações de até US$ 3 mil, desde que sejam contratados como correspondentes cambiais por alguma instituição financeira. Elas já eram autorizadas pelo Banco Central (BC) a fazer pequenas remessas de recursos para o exterior, mas não podiam operar o chamado câmbio manual." https://www.bcb.gov.br/pre/bc_atende/port/mercCam.asp "5. Que operações podem ser realizadas no mercado de câmbio? Quaisquer pagamentos ou recebimentos em moeda estrangeira podem ser realizados no mercado de câmbio, inclusive as transferências para fins de constituição de disponibilidades no exterior e seu retorno ao País e aplicações no mercado financeiro. As pessoas físicas e as pessoas jurídicas podem comprar e vender moeda estrangeira ou realizar transferências internacionais em reais, de qualquer natureza, sem limitação de valor, observada a legalidade da transação, tendo como base a fundamentação econômica e as responsabilidades definidas na respectiva documentação. Embora do ponto de vista cambial não exista restrição para a movimentação de recursos, os agentes do mercado e seus clientes devem observar eventuais restrições legais ou regulamentares existentes para determinados tipos de operação [...]" https://www.bcb.gov.br/pre/bc_atende/port/envRecMoeEst.asp "1. Como faço para enviar recursos para o exterior ou para receber recursos do exterior em moeda estrangeira? Você deve se dirigir a agente autorizado a operar no mercado de câmbio, que pode ser banco, caixa econômica, sociedade corretora ou sociedade distribuidora de títulos e valores mobiliários, corretoras de câmbio ou, ainda, correspondente cambial de uma dessas instituições, e apresentar a documentação que lhe for solicitada para a realização da operação de câmbio [...] O agente deve lhe informar os procedimentos necessários, além do Valor Efetivo Total (VET), que considera a taxa de câmbio, o Imposto sobre Operações Financeiras (IOF) e as tarifas eventualmente cobradas na operação [...]" https://www.bcb.gov.br/pre/bc_atende/port/correspondentes.asp "1. O que são os correspondentes no País? Os correspondentes são empresas contratadas por instituições financeiras e demais instituições autorizadas pelo Banco Central para a prestação de serviços de atendimento aos clientes e usuários dessas instituições. Entre os correspondentes mais conhecidos encontram-se as lotéricas e o banco postal. As próprias instituições financeiras e demais autorizadas a funcionar pelo Banco Central podem ser contratadas como correspondente. 2. Que serviços os correspondentes podem oferecer? [...] i.2. execução ativa ou passiva de ordem de pagamento relativa a transferência unilateral do ou para o exterior limitada ao valor equivalente a US$ 3 mil dólares dos Estados Unidos por operação [...]"
  6. FÁBIO Rio Grande rs

    USANDO ESPELHO MUITO BOM

    Acho que entendi agora! VAMOS NOS AJUDAR PARA O 1920 VOU COM ESSAS DEZENAS PARA ERRAR: 03 09 10 11 12 15 18 21 22 23 27 28 29 32 34 39 41 45 48 54 58 60 62 63 68 72 76 77 80 81 82 85 88 91 98 Sem medo de errar, vamos ver qual a margem de acerto.
  7. Esporte

    JOGAR PARA GANHAR 15PONTOS!

    1739: 01 02 03 04 05 07 09 13 14 16 18 19 20 22 01 02 03 04 05 07 09 13 14 16 18 19 20 25
  8. Esporte

    Lucrando com 14 dezenas

    1739: 02 04 06 12 16 18 22 02 10 12 14 16 20 22 03 08 11 15 17 21 23 04 06 10 14 18 20 24 01 05 07 09 13 19 25 Temos aqui a garantia de 5 acertos em pelo menos uma destas linhas de 7 dezenas. Sendo assim se nas 15 acertar as 15 dezenas ficaremos assim: 1739: 01 02 03 04 05 07 09 13 14 16 18 19 20 22 25 15 acertos 02 04 06 12 16 18 22 5 acertos 02 10 12 14 16 20 22 5 acertos 03 07 15 17 19 23 25 4 acertos 04 06 10 14 18 20 24 1 acertos 01 05 08 09 11 13 21 7 acertos Bem mas se nesta configuração de 15, obter apenas 01 02 03 04 05 07 09 13 14 16 18 19 20 22 25 09 acertos temos apenas 3 acertos 100% garantidos 2 acerto(s) de 2 ponto(s) 3 acerto(s) de 3 ponto(s) com a maior possibilidade, que nos trariam 18 com 12 e 13 acertos.
  9. @Zangado Pode ser uma possibilidade sim, sem contar que facilmente dá para eliminar umas 200 linhas apenas criando mais alguns FOR... Também a possibilidade de criar umas 2 funções de retorno, onde quantidade de linhas diminui.
  10. worlddelete1

    LM jogos a partir dos concursos anteriores.

    kkkkkk chutar macumba e pegar maços de cigarros não influenciam em nada hahaha, posso afirmar pois sou religioso na área oculta hahaha
  11. von4843

    EXPERIÊNCIA COM 19 DEZENAS

    Resultado Conc.1738: 01 03 06 09 10 13 14 17 18 19 20 21 22 23 24 1737 – 1738 – 1739 – 1740 Desempenho. 2° Round 02 05 06 07 11 12 13 14 17 19 20 21 22 23 25---9 Acertos 05 11 17 23--------------------2 02 06 12 14 19 20 25-------4 07 13 21 22--------------------3 01 04 09 15 01 04 09 18-----3 01 04 15 18 01 09 15 18-----3 04 09 15 18 03 08 10 16 03 08 10 24---3 03 08 16 24 08 10 16 24 03 10 16 24---3 No plantio direto não houve retorno, máximo 10 pts. Em uma pequena safrinha alguns vestígios de 11 pts usando 19 Dzs. @Julio cezar Rocha Brito mercado externo está aquecido, más estou estocando nos armazéns esperando melhor cotação dos grãos.
  12. fernandes

    pedido 15-13-8-10 ? jogos

    VAMOS TENTAR ENTENDER NOS DOIS CONCURSO ENTROU 7 E 8 DEZENAS DE 1 A 15 ENTÃO SUA MATRIZ BAIXOU PARA 6 E 5 DEZENAS COM AS ESCOLHAS CERTAS PONTUAÇÃO DE 11 E 12 PONTOS MAIS RETORNO A FALAR O CICLO E CONTINUO A QUANTIDADE DE DEZENAS VAI SUBIR MAIS ELA VAI DESCER TAMBEM E SO ANALISAR A MATRIZ DAI E ,ELA E OTIMA E SO OBSERVAR RESUMINDO TUDO E ESCOLHA OU SEJA 11 PONTOS OU 15 PONTOS TUDO E ESCOLHA (DEZENAS CERTEIRAS) NA MINHA VISÃO PASSAR 2 SOMENTE 2 DEZENAS PARA INVERSAS E MAIS FACIL NA MINHA VISÃO PODE SER QUE PARA OUTROS NÃO SEJA resultado 1738 maximo 7 dezenas 1-3-6-9-10-13-14 resultado 1737 maximo 8 dezenas 2-4-5-6-10-11-12-15
  13. FCO10

    USANDO ESPELHO MUITO BOM

    Julio, ainda não consegui achar as estrelas nessa bandeira. Poderia postar os grupos em modo editável tbm please?
  14. fernandes

    pedido 15-13-8-10 ? jogos

    kkkkkk NADA DE MISSÃO IMPOSIVEL Realmente DIFICIL MAIS NÃO IMPOSIVEL as dezenas tem uma lacuna de tempo de repetência creio que 2 sorteios e quase certo pode ser ate mais ex a dezena 6 entrou no 1736 no sorteio 1737 (6-10) MINHA APOSTA ERA A DEZENA 10 E A DEZENA 6 COMO REPETENCIA foi a que PASSEI PARA AS INVERSAS e a dezena (1) TAVA FORA NO 1736 E NO 1737 ELA NÃO DEMORARIA PARA RETORNAR ENTÃO NA MINHA VISÃO FICOU FACIL VER A LACUNA (1-6-10) CREIO QUE A 6 SAI FORA NO PROCIMO SORTEIO NO 1739 E FICA SO AS DEZENAS (1E A 10) MAIS DEPENDER DE QUANTAS DEZENAS FOR SORTEADAS ATE 15 MAIS MEUS CAROS AMIGOS DEU CERTO POR ISSO QUE POSTEI PARA O PROCIMO SORTEIO, FICO COM AS DEZENAS (1-10) DEZENA ( 6 ) FORA MAIS ELA PODE TEIMAR EM VIR MAIS FICO COM AS DEZENAS (1-10) PARA INVERSAS
  15. FCO10

    USANDO ESPELHO MUITO BOM

    @FÁBIO Rio Grande rs Fala Fábio. Então, é um pouco trabalhoso, mas é mais ou menos assim: tomo por base os último 100 concursos e vejo quais linhas ainda não zeraram.Esse é o primeiro passo. Depois pego o último sorteio mais suas inversas (aqui entra a dica das inversas que vc irá verificar) que dá em torno de 36 dz. Faço um batimento entre as linhas que ainda não zeraram com essas 36 de modo a excluir essas 36 do meio das sequencias de 20. Então aquelas linhas que sobraram com mais dz utilizarei para um novo batimento do meu esquema de 66. Só que este método não é 100% e ainda nã consegui chegar em 30 dz, empaca na velha barreira de 3 pontos.. não sei se consegui explicar pq é meio que visual, mas qq coisa pergunte, talvez juntando nossos métodos nos ajude. No seu desdobre no cologa ficam quantas linhas de 35 fixas? devem ser perto de 100, certo?
  16. FÁBIO Rio Grande rs

    USANDO ESPELHO MUITO BOM

    Só lembrando as 35 são fixas.
  17. FÁBIO Rio Grande rs

    USANDO ESPELHO MUITO BOM

    Boa tarde! Julio Cesar Tudo bem com você? Olha não sou bom com reduções, até porque não estudei isso, mas se eu descobrir alguma coisa que possa te ajudar eu falo. No momento estou jogando para errar, com o uso de planilhas acompanhando as tendências das dezenas. Obrigado por expor suas formulas aqui toda dica é bem vinda!!! abraço.
  18. FCO10

    LM jogos a partir dos concursos anteriores.

    @PARAFUSO se eu fosse vc, msm não acreditando, iria em algum grupo religioso pra uma oração ou reza "de desencanto"..quem sabe essas brincadeiras qdo novo não tenham msm influenciado na sua vida? não sou muito místico ou religioso, mas em algumas coisas acredito, como energia, vibração, por aí vai..
  19. FÁBIO Rio Grande rs

    USANDO ESPELHO MUITO BOM

    Boa tarde! FCO10 Tudo bem com você? Primeiro muito obrigado pela dica, vou analisar essa dica preciosa! Olha só eu não sei se entendi bem sua pergunta, mas vou lhe dar uma dica importante para errar: Primeiro quando for montar seu grupo de dezenas para erra Não utilize as dezenas do ultimo sorteio porque sempre vem de 3,4, 5 dezenas. Se você não jogou e veio 6 dezenas repetidas isso sera ótimo para você, porque só vai precisar errar 14 dezenas Como eu havia lhe falado dezenas com 2 e 3 concursos em atraso são muito perigosas, outra coisa aquelas dezenas que estão a mais de 10 sorteios atrasadas, se tiver umas 6 em atraso não utilize todas, no máximo 3 dezenas para unir ao seu grupo. Não sei como você está utilizando suas dezenas para errar, se puder me falar posso tentar lhe ajudar, no meu caso esto escolhendo 35 ou 36 dezenas das 80 que vão ficar de fora do sorteio e jogando um desdobramento no cologa com as 35 fixas em 15 cartões com espelho. Até mais, braço e bons jogos!
  20. FÁBIO Rio Grande rs

    USANDO ESPELHO MUITO BOM

    Boa tarde! Amigo Parafuco Tudo bem por ai? Espero que sim. No momento estou utilizando essas 43 dezenas somente como teste, no concurso 1888 essas 43 dezenas pegaram 14 acertos e como eu vinha jogando um desdobramento no cologa completando mais 07 dezenas em vários cartões, cheguei a pegar 17x 15pontos e 4 x 16 pontos. Eu estou jogando em parceria com Aguimetal e estamos utilizando planilhas para acompanhar os resultados, isso melhorou muito nossos jogos. No concurso 1918 acertei um cartão com 17 pontos e no 1919 um com 15 pontos. Estou jogando para errar escolho 35 dezenas das 80 que não vão sair e faço um desdobramento de 15 cartões com espelho no cologa, na maquina eu não faço mais porque a maquina não faz um desdobramento perfeito. Se precisar de algo da um alô, abraço. MATRIX 43 CONCURSO:1888 02 04 06 09 10 11 12 14 16 20 23 26 32 36 38 40 42 44 46 48 50 53 55 58 60 61 62 63 66 68 70 73 74 76 77 78 85 88 91 93 95 98 99
  21. Zangado

    Baixar resultados da loteria Dia de Sorte

    @Rany se for pensar bem a sua estrategia pode ser mais segura a longo prazo do que a minha se tiver mudança minima da pagina a minha tem que refazer completamente a sua estrategia provavelmente apenas pequenos trechos , fora que a minha tem loops entrelaçados que fica dificil acompanhar a logica
  22. San

    10 AUSENTES...!

    1739: 01 02 07 09 14 16 17 20 21 23 04 06 07 09 10 16 18 20 22 23
  23. ola zangado( brabo) esta macro alem de gerar aleatorio, gera 5 por linha e 5 por coluna que é que esta ocoreendo em 92% 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
  24. @Fábio da Silva isso não é uma formula é uma macro pq não tenta essa planilha?
  25. Olá, baixei recentemente uma fórmula para gerar números aleatórios no vba para Lotomania mas a mesma gera combinações repetidas. Alguém saberia me dizer qual o problema da fórmula. Abaixo a fórmula. Sub test() Dim Numjogos As Long Dim NumDezenas As Integer Numjogos = 1048576 'Número jogos NumDezenas = 50 'N dezenas Dim Li As Long Li = 1 ' Na linha 1 For i = 1 To Numjogos Jogo_Time Li, NumDezenas Li = Li + 1 Next i Sheets(1).Select End Sub Sub Jogo_Time(Linha, qtde) 'Randomize Timer a = qtde 'quantidade de dezenas c = 100 'limite de 1 a 100 de dezenas s = 1 'Na coluna 1 For i = 0 To 99 'Valores ou variaveis do tipo Sigle são armazenadas como números IEEE de vírgula flutuante de 32 bits (4 bytes) 'São números com casas decimais ou fracionados Ex: 0,25333 'Função "Rnd" Retorna um Single que contém um número aleatório podendo ser positivo ou negativo . If Rnd <= a / c Then a = a - 1 Cells(Linha, s) = i s = s + 1 End If c = c - 1 Next i End Sub Sub tes() Agradeço qualquer ajuda.
  26. Boa Tarde

     

    Qualquer duvida entre em contato

     

    Saudações

  27. RobSmith

    Geometria e natureza no Jogo de Bicho

    Conferencia 18.11.2018 PTM-RJ - 11:20 Cabra 1°8.122 06 2°5.062 16 3°7.932 08.....Matriz Certeira 023789 4°8.731 08 5°9.797 25
  28. Yusuke

    [PEDIDO] MATRIZES ECONOMICAS

    Ñ entendi... se colocar as 20 nas 80 só consegue 10 pontos?
  1. Load more activity