Existe relação entre os 150 volantes premiados com 14 pontos ?

[DixieJoe]

@luiz.antonio 

 

Se você filtrar (no próprio Excel, por enquanto), a primeira coluna - com o CSN do primeiro premio de 14, usando, no filtro, os valores menores do que 5000, vai encontrar 40 sorteios nos 1708.

 

O que achei interessante (como ponto inicial de pesquisa e estudo novo) é que as DIFERENÇAS NAS COLUNAS 8 e 9 costumam ser muito parecidas.

Predominância para 5005, 8008 na coluna 8, por exemplo. Na coluna 9 também vai ter poucos valores que vem "junto" com 5005 e 8008 na coluna 8.

 

Agora é tentar prever o sorteio onde o primeiro de 14 vai estar abaixo de 5000 e com isso, localizar outros conjuntos usando as diferenças até a coluna  8 e 9. 

 

Depois, tentar fazer uma rotina que consiga todos os outros de 14 com base em poucos conjuntos.

 

Meio complicado, sei disso. E pode demorar até 100 sorteios para ocorrer esse tipo de previsão.

 

Mas acho que é uma idéia a ser ampliada.

[Sphgf]

Bom dia a todos,

Esse tópico merece pesquisa e respostas, só tenho comentários..

@luiz.antonio   você já conhece o tal combinadic* (comentado desde 2009 !!)

Penso que uma alternativa seja verificar os valores do combinadic para ver se estes valores apresentam algum padrão.

A questão do csn é que no caso do cartões de 14 pontos, há apenas 1 dezena diferente, mas a POSIÇÃO em relação aos 3 milhões de combinações ocorre de forma NÃO LINEAR.

 

Naquela época troquei e-mails com o James McCaffrey (inventor do internet explorer) que orientou usar o combinadic para facilitar o cálculo do csn.

 

Uma pista seria verificar se há valores idênticos x repetitivos* do combinadic em variados casos.

 

[]

 

Notebook[{

Cell[CellGroupData[{
Cell["\<\
 
ClearAll[]
\"Total de numeros\";         TN=10;
\"N\[UAcute]meros por cartao\";       A=5;
\"Garantia Pretendida\";      G=1;
\"Condi\[CCedilla]\[ATilde]o de Acerto\";       CT=4;
\"Qtd de cartoes\";           Qtd=4;
\"Fra\[CCedilla]ao Inicial\";           F=1/2;

\"Distrib Hypergeom\";        \
Passo=Binomial[TN,A]/(1/(Binomial[TN-A,CT-G]*Binomial[A,G]/Binomial[TN,CT]));
\"Primeiro cartao\";          H=(Binomial[TN,A]*F-(Passo*Qtd/2));
Index={TN,A,G,CT}
Passo={Passo}
H={H}
Table[Passo*j+H, {j, Qtd-1}]

 n=10;
 k=5;
 
 
stmp=OpenWrite[\"Combinacao10em5.txt\"];
SetOptions[stmp, PageWidth->360];
Write[stmp, Do[Print[csn=Binomial[n,5]-i+1;

c1=If[Binomial[n-1,5]<csn,n-1,
            If[Binomial[n-2,5]<csn,n-2,
            If[Binomial[n-3,5]<csn,n-3,
            If[Binomial[n-4,5]<csn,n-4,
            If[Binomial[n-5,5]<csn,n-5,
            4]]]]];

c2=If[Binomial[c1-1,4]<csn-Binomial[c1,5],c1-1,
             If[Binomial[c1-2,4]<csn-Binomial[c1,5],c1-2,
             If[Binomial[c1-3,4]<csn-Binomial[c1,5],c1-3,
             If[Binomial[c1-4,4]<csn-Binomial[c1,5],c1-4,
             If[Binomial[c1-5,4]<csn-Binomial[c1,5],c1-5,
             3]]]]];

c3=If[Binomial[c2-1,3]<csn-Binomial[c1,5]-Binomial[c2,4],c2-1,
                 If[Binomial[c2-2,3]<csn-Binomial[c1,5]-Binomial[c2,4],c2-2,
                 If[Binomial[c2-3,3]<csn-Binomial[c1,5]-Binomial[c2,4],c2-3,
                 If[Binomial[c2-4,3]<csn-Binomial[c1,5]-Binomial[c2,4],c2-4,
                 If[Binomial[c2-5,3]<csn-Binomial[c1,5]-Binomial[c2,4],c2-5,
                 2]]]]];
 
   
c4=If[Binomial[c3-1,2]<csn-Binomial[c1,5]-Binomial[c2,4]-Binomial[c3,3],c3-1,
                     If[Binomial[c3-2,2]<csn-Binomial[c1,5]-Binomial[c2,4]-\
Binomial[c3,3],c3-2,
                     If[Binomial[c3-3,2]<csn-Binomial[c1,5]-Binomial[c2,4]-\
Binomial[c3,3],c3-3,
                     If[Binomial[c3-4,2]<csn-Binomial[c1,5]-Binomial[c2,4]-\
Binomial[c3,3],c3-4,
                     If[Binomial[c3-5,2]<csn-Binomial[c1,5]-Binomial[c2,4]-\
Binomial[c3,3],c3-5,
                     1]]]]];

c5=If[Binomial[c4-1,1]<csn-Binomial[c1,5]-Binomial[c2,4]-Binomial[c3,3]-\
Binomial[c4,2],c4-1,
                         If[Binomial[c4-2,1]<csn-Binomial[c1,5]-Binomial[c2,4]\
-Binomial[c3,3]-Binomial[c4,2],c4-2,
                         If[Binomial[c4-3,1]<csn-Binomial[c1,5]-Binomial[c2,4]\
-Binomial[c3,3]-Binomial[c4,2],c4-3,
                         If[Binomial[c4-4,1]<csn-Binomial[c1,5]-Binomial[c2,4]\
-Binomial[c3,3]-Binomial[c4,2],c4-4,
                         If[Binomial[c4-5,1]<csn-Binomial[c1,5]-Binomial[c2,4]\
-Binomial[c3,3]-Binomial[c4,2],c4-5,
                         0]]]]];

 

cartao={n-c1,n-c2,n-c3,n-c4,n-c5}];cartao>>>\"Combinacao10em5.txt\",{i,6,252,\
60}]];
Close[stmp];\
\>", "Input",
  PageWidth->Infinity,
  InitializationCell->True,
  ShowSpecialCharacters->False],

Cell[BoxData[
    \({10, 5, 1, 4}\)], "Output"],

Cell[BoxData[
    \({60}\)], "Output"],

Cell[BoxData[
    \({6}\)], "Output"],

Cell[BoxData[
    \({{66}, {126}, {186}}\)], "Output"],

Cell[BoxData[
    \({1, 2, 3, 4, 10}\)], "Print"],

Cell[BoxData[
    \({1, 3, 4, 7, 8}\)], "Print"],

Cell[BoxData[
    \({1, 7, 8, 9, 10}\)], "Print"],

Cell[BoxData[
    \({2, 5, 6, 8, 10}\)], "Print"],

Cell[BoxData[
    \({4, 7, 8, 9, 10}\)], "Print"]
}, Open  ]]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 800}, {0, 517}},
AutoGeneratedPackage->Automatic,
WindowSize->{792, 483},
WindowMargins->{{0, Automatic}, {Automatic, 0}}
]

 

[]

 

O código acima já conhecido da maioria, vai calcular c1, c2, c3 ,c4 e c5 (que são os combinadic's) e a partir dai apresentar a combinação.

 

Num cartão de 15 dezenas SE 14 são idênticas e apenas 1 eh diferente talvez alguns valores do triângulo de pascal ocorram com maior freqüência.

 

Há variados papéis disponíveis na web, penso que talvez o que você procura já tenha sido construído, bastaria apenas encontrar a pista, veja este paper japonês apesar de ser direcionado para partições de hardware faz referência a outros papeis que podem te levar ou não a solução da questão...

 

https://ajc.maths.uq.edu.au/pdf/65/ajc_v65_p152.pdf

 

Não tenho a resposta que o tópico merece, penso que esta resposta que vc quer renderia uma bela tese de doutorado em matemática avançada !!

 

saudações,

 

Sphgf

 

 

 

 

[Sphgf]

Há alguns anos atrás, me recomendaram uma série de livros lógico-filosóficos que confesso não os li.

 

O objetivo sempre melhorar o entendimento para ter novas idéias e a partir dai tentar construir as ferramentas.

 

Quem quiser a sugestão (procure na biblioteca do libgen):

 

Math Without Numbers: The Mathematics of Ideas - Vol.1 Foundations

William Veatch

 

[]

“Book One” of the Math Without Numbers series comes in three
Volumes:
 Volume 1 – Foundations (i.e., this book),
 Volume 2 – Critical Thinking and Logic; the Logic of Lattices
(expected in 2017), and
 Volume 3 – Applied Math Without Numbers (MWN) –
Argumentation, Debate, and Policy Making (expected in 2017).
The central theme of this Volume 1 is that we can apply the mathematics
of Set Theory to explain “how” we think; we cannot, however, use
mathematics to determine “what” to think. We use Set Theory to explain
not only the form in which we make valid arguments, which we refer to as
“Logic,” but also to explain the way in which we create, store, and retrieve
knowledge, which we refer to as “Knowledge Representation.” As a result,
our discussion of Math Without Numbers, or “MWN” for short, is much
more than just a study of Logic, which is an enormous undertaking in itself,
but it also provides a methodology for us to map the knowledge of the World
of Ideas in a systematic way. At least, we show how such a mapping could
be accomplished.

[]

 

Há óbvio outros recomendados como:

Mathematics without Numbers - Towards a Modal-Structural Interpretation . Geoffrey Hellman

 

saudações,

 

Sphgf

[luiz.antonio]

Boa Tarde !

 

Em continuação foi feito o seguinte:

 

1) Arquivo CNF remontado com os CSN's de todos os premios de 14 e 15 pontos SUBSTITUINDO OS VALORES DE ESPAÇOS nas colunas do arquivo anterior

2) Geração de grupos de CSN de 1000 em 1000 até 3268760 e pesquisando em todas as linhas, nesse caso, só foi computado uma única ocorrência por linha

gerando um arquivo com os resultados apurados.

Ex.

do csn 1000 até 1999 foi encontrado em 19 linhas

do csn 2000 até 2999 foi encontrado em 19 linhas

do csn 3000 até 3999 foi encontrado em 11 linhas....no arquivo simplesmente aparecerá "1000 - 1999 = 19"

 

Os arquivos envolvidos nesse novo passo estão disponiveis na área de downloads com o nome de CNF 2.

 

Paz e prosperidade.

Luiz

Edited September 12, 2018 by luiz.antonio

[DixieJoe]

@luiz.antonio 

 

Só pra ficar claro e pra ver se estou acompanhando seu raciocínio.

 

O número 19 após a faixa, por exemplo vai indicar quantas vezes tivemos ACERTOS DE 14 OU 15, correto?

 

 

[luiz.antonio]

Boa Tarde DixieJoe !

 

No exemplo citado o 19 representa a quantidade de linhas (resultados) em que o range de CSN esta presente....resumindo....do CSN 1000 até 1999 nas 1708 linhas com 151 colunas somente 19 delas teve no minimo 1 desses csn's em uma ou mais colunas (Lembrando que só foi computado uma ocorrência por linha)

 

Paz e prosperidade.

 

[luiz.antonio]

O Pensamento resultante é....."Se na maioria dos casos comparados teve  8 (minimo)  e  46 (máximo) de presença o que aconteceu com o resto ?"

 

Usando novamente o exemplo do range 1 (1000 a 1999) que teve 19 presenças o que acontece nas outras 1689 linhas ?

 

É justamente isso que estou procurando agora.

 

Paz e prosperidade.

Edited September 14, 2018 by luiz.antonio

[Sphgf]

Bom dia,

existe a página do Warrior6 que fornece alguns dados, de repente ajuda nalgum insight ...

 

https://sites.google.com/site/warrior6/loterias-pensamentos-aleatorios

 

Esse tópico remete a questionamento antigo datado de 2010 para a lista lógica1 que pelo visto ainda está sem resposta por lá...

 

https://www.mail-archive.com/logica-l@dimap.ufrn.br/msg02449.html

 

saudações,

 

Sphgf