Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Cinquine CSP
- Creatore Discussione miki55
- Data di inizio
Enplein
Super Member >PLATINUM<
Chiedo scusa...non avevo aggiornato l'archivio al 17/12/2020
Infatti è sortito il 72 su FI
Enplein.
perchè usi una versioe precedente alla 1.6.34
Mike58
Advanced Member >PLATINUM PLUS<
Eccolo (Bravo Enplein)
Codice:
Sub Main()
Dim ru(1),amb(2),nu(5),nr(5),e(5),nn(5),num(2)
Dim posta(1),poste(2),ruote(2),ruota(1),T,V
ColoreTesto 1
Scrivi " CINQUINE SINCRONE PARTICOLARI CON AMBI RIPETUTI + TERZINA X ESTRATTO",1
Scrivi Space(20) & " MIKI Listed by Enplein" & Chr(10),1
ColoreTesto 0
posta(1) = 1
poste(2) = 1
ini = 7440 '4/5/2005 Venus+NZ
fin = EstrazioneFin
Scrivi "Archivio da " & DataEstrazione(ini) & " / " & ini & " al " & DataEstrazione(fin) & " / " & fin,1
Scrivi
ResetTimer
'Scrivi "IdA"& Space (10)&"1a Cinquina"& Space (5)&"IdB"& Space (10)&"2a cinquina"& Space(6)&"dif"& Space (2)&"Ruota"& Space (2)&"Amb.Rip."&_
'Space (2)&"Esito"& Space (4)&"RCA"& Space (4)&"R.Sto."& Space (3)&"Terzina"& Space (5)&"Esito"& Space(3)&"RCT"& Space (2)&"R.Sto.",1
For r = 1 To 12
If r = 11 Then r = 12
'--------------------------------------------------------------------------------------------------------------
T = Array(T,"Casi","IdA","1a Cinquina","idB","2a Cinquina","Diff","Ruota_","Ambo Rip","Esito","Rca","R.Sto","Terzina","Esito","RCT","R.Sto")
Call InitTabella(T)
'--------------------------------------------------------------------------------------------------------------
ru(1) = r
rstoA = 0:rstoT = 0
Scrivi
For es = ini To fin
Messaggio "Elaborazione in corso - ATTENDERE . . . . . " & "Ruota : " & SiglaRuota(r) & " " & TempoTrascorso
Call AvanzamentoElab(Ini,fin,es)
For p = 1 To 5
nr(p) = Estratto(es,r,p)
Next
'Cerca l'ambo ripetuto
spA1 = SeriePrima(es + 1,fin,nr,ru,2)
If spA1 > 0 Then
sortito1 = spA1 - es
'Determina la coppia e la terzina della cinquina trovata con l'ambo ripetuto
ex = spA1
For i = 1 To 5
e(i) = Estratto(ex,r,i)
Next
h1 = 0 : h2 = 0 : Erase nu : Erase nn
For i = 1 To 5 :g = 0: For j = 1 To 5
If e(i) = nr(j)Then g = g + 1
Next
If g > 0 Then h1 = h1 + 1: nu(h1) = e(i) Else h2 = h2 + 1 : nn(h2) = e(i)
Next
If h1 = 2 And h2 = 3 Then
ra1 = 0 : rt1 = 0
'Cerco l'ambo ripetuto
spA2 = SeriePrima(ex + 1,fin,nu,ru,1)
If spA2 > 0 Then sortito2 = spA2 - ex : ra = sortito2 : ra1 = ra : rea = "--" Else sortito2 = spA2 - ex : ra = sortito2 :ra1 = ra :ra = "--": rea = fin - ex
If ra1 >= rstoA Then rstoA = ra1 Else rstoA = rstoA
spT1 = SeriePrima(ex + 1,fin,nn,ru,1)
If spT1 > 0 Then sortito3 = spT1 - ex : rt = sortito3 : rt1 = rt : ret = "--" Else sortito3 = spT1 - ex : rt = sortito3 : rt1 = rt :rt1 = rt : rt = "--":ret = fin - ex
If rt1 >= rstoT Then rstoT = rt1 Else rstoT = rstoT
dif = ex - es
'trova solamente i casi che sono in gioco
If ra = "--" Or rt = "--" Then
k = k + 1
V = Array(V,k,DataEstrazione(es),StringaNumeri(nr),DataEstrazione(ex),StringaNumeri(e),dif,SiglaRuota(r),StringaNumeri(nu),ra,rea,rstoA,StringaNumeri(nn),rt,ret,rstoT)
Call AddRigaTabella(V)
'Scrivi DataEstrazione (es)& Space (3)& StringaNumeri (nr)& Space (2)& DataEstrazione (ex)& Space (3)& StringaNumeri (e)& Space (2)& FormatSpace (dif,3,1)&_
'Space (5)& SiglaRuota (r)& Space (4)& StringaNumeri (nu)& Space (5)& FormatSpace (ra,3,1)& Space (4)& FormatSpace (rea,3,1)& Space (5)&_
'FormatSpace (rstoA,3,1)& Space (5)& StringaNumeri (nn)& Space (5)& FormatSpace (rt,3,1)& Space (4)& FormatSpace (ret,3,1)& Space (5)&_
'FormatSpace (rstoT,3,1),1
End If
End If
End If
Next
k = 0
CreaTabella
'Scrivi "Tempo di Elaborazione " & TempoTrascorso
Next
End SubMike58
Advanced Member >PLATINUM PLUS<
Miki lo script è di Enplein (amministratore del forum ambolotto) penso non ci sia niente di male a rimarcarlo.
Poi ognuno di noi ha un suo stile e cerca di essere utile per quello che sono le proprie conoscenze.
Un Buon Natale e buone feste anche a te e tutti gli amici che hanno gradito (attraverso il like).
Poi ognuno di noi ha un suo stile e cerca di essere utile per quello che sono le proprie conoscenze.
Un Buon Natale e buone feste anche a te e tutti gli amici che hanno gradito (attraverso il like).
miki55
Advanced Member >PLATINUM PLUS<
Attenzione Mike, io non trovavo piu questo script, poichè ho dovuto formattare il compiuter.
Avevo salvato numerose cartelle, ma non lo trovavo piu questo script in mezzo ad altri 600 circa...
Non volevo assolutamente offendere Enplein, anzi mi sono compiaciuto per il geniale lavoro svolto
e a te che lo hai rifinito stamattina. Chiedo scusa allora, non volevo offendere nessuno...
Ultima modifica:
miki55
Advanced Member >PLATINUM PLUS<
La terzina rimanente csp di TO 42.20.54 è all’interno della quartina capolista….
Quanto tempo può resistere ancora???
Suggerirei il determinato dei TRE direttamente sulla QUINTA POSIZIONE...
Ultima modifica:
Enplein
Super Member >PLATINUM<
Grazie Mike per la considerazione che contracambio con grande stima.
In merito a questa ricerca, ho trovato delle previsioni molto interessanti....
Ho cercato di isolare i casi che presentano una determinata differenza estrattiva
ed un suo Rit. Sto.
Casi__IdA______1a Cinquina_____idB___________2a Cinquina__Diff__Ruota___Ambo Rip__Esito____Rc__R.Sto
1__01.09.2020__60.56.27.79.71__03.09.2020__38.57.71.27.05__1_____RO_______71.27_____--_____46____49
2__10.10.2020__31.83.57.90.32__29.10.2020__81.57.25.32.34__8_____GE_______57.32_____--_____22____25
3__17.11.2020__14.78.41.38.83__28.11.2020__14.12.83.85.28__5_____CA_______12.85.28__--______9____13
Buone feste, Enplein.
In merito a questa ricerca, ho trovato delle previsioni molto interessanti....
Ho cercato di isolare i casi che presentano una determinata differenza estrattiva
ed un suo Rit. Sto.
Casi__IdA______1a Cinquina_____idB___________2a Cinquina__Diff__Ruota___Ambo Rip__Esito____Rc__R.Sto
1__01.09.2020__60.56.27.79.71__03.09.2020__38.57.71.27.05__1_____RO_______71.27_____--_____46____49
2__10.10.2020__31.83.57.90.32__29.10.2020__81.57.25.32.34__8_____GE_______57.32_____--_____22____25
3__17.11.2020__14.78.41.38.83__28.11.2020__14.12.83.85.28__5_____CA_______12.85.28__--______9____13
Buone feste, Enplein.
Enplein
Super Member >PLATINUM<
Riporto il Rit. Sto della differenza 64 con la terzina su TOLa terzina rimanente csp di TO 42.20.54 è all’interno della quartina capolista….
Quanto tempo può resistere ancora???
Suggerirei il determinato dei TRE direttamente sulla QUINTA POSIZIONE...
Casi__IdA______1a Cinquina______idB________2a Cinquina____Diff__Ruota___Terzina__Esito__Rc__R.Sto
1__06.06.2020__25.46.17.52.8__ 03.11.2020__25.42.20.54.17__6_____TO____42.20.54___--___20____23
Enplein.
| - |
x Miki
l'ambo 25.17 della cinquina di Torino è uscito 03/11/2020
al 2° colpo ha dato il 52 numero della 1a terzina 46.52.8
al 3° colpo ha dato il 25 numero dell'ambo 25.17 facendo l' ambetto con il 18
e noi aspettiamo ancora la caduta della 2a terzina 42.20.54 o magari anche il 17.
Invece di cercare le cinquine che non hanno dato ancora esito, non sarebbe meglio verificare nello storico come si sono comportati gli ambi ( gioco da 2X1 ad estratto) e le terzine della 1a cinquina che considerato il ritardo trascorso dovrebbero essere + mature di quelle della 2a cinquina ?
saluti
l'ambo 25.17 della cinquina di Torino è uscito 03/11/2020
al 2° colpo ha dato il 52 numero della 1a terzina 46.52.8
al 3° colpo ha dato il 25 numero dell'ambo 25.17 facendo l' ambetto con il 18
e noi aspettiamo ancora la caduta della 2a terzina 42.20.54 o magari anche il 17.
Invece di cercare le cinquine che non hanno dato ancora esito, non sarebbe meglio verificare nello storico come si sono comportati gli ambi ( gioco da 2X1 ad estratto) e le terzine della 1a cinquina che considerato il ritardo trascorso dovrebbero essere + mature di quelle della 2a cinquina ?
saluti
miki55
Advanced Member >PLATINUM PLUS<
In queste Cinquine, c'è un AMBO RIPETUTO sortito almeno due volte,x Miki
l'ambo 25.17 della cinquina di Torino è uscito 03/11/2020
al 2° colpo ha dato il 52 numero della 1a terzina 46.52.8
al 3° colpo ha dato il 25 numero dell'ambo 25.17 facendo l' ambetto con il 18
e noi aspettiamo ancora la caduta della 2a terzina 42.20.54 o magari anche il 17.
Invece di cercare le cinquine che non hanno dato ancora esito, non sarebbe meglio verificare nello storico come si sono comportati gli ambi ( gioco da 2X1 ad estratto) e le terzine della 1a cinquina che considerato il ritardo trascorso dovrebbero essere + mature di quelle della 2a cinquina ?
saluti
ma che ancora non ha dato esito come l'estratto di coppia.
Attualmente la ruota di ROMA ha un'ambo Csp 27.71 e la loro
media di caduta (in generale) è intorno alle 45/55 estrazioni...
La terzina di ROMA 42.20.54 invece, è una convergenza, all'interno
della quartina capilista e tra i quattro estratti ed è chiaro che si preferisce
questa formazione per una eventuale rottura della stessa.
Poi ognuno faccia le sue valutazioni...
Ultima modifica:
Ciao Miki e ciao ad Enplein e Claudio e scusatemi ma c'è una cosa che non capisco e cioè lo script mi dà un ritardo storico di 58 a Torino e quindi vorrei capire come esce fuori questo rit. Sto di 23...
Se posso aggiungerei una mia favorevole simpatia per il 20 (Torino e anche se in questo post non c'entra, Roma) perchè a memoria non ricordo di aver mai visto un 1) Terminatore 2) Isocrono 3) Isotopo e su ruote contigue (vedi script di Claudio) a ritardo 20.
Grazie!
micro
Se posso aggiungerei una mia favorevole simpatia per il 20 (Torino e anche se in questo post non c'entra, Roma) perchè a memoria non ricordo di aver mai visto un 1) Terminatore 2) Isocrono 3) Isotopo e su ruote contigue (vedi script di Claudio) a ritardo 20.
Grazie!
micro
Enplein
Super Member >PLATINUM<
Ciao micro, il motivo è semplice....il R.Sto di 58 estrazioni su TO corrisponde alla differenza estrattiva del 1a cinquina con la 2a cinquina
con un valore da 1 a (ad esempio) 64, mentre il R. Sto di 23 Estrazioni si riferisce esclusivamente alle cinquine con differenza 6.
In questo modo posso determinare i R. Sto di ogni differenza presa singolarmente
Riporto un esempio con la differenza 1 tra le cinquine :
Archivio da 04.05.2005 / 7440 al 19.12.2020 / 9862
IdA 1a Cinquina IdB 2a cinquina dif Ruota Amb.Rip. Esito RCA R.Sto. Terzina Esito RCT R.Sto.
12.11.2020 77.20.34.21.52 14.11.2020 20.23.34.18.72 1 Ba 20.34 -- 15 35 23.18.72 5 -- 31
28.11.2020 86.62.14.54.23 01.12.2020 54.90.05.23.53 1 Mi 54.23 -- 8 47 90.05.53 4 -- 33
01.09.2020 60.56.27.79.71 03.09.2020 38.57.71.27.05 1 Ro 71.27 -- 46 49 38.57.05 13 -- 22
10.12.2020 38.07.81.20.15 12.12.2020 74.87.81.16.38 1 Ve 81.38 -- 3 46 74.87.16 1 -- 26
Buone feste, Enplein.
Buongiorno Enplein e tanti Auguri a te a tutti, ce n'è proprio bisogno!!
Non riesco a capire la questione della differenza.
Se si riferisce al numero di estrazioni intercorse tra l'uscita su ruota dello stesso ambo bivalente e quindi per formare le 2 cinquine CSP, su Torino conto 65 estrazioni di differenza per l'ambo bivalente in oggetto. Come scaturisce la differenza 6?
GRazie e buona giornata
micro
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
