Posts written by HERAT

Ciao GAM,chiedo scusa, errore nella trascrizione, ho controllato ora e quelli con ??? coincidono con i tuoi dati

Grazie a te GAM

COPPIE CAPOGIOCO CONSECUTIVE CON ABBINAMENTI CONSECUTIVI - RITARDI STORICI DAL 14/09/1946 AL 23/07/2023

2 ABBINAMENTI CONSECUTIVI
TO [82 83 89-90] Sto 1541 Att 35
TO [41 42 57-58] Sto 1475 Att 234

3 ABBINAMENTI CONSECUTIVI
BA [48 49 83-85] Sto 1202 Att 0078
NA [70 71 82-84] Sto 1198 Att 0044

4 ABBINAMENTI CONSECUTIVI
CA [09 10 41-44] Sto 0830 Att 0008
VE [08 09 55-58] Sto 0803 Att 0015

5 ABBINAMENTI CONSECUTIVI
VE [08 09 54-58] Sto 0710 Att 0015
TO [58 59 72-76] Sto 0647 Att 0075
(TO [83 84 56-60] Sto 0622 Att 0622 ***)

6 ABBINAMENTI CONSECUTIVI
VE [01 02 54-59] Sto 0601 Att 0012
PA [25 26 42-47] Sto 0587 Att 0108

7 ABBINAMENTI CONSECUTIVI
PA [25 26 42-48] Sto 0560 Att 0090
PA [25 26 43-49] Sto 0560 Att 0054

8 ABBINAMENTI CONSECUTIVI
PA [25 26 42-49] Sto 0560 Att 0054
PA [51 52 32-39] Sto 0468 Att 0070

9 ABBINAMENTI CONSECUTIVI
PA [25 26 41-49] Sto 0445 Att 0054
TO [83 84 54-62] Sto 0427 Att 0427 ***
TO [83 84 55-63] Sto 0427 Att 0427 ***

10 ABBINAMENTI CONSECUTIVI
TO [83 84 54-63] Sto 0427 Att 0427 ***
CA [26 27 46-55] Sto 0354 Att 0004

11 ABBINAMENTI CONSECUTIVI
GE [25 26 52-62] Sto 0342 Att 0010
GE [25 26 53-63] Sto 0342 Att 0010
GE [25 26 54-64] Sto 0342 Att 0010
GE [25 26 55-65] Sto 0342 Att 0011
TO [59 60 78-88] Sto 0325 Att 0025

12 ABBINAMENTI CONSECUTIVI
GE [25 26 52-63] Sto 0342 Att 0010
GE [25 26 53-64] Sto 0342 Att 0010
GE [25 26 54-65] Sto 0342 Att 0010
BA [21 22 24-35] Sto 0302 Att 0013

13 ABBINAMENTI CONSECUTIVI
GE [25 26 52-64] Sto 0342 Att 0010
GE [25 26 53-65] Sto 0342 Att 0010
CA [07 08 44-56] Sto 0280 Att 0025
CA [07 08 45-57] Sto 0280 Att 0025
CA [07 08 46-58] Sto 0280 Att 0025
CA [07 08 47-59] Sto 0280 Att 0025
CA [07 08 48-60] Sto 0280 Att 0025

14 ABBINAMENTI CONSECUTIVI
GE [25 26 52-65] Sto 0342 Att 0010
CA [07 08 44-57] Sto 0280 Att 0025
CA [07 08 45-58] Sto 0280 Att 0025
CA [07 08 46-59] Sto 0280 Att 0025
CA [07 08 47-60] Sto 0280 Att 0025

15 ABBINAMENTI CONSECUTIVI
CA [07 08 44-58] Sto 0280 Att 0025
CA [07 08 45-59] Sto 0280 Att 0025
CA [07 08 46-60] Sto 0280 Att 0025
PA [22 23 31-45] Sto 0265 Att 0013
PA [22 23 32-46] Sto 0265 Att 0046
PA [22 23 33-47] Sto 0265 Att 0046
PA [22 23 34-48] Sto 0265 Att 0046

16 ABBINAMENTI CONSECUTIVI
CA [07 08 44-59] Sto 0280 Att 0025
CA [07 08 45-60] Sto 0280 Att 0025
PA [22 23 31-46] Sto 0265 Att 0013
PA [22 23 32-47] Sto 0265 Att 0046
PA [22 23 33-48] Sto 0265 Att 0046

17 ABBINAMENTI CONSECUTIVI
CA [07 08 44-60] Sto 0280 Att 0025
PA [22 23 31-47] Sto 0265 Att 0013
PA [22 23 32-48] Sto 0265 Att 0046

18 ABBINAMENTI CONSECUTIVI
PA [22 23 31-48] Sto 0265 Att 0013
PA [22 23 29-46] Sto 0253 Att 0013
PA [22 23 30-47] Sto 0253 Att 0013


19 ABBINAMENTI CONSECUTIVI
PA [22 23 29-47] Sto 0253 Att 0013
PA [22 23 30-48] Sto 0253 Att 0013
CA [01 02 16-34] Sto 0248 Att 0021
CA [01 02 17-35] Sto 0248 Att 0013

20 ABBINAMENTI CONSECUTIVI
PA [22 23 29-48] Sto 0253 Att 0013
CA [01 02 16-35] Sto 0248 Att 0021

Edited by HERAT - 24/7/2023, 21:44

Gam73 ecco tutti i dati dal 14-9-1946

unico errore non ho scritto i primi 3 max ma i primi 2

COPPIE CAPOGIOCO CONSECUTIVE CON ABBINAMENTI CONSECUTIVI - RITARDI STORICI

2 ABBINAMENTI CONSECUTIVI
Gruppo 68714 di 2 Ambi TO [82 83 89-90] Sto 1541 Att 35
Gruppo 33422 di 2 Ambi TO [41 42 57-58] Sto 1475 Att 234

3 ABBINAMENTI CONSECUTIVI
Gruppo 37899 di 03 Ambi BA [48 49 83-85] Sto 1202 Att 0078
Gruppo 56798 di 03 Ambi NA [70 71 82-84] Sto 1198 Att 0044

4 ABBINAMENTI CONSECUTIVI
Gruppo 05098 di 04 Ambi CA [09 10 41-44] Sto 0830 Att 0008
Gruppo 04948 di 04 Ambi VE [08 09 55-58] Sto 0803 Att 0015

5 ABBINAMENTI CONSECUTIVI
Gruppo 04888 di 05 Ambi VE [08 09 54-58] Sto 0710 Att 0015
Gruppo 44826 di 05 Ambi TO [58 59 72-76] Sto 0647 Att 0075
(Gruppo 64816 di 05 Ambi TO [83 84 56-60] Sto 0622 Att 0622 ***)

6 ABBINAMENTI CONSECUTIVI
Gruppo 00799 di 06 Ambi VE [01 02 54-59] Sto 0601 Att 0012
Gruppo 17863 di 06 Ambi PA [25 26 42-47] Sto 0587 Att 0108

7 ABBINAMENTI CONSECUTIVI
Gruppo 17510 di 07 Ambi PA [25 26 42-48] Sto 0560 Att 0090
Gruppo 17511 di 07 Ambi PA [25 26 43-49] Sto 0560 Att 0054

8 ABBINAMENTI CONSECUTIVI
Gruppo 17177 di 08 Ambi PA [25 26 42-49] Sto 0560 Att 0054
Gruppo 36416 di 08 Ambi PA [51 52 32-39] Sto 0468 Att 0070


9 ABBINAMENTI CONSECUTIVI
Gruppo 16863 di 09 Ambi PA [25 26 41-49] Sto 0445 Att 0054
Gruppo 58816 di 09 Ambi TO [83 84 54-62] Sto 0427 Att 0427 ***
Gruppo 58817 di 09 Ambi TO [83 84 55-63] Sto 0427 Att 0427 ***

10 ABBINAMENTI CONSECUTIVI
Gruppo 57388 di 10 Ambi TO [83 84 54-63] Sto 0427 Att 0427 ***
Gruppo 16925 di 10 Ambi CA [26 27 46-55] Sto 0354 Att 0004

Edited by HERAT - 24/7/2023, 20:06

Per avere un promemoria nel frattempo che trovo i dati li trascrivo a mano a mano qui nel post

2 ABBINAMENTI CONSECUTIVI

Gruppo 68714 di 2 Ambi TO [82 83 89-90] Sto 1541 Att 35
Gruppo 33422 di 2 Ambi TO [41 42 57-58] Sto 1475 Att 234

3 ABBINAMENTI CONSECUTIVI

Gruppo 37899 di 03 Ambi BA [48 49 83-85] Sto 1202 Att 0078
Gruppo 56798 di 03 Ambi NA [70 71 82-84] Sto 1198 Att 0044

Ciao GAM, innanzitutto grazie.
In questi giorni ti sapro dire gli storici per coppia consecutiva con abbinamenti consecutivi da 2 a 10.

Salve Gam.
Modificando un tuo splendido script ho creato questo con copia capogioco.
Gli storici partono dal 14-9-46 da BA a VE e dal 4-5-2005 per NZ

Gruppo 16925 di 10 Ambi CA [26 27 46-55] Sto 0354 Att 0004
Gruppo 57388 di 10 Ambi TO [83 84 54-63] Sto 0427 Att 0427 ***


'Ricerca di Gruppi di Ambi Consecutivi con Coppia Capogioco consecutiva su Ruota: Scritto da Gam il 20.12.2019 - v. 1.0 - modificato da HERAT
Sub Main()

Dim ruota1,ruota2,ruota3
Dim st,at,capogioco,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr,capogioco2
Dim ambo(3),NumAmbi,PrimoEl,UltimoEl,conta,ambi(3)

NumAmbi = 10' numero ambi consecutivi
eIni = EstrazioneFin - 6320
Efin = EstrazioneFin
LivArch = 0

For capogioco = 1 To 89
For capogioco2 = capogioco + 1 To capogioco+1
'For 'impostare 90 per tutti i capigioco
If ScriptInterrotto Then Exit Sub
For r = 1 To 10
If r <> TT_ Then
ruota1 = r
For k = 1 To 90 - NumAmbi + 1
If k = capogioco - NumAmbi + 1 Then k = k + NumAmbi
If k > 90 Then Exit For
If capogioco <> NumAmbi And capogioco2 <> NumAmbi And capogioco <> k And capogioco2 <> k Then

Messaggio("NumeroAmbi " & NumAmbi & " Capogioco " & capogioco & " Capogioco2 " & capogioco2 & " " & SiglaRuota(r) & " " & k)

For x = 0 To NumAmbi - 1
ambo(1) = capogioco :ambo(2) = k + x
ambi(1) = capogioco2: ambi(2) = k + x
PrimoEl = Format2(k)
UltimoEl = Format2(k + NumAmbi - 1)
If capogioco <> k + x And(PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambo,ruota1)
If capogioco2 <> k + x And(PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambi,ruota1)
conta = conta + 1
Next
If conta = NumAmbi Then Call StatisticaGruppoFormazioniTurbo(2,Att,Sto,Freq,Gruppo,eIni,Efin,LivArch) :Gr = Gr + 1
conta = 0

If Sto > 350 Then 'impostare un valore per limitare il numero di casi di ricerca
'Scrivi Gruppo
If Att > 350 Then
ColoreTesto 2
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " [" & Format2(capogioco) & " " & Format2(capogioco2) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***"
ColoreTesto 0
Else
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " [" & Format2(capogioco) & " " & Format2(capogioco2) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000")
'End If
End If
End If
End If
PrimoEl = ""
UltimoEl = ""
Next
End If
Next
Next
Next
Scrivi TempoTrascorso
End Sub

Buongiorno carissimo Gam, funziona perfettamente, veramente grazie

Buongiorno, in questo post espongo quello che attualmente è (se i miei dati sono corretti) il biambo in figura con capogioco comune col ritardo piu alto mai raggiunto dal 1946.
il precedente storico dal 1946 è di 1029 (il secondo è 1014)

L'attuale biambo in figura con Capogioco comune della stessa figura è
NZ-FI-RM 16-88, 79-88 RITARDO 1100 MAX STORICO IN CORSO
SEGNALO ANCHE 16-88, 79-88, 52-88 RITARDO 850 (ritardo elevatissimo)

Grazie mille gentilissimo Gam, oggi lo provo e ti faccio sapere

Buongiorno, la ruota di Torino ultimamente presenta diverse situazioni interessanti.
Una di queste la espongo in questo post.



TO 77 CON 55-56-57-58-59-60-61-62 RIT.577
TO 83 CON 54-55-56-57-58-59-60-61-62-63 RIT.423
TO 84 CON 54-55-56-57-58-59-60-61-62-63-64-65 RIT.477
TO 90 CON 55-56-57-58-59-60-61-62-63 RIT 443

CAPIGIOCO 77-83-84-90 TO
CON 55-56-57-58-59-60-61-62 RIT. 423
Su questa rarissima situazione (4 capogioco con 8 abbinamenti consecutivi) non ho a disposizione lo storico ma senza ombra di dubbio siamo davanti ad un ritardo elevatissimo.



COPPIA CAPOGIOCO CONSECUTIVA CON 10 ABBINAMENTI CONSECUTIVI:
83-84 CON 54-55-56-57-58-59-60-61-62-63 RIT 423 MAX STORICO (DAL 1946) IN CORSO (PRECEDENTE STORICO ASSOLUTO SULLE 11 RUOTE DAL 1946 PER UNA COPPIA CONSECUTIVA CON 10 ABBINAMENTI CONSECUTIVI :354 ESTRAZIONI

Si possono formare 10 terzine con capogioco 83-84 oppure giocare solo la coppia 83-84 abbinata a 57-58-59-60-61-63
Oppure giocare solo le terzine 57-63-83, 57-63-84

aggiornamento

Da alcune ricerche è prevedibile una sortita a breve di uno o entrambi i numeri 59-60 su Torino.
Da abbinare a 83-84-77-48-90

Edited by HERAT - 24/7/2023, 17:11

Buongiorno, chiedo cortesemente se è possibile adattare a 2 o 3 ruote questo script preso da questa discussione
https://lottogam.forumfree.it/?t=77219201


'Ricerca di Gruppi di Ambi Consecutivi con Capogioco su Ruota: Scritto da Gam il 20.12.2019 - v. 1.0
Sub Main()

Dim ruote(1)
Dim st,at,capogioco,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr
Dim ambo(2),NumAmbi,PrimoEl,UltimoEl,conta

NumAmbi = 10' numero ambi consecutivi
eIni = EstrazioneFin-500
Efin = EstrazioneFin
LivArch = 0

For capogioco = 1 To 5 'impostare 90 per tutti i capigioco
If ScriptInterrotto Then Exit Sub
For r = 1 To 10
ruote(1) = r
For k = 1 To 90 - NumAmbi + 1
If k = capogioco - NumAmbi + 1 Then k = k + NumAmbi
If k > 90 Then Exit For

Messaggio("NumeroAmbi " & NumAmbi & " Capogioco " & capogioco & " " & SiglaRuota(r) & " " & k)

For x = 0 To NumAmbi - 1
ambo(1) = capogioco :ambo(2) = k + x
PrimoEl = Format2(k)
UltimoEl = Format2(k + NumAmbi - 1)
If capogioco <> k + x and (PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambo,r) : conta = conta + 1
Next
If conta = NumAmbi Then Call StatisticaGruppoFormazioniTurbo(2,Att,Sto,Freq,Gruppo,eIni,Efin,LivArch) :Gr = Gr + 1
conta = 0

If Sto > 0 Then 'impostare un valore per limitare il numero di casi di ricerca
'Scrivi Gruppo
If Att >= Sto Then
ColoreTesto 2
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***"
ColoreTesto 0
Else
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000")
End If
End If
PrimoEl = ""
UltimoEl = ""
Next
Next
Next

Scrivi TempoTrascorso
End Sub

sicuramente il premio è piu basso ma se parliamo di situazioni interessanti guardando il ritardo e non il premio la sestina su 5 ruote è piu interessante come ritardo e conferma la validita del ritardo per ambo della cinquina

Buongiorno, è sicuramente interessante ma a livello di ritardo presenta una situazione ancora piu interessante la sestina 45-46-47-48-49-50 che su FI-GE-NA-RM-TO ritarda da 124 estrazioni