Controllo ultime 18 estrazioni estratti non ripetuti

[Cinzia27]

Ciao, Joe e Oracolotto.
Ho controllato facendo girare su Spaziometria e l'altro programma, le presenze oltre l'estrazione di riferimento del 66 su GE sono 5, come nello schema di Joe.
Ho fatto un breve controllo sui numeri non ripetuti e mi sembra a posto.
Però se trovate che c'è qualcosa che non va fatemi sapere.

Per Oracolotto: ho modificato lo script come da tua indicazione.


[/CODE]

'Ricerca Oracolotto : estratti CS non ripetuti nelle successive 17 estrazioni
'ed estratti ripetuti  per >2 volte nelle successive 17 estrazioni, quelli con rt attuale
'quelli con rt>5 e rt<16 evidenziati
'2° versione
 
Sub main()
Dim ru(1),n(1)
s=17 'Imposta l'estrazione di riferimento
Scrivi EstrazioneFin-s&" "&EstrazioneFin
ScriviEstrazione(EstrazioneFin-s)
Scrivi
Scrivi "Estratti non ripetuti"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
con=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1=0 Then
        con=con +1
        ri= FormatSpace(con,2,1)&" "&siglaruota(r)&" "&format2(n(1))
        Scrivi ri
        End If

    End If
Next
Next
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti ripetuti per >2 volte (in grassetto quelli con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12

ru(1)=r
Scrivi
con1=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1>2 Then
        con1=con1 +1
         rt=SerieRitardo(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        ri= FormatSpace(con1,1)&" "&siglaruota(r)&" N. "&format2(n(1))&" ---> volte "&fr1&" rt "&rt
If (rt>5 And rt<16)  Then Scrivi ri    ,1 Else Scrivi ri
End If
End If
Next
Next

End Sub

 

[oracolotto]

Ciao, Joe e Oracolotto.
Ho controllato facendo girare su Spaziometria e l'altro programma, le presenze oltre l'estrazione di riferimento del 66 su GE sono 5, come nello schema di Joe.
Ho fatto un breve controllo sui numeri non ripetuti e mi sembra a posto.
Però se trovate che c'è qualcosa che non va fatemi sapere.

Per Oracolotto: ho modificato lo script come da tua indicazione.


[/CODE]

'Ricerca Oracolotto : estratti CS non ripetuti nelle successive 17 estrazioni
'ed estratti ripetuti  per >2 volte nelle successive 17 estrazioni, quelli con rt attuale
'quelli con rt>5 e rt<16 evidenziati
'2° versione
 
Sub main()
Dim ru(1),n(1)
s=17 'Imposta l'estrazione di riferimento
Scrivi EstrazioneFin-s&" "&EstrazioneFin
ScriviEstrazione(EstrazioneFin-s)
Scrivi
Scrivi "Estratti non ripetuti"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
con=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1=0 Then
        con=con +1
        ri= FormatSpace(con,2,1)&" "&siglaruota(r)&" "&format2(n(1))
        Scrivi ri
        End If

    End If
Next
Next
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti ripetuti per >2 volte (in grassetto quelli con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12

ru(1)=r
Scrivi
con1=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1>2 Then
        con1=con1 +1
         rt=SerieRitardo(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        ri= FormatSpace(con1,1)&" "&siglaruota(r)&" N. "&format2(n(1))&" ---> volte "&fr1&" rt "&rt
If (rt>5 And rt<16)  Then Scrivi ri    ,1 Else Scrivi ri
End If
End If
Next
Next

End Sub

Grazie Cinzia per la modifica.

Per quanto riguarda le presenze su Ge io le ho contate manualmente dal 26/6 al 25/7 e sono 6 e Reacher ha modificato il precedente script ed adesso porta 6 presenze.

Anche lo screenshot di joe porta 66 (6) se 6 sono le presenze.

Forse non viene conteggiata la prima presenza del 26/6 o l'ultima del 25/7 ?

Comunque è una pignoleria che possiamo non perderci tempo più di tanto.

Saluti.

 

[joe]

Ho confrontato le estrazioni del mio archivio, con quelle scaricabili

da questo Sito, cioè da LottoCed e sono uguali.

Pertanto ci sono 6 Presenze del 66 a Genova in quelle 18 Estrazioni.

Il problema è nell' errore di logica nel ritenere che una Estrazione sia la Zero.

Dunque come scrive Cinzia dopo la "17" ne rimangono solo 17 reali e quella presenza a RC 17 scompare.

È la ragione per cui avevo chiesto di risolvere

Indicando con un esempio, come dovesse venire intenso quel 18.

Perché conoscendo il plagio introdotto dalle vecchie teorie

era probabile che vi potessero essere ambiguità.

 

[Cinzia27]

Ciao, Oracolotto e Joe.
Mi pare che si parlasse di ripetizioni e non di presenze.
Se si conta anche il 66 di GE dell'estrazione di riferimento, ovviamente le presenze sono 6 anche per me.
Dipende da che cosa si vuole.

 

[oracolotto]

Scusa Cinzia, quindi per raccordarmi al tuo inciso e per essere precisi 6 presenze e 5 ripetizioni

 

[Cinzia27]

Ciao, Oracolotto.
Allora si prescinde dai 5 numeri usciti nella 18° estrazione a ritroso e si visualizzano i numeri che semplicemente
sono usciti almeno 3 volte nelle ultime 18 estrazioni ( e che potrebbero anche non essere usciti per nulla nella 18° estrazione a ritroso) evidenziando il rt tra 6 e 15 . Se mi dai conferma provo a modificarlo.

 

[oracolotto]

Ciao, Oracolotto.
Allora si prescinde dai 5 numeri usciti nella 18° estrazione a ritroso e si visualizzano i numeri che semplicemente
sono usciti almeno 3 volte nelle ultime 18 estrazioni ( e che potrebbero anche non essere usciti per nulla nella 18° estrazione a ritroso) evidenziando il rt tra 6 e 15 . Se mi dai conferma provo a modificarlo.

Dai proviamo così, poi se hai qualche altra idea in merito puoi ulteriormente proporla e metterla nello script.

Geazie

 

[salva 57]

Ma tutto questo riassumendo, a cosa serve ,

 

[salva 57]

E quindi cosa giochiamo ,i numeri che ritardano almeno 6 estrazioni?

 

[Cinzia27]

Posto l'output, Oracolotto.
Così puoi fare qualche verifica anche tu, se va bene posto lo script.

Dall' estr. 10882 27.06.2026 all' estr. 10899 28.07.2026
Estr.di partenza 10882

Bari        46  42  63  90  08
Cagliari    86  69  76  89  55
Firenze     77  54  87  57  88
Genova      70  65  44  76  58
Milano      52  41  53  74  16
Napoli      32  56  09  73  63
Palermo     17  82  87  84  67
Roma        50  09  48  79  12
Torino      81  43  75  21  38
Venezia     15  72  65  74  60
Nazionale   88  21  04  26  55

Estratti assenti nelle ultime 18 estrazioni

 1 Ba 04
 2 Ba 06
 3 Ba 07
 4 Ba 10
 5 Ba 11
 6 Ba 12
 7 Ba 13
 8 Ba 17
 9 Ba 18
10 Ba 19
11 Ba 20
12 Ba 21
13 Ba 22
14 Ba 23
15 Ba 26
16 Ba 28
17 Ba 41
18 Ba 50
19 Ba 51
20 Ba 55
21 Ba 56
22 Ba 58
23 Ba 67
24 Ba 72
25 Ba 73
26 Ba 75
27 Ba 79
28 Ba 83
29 Ba 84
30 Ba 85

 1 Ca 02
 2 Ca 04
 3 Ca 10
 4 Ca 11
 5 Ca 13
 6 Ca 18
 7 Ca 19
 8 Ca 20
 9 Ca 22
10 Ca 25
11 Ca 26
12 Ca 28
13 Ca 34
14 Ca 37
15 Ca 41
16 Ca 45
17 Ca 49
18 Ca 54
19 Ca 56
20 Ca 57
21 Ca 60
22 Ca 62
23 Ca 63
24 Ca 66
25 Ca 70
26 Ca 71
27 Ca 73
28 Ca 80
29 Ca 82
30 Ca 83
31 Ca 85
32 Ca 90

 1 Fi 06
 2 Fi 11
 3 Fi 14
 4 Fi 16
 5 Fi 19
 6 Fi 21
 7 Fi 24
 8 Fi 27
 9 Fi 28
10 Fi 38
11 Fi 39
12 Fi 40
13 Fi 44
14 Fi 47
15 Fi 48
16 Fi 49
17 Fi 51
18 Fi 52
19 Fi 53
20 Fi 55
21 Fi 59
22 Fi 65
23 Fi 66
24 Fi 71
25 Fi 72
26 Fi 73
27 Fi 74
28 Fi 76
29 Fi 79
30 Fi 90

 1 Ge 03
 2 Ge 09
 3 Ge 10
 4 Ge 12
 5 Ge 13
 6 Ge 14
 7 Ge 16
 8 Ge 19
 9 Ge 20
10 Ge 21
11 Ge 23
12 Ge 26
13 Ge 27
14 Ge 30
15 Ge 31
16 Ge 39
17 Ge 40
18 Ge 41
19 Ge 42
20 Ge 48
21 Ge 50
22 Ge 54
23 Ge 56
24 Ge 59
25 Ge 63
26 Ge 67
27 Ge 68
28 Ge 72
29 Ge 77
30 Ge 78
31 Ge 80
32 Ge 84
33 Ge 86
34 Ge 87

 1 Mi 01
 2 Mi 03
 3 Mi 05
 4 Mi 06
 5 Mi 09
 6 Mi 11
 7 Mi 15
 8 Mi 18
 9 Mi 20
10 Mi 21
11 Mi 30
12 Mi 39
13 Mi 42
14 Mi 50
15 Mi 55
16 Mi 57
17 Mi 61
18 Mi 62
19 Mi 64
20 Mi 65
21 Mi 66
22 Mi 67
23 Mi 69
24 Mi 70
25 Mi 78
26 Mi 79
27 Mi 82
28 Mi 84
29 Mi 85
30 Mi 90

 1 Na 04
 2 Na 05
 3 Na 07
 4 Na 11
 5 Na 17
 6 Na 20
 7 Na 21
 8 Na 24
 9 Na 28
10 Na 37
11 Na 39
12 Na 41
13 Na 42
14 Na 43
15 Na 46
16 Na 47
17 Na 50
18 Na 53
19 Na 59
20 Na 60
21 Na 66
22 Na 67
23 Na 70
24 Na 75
25 Na 77
26 Na 78
27 Na 79
28 Na 82
29 Na 86
30 Na 88
31 Na 89
32 Na 90

 1 Pa 01
 2 Pa 03
 3 Pa 04
 4 Pa 07
 5 Pa 11
 6 Pa 13
 7 Pa 15
 8 Pa 16
 9 Pa 20
10 Pa 21
11 Pa 25
12 Pa 26
13 Pa 31
14 Pa 32
15 Pa 33
16 Pa 35
17 Pa 36
18 Pa 46
19 Pa 51
20 Pa 52
21 Pa 53
22 Pa 55
23 Pa 58
24 Pa 60
25 Pa 62
26 Pa 68
27 Pa 69
28 Pa 70
29 Pa 73
30 Pa 74
31 Pa 79
32 Pa 83
33 Pa 85
34 Pa 89

 1 Ro 01
 2 Ro 05
 3 Ro 06
 4 Ro 10
 5 Ro 11
 6 Ro 13
 7 Ro 18
 8 Ro 20
 9 Ro 21
10 Ro 24
11 Ro 25
12 Ro 27
13 Ro 28
14 Ro 30
15 Ro 31
16 Ro 34
17 Ro 38
18 Ro 40
19 Ro 43
20 Ro 46
21 Ro 49
22 Ro 54
23 Ro 55
24 Ro 57
25 Ro 61
26 Ro 65
27 Ro 70
28 Ro 73
29 Ro 80
30 Ro 81
31 Ro 83
32 Ro 86
33 Ro 87
34 Ro 88
35 Ro 90

 1 To 03
 2 To 08
 3 To 09
 4 To 25
 5 To 26
 6 To 27
 7 To 29
 8 To 34
 9 To 36
10 To 37
11 To 39
12 To 41
13 To 44
14 To 47
15 To 48
16 To 50
17 To 53
18 To 56
19 To 58
20 To 61
21 To 63
22 To 65
23 To 68
24 To 69
25 To 70
26 To 71
27 To 74
28 To 77
29 To 78
30 To 85
31 To 86
32 To 90

 1 Ve 01
 2 Ve 05
 3 Ve 09
 4 Ve 12
 5 Ve 14
 6 Ve 18
 7 Ve 19
 8 Ve 20
 9 Ve 27
10 Ve 28
11 Ve 31
12 Ve 33
13 Ve 34
14 Ve 38
15 Ve 40
16 Ve 41
17 Ve 43
18 Ve 44
19 Ve 47
20 Ve 52
21 Ve 53
22 Ve 57
23 Ve 58
24 Ve 62
25 Ve 64
26 Ve 67
27 Ve 68
28 Ve 71
29 Ve 77
30 Ve 81
31 Ve 82
32 Ve 86
33 Ve 90

 1 Nz 13
 2 Nz 14
 3 Nz 19
 4 Nz 28
 5 Nz 29
 6 Nz 30
 7 Nz 32
 8 Nz 44
 9 Nz 45
10 Nz 48
11 Nz 49
12 Nz 51
13 Nz 52
14 Nz 53
15 Nz 54
16 Nz 57
17 Nz 61
18 Nz 62
19 Nz 63
20 Nz 65
21 Nz 66
22 Nz 68
23 Nz 69
24 Nz 72
25 Nz 77
26 Nz 78
27 Nz 81
28 Nz 83
29 Nz 85
30 Nz 87
31 Nz 90
==========================================================================================
Estratti presenti almeno 3 volte (in grassetto quelli con rt>5 e rt<16)

1 Ba N. 01 ---> volte 5 rt 1
2 Ba N. 24 ---> volte 3 rt 13
3 Ba N. 29 ---> volte 3 rt 5
4 Ba N. 42 ---> volte 3 rt 2
5 Ba N. 78 ---> volte 5 rt 2
6 Ba N. 88 ---> volte 4 rt 7

1 Ca N. 15 ---> volte 3 rt 8
2 Ca N. 38 ---> volte 3 rt 8
3 Ca N. 46 ---> volte 3 rt 4
4 Ca N. 59 ---> volte 3 rt 2
5 Ca N. 72 ---> volte 6 rt 0
6 Ca N. 89 ---> volte 4 rt 4

1 Fi N. 34 ---> volte 3 rt 7
2 Fi N. 41 ---> volte 3 rt 1
3 Fi N. 54 ---> volte 4 rt 0
4 Fi N. 57 ---> volte 3 rt 7
5 Fi N. 61 ---> volte 3 rt 2
6 Fi N. 68 ---> volte 3 rt 2
7 Fi N. 77 ---> volte 3 rt 9
8 Fi N. 80 ---> volte 3 rt 4

1 Ge N. 15 ---> volte 4 rt 4
2 Ge N. 32 ---> volte 3 rt 4
3 Ge N. 66 ---> volte 5 rt 1
4 Ge N. 89 ---> volte 3 rt 3

1 Mi N. 10 ---> volte 3 rt 11
2 Mi N. 24 ---> volte 3 rt 2
3 Mi N. 26 ---> volte 3 rt 11
4 Mi N. 53 ---> volte 4 rt 8

1 Na N. 08 ---> volte 3 rt 7
2 Na N. 18 ---> volte 3 rt 0
3 Na N. 22 ---> volte 3 rt 5
4 Na N. 31 ---> volte 4 rt 3
5 Na N. 68 ---> volte 3 rt 4
6 Na N. 74 ---> volte 3 rt 5

1 Pa N. 12 ---> volte 3 rt 0
2 Pa N. 34 ---> volte 3 rt 1
3 Pa N. 38 ---> volte 3 rt 7
4 Pa N. 39 ---> volte 3 rt 6
5 Pa N. 40 ---> volte 3 rt 9
6 Pa N. 48 ---> volte 3 rt 4
7 Pa N. 56 ---> volte 3 rt 1
8 Pa N. 78 ---> volte 3 rt 3
9 Pa N. 86 ---> volte 4 rt 12
0 Pa N. 90 ---> volte 4 rt 1

1 Ro N. 08 ---> volte 4 rt 3
2 Ro N. 22 ---> volte 4 rt 1
3 Ro N. 33 ---> volte 3 rt 13
4 Ro N. 48 ---> volte 3 rt 1
5 Ro N. 51 ---> volte 3 rt 5
6 Ro N. 58 ---> volte 3 rt 0
7 Ro N. 62 ---> volte 3 rt 3
8 Ro N. 85 ---> volte 3 rt 3

1 To N. 05 ---> volte 3 rt 9
2 To N. 13 ---> volte 3 rt 1
3 To N. 35 ---> volte 4 rt 2
4 To N. 38 ---> volte 3 rt 0
5 To N. 45 ---> volte 3 rt 7
6 To N. 62 ---> volte 3 rt 1
7 To N. 66 ---> volte 3 rt 0
8 To N. 73 ---> volte 3 rt 0

1 Ve N. 11 ---> volte 5 rt 0
2 Ve N. 49 ---> volte 4 rt 1
3 Ve N. 51 ---> volte 3 rt 5
4 Ve N. 85 ---> volte 3 rt 6

1 Nz N. 02 ---> volte 3 rt 7
2 Nz N. 06 ---> volte 3 rt 4
3 Nz N. 23 ---> volte 3 rt 1
4 Nz N. 55 ---> volte 3 rt 1
5 Nz N. 56 ---> volte 3 rt 0
6 Nz N. 58 ---> volte 3 rt 9
7 Nz N. 73 ---> volte 3 rt 0
8 Nz N. 76 ---> volte 3 rt 1
9 Nz N. 80 ---> volte 3 rt 1

 

[oracolotto]

Grazie Cinzia, al momento verifiche non posso farle ma per un po' che ho visto va bene.

Puoi postare lo script.

Grazie mille !!!

 

[Cinzia27]

Eccolo

'Ricerca Oracolotto : numeri presenti almeno 3 volte nelle ultime 18 estrazioni
' quelli con rt>5 e rt<16 evidenziati
'3° versione
 
Sub main()
Dim ru(1),n(1)
s=17
Scrivi "Dall' estr. "&EstrazioneFin-s&" "&DataEstrazione(EstrazioneFin-s)_
&" all' estr. "&EstrazioneFin&" "&DataEstrazione(EstrazioneFin)
Scrivi
Scrivi "Estr.di partenza "&EstrazioneFin-s&" "&DataEstrazione(EstrazioneFin-s)
Scrivi
ScriviEstrazione(EstrazioneFin-s)
Scrivi
Scrivi "Estratti assenti nelle ultime 18 estrazioni"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
con=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin,n,ru,1)
    If fr=0 Then
        con=con +1
        ri= FormatSpace(con,2,1)&" "&siglaruota(r)&" "&format2(n(1))
        Scrivi ri
        End If
Next
Next
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti presenti almeno 3 volte (in grassetto quelli con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12

ru(1)=r
Scrivi
con1=0
For i=1 To 90
n(1)=i
fr1=SerieFreq(EstrazioneFin-s,EstrazioneFin,n,ru,1)
    If fr1>=3 Then
    con1=con1 +1
     rt=SerieRitardo(EstrazioneFin-s,EstrazioneFin,n,ru,1)
    ri= FormatSpace(con1,1)&" "&siglaruota(r)&" N. "&format2(n(1))&" ---> volte "&fr1&" rt "&rt
If (rt>5 And rt<16)  Then Scrivi ri    ,1 Else Scrivi ri
End If
Next
Next


End Sub

 

[joe]

Ma tutto questo riassumendo, a cosa serve ,

E quindi cosa giochiamo ,i numeri che ritardano almeno 6 estrazioni?

No, così è troppo facile !

Esistesse quel metodo così semplice lo userebbero tutti e sarebbero tutti miliardari.

 

[Enplein]

Buon pomeriggio.

Con il permesso di tutti, provo a dare una mia soluzione di gioco.

Da una data di partenza, controllo in un ciclo di 18 estrazioni retroattive
i numeri con presenza 0 e nel ciclo successivo, sempre di 18 estrazioni,
i numeri con presenze =>3 e con un ritardo =>5.
A queste condizioni si imposta la giocata:

Estr.di partenza 10854 09.05.2026 all' estr. 10871 09.06.2026

==========================================================================================
Estratti presenti 0 volte
==========================================================================================
Estratti presenti almeno 3 volte (in grassetto quelli con rt>5 e rt<16)
Dall' estr. 10872 11.06.2026 all' estr. 10889 10.07.2026

Estr.di partenza 10872 11.06.2026

==========================================================================================
Estratti presenti almeno 3 volte (in grassetto quelli con rt>5 e rt<16)

 1 Ba N. 23 ---> volte 3 rt  9  Attesa al °  10  28.07.2026
 2 Ba N. 42 ---> volte 4 rt  7  Sortit al °  1   11.07.2026
 3 Ba N. 62 ---> volte 3 rt  5  Attesa al °  10  28.07.2026
 4 Ba N. 70 ---> volte 4 rt  5  Attesa al °  10  28.07.2026
 5 Ba N. 77 ---> volte 3 rt  6  Attesa al °  10  28.07.2026
 6 Ba N. 86 ---> volte 3 rt 12  Sortit al °  9   25.07.2026
                23.42.62.70.77.86  In Attesa x Ambo 

 1 Ca N. 32 ---> volte 3 rt  6  Attesa al °  10  28.07.2026
 2 Ca N. 69 ---> volte 3 rt  7  Sortit al °  6   21.07.2026
 3 Ca N. 76 ---> volte 3 rt  7  Attesa al °  10  28.07.2026
 4 Ca N. 84 ---> volte 3 rt  5  Sortit al °  8   24.07.2026
                32.69.76.84  In Attesa x Ambo 

 1 Fi N. 84 ---> volte 3 rt  9  Sortit al °  7   23.07.2026

 1 Ge N. 52 ---> volte 3 rt  5  Attesa al °  10  28.07.2026

 1 Mi N. 13 ---> volte 3 rt  5  Sortit al °  5   18.07.2026
 2 Mi N. 43 ---> volte 4 rt  6  Attesa al °  10  28.07.2026
 3 Mi N. 51 ---> volte 3 rt  9  Sortit al °  4   17.07.2026
                13.43.51  In Attesa x Ambo 

 1 Na N. 32 ---> volte 3 rt  7  Sortit al °  3   16.07.2026
 2 Na N. 43 ---> volte 3 rt  8  Attesa al °  10  28.07.2026
                32.43  In Attesa x Ambo 

 1 Pa N. 84 ---> volte 4 rt  7  Attesa al °  10  28.07.2026

 1 Ro N. 63 ---> volte 3 rt  5  Sortit al °  5   18.07.2026
 2 Ro N. 65 ---> volte 3 rt  8  Attesa al °  10  28.07.2026
                63.65  In Attesa x Ambo 

 1 To N. 38 ---> volte 3 rt  7  Sortit al °  5   18.07.2026
 2 To N. 58 ---> volte 3 rt  8  Attesa al °  10  28.07.2026
 3 To N. 68 ---> volte 3 rt  8  Attesa al °  10  28.07.2026
                38.58.68  In Attesa x Ambo 

 1 Ve N. 60 ---> volte 3 rt  7  Attesa al °  10  28.07.2026
 2 Ve N. 85 ---> volte 5 rt  5  Sortit al °  4   17.07.2026
 3 Ve N. 89 ---> volte 3 rt  8  Sortit al °  6   21.07.2026
                60.85.89  In Attesa x Ambo 

 1 Nz N. 07 ---> volte 3 rt  5  Sortit al °  2   14.07.2026
 2 Nz N. 72 ---> volte 3 rt  9  Attesa al °  10  28.07.2026
 3 Nz N. 75 ---> volte 3 rt 10  Sortit al °  2   14.07.2026
                07.72.75  Ambo sortito in data   14.07.2026

Enplein

 

[oracolotto]

Buonasera Enplein, è un grande piacere leggerti anche da queste parti, sono lusingato che una mia " bozza " di idea, ancora da mettere a punto... possa interessare altri grandi esperti del lotto.

Quì sei il benvenuto e, sicuramente, la tua bravura ed esperienza potrà affinare un concetto che secondo me è ancora grezzo ma ho una mia fissa di puntare il mirino sul breve ciclo di estrazioni viste le numerose ripetizioni, il problema è trovare una giusta logica per scremare la grande massa di numeri che stazionano nel giro del ritardi 0/18.

Per capire il tuo codice, quindi sono i numeri non sortiti nel ciclo precedente che poi, uscendo nel ciclo successivo più 3 volte vengono estrapolati dallo script.
È così o ho capito male ?

Grazie ancora per il tuo prezioso intervento poi, se vorrai, potrai postare lo script così lo proviamo.

oracolotto

 

[joe]

Cinzia, ti ringrazio per la risposta e mi scuso per aver commentato alla tua proposta.

È che purtroppo non ero riuscito a dare una lettura univoca della richiesta.

Nelle varie ipotesi ho inteso che ci fosse la possibilità di considerare ciclicità più estese.

Enplein, come sempre, ha saputo produrre il codice necessario, per verificare

se si possono migliorare le previsioni di gioco.

 

[Cinzia27]

Nessun problema, Joe
Cos'è la schermata che hai postato?

 

[joe]

Nessun problema, Joe
Cos'è la schermata che hai postato?

E' la raccolta e conta, dei ritardi, delle Cinquine Sincrone, per Estratto a Colpo, di ogni Ruota.

Ma è un errore averla inserita in una discussione parallela.

 

[Enplein]

Buonasera.

Ecco la mia soluzione.
Saluto con affetto, Cinzia per il suo script, Joe e tutti quelli che mi conoscono.
Enplein.

'Ricerca Oracolotto : numeri presenti almeno 3 volte nelle ultime 18 estrazioni
' quelli con rt>5 e rt<16 evidenziati
'Script di Cinzia modificato per l'occasione da Enplein
 
Sub Main()
Dim ru(1),n(1), lg(20)
ColoreTesto 1
Scrivi  Space (10)&"Script di Cinzia modificato per l'occasione da Enplein",1
ColoreTesto 0
rs=CInt (InputBox("Quante estrazioni vuoi controllare?",,45))
ini=EstrazioneFin -rs
fine=EstrazioneFin -19
For es=ini To fine
inizio=es-18
Scrivi
Scrivi "Estr.di partenza "&inizio&" "&DataEstrazione(inizio)_
&" all' estr. "&es-1&" "&DataEstrazione(es-1)
Scrivi
Scrivi String(90,"=")
Scrivi "Estratti presenti 0 volte"
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti presenti almeno 3 volte (con rt>5 e rt<16)"
Scrivi "Dall' estr. "&es&" "&DataEstrazione(es)_
&" all' estr. "&es+17&" "&DataEstrazione(es+17)
Scrivi
Scrivi "Estr.di partenza "&es&" "&DataEstrazione(es)
Scrivi
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti presenti almeno 3 volte (con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
con1=0 : g=0 : Erase lg
For i=1 To 90
n(1)=i : fr=0 :fr1=0 :rt=0 : sp=0 : sp1=0 : cl=0
fr=SerieFreq (es-18,es-1,n,ru,1)
fr1=SerieFreq(es,es+17,n,ru,1)
 rt=SerieRitardo(es,es+17,n,ru,1)
    If fr1>=3 And fr=0 And rt=>5 Then
    con1=con1 +1:riga="" : g=g+1
    lg(g)=n(1)
    If g=1 Then Scrivi
    sp=SeriePrima(es+18,EstrazioneFin,n,ru,1)
    If sp>0 Then riga="Sortit al °" :cl=sp-es+18 : ex=sp Else riga="Attesa al °" : cl=(EstrazioneFin - es)+1: ex=EstrazioneFin
        ri= FormatSpace(con1,2,1)&" "&SiglaRuota(r)&" N. "&Format2(n(1))&" ---> volte "&fr1&" rt "& FormatSpace (rt,2,1)&_
    Space (2)& riga& Space (2)& FormatSpace (cl,2,0)& Space (2)& DataEstrazione (ex)
Scrivi ri,1
End If
Next
If g=>2 Then
riga1=""
sp1=SeriePrima (es+18,EstrazioneFin,lg,ru,2)
If sp1>0 Then riga1="Ambo sortito in data ": ees=sp1 Else riga1="In Attesa x Ambo": ees=EstrazioneFin
ColoreTesto 2
Scrivi Space (16)& StringaNumeri(lg)& Space (2)& riga1& Space (2)& DataEstrazione (ees),1
ColoreTesto 0
End If
Next
Next
End Sub