Jump to content

[OPINIÃO] Usar o CSN ajuda ou atrapalha


dois

Recommended Posts

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.

 

Link to comment
Share on other sites

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 ?

 

Link to comment
Share on other sites

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.

 

  • Like 1
Link to comment
Share on other sites

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 

  • Like 1
Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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 :blink:..:blink:

 

Link to comment
Share on other sites

Agora, dois disse:

 

 

Agora estou confuso... me parece que já havia visto algo no EXCEL :blink:..:blink:

 

 

 

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
 
 
Link to comment
Share on other sites

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" ...:lol::lol::lol::lol:... 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...:shock:...

 

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...:cry:...).

 

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...:P...

 

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 ...:lol:...

É só entrar com a fórmula  =csntocomb(A1;25;15)  e pronto...

 

 

Se alguém tiver um conferidor de CSN, por favor, coloque aqui.

 

8-)

...

Link to comment
Share on other sites

É 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.

 

 

  • Like 1
Link to comment
Share on other sites

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))

 

8-)

...

Link to comment
Share on other sites

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

  • Like 1
Link to comment
Share on other sites

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" ...:lol::lol::lol::lol:... 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...:shock:...

 

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...:cry:...).

 

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...:P...

 

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 ...:lol:...

É só entrar com a fórmula  =csntocomb(A1;25;15)  e pronto...

 

 

Se alguém tiver um conferidor de CSN, por favor, coloque aqui.

 

8-)

...

 

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)

  • Like 1
  • Thanks 1
Link to comment
Share on other sites

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;

 

😎

...

  • Thanks 1
Link to comment
Share on other sites

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

  • Like 1
Link to comment
Share on other sites

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 ?

Link to comment
Share on other sites

É 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

 

 

Link to comment
Share on other sites

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))

 

8-)

...

 

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?

 

Link to comment
Share on other sites

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" ...:lol::lol::lol::lol:... 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...:shock:...

 

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...:cry:...).

 

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...:P...

 

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 ...:lol:...

É só entrar com a fórmula  =csntocomb(A1;25;15)  e pronto...

 

 

Se alguém tiver um conferidor de CSN, por favor, coloque aqui.

 

8-)

...

 

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 ?

 

Link to comment
Share on other sites

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

 

LF 601 dois - Matriz 25-15-11-15=20 Melhor Desempenho até o Concurso 2121.JPG

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...