AMBI IN DOPPIA SINCRONIA

[numerico]

Beppignello esisteranno ambi o sorti superiori che fanno segnare lo stesso ritardo e la stessa frequenza? Uno script può rilevarli e metterli in evidenza?
.P.S.: il pregevole lavoro che hai fatto per gli estratti è miracoloso. Grazie ancora

 

[Beppignello]

quando avrò sistemato lo script e sono sicuro di tutti i dati, lo posterò!

per il momento ho trovato, per le singole ruote

VE 05 73 e 43 77

VE quartina 05 43 73 77 Per ambo

 

[Beppignello]

Non è proprio semplice concentrare tutte le informazioni in pochi dati, quando si elabora l'isocronismo (cioè più ruote diverse)- Sincronia tra Rit / freq perché le combinazioni trovate sono moltissime.


per fare un esempio, in 10 concorsi

Totale combinazioni elaborate.......9449
Totale Esiti Vincenti...............4454

-----------------------------------------------------------------------------------

diverse è la cosa vista per singole ruote scelte

sempre per 10 concorsi

Totale combinazioni elaborate.......524
Totale Esiti Vincenti...............34


----------------------------------------------------------------------
Aggiornato ad oggi:
dagli ambi sincroni di Ruota , queste combinazioni sono al top del loro ritardo

Rit/Fre Rcomb,/Xcomb. Elenco Ambi ruote
Combinazione 14.49.78
0642/019 0050/0050....1478 / BA01 : 4978 / BA01 :
Combinazione 06.34.57.72
0046/010 0042/0042....0672 / GE04 : 3457 / GE04 :
Combinazione 06.70.88
0362/017 0041/0041....0688 / GE04 : 7088 / GE04 :
Combinazione 35.39.74
0407/011 0043/0043....3574 / NA06 : 3974 / NA06 :
Combinazione 10.13.43.49
0271/004 0019/0019....1013 / NZ12 : 1049 / NZ12 : 1343 / NZ12 : 4349 / NZ12 :
Combinazione 11.65.68
0307/004 0030/0030....1168 / NZ12 : 6568 / NZ12 :
Combinazione 19.26.53
0803/003 0048/0048....1926 / NZ12 : 2653 / NZ12 :
Combinazione 10.13.43.49
0271/004 0019/0019....1013 / NZ12 : 1049 / NZ12 : 1343 / NZ12 : 4349 / NZ12 :
Combinazione 11.65.68
0307/004 0030/0030....1168 / NZ12 : 6568 / NZ12 :
Combinazione 19.26.53
0803/003 0048/0048....1926 / NZ12 : 2653 / NZ12 :



risultano pochi e quindi è accettabile il seguente output, fatto salvo errori o esiti da controllare nei prossimi concorsi per determinare a grandi linee i tempi di uscita. mentre dagli ambi isocroni ( cioè derivanti da ruote diverse ), riscontro troppe combinazioni, anche se ci sono solo 30 ritardi che generano queste combinazioni, ma in realtà se si esaminano gli ambi secchi sulle varie ruote risultano troppe. devo pensare un modo di riduzione di questi ambi! se siete interessati, fatevi avanti con qualche idea, è ben accetta!

 

[numerico]

Acc...... non avrei mai immaginato così tante combinazioni! Quindi, se per avere un listato accettabile, occorre incentrare l'attenzione su singole ruote, facciamo questo tentativo. Può darsi che analizzando il listato possono anche scaturire suggerimenti, migliorie o nuove idee. buona giornata.

 

[Beppignello]

be, non sono 90 numeri, ma 4005 ambi, per 12 ruote, un motivo del perché tante combinazioni.

ecco una distribuzione semplice di frequenza

free image upload

ma il problema è come creare l'output leggibile, e decifrabile con i limiti di uno script

se in verticale diverrebbe lungo da scorrere su più pagine
se in orizzontale anche qui, verrebbe su più righe, ed essendo gli ambi di ruote diverse e mischiati
come esporli per essere leggibili.

alternativa semplice sarebbe che il tabellone degli ambi in ritardo di spaziometria, prevedesse
la possibilità, con una tendina di scelta, la possibilità di tipo "CLASSICO", Cioè quello attuale
ed un'altra di tipo Sincronia-Isocronia Rit/fre.
bisognerebbe che il buon LuigiB, facesse al programma questa variante, ma non so se la farà.


in attesa di idea migliore

Option Explicit
Sub Main
Dim fine,r,n,nn,x,ritardo,frequenza,ix,last,rt,nr,y,retrit,retritmax,retincrritmax,retfre,tutti,z,retcolpi,retestratti,retidestr,stat,ct,ctg,L,xy
Dim elenco,m,h,Lastr,Ini,finale,sor,retesito,ruota,fclasse,k,j,scolonna,colonne,ru,q,n1,n2
Dim gen(9999999),ruoterie(12,4005),fnumeri(90)
'''''''''' '''''''''''''''''''''''''''''''''''''''
ruota = InputBox("Ruota o 11 Tutte",,11)
''''''''''''''''''''''''''''''''''''''''''''''''''
tutti = CInt(InputBox("Vuoi elenco con quanti numeri ? ",,1))
fine = InputBox("All'estrazione n.",,EstrazioneFin)
stat = InputBox("Aggiungi Ritardi su tutte le ruote ",,"NO")
sor = CInt(InputBox("Per la sorte ",,2))
Scrivi " Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine),1
'''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
'''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 11 si ottiene prospetto completo
fclasse = 2
For n = 1 To 90
fnumeri(n) = n
Next
'''''''''''''''''analizza tutti i 4005 ambi
colonne = SviluppoIntegrale(fnumeri,fclasse)
For k = 1 To UBound(colonne)
scolonna = ""
ReDim nm(2)
For j = 1 To fclasse
scolonna = scolonna & Format2(colonne(k,j)) & " "
nm(j) = colonne(k,j)
Next
Call Messaggio(" Elaboro Sviluppo Ambi Ruote " & k & " " & StringaNumeri(nm,".") & " " & SiglaRuota(ruota))
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),k)
'''''''scelta sincronismo della ruota fissa
If ruota <> 11 Then
ReDim ar(1)
ar(1) = ruota
Call StatisticaFormazioneTurbo(nm,ar,sor,retrit,retritmax,retincrritmax,retfre,3950,fine)
ix = FormattaStringa(retrit,"0000") & FormattaStringa(retfre,"000")
gen(ix) = gen(ix) & Format2(nm(1)) & Format2(nm(2)) & " / " & SiglaRuota(ar(1)) & Format2(ar(1)) & " : "
End If
'''''''scelta per isocronismo nelle 12 ruote
If ruota = 11 Then
For r = 1 To 12
ReDim ar(1)
ar(1) = r
Call StatisticaFormazioneTurbo(nm,ar,sor,retrit,retritmax,retincrritmax,retfre,3950,fine)
ix = FormattaStringa(retrit,"0000") & FormattaStringa(retfre,"000")
gen(ix) = gen(ix) & Format2(nm(1)) & Format2(nm(2)) & " / " & SiglaRuota(ar(1)) & Format2(ar(1)) & " : "
Next
End If
Next
ColoreTesto(1)
Scrivi " Elenco con Ambi > di..." & tutti,1
If ruota <> 0 Then Scrivi " Lista Combinazioni Rilevate Solo per la Ruota di...." & NomeRuota(ruota),1
If ruota = 0 Then Scrivi " Lista Tutte le Combinazioni rilevate....",1
ColoreTesto(0)
Scrivi "_____________________________________________ ____ ________________________________",1
Scrivi " Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota",1
'''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
''''''''''verifica esito sulle ruote di rilevamento del sincronismo
For nn = 0 To 999999
If gen(nn) <> "" Then
ReDim aV2(0),ruote(13),numeri(55),ele(90)
Call SplitByChar(gen(nn)," : ",aV2)
last = UBound(aV2)
If last > 0 Then
If last > tutti Then
xy = xy + 1
Scrivi "<-------------------------------------------------------------------------------------------> ",1
For y = 0 To last - 1
rt = Right(aV2(y),2)
nr = Left(aV2(y),4)
' Scrivi aV2(y) & "....." & rt & "......" & nr
'''carica array ruote e numeri ed elimina eventuali ripetuti
ruote(rt) = rt
numeri(y + 1) = Left(nr,2)
numeri(y + 2) = Right(nr,2)
EliminaRipetuti(numeri)
n1 = Left(nr,2) : n2 = Right(nr,2) :
ele(n1) = n1 : ele(n2) = n2
Scrivi SiglaRuota(rt) & ".....Ambo...." & Format2(n1) & " " & Format2(n2)
Next
ColoreTesto(0)
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,3950,fine)
ct = ct + 1
ColoreTesto(1)
Scrivi StringaNumeri(ele,".")
If retrit >= retritmax Then
ColoreTesto(2)
Else
ColoreTesto(0)
End If
Scrivi FormattaStringa(nn,"0000/000") & " " & FormattaStringa(retrit,"0000") & "/" & FormattaStringa(retritmax,"0000") & "...." & gen(nn),1
''''' verifica esiti
Call VerificaEsitoTurbo(numeri,ruote,fine + 1,sor,,,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ctg = ctg + 1
ColoreTesto(1)
Scrivi retidestr & "....." & retestratti & ".... colpo n." & FormattaStringa(retcolpi,"000") & " -- " & retesito,1
ColoreTesto(0)
End If
'''''''''''''''''''''''''''''''''''
If stat = "SI" Or stat = "si" Then
ReDim ruote(1)
ColoreTesto(2)
For z = 1 To 12
If z <> 11 Then
ruote(1) = z
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,3950,fine)
Scrivi "------> " & SiglaRuota(z) & " " & FormattaStringa(retrit,"000") & "/" & FormattaStringa(retritmax,"000") & "...." & gen(nn)
End If
Next
End If
End If
End If
End If
Next
Scrivi " Totale combinazioni elaborate......." & ct,1
Scrivi " Totale Esiti Vincenti..............." & ctg,1
Scrivi " Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine),1
End Sub

 

[numerico]

Grazie Beppignello, anche questo è un pregevole lavoro. Direi che le coppie, sono micidiali per le ambate (e in tempi brevi). Ho notato che se cambi il valore alla quantità dei numeri, l'output si riduce con l'aumentare della quantità numerica richiesta...... ma le coppie rimangono sempre tali, cioè non si trasformano in terzine, quartine ecc. Qual è la logica che hai usato? Scusa se rubo del tempo alle tue occupazioni, ma stai facendo dei capolavori che, forse, rimarranno nell'annario del lotto!
Un cordiale saluto.

 

[Beppignello]

Parlo di ruota a scelta, quindi su ruota fissa.

Premessa anche se data per scontata.

1) sincronismo degli ambi .
da ogni estrazione nascono 10 ambi totali
quindi ad ogni ritardo avremo 10 sincroni, che man mano che vengono estratti diventano dieci,nove,otto,sette,sei,cinque,quattro,tre,due,u no,zero

questo ragionamento è relativo al ritardo.

ogni ambo estratto dei 10 ha una sua storia passata, che dice quante volte è sortito,
cioè quante volte è stato frequente.

questo ragionamento è relativo alla frequenza

2) ora noi esaminiamo solo quegli ambi che hanno la doppia sincronia con medesimo ritardo e medesima frequenza.
le altre disposizioni, isocronismo o diversità ritardo e frequenza, le tralasciamo.

3) molti dei 10 ambi che escono ad ogni estrazione, hanno caratteristiche diverse, ma alcuni invece hanno
questa particolare doppia sincronia, che noi una volta individuata la scriviamo in output.

4) ne verifichiamo i risultati, l'accorpiamo in combinazioni maggiori, e ne verifichiamo anche qua i risultati per sorti
semplice o superiori a nostro piacimento.

A) quando nei 10 ambi sortiti in una estrazione, risultano tutti diversi nelle frequenze, tralasciamo la combinazione perché non è sincrona con nessun'altra.
B) quando nei 10 ambi sortiti in una estrazione, risultano 2 ambi aventi la doppia sincronia, li vogliamo consultare o vedere nell'output
perché scegliamo > 1, infatti sono 2 ambi aventi la doppia sincronia.
C) quando nei 10 ambi sortiti in una estrazione, risultano 3 Ambi aventi la doppia sincronia, li vogliamo consultare o vedere nell'output
perché abbiamo scelto > 1, oppure se scegliamo > 2, perché infatti sono 3 ambi aventi la doppia sincronia
e così per la quantità di ambi che vengono rilevati dallo script.

così avremo che quando scegliamo > 1 avremo un elenco completo
così avremo che quando scegliamo > 2 avremo un elenco più ridotto

con scelte 3,4,5,6,7,8,9,10 max, l'elenco nell'output si ridurrà sempre di più.

comunque, difficilissimo è avere o trovare su ruota fissa, su 10 ambi estratti, 6,7,8,9,10 ambi con doppia sincronia.


diverso è la cosa, in merito a quest'ultimo ragionamento se analizziamo l'isocronismo, cioè elaboriamo tutto per ruota 11 cioè tutte.

1) specificare una ruota, si elaborano i dati guardando al sincronismo di ruota
2) specificare Ruota Tutte(11), si elaborano i dati guardando al sincro/isocronismo di tutte 10 le ruote.
3) La ruota Nazionale è sempre a parte dalla scelta (Tutte), viene esclusa.

come concetti di base, non avrei nulla da aggiungere.

come script si può rendere ancora più spinto, con altri ragionamenti che andrebbero aggiunti, per cercare di individuare gli ambi secchi
o la famosa individuazione di probabile rottura.
ma questa è tecnica diversa e la scrittura dello script, avviene dopo avere idee precise, da codificare in codice semplice di esecuzione.

 

[Beppignello]

ROMA 53 63
ROMA 21 27


13 colpi di gioco

 

[Beppignello]

Peccato per il Momento solo

ROMA 21 è mancato l'abbinamento 27



eppure questi 2 ambi mancano e trovano riscontro a Roma