estrazioni con indice di ciclo 15

[FABIO60]

Buona domenica a tutti.

Esplorazione domenicale: estrazioni con indice di ciclo

Il ciclo naturale dell' estratto è 18 estrazioni, dividendo le estrazioni

della ruota Nazionale (a partire inderogabilmente dal 4-5-2005)

in cilci di 18 estrazioni e assegnando

in progressione ad ogni estrazione del ciclo un "indice" da 1 a 18,

al 27-12-2016 dopo 1818 estrazioni, abbiamo:

101 estrazioni (1818 diviso 18) con "indice" 1

101 estrazioni con "indice" 2

......
......

101 estrazioni con "indice" 18

Dal 29-12-2016 al 28-1-2017 le estrazioni con "indice" da 1 a 14 sono passate

da 101 a 102 estrazioni.

La prossima estrazione sarà di "indice" 15.

come si può verificare anche con il seguente script:

Sub Main()
'Prossimo indice estrazione ciclo- ruota Nazionale
range = EstrazioneFin - 7439
indice = range Mod 18
Scrivi "indice prossima estrazione al " & DataEstrazione(EstrazioneFin)
Scrivi indice + 1,1
End Sub


Con quest'altro script invece ricaviamo le 101 estrazioni di "indice" 15:


Sub Main()
r = 12
indice = 15
ini = 7440
a = EstrazioneFin
ii =(a + 1 - ini) Mod 18
i = a - ii - 1
For es = ini To i Step 18
c = c + 1
Scrivi FormatSpace(c,4) & DataEstrazione(es + indice - 1) & "|" & StringaEstratti(es + indice - 1,r) & "|"
Next
If indice = ii Or indice < ii Then
Scrivi FormatSpace(c + 1,4) & DataEstrazione(i + indice + 1) & "|" & StringaEstratti(i + indice + 1,r) & "|"
End If
End Sub




In queste 101 estrazioni precedenti di "indice" 15 è la situazione statistica riguardo

le presenze dei 90 numeri è la seguente:

Num..Freq...Ult.sortit
----------------------
20 11 11.09.2014
61 11 14.07.2016
30 10 14.07.2016
59 10 06.10.2016
22 10 17.11.2016
55 10 06.10.2016
45 10 17.12.2015
82 10 25.08.2016
18 9 03.06.2016
65 9 17.12.2015
83 9 16.08.2012
54 9 06.10.2016
37 8 15.01.2015
24 8 17.11.2016
27 8 15.01.2015
23 8 23.10.2014
17 8 19.06.2014
8 8 26.02.2015
44 8 20.12.2012
67 8 24.09.2015
69 8 17.11.2016
19 8 02.07.2015
33 7 21.05.2015
53 7 08.05.2014
32 7 17.12.2015
70 7 06.10.2016
50 7 28.01.2016
11 7 06.10.2016
49 7 03.06.2016
4 7 03.06.2016
5 7 05.11.2015
90 7 17.11.2016
35 7 21.05.2015
12 7 10.03.2016
79 6 23.10.2014
6 6 27.03.2014
26 6 06.06.2013
42 6 17.12.2015
46 6 14.07.2016
66 6 17.11.2016
56 6 02.07.2015
86 6 29.08.2013
87 6 23.10.2014
21 6 21.04.2016
58 6 04.12.2014
75 6 18.03.2010
78 6 10.03.2016
39 6 21.05.2015
73 6 10.03.2016
60 5 27.09.2012
10 5 02.07.2015
16 5 26.02.2015
57 5 27.10.2011
1 5 14.07.2016
14 5 27.09.2012
36 5 10.10.2013
41 5 03.06.2016
84 4 24.09.2015
68 4 05.11.2015
77 4 02.09.2010
76 4 04.12.2014
2 4 21.04.2016
25 4 06.06.2013
13 4 16.08.2012
29 4 31.07.2014
9 4 23.10.2014
28 4 12.05.2011
80 4 25.08.2016
31 4 20.12.2012
47 4 28.01.2016
62 4 21.04.2016
63 4 05.07.2012
15 3 24.09.2015
40 3 26.04.2013
3 3 05.11.2015
89 3 27.03.2014
71 3 21.04.2016
34 3 10.03.2016
85 3 10.10.2013
88 2 03.06.2016
81 2 26.04.2013
74 2 12.11.2009
43 2 12.05.2011
72 2 26.04.2013
51 1 06.06.2013
7 1 21.02.2008
38 0 -
64 0 -
48 0 -
52 0 - ​

38.64.48.52 sono a frequenza 0

Saluti

 

[oracolotto]

Buongiorno FABIO60, sempre originali ed interessanti le tue ricerche !!!
Oracolotto

 

[vincenzo4221]

Ciao mi associo al pensiero di Oracolotto , manca comunque il terzo script per trovare le frequenze.

 

[FABIO60]

Vi ringrazio oracolotto e vincenzo per l' incoraggiante apprezzamento ,

posto lo script per le frequenze che però su Spaziometria non funziona

 'Script per l8+ (su spaziometria non funziona)
'Gaussiana delle Frequenze By Joe modificato da fabio60
Sub Main()
    Dim Nu(1),SF(90)
    Dim e(1)
    indice = 15
    ini = 7440
    a = EstrazioneFin
    ii = a Mod 18
    i = a -(ii + 1)
    For es = ini To(ini + i) Step 18
        R = 12
        Mx = 0
        For N = 1 To 90 : Nu(1) = N
            For p = 1 To 5
                e(1) = Estratto(es + indice - 1,r,p)
                If n = e(1) Then SF(n) = SF(n) + 1
            Next
            If Mx =< SF(N) Then Mx = SF(N)
        Next
    Next
    For Q = 0 To MX
        ColoreTesto 0
        If Q = 0 Then ColoreTesto 2
        Scrivi "Freq=" & Format2(Q) & " -> ",0,0
        For N = 1 To 90
            If SF(N) = Q Then Scrivi Format2(N) & " ",0,0
        Next
        Scrivi
    Next
End Sub

 

[jp4]

Condivido il pensiero di oracolotto e vincenzo sull'originalità delle ricerche
mi ricordano qualcuno...

in pratica si gioca ogni indice ogni 18 estrazioni. e questi sono i centenari della nazionale del ciclo 15
38 64 48 52
notare che il 52 è presente anche nella sestina delle posizioni 1/6
37 52 68 81 47 19 in buon ritardo per ambo

 

[FABIO60]

n pratica si gioca ogni indice ogni 18 estrazioni. e questi sono i centenari della nazionale del ciclo 15
38 64 48 52

Giusto!

Come si può verificare con il sottostante script

che dà le frequenze di tutti i 18 indici nei 101 cicli conclusi,

in tutto i numeri a freq. 0 negli altri 17 indici sono solo 2 .


------------------------------- indice 1

Freq=00 -> 90
Freq=01 -> 06 44 70
Freq=02 -> 01 07 18 30 60
Freq=03 -> 26 28 58 68 79 84
Freq=04 -> 05 10 15 32 38 40 48 51 54 65 73 77 80 86
Freq=05 -> 02 03 16 35 37 56 66 72 78 87 89
Freq=06 -> 11 14 20 24 34 36 41 50 52 55 57 67 69 71 83
Freq=07 -> 08 12 13 22 23 29 39 45 46 47 49 53 59 61 62 63 64 82
Freq=08 -> 04 19 27 31 33 42 81 85 88
Freq=09 -> 21 25 43
Freq=10 -> 09 74 75 76
Freq=11 ->
Freq=12 ->
Freq=13 -> 17

------------------------------- indice 18

Freq=00 -> 87
Freq=01 -> 33
Freq=02 -> 31 40 74 77 88
Freq=03 -> 10 48 55 62 69
Freq=04 -> 09 12 13 16 20 21 22 24 36 43 47 59 61 63 73 78 79 84
Freq=05 -> 02 15 27 35 37 42 44 56 57 82
Freq=06 -> 05 06 08 14 18 19 29 32 41 49 50 53 54 60 65 67 70 72 76 80 85
Freq=07 -> 01 11 17 23 39 46 75 90
Freq=08 -> 03 04 07 25 26 30 34 45 51 52 58 64 66 68 81 83 89
Freq=09 -> 71
Freq=10 -> 28 38 86

 'Script per l8+ (su spaziometria non funziona)
'Gaussiana delle Frequenze By Joe modificato da fabio60
Sub Main()
    Dim Nu(1),SF(90)
    Dim e(1)
    R = 12
    ini = 7440
    a = EstrazioneFin
    ii = a Mod 18
    i = a -(ii + 1)
    For indice = 1 To 18
        Scrivi "------------------------------- indice " & indice
        Scrivi
        Mx = 0
        Erase SF
        For es = ini To(ini + i) Step 18
            For N = 1 To 90 : Nu(1) = N
                For p = 1 To 5
                    e(1) = Estratto(es + indice - 1,r,p)
                    If n = e(1) Then SF(n) = SF(n) + 1
                Next
                If Mx = < SF(N) Then Mx = SF(N)
            Next
        Next
        For Q = 0 To MX
            ColoreTesto 0
            If Q = 0 Then ColoreTesto 2
            Scrivi "Freq=" & Format2(Q) & " -> ",0,0
            For N = 1 To 90
                If SF(N) = Q Then Scrivi Format2(N) & " ",0,0
            Next
            Scrivi
        Next
    Next
End Sub

mi ricordano qualcuno...

Saluti da ....."qualcuno"

 

[xabio]

Vi ringrazio oracolotto e vincenzo per l' incoraggiante apprezzamento ,

posto lo script per le frequenze che però su Spaziometria non funziona

 'Script per l8+ (su spaziometria non funziona)
'Gaussiana delle Frequenze By Joe modificato da fabio60
Sub Main()
Dim Nu(1),SF(90)
Dim e(1)
indice = 15
ini = 7440
a = EstrazioneFin
ii = a Mod 18
i = a -(ii + 1)
For es = ini To(ini + i) Step 18
R = 12
Mx = 0
For N = 1 To 90 : Nu(1) = N
For p = 1 To 5
e(1) = Estratto(es + indice - 1,r,p)
If n = e(1) Then SF(n) = SF(n) + 1
Next
If Mx =< SF(N) Then Mx = SF(N)
Next
Next
For Q = 0 To MX
ColoreTesto 0
If Q = 0 Then ColoreTesto 2
Scrivi "Freq=" & Format2(Q) & " -> ",0,0
For N = 1 To 90
If SF(N) = Q Then Scrivi Format2(N) & " ",0,0
Next
Scrivi
Next
End Sub

Ciao Fabio60
In Spaziometria lo script funziona da errore quando lo lanci sul = < ma se li unisci lo script funziona.

Che differenza c'e tra creare questo indice e scegliere un tot di estrazioni a passo costante e fare le statistiche ?

Una volta ho diviso l'archivio in 10 parti scegliendo la cadenza dell'indice di estrazione
esempio alla cadenza 0 tutte le estrazioni che avevano il progressivo in finale 0 per ogni ruota.

Ciao.

 

[FABIO60]

Ciao xabio, ti ringrazio per essere intervenuto,

brevemente rispondo:

In Spaziometria lo script funziona da errore quando lo lanci sul = < ma se li unisci lo script funziona.

A me lo script su Spaziometria (1.5.87) dà come output

Freq=00 -> 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 ........88 89 90

posso quindi confermare che a me lo script "non funziona".

Che differenza c'e tra creare questo indice e scegliere un tot di estrazioni a passo costante e fare le statistiche ?

Rimanendo all' argomento del post, come detto ho scelto il ciclo di 18 estrazioni in quanto

ciclo naturale dell' estratto e c'è un solo modo di raggruppare le estrazioni a step 18

se si rispetta quanto ho scritto:

(a partire inderogabilmente dal 4-5-2005)

La creazione di questo indice era mirata a trovare delle "anomalie" , come mi sembra

sia questa dell'indice 15, per il resto penso vada bene qualsiasi raggruppamento

che metta in evidenza altre situazioni statistiche "anomale"

Saluti

 

[xabio]

Ciao Fabio60 ho capito in effetti 4 centenai sono un'anomalia vado a vedere e non sono sicuro prova a verificare
30/07/2009 CA 4 centenari per 4 estrazioni
19 135 21 125 22 101 72 127 Comunque ho messo l'output dello script in questione e mi sembra corretto ho la stessa tua versione installata ne ho fatto uno al volo anch'io e mi pare confermare i dati del tuo

------------------------------- indice 1

Freq=00 -> 90
Freq=01 -> 06 44 70
Freq=02 -> 01 07 18 30 60
Freq=03 -> 26 28 58 68 79 84
Freq=04 -> 05 10 15 32 38 40 48 51 54 65 73 77 80 86
Freq=05 -> 02 03 16 35 37 56 66 72 78 87 89
Freq=06 -> 11 14 20 24 34 36 41 50 52 55 57 67 69 71 83
Freq=07 -> 08 12 13 22 23 29 39 45 46 47 49 53 59 61 62 63 64 82
Freq=08 -> 04 19 27 31 33 42 81 85 88
Freq=09 -> 21 25 43
Freq=10 -> 09 74 75 76
Freq=11 ->
Freq=12 ->
Freq=13 -> 17
------------------------------- indice 2

Freq=00 ->
Freq=01 ->
Freq=02 -> 01 12 38 53 59 61 75 79
Freq=03 -> 02 09 23 24 29 34 83 88
Freq=04 -> 13 17 19 21 22 25 27 28 45 51 55 68
Freq=05 -> 04 08 26 36 44 52 65 71 73 76 77 82
Freq=06 -> 03 14 16 20 30 31 32 37 39 41 43 48 49 54 56 63 74 78 81 84
Freq=07 -> 05 10 15 35 42 46 60 64 66 87 89 90
Freq=08 -> 11 33 47 58 62 69 72 80 85 86
Freq=09 -> 06 07 18 40 70
Freq=10 -> 50
Freq=11 -> 57
Freq=12 -> 67
------------------------------- indice 3

Freq=00 ->
Freq=01 -> 84
Freq=02 -> 12 19 20 34 36 41
Freq=03 -> 07 08 11 26 49 56 68 81
Freq=04 -> 10 14 21 29 35 37 39 40 45 53 58 62 63 64 72 85 87
Freq=05 -> 03 23 28 31 42 47 54 59 60 69 74 79 86 89
Freq=06 -> 01 05 16 27 32 43 51 52 65 67 70 73 83
Freq=07 -> 30 33 38 46 48 50 55 57 71 75 77 78 88
Freq=08 -> 15 22 44 66 90
Freq=09 -> 02 09 17 18 61 80 82
Freq=10 -> 04 06 13 24 25
Freq=11 ->
Freq=12 ->
Freq=13 -> 76
------------------------------- indice 4

Freq=00 ->
Freq=01 ->
Freq=02 -> 07 08 23 32 65 71 85 86
Freq=03 -> 24 28 52 53 55 59 67 72 74 80
Freq=04 -> 09 10 11 13 18 20 21 22 30 35 37 42 49 63 82
Freq=05 -> 01 03 31 34 50 51 60 62 73 75 76 77 78 88 89 90
Freq=06 -> 02 04 19 26 41 43 44 56 64 87
Freq=07 -> 27 29 36 47 48 69 83 84
Freq=08 -> 05 12 16 25 40 45 54 61 66
Freq=09 -> 17 33 39 57 58 70
Freq=10 -> 14 15 46 68 79 81
Freq=11 -> 06 38
------------------------------- indice 5

Freq=00 ->
Freq=01 -> 13
Freq=02 -> 51 58 75 87 90
Freq=03 -> 14 32 44 45 48 55 61 72 74 77 85
Freq=04 -> 01 11 21 23 26 35 41 47 50 76 78 79 83 84
Freq=05 -> 02 03 04 16 19 20 30 37 43 56 60 64 68 81 82 86
Freq=06 -> 05 08 10 18 25 31 39 63 65 71 88
Freq=07 -> 09 15 24 33 46 49 54 62 69 70
Freq=08 -> 12 17 22 28 34 38 42 52 53 59 66 67 73
Freq=09 -> 29 36 40 80
Freq=10 -> 06 07 27
Freq=11 -> 57
Freq=12 ->
Freq=13 -> 89
------------------------------- indice 6

Freq=00 ->
Freq=01 -> 38 88 89
Freq=02 -> 47 54
Freq=03 -> 01 31 37 40 41 50 57 58 86
Freq=04 -> 19 23 24 30 32 34 42 45 56 60 64 66 67 69 71 82
Freq=05 -> 03 06 13 39 52 83 84
Freq=06 -> 02 04 05 10 11 18 21 22 25 26 27 33 35 48 51 53 59 61 68 74 76 77 78 79
Freq=07 -> 12 14 17 36 43 44 49 63 73 80 81
Freq=08 -> 07 08 15 16 20 29 46 65 70 72 75
Freq=09 -> 09 28 55 62 85 87
Freq=10 ->
Freq=11 ->
Freq=12 ->
Freq=13 ->
Freq=14 -> 90
------------------------------- indice 7

Freq=00 ->
Freq=01 -> 33 60
Freq=02 -> 01 54
Freq=03 -> 03 06 07 20 26 31 32 40 65 66 67 81 84 85
Freq=04 -> 13 16 17 28 30 35 37 43 45 58 62 82 83 87 90
Freq=05 -> 02 24 38 41 47 50 51 68 75 77
Freq=06 -> 12 21 22 23 44 61 64 70 71 72 73 76 78 79 80 86
Freq=07 -> 08 10 11 14 18 36 46 53 55 63 69 88
Freq=08 -> 15 19 29 48 49 59 74 89
Freq=09 -> 05 09 25 39
Freq=10 -> 04 34 42 52 56
Freq=11 -> 27 57
------------------------------- indice 8

Freq=00 ->
Freq=01 -> 30 52 62
Freq=02 -> 20 27 34 69 79
Freq=03 -> 11 13 18 32 36 38 41 54 60 61
Freq=04 -> 03 14 21 24 40 42 56 58 65 83 84 88
Freq=05 -> 02 10 15 16 19 35 44 71 73 78 81
Freq=06 -> 17 31 37 39 43 47 55 64 66 70 72 75 77 80 86 87
Freq=07 -> 04 06 12 26 33 45 48 50 51 63 67 89 90
Freq=08 -> 07 46 49 57 59 68 74 82 85
Freq=09 -> 22 23 25 28 53 76
Freq=10 -> 01 05 08 29
Freq=11 -> 09
------------------------------- indice 9

Freq=00 ->
Freq=01 -> 30 45
Freq=02 -> 05 26 65
Freq=03 -> 06 21 40 54 56 59
Freq=04 -> 12 25 29 34 39 43 51 61 64 66 67 75 79 83 87
Freq=05 -> 03 04 08 14 16 28 31 35 41 42 47 50 53 62 63 71 72 74 77 81 82 84 90
Freq=06 -> 02 07 09 18 19 23 32 33 37 48 69 76 88 89
Freq=07 -> 01 10 13 22 24 38 46 49 55 57 58 68 70 73 85
Freq=08 -> 11 27 36
Freq=09 -> 17 86
Freq=10 -> 20 52 78
Freq=11 -> 44 60
Freq=12 -> 15
Freq=13 ->
Freq=14 -> 80
------------------------------- indice 10

Freq=00 ->
Freq=01 -> 35 43
Freq=02 -> 06 17 62 70 85
Freq=03 -> 03 11 13 22 23 37 41 65 71 75 76
Freq=04 -> 07 15 21 29 30 46 49 51 68 69 77 86
Freq=05 -> 05 20 27 40 53 56 64 67 79
Freq=06 -> 01 04 08 12 16 19 24 42 44 52 57 58 59 60 66 73 81 84
Freq=07 -> 10 18 28 36 38 47 50 55 78 80 82 83 87 88
Freq=08 -> 02 09 31 45 48 54 63 74 90
Freq=09 -> 14 26 32 34 39 61 89
Freq=10 -> 25 72
Freq=11 -> 33
------------------------------- indice 11

Freq=00 ->
Freq=01 -> 25 39
Freq=02 -> 03 08 52 70 76
Freq=03 -> 07 19 49 55 68 72 73 83
Freq=04 -> 04 16 18 28 35 42 50 51 62 79 82 88
Freq=05 -> 15 20 22 24 31 34 38 53 56 59 63 65 75
Freq=06 -> 01 02 05 06 10 13 26 27 32 43 44 45 54 58 64 67 69 77 78 85 90
Freq=07 -> 14 17 21 29 33 36 37 46 57 66 71 81 86 89
Freq=08 -> 09 11 12 23 30 40 48 84 87
Freq=09 -> 61 80
Freq=10 -> 41
Freq=11 -> 74
Freq=12 -> 60
Freq=13 ->
Freq=14 -> 47
------------------------------- indice 12

Freq=00 ->
Freq=01 -> 86
Freq=02 -> 12 19 26 49 57 74
Freq=03 -> 03 09 18 34 40 41 69 87
Freq=04 -> 05 07 08 17 20 32 38 44 48 59 61 64 72 75 82 83 88 89
Freq=05 -> 01 04 10 21 24 25 27 28 42 45 46 47 52 56 58 80 84
Freq=06 -> 22 29 30 65 68 71 76 90
Freq=07 -> 06 23 31 53 54 55 60 62 70 77 79
Freq=08 -> 13 14 35 36 63 66 67 73
Freq=09 -> 11 16 39 43 51 78 81 85
Freq=10 -> 15 33
Freq=11 -> 02
Freq=12 -> 37 50
------------------------------- indice 13

Freq=00 ->
Freq=01 ->
Freq=02 -> 02 32 49 55 57 64 66
Freq=03 -> 05 15 67 75 76 78 80
Freq=04 -> 22 23 28 31 41 46 51 58 73 85 86 88
Freq=05 -> 08 10 13 14 18 19 24 34 36 43 44 50 61 70 72 74 79 89 90
Freq=06 -> 06 07 09 12 25 26 29 30 35 40 47 48 53 54 62 68 69 82 83 87
Freq=07 -> 03 04 20 39 52 60 63 71 81 84
Freq=08 -> 11 16 17 21 38 56 59
Freq=09 -> 27 45 77
Freq=10 -> 01 37
Freq=11 ->
Freq=12 -> 33
Freq=13 -> 65
Freq=14 -> 42
------------------------------- indice 14

Freq=00 ->
Freq=01 -> 75
Freq=02 -> 06 07 14 25 27
Freq=03 -> 01 11 15 20 32 41 56 59 65 76 87 90
Freq=04 -> 02 09 18 21 26 43 49 53 63 72 73 78 85 88
Freq=05 -> 28 29 35 44 45 47 51 57 60 64 69 74 79 81 83
Freq=06 -> 08 16 19 24 36 37 42 48 55
Freq=07 -> 04 22 23 30 38 46 58 62 66 67 70 80 82 84
Freq=08 -> 03 12 31 34 54 61 77 89
Freq=09 -> 10 13 33 52 68 71 86
Freq=10 -> 05 39 40
Freq=11 -> 50
Freq=12 -> 17
------------------------------- indice 15

Freq=00 -> 38 48 52 64
Freq=01 -> 07 51
Freq=02 -> 43 72 74 81 88
Freq=03 -> 03 15 34 40 71 85 89
Freq=04 -> 02 09 13 25 28 29 31 47 62 63 68 76 77 80 84
Freq=05 -> 01 10 14 16 36 41 57 60
Freq=06 -> 06 21 26 39 42 46 56 58 66 73 75 78 79 86 87
Freq=07 -> 04 05 11 12 32 33 35 49 50 53 70 90
Freq=08 -> 08 17 19 23 24 27 37 44 67 69
Freq=09 -> 18 54 65 83
Freq=10 -> 22 30 45 55 59 82
Freq=11 -> 20 61
------------------------------- indice 16

Freq=00 ->
Freq=01 ->
Freq=02 -> 25 28 51 54 74 82 87
Freq=03 -> 09 30 31 35 48 62 69 72 75 79 81 85
Freq=04 -> 01 04 14 42 45 46 49 63 67 68 78 83 86
Freq=05 -> 08 11 20 24 27 33 36 41 50 53 59 60 64 65 90
Freq=06 -> 02 05 19 23 26 29 32 43 52 55 57 70
Freq=07 -> 07 10 12 17 18 21 34 61 76 77 80 88 89
Freq=08 -> 03 16 37 47 58 84
Freq=09 -> 06 13 15 38 44 56 73
Freq=10 -> 22 40
Freq=11 -> 39 71
Freq=12 -> 66
------------------------------- indice 17

Freq=00 ->
Freq=01 ->
Freq=02 -> 03 57 71
Freq=03 -> 05 06 14 21 22 31 42 48 50 55 56 59 63 65 66 70 84 88
Freq=04 -> 18 25 35 46 47 49 53 61 72 81 86
Freq=05 -> 01 08 11 12 15 24 37 41 67 75 76 78
Freq=06 -> 04 09 16 20 28 29 39 40 43 45 51 52 62 64 83 89
Freq=07 -> 02 10 23 26 32 34 36 44 73 77 79 82 87
Freq=08 -> 07 27 33 38 54 58 60 68 69 80 85 90
Freq=09 ->
Freq=10 -> 30 74
Freq=11 -> 17
Freq=12 -> 19
Freq=13 ->
Freq=14 ->
Freq=15 -> 13
------------------------------- indice 18

Freq=00 -> 87
Freq=01 -> 33
Freq=02 -> 31 40 74 77 88
Freq=03 -> 10 48 55 62 69
Freq=04 -> 09 12 13 16 20 21 22 24 36 43 47 59 61 63 73 78 79 84
Freq=05 -> 02 15 27 35 37 42 44 56 57 82
Freq=06 -> 05 06 08 14 18 19 29 32 41 49 50 53 54 60 65 67 70 72 76 80 85
Freq=07 -> 01 11 17 23 39 46 75 90
Freq=08 -> 03 04 07 25 26 30 34 45 51 52 58 64 66 68 81 83 89
Freq=09 -> 71
Freq=10 -> 28 38 86

Sub Main
    For e=7440 To 7457
    d=d+1
    ReDim a(1000):ReDim b(90)
    For est=e To EstrazioneFin Step 18
    c=c+1
    'Scrivi DataEstrazione(est) & "  " & StringaEstratti(est,12)
    For p=1 To 5
    n=Estratto(est,12,p)
    q=q+1
    a(q)=n
        Next'p
        Next'est
        For t1=1 To 90
        For t2=1 To q
        If a(t2)=t1 Then 
        s=s+1
        Exit For
         End If
    Next't2
    If s=0 Then
    h=h+1
     b(h)=t1
    End If     
    s=0
    Next't1

    Scrivi "--" & " Passo 18 da Est. N° " & e & "  Estrazioni Tot.  " & c & "  Indice   " & Format2(d) & "   Assente " &  StringaNumeri(b,"..")
    c=0
    q=0
    h=0
    Next'e

End Sub

Ciao

 

[FABIO60]

Ciao xabio ti ringrazio per la collaborazione,

utile il tuo script con gli "assenti",

il mio ora funziona: mi sono accorto che non avevo

selezionato Archivio reale lotto (mi era rimasto selezionato un archivio filtrato

privo della ruota Nz).

Confermo lo storico dei 4 centenari di Cagliari a cui bisogna aggiungere anche Venezia

07.32.38.45 Ve 105 29.08.1970
19.21.22.72 Ca 105 11.08.2009
01.17.27.57 Ca 101 27.06.1987



Una anticipazione: applicando gli indici alle ruote di fi,mi,na,pa,ro,to,ve

partendo dal 8-1-1871 (515 cicli completi al 26-1-2017) ho trovato

un ritardo "anomalo" ( 275 estr.) dell' estratto 89 sulla ruota di Napoli

(tra l' altro in queste ruote , in tutti i 18 indici, quattro estratti non hanno

mai tardato più di 98 estr.)

 

[chicco3]

Ciao Fabio questo script funziona anche sulle rimanenti ruote? grazie e buona serata

 

[FABIO60]

Ciao Fabio questo script funziona anche sulle rimanenti ruote? grazie e buona serata

Ciao chicco3

L' idea base di questa ricerca è l'assegnazione degli indici a partire dalla data

di "nascita" della ruota.

La data di nascita non è uguale per tutte le ruote, quindi penso non sia il caso

di usarlo su altre ruote.

Per le altre ruote vedrò di fare uno script basato non sulla frequenza, ma

sul ritardo cronologico

Una anticipazione: applicando gli indici alle ruote di fi,mi,na,pa,ro,to,ve

partendo dal 8-1-1871 (515 cicli completi al 26-1-2017) ho trovato

un ritardo "anomalo" ( 275 estr.) dell' estratto 89 sulla ruota di Napoli

Ciao

 

[chicco3]

Ciao ok fallo e poi vediamo grazie e buona giornata chicco3

 

[vincenzo4221]

x xabio, potresti pubblicare lo script che ti dà la gaussiana delle freguenze x ogni indice? buon natale