dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: acho que nesse caso o melhor seria usar BITWISE converte as combinações em digito e compara e depois é só usar bitcount para ver os acertos , usando alguns artificios como o XOR pode facilitar a contagem Muitíssimo obrigado pela colaboração. Talvez isto funcione neste caso... Sinceramente tenho que retomar o assunto, pois a época que estudei tive enorme dificuldade em entender devido minha rejeição a muitas coisas do EXCEL... Talvez atualmente consiga entender melhor. Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: csn 1961256 1 12 13 14 15 16 17 18 19 20 21 22 23 24 25 1144066 1 2 13 14 15 16 17 18 19 20 21 22 23 24 25 646646 1 2 3 14 15 16 17 18 19 20 21 22 23 24 25 352716 1 2 3 4 15 16 17 18 19 20 21 22 23 24 25 184756 1 2 3 4 5 16 17 18 19 20 21 22 23 24 25 92378 1 2 3 4 5 6 17 18 19 20 21 22 23 24 25 43758 1 2 3 4 5 6 7 18 19 20 21 22 23 24 25 19448 1 2 3 4 5 6 7 8 19 20 21 22 23 24 25 8008 1 2 3 4 5 6 7 8 9 20 21 22 23 24 25 3003 1 2 3 4 5 6 7 8 9 10 21 22 23 24 25 1001 1 2 3 4 5 6 7 8 9 10 11 22 23 24 25 286 1 2 3 4 5 6 7 8 9 10 11 12 23 24 25 66 1 2 3 4 5 6 7 8 9 10 11 12 13 24 25 11 1 2 3 4 5 6 7 8 9 10 11 12 13 14 25 817190 1 2 4 6 7 8 9 10 11 15 16 17 20 22 25 497420 1 2 3 5 8 9 11 13 14 17 19 20 21 23 24 293930 1 2 3 4 7 8 10 12 13 15 16 17 19 22 24 167960 1 2 3 4 5 9 10 11 14 15 16 17 18 21 22 92378 1 2 3 4 5 6 17 18 19 20 21 22 23 24 25 48620 1 2 3 4 5 6 8 9 10 16 17 21 22 23 25 24310 1 2 3 4 5 6 7 9 10 16 17 21 22 23 25 11440 1 2 3 4 5 6 7 8 10 13 14 16 17 22 23 5005 1 2 3 4 5 6 7 8 9 11 21 22 23 24 25 2002 1 2 3 4 5 6 7 8 9 10 13 16 17 18 19 715 1 2 3 4 5 6 7 8 9 10 11 15 17 19 20 220 1 2 3 4 5 6 7 8 9 10 11 12 17 20 25 55 1 2 3 4 5 6 7 8 9 10 11 12 13 20 24 Isto é um exemplo do cálculo que você citou no outro Tópico ou é erro na Conversão de CSN para Combinação ? Quote Link to comment Share on other sites More sharing options...
Friaça Posted December 30, 2020 Share Posted December 30, 2020 Só para constar... Essas 41 linhas CSN que estou estudando ( tenho um certo cuidado com elas) pois do jeito que está, consigo reduzir as 3 milhões para cerca de 111 mil linhas 100% com os 15 em um jogo de espera. Primeiro. Um jogo de espera não pode ppde ter isso tudo de linhas, poissó o Bill Gates poderia apostar algo assim. Segundo. Consigo reduzir para 50 mil com 98%, mas ainda não é favorável. Minha ideia seria ter umas 10 linhas CSN qualquer com melhor desempenho e talvez essas 10 linhas tivessem 2 entre si em cada um das 41 linhas, onde se tem pelo menos 1 ponto. Depois usaria o modo de cruzamento dessas linhas para diminuir esse universo das 3 milhões para um arquivo final com garantia para o futuro. 1 Quote Link to comment Share on other sites More sharing options...
Omesmo Posted December 30, 2020 Share Posted December 30, 2020 1 minuto atrás, dois disse: Isto é um exemplo do cálculo que você citou no outro Tópico ou é erro na Conversão de CSP para Combinação ? esse seria um exemplo de saida do csn dentro de uma faixa de deslocamento, como falei são como triagulos "exemplo besta" o fato é que com simples matematica vc pode modificar a combinação em lugares específicos de outra combinação sobre filtrar usando o csn vc pode usar o mesmo artificio vc pode pegar a combinação que vc quer filtrar e ir direto para a linha csn dela e pegar o conjunto a parti dos calculos se for menos de 15 dezenas vc pode o menor csn ou criar todas as combinações possíveis contendo essas dezenas e filtrar as linhas pelo csn diretamente , para isso aconselho usar um banco de dados 1 Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: so, vc pode transformar os filtros em binarios tbm , fica muito mais rapido Isto também é com BITWISE? Quote Link to comment Share on other sites More sharing options...
Omesmo Posted December 30, 2020 Share Posted December 30, 2020 1 minuto atrás, dois disse: Isto também é com BITWISE? sim, em vez de fazer loop em cada dezena vezes cada dezena de cada linha só se faz uso do AND para ver quais bit 1 são iguais e conta quantos ficou m falar em conversor de csn vi esse aqui agora 1 Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Friaça disse: Só para constar... Essas 41 linhas CSN que estou estudando ( tenho um certo cuidado com elas) pois do jeito que está, consigo reduzir as 3 milhões para cerca de 111 mil linhas 100% com os 15 em um jogo de espera. Primeiro. Um jogo de espera não pode ppde ter isso tudo de linhas, poissó o Bill Gates poderia apostar algo assim. Segundo. Consigo reduzir para 50 mil com 98%, mas ainda não é favorável. Minha ideia seria ter umas 10 linhas CSN qualquer com melhor desempenho e talvez essas 10 linhas tivessem 2 entre si em cada um das 41 linhas, onde se tem pelo menos 1 ponto. Depois usaria o modo de cruzamento dessas linhas para diminuir esse universo das 3 milhões para um arquivo final com garantia para o futuro. SE o wata e o Dixiejoe entenderem, podem te ajudar gigantescamente nisto. Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: esse seria um exemplo de saida do csn dentro de uma faixa de deslocamento, como falei são como triagulos "exemplo besta" o fato é que com simples matematica vc pode modificar a combinação em lugares específicos de outra combinação sobre filtrar usando o csn vc pode usar o mesmo artificio vc pode pegar a combinação que vc quer filtrar e ir direto para a linha csn dela e pegar o conjunto a parti dos calculos se for menos de 15 dezenas vc pode o menor csn ou criar todas as combinações possíveis contendo essas dezenas e filtrar as linhas pelo csn diretamente , para isso aconselho usar um banco de dados É um estudo muitíssimo interessante, mas infelizmente atualmente só posso mesmo é deixar registrado para talvez retomar futuramente. Quote Link to comment Share on other sites More sharing options...
Friaça Posted December 30, 2020 Share Posted December 30, 2020 4 minutos atrás, dois disse: SE o wata e o Dixiejoe entenderem, podem te ajudar gigantescamente nisto. Sim... Já mandei uma MP para o Dixie e estou no aguardo de sua resposta. Vamos ver. Por hora continuo nas atualizações dos dados da planilha. Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: Questão (1) sim, em vez de fazer loop em cada dezena vezes cada dezena de cada linha só se faz uso do AND para ver quais bit 1 são iguais e conta quantos ficou Questão (2) m falar em conversor de csn vi esse aqui agora Questão (1) Vou retornar a estas funcionalidades pra ver se consigo entender. Questão (2) Note que é uma Function, mas não sei se é ou não via Força-bruta. Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Friaça disse: Sim... Já mandei uma MP para o Dixie e estou no aguardo de sua resposta. Vamos ver. Por hora continuo nas atualizações dos dados da planilha. O ideal é considerar primeiramente os conhecimentos do wata assim você saberá definir melhor o que deseja e o que precisa para o Dixie Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, Omesmo disse: acho que nesse caso o melhor seria usar BITWISE converte as combinações em digito e compara e depois é só usar bitcount para ver os acertos , usando alguns artificios como o XOR pode facilitar a contagem Agora, dois disse: Muitíssimo obrigado pela colaboração. Talvez isto funcione neste caso... Sinceramente tenho que retomar o assunto, pois a época que estudei tive enorme dificuldade em entender devido minha rejeição a muitas coisas do EXCEL... Talvez atualmente consiga entender melhor. Agora estou confuso... me parece que já havia visto algo no EXCEL .. Quote Link to comment Share on other sites More sharing options...
dois Posted December 30, 2020 Author Share Posted December 30, 2020 Agora, dois disse: Agora estou confuso... me parece que já havia visto algo no EXCEL .. Está explicado https://support.microsoft.com/en-us/office/bitand-function-8a2be3d7-91c3-4b48-9517-64548008563a BITAND function Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel for the web Excel 2019 Excel 2016 Excel 2019 for Mac Excel 2013 Excel 2016 for Mac Quote Link to comment Share on other sites More sharing options...
Wata Posted December 31, 2020 Share Posted December 31, 2020 Alguém já conseguiu fazer um conferidor que trabalhe somente com o CSN? Por exemplo, dado um determinado CSN como saber quantas dezenas em comum esse CSN tem com outro CSN? Existe isso? ... Uma coisa importante , já cheguei a receber mensagens me "criticando" (indiretamente, ou pelo menos foi o que eu entendi) sobre não querer ajudar com "meu conhecimento" ...... em determinados assuntos... (isso foi no passado... nem tem nada a ver com esse tópico/assunto específico...)... A verdade é que eu sou só mais um zé-ninguém (sem ofenças...) labutando aqui...... Pra ser sincero mesmo, ás vezes eu paro e me pergunto se não estou perdendo minha vida nisso... Fico pensando se não sou só mais um LINEU, tentando fazer a roda girar... (é sério... assistam o filme KENOMA, e vão entender......). Enfim... eu não tenho nenhum conhecimento em programação. Tudo que eu faço é ficar fuçando no que eu acho, pra ver se atende minhas necessidades... CSN eu nunca me aprofundei... pode ter alguma coisa aí que ajude por as idéias em prática... ou não...... Aqui uma função para ser criada no EXCEL, para converter o CSN na sequência de dezenas: Function csntocomb(csn As Double, n As Integer, r As Integer) Dim a(15) As Single Dim K Dim X Dim I csn = Round(WorksheetFunction.Combin(n, r), 0) - csn K = n + 1 For I = r To 1 Step -1 Do K = K - 1 If K >= I Then X = Round(WorksheetFunction.Combin(K, I), 0) Else X = 0 End If Loop Until X <= csn csn = Round(csn, 0) - X a(r - I + 1) = n - K csntocomb = csntocomb & a(r - I + 1) & " " Next I End Function Como isso funciona eu não sei... Eu sei que em algum momento, em algum lugar (quase com 100% de certeza nesse fórum) eu peguei isso... e está funcionando aqui. Ajuda, e muito, a converter o CSN para a sequência de dezenas. Pra ganhar $$$$ nunca me ajudou em nada ...... É só entrar com a fórmula =csntocomb(A1;25;15) e pronto... Se alguém tiver um conferidor de CSN, por favor, coloque aqui. ... Quote Link to comment Share on other sites More sharing options...
Friaça Posted December 31, 2020 Share Posted December 31, 2020 É uma idéia bacana @Wata. Também busco algo assim, ou por aí mesmo. O problema que não encontramos nada que atenda nesse ponto, pois acho que muitos acham isso de CSN muito complexo para se estudar. Ultimamente tenho conversado com alguns colegas aqui no fórum e estou entusiasmado com minhas ideias malucas....kkkk...lol. Procuro desesperadamente um software que me mostre as linhas com melhor desempenho baseado em pesos descrita pelo usuário, tipo O programa do nosso grande amigo Dixie...que por fim só trabalha com linhas da lotofacil normal. 1 Quote Link to comment Share on other sites More sharing options...
Wata Posted December 31, 2020 Share Posted December 31, 2020 Esta é outra fórmula do EXCEL, que converte a sequência de 15dz. no seu respectivo CSN: =COMBIN(25;15)-SE(25-B1<15;0;COMBIN(25-B1;15))-SE(25-C1<15-1;0;COMBIN(25-C1;15-1))-SE(25-D1<15-2;0;COMBIN(25-D1;15-2))-SE(25-E1<15-3;0;COMBIN(25-E1;15-3))-SE(25-F1<15-4;0;COMBIN(25-F1;15-4))-SE(25-G1<15-5;0;COMBIN(25-G1;15-5))-SE(25-H1<15-6;0;COMBIN(25-H1;15-6))-SE(25-I1<15-7;0;COMBIN(25-I1;15-7))-SE(25-J1<15-8;0;COMBIN(25-J1;15-8))-SE(25-K1<15-9;0;COMBIN(25-K1;15-9))-SE(25-L1<15-10;0;COMBIN(25-L1;15-10))-SE(25-M1<15-11;0;COMBIN(25-M1;15-11))-SE(25-N1<15-12;0;COMBIN(25-N1;15-12))-SE(25-O1<15-13;0;COMBIN(25-O1;15-13))-SE(25-P1<15-14;0;COMBIN(25-P1;15-14)) ... Quote Link to comment Share on other sites More sharing options...
Omesmo Posted December 31, 2020 Share Posted December 31, 2020 1 hora atrás, Wata disse: Alguém já conseguiu fazer um conferidor que trabalhe somente com o CSN? Por exemplo, dado um determinado CSN como saber quantas dezenas em comum esse CSN tem com outro CSN? Existe isso? infelizmente isso tbm teria que ser feito matematicamente, e tbm teria loop nas varias formulas matematicas a maneira mais rapida de se conferir acertos é o BITWISE 1 Quote Link to comment Share on other sites More sharing options...
Hiran Habiff Posted January 1, 2021 Share Posted January 1, 2021 3 horas atrás, Wata disse: Alguém já conseguiu fazer um conferidor que trabalhe somente com o CSN? Por exemplo, dado um determinado CSN como saber quantas dezenas em comum esse CSN tem com outro CSN? Existe isso? ... Uma coisa importante , já cheguei a receber mensagens me "criticando" (indiretamente, ou pelo menos foi o que eu entendi) sobre não querer ajudar com "meu conhecimento" ...... em determinados assuntos... (isso foi no passado... nem tem nada a ver com esse tópico/assunto específico...)... A verdade é que eu sou só mais um zé-ninguém (sem ofenças...) labutando aqui...... Pra ser sincero mesmo, ás vezes eu paro e me pergunto se não estou perdendo minha vida nisso... Fico pensando se não sou só mais um LINEU, tentando fazer a roda girar... (é sério... assistam o filme KENOMA, e vão entender......). Enfim... eu não tenho nenhum conhecimento em programação. Tudo que eu faço é ficar fuçando no que eu acho, pra ver se atende minhas necessidades... CSN eu nunca me aprofundei... pode ter alguma coisa aí que ajude por as idéias em prática... ou não...... Aqui uma função para ser criada no EXCEL, para converter o CSN na sequência de dezenas: Function csntocomb(csn As Double, n As Integer, r As Integer) Dim a(15) As Single Dim K Dim X Dim I csn = Round(WorksheetFunction.Combin(n, r), 0) - csn K = n + 1 For I = r To 1 Step -1 Do K = K - 1 If K >= I Then X = Round(WorksheetFunction.Combin(K, I), 0) Else X = 0 End If Loop Until X <= csn csn = Round(csn, 0) - X a(r - I + 1) = n - K csntocomb = csntocomb & a(r - I + 1) & " " Next I End Function Como isso funciona eu não sei... Eu sei que em algum momento, em algum lugar (quase com 100% de certeza nesse fórum) eu peguei isso... e está funcionando aqui. Ajuda, e muito, a converter o CSN para a sequência de dezenas. Pra ganhar $$$$ nunca me ajudou em nada ...... É só entrar com a fórmula =csntocomb(A1;25;15) e pronto... Se alguém tiver um conferidor de CSN, por favor, coloque aqui. ... Boa noite, sou analista e desenvolvedor de sistemas, não sei se entendi corretamente, mas o que vc está querendo é algo tipo: Dezenas sorteadas: 2-3-5-6-9-10-11-13-14-16-18-20-23-24-25 Dentro dessas 15 dezenas sorteadas, você quer saber por exemplo as combinações possíveis de 9 dezenas que tiveram melhores desempenho histórico. é para isso ? Ou seria algo tipo: Das "Dezenas sorteadas", você quer todas as combinações possíveis que possuam 9 dezenas existentes em "Dezenas sorteadas" ? Ambas as forma são na verdade simples de se fazer, porém, precisa de trabalhar com um banco de dados Mysql ao menos para efetuar o cruzamento de dados. (caso precise de dados sobre desempenho histórico) 1 1 Quote Link to comment Share on other sites More sharing options...
Wata Posted January 1, 2021 Share Posted January 1, 2021 5 horas atrás, Hiran Habiff disse: Boa noite, sou analista e desenvolvedor de sistemas, não sei se entendi corretamente, mas o que vc está querendo é algo tipo: Dezenas sorteadas: 2-3-5-6-9-10-11-13-14-16-18-20-23-24-25 Dentro dessas 15 dezenas sorteadas, você quer saber por exemplo as combinações possíveis de 9 dezenas que tiveram melhores desempenho histórico. é para isso ? Ou seria algo tipo: Das "Dezenas sorteadas", você quer todas as combinações possíveis que possuam 9 dezenas existentes em "Dezenas sorteadas" ? Ambas as forma são na verdade simples de se fazer, porém, precisa de trabalhar com um banco de dados Mysql ao menos para efetuar o cruzamento de dados. (caso precise de dados sobre desempenho histórico) Obrigado. Não é isso. O que eu gostaria de saber é se, dado dois CSN é possível saber, sem ter a necessidade de saber quais dezenas compõe cada CSN, quantas dezenas são comuns aos dois CSN. Por exemplo, dado os CSN 1 e 2: _ na LOTOFÁCIL eles tem 14dz. em comum; _ na MEGA-SENA tem 5dz. em comum; _ na QUINA tem 4dz. em comum; ... 1 Quote Link to comment Share on other sites More sharing options...
Hiran Habiff Posted January 1, 2021 Share Posted January 1, 2021 9 horas atrás, Wata disse: Obrigado. Não é isso. O que eu gostaria de saber é se, dado dois CSN é possível saber, sem ter a necessidade de saber quais dezenas compõe cada CSN, quantas dezenas são comuns aos dois CSN. Por exemplo, dado os CSN 1 e 2: _ na LOTOFÁCIL eles tem 14dz. em comum; _ na MEGA-SENA tem 5dz. em comum; _ na QUINA tem 4dz. em comum; ... A tá, bem mais simples então 1 Quote Link to comment Share on other sites More sharing options...
Omesmo Posted January 1, 2021 Share Posted January 1, 2021 15 horas atrás, Hiran Habiff disse: Ambas as forma são na verdade simples de se fazer, porém, precisa de trabalhar com um banco de dados Mysql ao menos para efetuar o cruzamento de dados. (caso precise de dados sobre desempenho histórico) eu estava pensando em usar um banco de dados access para compor todas as combinações da loto facil e colocar as características de cada linha para fazer filtragens mais facilmente o processo pode ser feito por vba , inicialmente seria lento para montar o banco de dados, mas depois o processo seria bem mais tranquilo em colocar novas características de cada combinação, podendo se usar e trazer facilmente as combinações filtradas para o excel sabe me dizer se o access suporta as 3mlhoes de linhas x umas 100 colunas sem perder a agilidade ? Quote Link to comment Share on other sites More sharing options...
dois Posted January 1, 2021 Author Share Posted January 1, 2021 É motivador ver que atualmente está se falando mais em BD, cuja necessidade sinto há décadas. Naquela época eu #MeVirava conforme comentei (vide no spoiler Exemplo que postei no Tópico). O trecho inicial do programa principal para a LOTOFACIL (evidentemente que substituí por ******** algumas informações por motivos óbvios) também mostra minha maneira de gerenciar "características" e que continuo utilizando sempre que considero mais adequado. Spoiler *=============================================================================* * Programa..: GUILOTOF.PRG (APOSTAS de LOTOFACIL DA CEF) * * Finalidade: GERAR, CONFERIR volantes da LOTOFACIL * * 1a. Compilacao...: 06/12/1999 / Clipper Summer'87 * * Foi alterado.....: 18/01/2004 * * 11/04/2005 rotinas GUILFOU * * * * Observa‡äes......: mversao = "Ltda" controla versao DEMO ou oficial. * * * *=============================================================================* clear set date brit set century on set wrap on set confirm on set message to 24 mversao = "Ltda" &&controla versao DEMO ou oficial. mversao = "********" marqvnc = "GLF-????.VNC" milegal = "N" if .not. file("C:\********\********\*.GGG") milegal = "S" do naotem @ 24,0 say " " do GQUIT RETURN endif SELECT 1 USE LF-RESUL zap appe from LF-RESUL.txt sdf index on GLFR_RESUL to GUILFRES ****resultados do éLTIMO concurso declare zdzsorte[15] go bottom mlixo = GLFR_RESUL multimoso = val(left(mlixo,4)) mdtsortei = ctod(subst(mlixo,6,10)) declare zcoringas[25] afill(zcoringas,0) **** q1- significa que a dezena est no QUADRANTE 1 **** l01- significa que a dezena est na LINHA 1 **** c01- significa que a dezena est na COLUNA 1 **** is- significa que a dezena ‚ IMPAR **** ms- significa que a dezena est DENTRO DA MOLDURA **** H01- significa que a dezena est no QUADRANTE HORIZONTAL 1 **** V01- significa que a dezena est no QUADRANTE VERTICAL 1 **** ge1- significa que a dezena est no GRUPO ESPECIAL 1 *** 00000000011111111112222222222333333333344 *** 123456789.123456789.123456789.123456789.1 *** q?-l01-c01-is-ms-H01-V01-ge1-" declare ziddezena[25] ziddezena[01] = "q?-l01-c01-is-ms-H01-V01-ge1-" ziddezena[02] = "q?-l01-c02-in-ms-H01-V02-ge2-" ziddezena[03] = "q?-l01-c03-is-ms-H01-V03-ge3-" ziddezena[04] = "q?-l01-c04-in-ms-H01-V04-ge2-" ziddezena[05] = "q?-l01-c05-is-ms-H01-V05-ge1-" ziddezena[06] = "q?-l01-c06-in-ms-H02-V01-ge4-" ziddezena[07] = "q?-l01-c07-is-mn-H02-V02-ge5-" ziddezena[08] = "q?-l01-c08-in-mn-H02-V03-ge6-" ziddezena[09] = "q?-l01-c09-is-mn-H02-V04-ge5-" ziddezena[10] = "q?-l01-c10-in-ms-H02-V05-ge4-" ziddezena[11] = "q?-l02-c01-is-ms-H03-V01-ge3-" ziddezena[12] = "q?-l02-c02-in-mn-H03-V02-ge6-" ziddezena[13] = "q?-l02-c03-is-mn-H03-V03-ge6-" ziddezena[14] = "q?-l02-c04-in-mn-H03-V04-ge6-" ziddezena[15] = "q?-l02-c05-is-ms-H03-V05-ge3-" ziddezena[16] = "q?-l02-c06-in-ms-H04-V01-ge4-" ziddezena[17] = "q?-l02-c07-is-mn-H04-V02-ge5-" ziddezena[18] = "q?-l02-c08-in-mn-H04-V03-ge6-" ziddezena[19] = "q?-l02-c09-is-mn-H04-V04-ge5-" ziddezena[20] = "q?-l02-c10-in-ms-H04-V05-ge4-" ziddezena[21] = "q?-l03-c01-is-ms-H05-V01-ge1-" ziddezena[22] = "q?-l03-c02-in-ms-H05-V02-ge2-" ziddezena[23] = "q?-l03-c03-is-ms-H05-V03-ge3-" ziddezena[24] = "q?-l03-c04-in-ms-H05-V04-ge2-" ziddezena[25] = "q?-l03-c05-is-ms-H05-V05-ge1-" set color to W+/gr+ @ 01,00 clear to 00,79 @ 01,00 say " uso exclusivo: ******** & AMIGOS APOSTAS DA LOTOFACIL "; + dtoc(date()) + " "+ left(time(),5) set color to master = "G" nld = 10 x = 0 macho = 0 mcor = "" do senha if x > 3 do gquit endif if mversao = "Ltda" if lastrec() > 5 @ 3,0 clear set color to w+/r+ @ 10,10 say space(60) @ 11,10 say space(60) @ 12,10 say space(11) + "Esta e' uma versƒo de DEMONSTRA€ƒO"; + space(11) @ 13,10 say space(11) + "opera‡ƒo NƒO autorizada para arquivos"; + space(11) @ 14,10 say space(11) + "com mais de 5 (CINCO) registros."; + space(17) @ 15,10 say space(60) @ 16,10 say space(60) set color to mmensa = 'Pressione Alguma tecla' eximensa(22,0,24,79, 23,"s",mmensa, 80,"s",0,"s") do GQUIT RETURN endif endif @ 02,00 clear mopcao = 1 do while .t. mmensa = "Use TECLAS-SETAS + [ENTER] ou o N£mero para selecionar a fun‡ƒo" eximensa(02,0,24,79, 23,"s",mmensa, 80,"s",0.01,"s") set color to W+/gr+ @ 04,00 clear to 04,79 @ 03,00 to 05,79 double @ 04,01 prompt " 1-> Gerar volantes " @ 04,21 prompt " 2-> Conferir volantes " @ 04,44 prompt " 3-> FREQUÒNCIA/ATRASO " @ 04,67 prompt " 4-> Outros " menu to mopcao set color to do case case mopcao = 1 **** do GUILFGV do NAOTEM case mopcao = 2 do GUILFCF case mopcao = 3 do GUILFFA case mopcao = 4 do GUILFOU case mopcao = 0 mmensa = "Deseja realmente sair do programa ? " if confirma("s",23,1,mmensa) = "S" do GQUIT endif endcase enddo RETURN Quote Link to comment Share on other sites More sharing options...
dois Posted January 1, 2021 Author Share Posted January 1, 2021 18 horas atrás, Wata disse: Esta é outra fórmula do EXCEL, que converte a sequência de 15dz. no seu respectivo CSN: =COMBIN(25;15)-SE(25-B1<15;0;COMBIN(25-B1;15))-SE(25-C1<15-1;0;COMBIN(25-C1;15-1))-SE(25-D1<15-2;0;COMBIN(25-D1;15-2))-SE(25-E1<15-3;0;COMBIN(25-E1;15-3))-SE(25-F1<15-4;0;COMBIN(25-F1;15-4))-SE(25-G1<15-5;0;COMBIN(25-G1;15-5))-SE(25-H1<15-6;0;COMBIN(25-H1;15-6))-SE(25-I1<15-7;0;COMBIN(25-I1;15-7))-SE(25-J1<15-8;0;COMBIN(25-J1;15-8))-SE(25-K1<15-9;0;COMBIN(25-K1;15-9))-SE(25-L1<15-10;0;COMBIN(25-L1;15-10))-SE(25-M1<15-11;0;COMBIN(25-M1;15-11))-SE(25-N1<15-12;0;COMBIN(25-N1;15-12))-SE(25-O1<15-13;0;COMBIN(25-O1;15-13))-SE(25-P1<15-14;0;COMBIN(25-P1;15-14)) ... Muitíssimo obrigado (caso eu não tenha agradecido anteriormente, mas SE já o fiz, reitero). Na minha opinião esta é a melhor Estrutura para esta Fórmula... Será que dá para #Enxugar via Matricial? Quote Link to comment Share on other sites More sharing options...
dois Posted January 1, 2021 Author Share Posted January 1, 2021 19 horas atrás, Wata disse: Alguém já conseguiu fazer um conferidor que trabalhe somente com o CSN? Por exemplo, dado um determinado CSN como saber quantas dezenas em comum esse CSN tem com outro CSN? Existe isso? ... Uma coisa importante , já cheguei a receber mensagens me "criticando" (indiretamente, ou pelo menos foi o que eu entendi) sobre não querer ajudar com "meu conhecimento" ...... em determinados assuntos... (isso foi no passado... nem tem nada a ver com esse tópico/assunto específico...)... A verdade é que eu sou só mais um zé-ninguém (sem ofenças...) labutando aqui...... Pra ser sincero mesmo, ás vezes eu paro e me pergunto se não estou perdendo minha vida nisso... Fico pensando se não sou só mais um LINEU, tentando fazer a roda girar... (é sério... assistam o filme KENOMA, e vão entender......). Enfim... eu não tenho nenhum conhecimento em programação. Tudo que eu faço é ficar fuçando no que eu acho, pra ver se atende minhas necessidades... CSN eu nunca me aprofundei... pode ter alguma coisa aí que ajude por as idéias em prática... ou não...... Aqui uma função para ser criada no EXCEL, para converter o CSN na sequência de dezenas: Function csntocomb(csn As Double, n As Integer, r As Integer) Dim a(15) As Single Dim K Dim X Dim I csn = Round(WorksheetFunction.Combin(n, r), 0) - csn K = n + 1 For I = r To 1 Step -1 Do K = K - 1 If K >= I Then X = Round(WorksheetFunction.Combin(K, I), 0) Else X = 0 End If Loop Until X <= csn csn = Round(csn, 0) - X a(r - I + 1) = n - K csntocomb = csntocomb & a(r - I + 1) & " " Next I End Function Como isso funciona eu não sei... Eu sei que em algum momento, em algum lugar (quase com 100% de certeza nesse fórum) eu peguei isso... e está funcionando aqui. Ajuda, e muito, a converter o CSN para a sequência de dezenas. Pra ganhar $$$$ nunca me ajudou em nada ...... É só entrar com a fórmula =csntocomb(A1;25;15) e pronto... Se alguém tiver um conferidor de CSN, por favor, coloque aqui. ... Muitíssimo obrigado pela colaboração. Pretendo fazer isso sem Macro através da Fórmula publicada no wikipédia, você tem alguma experiência ou opinião ? Quote Link to comment Share on other sites More sharing options...
dois Posted January 1, 2021 Author Share Posted January 1, 2021 Em 30/12/2020 em 19:41, dois disse: Conforme está explicado lá no Tópico, criei uma rotina de Força-bruta que processa até encontrar uma Matriz Condicionada 25-15-11-15=30 de Melhor Desempenho, ou seja, uma Matriz HISTÓRICA. O Termo Matriz Condicionada significa que a Montagem das 30 Linhas/Combinações está Condicionada ao Método sudoku do @KSMG que gera 15 Linhas/Combinações horizontais e 15 verticais. Minha Esperança é que fosse rápido fechar todos os Concursos com 30 Linhas/Combinações, pois com o software do DixieJoe deve fechar em +-20 Linhas/Combinações, por isso fiz uma rotina apenas semi-automatizada que a cada Matriz Condicionada 25-15-11-15=30 de Melhor Desempenho, interrompe o processamento e me #Avisa. Desta forma eu salvo a Matriz atual e inicio um novo processamento... Então, atualmente, significa que no processamento atual foram conferidas 123.982 Matriz Condicionada 25-15-11-15=30 de Melhor Desempenho em 2117 Concursos, sendo que encontrou uma de apenas 25 Concursos não fechados dentre os 2117 Concursos analisados E permanece assim até o mais recente Concurso, o 2119. Agora, aproveitando o assunto CSN; Note que utilizando-se DEZENAS temos o seguinte cálculo das iterações: A = 30 Linhas/Combinações B = 15 Dezenas cada Linha/Combinação C = 2117 Concursos analisados D = 123.982 Processamentos A * B * C * D = 30 * 15 * 2117 * 123.982 = 118.111.452.300 Já o Projeto CSN pretende utilizar CSN como índice para ser o mais próximo possível de: A = 30 Linhas/Combinações B = 1 índice cada Linha/Combinação C = 2117 Concursos analisados D = 123.982 Processamentos A * B * C * D = 30 * 1 * 2117 * 123.982 = 7.874.096.820 Conclusão pretendida de reduzir para apenas 6,66667% (se possível, menos) e ainda encontrar outros FILTROS. ... com o software do DixieJoe deve fechar em +-20 Linhas/Combinações ... Spoiler 01-02-03-04-05-07-10-11-13-17-18-20-23-24-25 01-04-08-09-10-11-12-13-14-15-16-19-20-21-22 03-04-05-06-07-12-13-15-16-17-19-21-22-24-25 01-02-03-06-07-09-10-12-14-15-17-18-19-22-23 02-05-06-09-10-11-14-16-18-19-20-21-23-24-25 01-02-03-05-07-08-11-13-14-15-18-20-21-22-24 02-04-06-08-09-10-12-13-16-17-18-20-22-24-25 01-03-05-06-08-10-11-12-14-15-17-19-23-24-25 02-04-05-06-07-08-09-11-12-13-15-17-18-21-23 01-02-03-04-06-07-09-14-16-19-20-21-22-23-25 01-05-07-08-09-10-11-13-14-16-17-18-19-22-24 03-04-05-07-08-09-10-14-15-16-20-22-23-24-25 01-02-03-04-05-11-12-14-15-16-17-18-19-20-21 03-06-07-08-09-10-11-14-17-18-19-20-21-23-24 01-02-06-07-11-12-13-15-16-19-20-22-23-24-25 01-02-03-04-05-06-08-09-12-13-14-16-21-22-24 01-06-07-08-09-10-12-13-15-16-17-18-21-24-25 02-03-05-06-08-09-10-11-12-13-16-18-19-22-25 02-04-07-08-09-11-13-14-15-16-17-20-21-22-23 01-03-05-07-09-10-11-12-14-15-16-19-20-21-24 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.