LottoGAM Forum

Cinquine sincrone passo X, SCRIPT

« Older   Newer »
  Share  
g.silent
view post Posted on 7/1/2019, 13:55

Top Member

Group:
Member
Posts:
768

Status:


Se può essere utile:

S.E.&O.

CODICE
'CINQUINE SINCRONE per ambo a colpo, a passo X
Sub Main()
       Dim ruota(1)
       Dim max(90),rita(90),esiti(90)
       Dim num(5)
       For rr = 3 To 3 'SCEGLI RUOTA
               Messaggio NomeRuota(rr)
               ruota(1) = rr
               eini = 3950'EstrazioneFin - 1500
               efin = EstrazioneFin
               Scrivi "=========================" & NomeRuota(rr)
               Scrivi
               Scrivi NomeRuota(rr)
               Scrivi "Cinquine sincrone per ambo a colpo, a passo X",1
               x = 0
               y = 37
               Scrivi "da passo " & x + 1 & " a passo " & y + 1
               Scrivi
               Scrivi "dal " & DataEstrazione(eini) & " al " & DataEstrazione(efin)
               Scrivi "nelle sortite non sono contaggiate le sortite multiple (terno=1ambo)"
               Scrivi
               For ep = x To y
                       AvanzamentoElab x,y,ep
                       For i = eini To efin
                               For l = 1 To 5
                                       num(l) = Estratto(i -(ep + 1),rr,l)
                               Next
                               If SerieFreq(i,i,num,ruota,2) > 0 Then
                                       rita(ep) = 0
                                       esiti(ep) = esiti(ep) + 1
                               Else
                                       If SerieFreq(i,i,num,ruota,2) = 0 Then
                                               rita(ep) = rita(ep) + 1
                                               If max(ep) < rita(ep) Then max(ep) = rita(ep)
                                       End If
                               End If
                       Next
               Next
               Scrivi "passo" & Space(3),0,0
               Scrivi "rit___sto__sortite" & Space(5),0,0
               Scrivi
               For es = eFin - y To eFin
                       Scrivi " " & FormatSpace(efin - es + 1,6) & " " & FormatSpace(rita(efin - es),5) & " "_
                       & FormatSpace(max(efin - es),4) & " " & FormatSpace(esiti(efin - es),4)
               Next
               Erase rita
               Erase        max
               Erase        esiti
       Next
End Sub


saluti
 
Top
New Mat
view post Posted on 7/1/2019, 14:38

Top Member

Group:
Member
Posts:
3,902

Status:


Caro amico,
lo sapevo che se l'argomento fosse stato di tuo gradimento, saresti arrivato con le tue soluzioni immediate.
Per le cinquine mi hai fatto ricordare che ho anch'io uno script che ho visto fa più o meno le stesse cose e non ci avevo pensato di cercarlo: è proprio la vecchiaia!
Tu sei giovane ed hai la memoria fresca, sono stato un po' fessacchiotto a non pensare a quello che avevo in casa riferito alle cinquine.
Ho l'attenuante che cercavo una soluzione generale riferita anche alle terzine, gli ambi e gli estratti che tanto interessano Claudio ed ho perso di vista quello che potevo avere a portata di mano.

Il tuo script è perfetto, veloce, immediato e ruota per ruota dà tutti i passi riferiti alle cinquine.

Resta parzialmente il problema di Claudio per i singoli ambi, terzine ed anche estratti, hai qualcosa al riguardo?

Grazie grande amico, questo è il tuo modo di farci gli auguri, come al solito senza tante parole; ti auguro un anno splendido a te ed alla tua famiglia, ciao

Matteo
 
Top
g.silent5
view post Posted on 7/1/2019, 15:54




Non so se può andare bene:

HTML
'Terzine sincrone per ambo a passo x: ritardo attuale
'per gli storici: mettere eini=3950, scegliere un solo passo, togliere apice
'a scrivimatrice max e metterlo su scrivimatrice rita
Sub Main()
Dim num(3)
Dim ruota(1)
Dim rita(10,13)
Dim max(10,13)
Scrivi
For x = 1 To 5'scegliere passo
c = 0
H = 0
Scrivi "============================================================passo " & x
Scrivi Space(5),0,0
For rr = 1 To 10
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 10 Then Scrivi
If rr = 11 Then rr = 12
c = c + 1
ruota(1) = rr
eini = EstrazioneFin - 1000 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - x,rr,p)
num(2) = Estratto(i - x,rr,pp)
num(3) = Estratto(i - x,rr,ppp)
If SerieFreq(i,i,num,ruota,2) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
Next
For z = 1 To 3
For k = z + 1 To 4
For w = k + 1 To 5
h = h + 1
rita(h,11) = Z
rita(h,12) = K
rita(h,13) = W
max(h,11) = Z
max(h,12) = K
max(h,13) = W
Next
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub
 
Top
New Mat
view post Posted on 7/1/2019, 17:19

Top Member

Group:
Member
Posts:
3,902

Status:


Caro Gaspare,
mi sembra che con gli anni sei diventato ancora più veloce: si vede che non ti pesano.
Ho potuto controllare per le terzine solo gli attuali e mi sembrano tutti giusti; per gli storici non ho altri mezzi di confronto, perciò aspettiamo Claudio che sicuramente li avrà.
Comunque ho provato ugualmente anche quello sugli storici ed in pochi secondi dà i risultati richiesti.
Veramente ottimo lavoro, complimenti e tu sai bene che questi sono sempre sinceri.
Un grosso ringraziamento, un abbraccio,

Matteo
 
Top
silop2005
icon1  view post Posted on 7/1/2019, 18:09
Avatar

Top Member

Group:
Member
Posts:
1,121
Location:
campania

Status:


LOGOSILOP
==============
Ciao g.silent ,
BRAVISSIMO e complimenti come sempre.
Grazie dei due script veramente favolosi e veloci.
Buona serata a tutto il forum.
======================
stickman
A presto
Silop ;) ;) ;)
 
Web  Top
g.silent51
view post Posted on 7/1/2019, 19:22




Per ringraziare dei gentili apprezzamenti:

il seguente script mostra la tabella riassuntiva dei ritardi attuali per ambo delle cinquine

da passo 1 a passo 38

CODICE
'CINQUINE SINCRONE per ambo a colpo, a passo X: tabella riassuntiva
Sub Main()
       Dim ruota(1)
       Dim max(40,11),rita(40,11)
       Dim num(5)
       eini = EstrazioneFin - 500
       efin = EstrazioneFin
       Scrivi "Cinquine sincrone per ambo a colpo, a passo X",1
       x = 0
       y = 37
       Scrivi "da passo " & x + 1 & " a passo " & y + 1
       Scrivi
       Scrivi "Ritardi attuali  al " & DataEstrazione(efin)
       Scrivi
       For rr = 1 To 10
               For ep = x To y
                       ruota(1) = rr
                       For i = eini To efin
                               For l = 1 To 5
                                       num(l) = Estratto(i -(ep + 1),rr,l)
                               Next
                               If SerieFreq(i,i,num,ruota,2) > 0 Then
                                       rita(ep,rr) = 0
                               Else
                                       If SerieFreq(i,i,num,ruota,2) = 0 Then
                                               rita(ep,rr) = rita(ep,rr) + 1
                                               If max(ep,rr) < rita(ep,rr) Then max(ep,rr) = rita(ep,rr)
                                       End If
                               End If
                       Next
               Next
       Next
       Scrivi Space(4),0,0
       For rr = 1 To 10
               Scrivi FormatSpace(SiglaRuota(rr),6),0,0
               If rr = 10 Then Scrivi "passo",0,1
       Next
       For Z = X To Y
               rita(z,11) = Z + 1
               max(z,11) = Z + 1
       Next
       ScriviMatrice rita
       'ScriviMatrice max
       Erase rita
       Erase max
End Sub
 
Top
micro_
view post Posted on 7/1/2019, 19:28

Top Member

Group:
Member
Posts:
1,292

Status:


GRAZIE!!!
 
Top
*Skorpio*
view post Posted on 7/1/2019, 19:40
Avatar

Top Member

Group:
Member
Posts:
3,839

Status:


Un caro saluto a tutti!
A questo punto sono confuso...non so più chi ringraziare e come ringraziare :o:
Sono appena rientrato a casa dal lavoro e mi sono ritrovato "in un attimo" gli strumenti necessari per approfondire le mie analisi!
Grazie di cuore a Matteo che ci ha passato sopra sicuramente delle ore del suo prezioso tempo e tutto questo solo per solidarietà ed altruismo...ma grazie infinite anche a Gaspare che si immediatamente adoperato per fornire il suo preziosissimo contributo!!!
Non vedo l'ora di buttarmi a capofitto nelle verifiche, ma per ora incombe la cena :P
E' un regalo immenso, non immaginate quanto...grazie ancora!
Claudio.
 
Top
*Skorpio*
view post Posted on 7/1/2019, 21:57
Avatar

Top Member

Group:
Member
Posts:
3,839

Status:


Buona serata, ho fatto le prime prove e fila tutto che è una meraviglia...complimenti a Gaspare anche da parte mia, molto sentiti!
Purtroppo devo dare una delusione a Matteo in quanto non ho mai approfondito le ricerche sulle terzine per ambo, era già tanto se riuscivo ad elaborare i dati sulle cinquine..sempre peraltro con grande fatica (mentre ora in pochi attimi tutto appare sotto gli occhi in modo chiaro e preciso).
Quindi niente storici Mat, mi dispiace.
L'analisi sulle coppie, terzine e quartine - oltre logicamente alle cinquine - l'ho sviluppata in alcune occasioni, quando era necessario, per la ricerca sui singoli estratti, ma anche in questo caso il materiale raccolto è ben lontano da fornire dei dati di raffronto. Troppo impacciato e dispersivo il sistema che ho sempre dovuto usare con le varie fasi di copia ed incolla e filtri vari per poter accedere a risultati completi ed ampi.
Chissà se risulterebbe altrettanto "immediata" la risposta di uno script mirato a questo tipo di ricerca, io proprio non ho idea. Mi sembra già un miracolo quello che potrò realizzare grazie ai vostri interventi Matteo e Gaspare.
Dalle tabelle in elaborazione si evidenziano già alcuni dati interessanti che varrà la pena di verificare con attenzione nei prossimi giorni, semprechè il tempo lo permetta.
La prossima estrazione già incombe...
Buonanotte, Claudio.
 
Top
New Mat
view post Posted on 7/1/2019, 23:32

Top Member

Group:
Member
Posts:
3,902

Status:


Ciao a tutti,

caro Claudio, comprendo la tua confusione di questo momento di euforia per aver individuato il mezzo che allevia tante fatiche con una grande ottimizzazione di raccolta dati.

L'amico Gaspare a ripetizione nel tempo ormai mi ha abituato troppo bene a questi momenti particolari, in cui le fatiche le vedi diminuire e nello stesso tempo hai più possibilità di vedere e ragionare sul quadro generale dello studio che si porta avanti.

Caro Gaspare, con te ormai non ho più parole per elogiarti e ringraziarti per quello che hai fatto e continui a fare in ormai tanti anni di conoscenza reciproca.
In questa grande passione per questo gioco e per questi studi abbiamo tanti punti in comune, che ci fanno sempre ritrovare ogni tanto su qualche argomento non tanto esplorato.

A proposito dei dati storici delle terzine ho fatto alcuni controlli sugli attuali e mi sembrano tutti giusti.
Per avere gli storici nei prossimi giorni se non trovo altro modo per fare verifiche, farò alcuni tentativi andando a ritroso nell'archivio per individuare e verificare alcuni storici.
Comunque credo che siano tutti esatti.
A prima vista mi pare che dal passo 1 al passo 18 il massimo ritardo delle terzine sia stato intorno alle 1800 estraz. seguito da altri sotto le 1500 e comunque poche volte si sono superate le 1200 estraz.
Il fatto stesso che in questo momento mi pare che la terzina più ritardata ha raggiunto le 998 estraz. di ritardo e poche altre sono oltre 900 la dice lunga sull'interesse per queste formazioni particolari, che ricordiamolo sono una minoranza delle terzine sincrone che vengono messe in gioco a colpo di volta in volta.
Vedremo nei prossimi giorni l'attualità, per ora godiamoci questo spettacolo, un grosso grazie sempre a Gaspare e ciao a tutti,

Matteo

Credo che Tau sarà contento del fatto che l'argomento è proseguito in questa sezione.
 
Top
g.silent6
view post Posted on 8/1/2019, 09:54




Visto che ci sono e si parlava anche di estratti:

CODICE
' Cinquine sincrone a passo x per singolo estratto
'Ritardi attuali o storici (scambiare apici)

Sub Main()
       Dim num(5)
       Dim ruota(1)
       Dim rita(5,11)
       Dim max(5,11)
       For ep = 1 To 38
AvanzamentoElab 1,38,ep
Scrivi "-------------------------------------------------------------passo " & ep
               Scrivi
               Scrivi Space(5),0,0
               For rr = 1 To 10
                       ruota(1) = rr
                       Scrivi FormatSpace(SiglaRuota(rr),6),0,0
                       If rr = 10 Then Scrivi "posizione"
                       For p = 1 To 5
                               eini = EstrazioneFin - 250' storici 3950
                               efin = EstrazioneFin
                               For i = eini To efin
                                       num(1) = Estratto(i - ep,rr,p)
                                       If SerieFreq(i,i,num,ruota,1) > 0 Then
                                               rita(p,rr) = 0
                                       Else
                                               rita(p,rr) = rita(p,rr) + 1
                                               If max(p,rr) < rita(p,rr) Then max(p,rr) = rita(p,rr)
                                       End If
                               Next
                       Next
               Next
               For z = 1 To 5
                       rita(z,11) = z
                       max(z,11) = z
               Next
               ScriviMatrice rita 'ritardi attuali
               'ScriviMatrice max  'ritardi storici
               Erase rita
               Erase max
       Next
       Erase rita
       Erase max
End Sub


Poi provo con le coppie per estratto

Saluti
 
Top
g.silent7
view post Posted on 8/1/2019, 10:15




Coppie per estratto:

CODICE
' Coppie per estratto

Sub Main()
       Dim num(3)
       Dim ruota(1)
       Dim rita(10,13)
       Dim max(10,13)
       Scrivi
       For x = 1 To 18'scegliere passo
       Messaggio x
               c = 0
               H = 0
               Scrivi "=============================================================================passo " & x
               Scrivi Space(4),0,0
               For rr = 1 To 10
                       Scrivi FormatSpace(SiglaRuota(rr),6),0,0
                       If rr = 10 Then Scrivi "coppie"
                       If rr = 11 Then rr = 12
                       c = c + 1
                       ruota(1) = rr
                       eini = EstrazioneFin - 150 'scegliere inizio
                       efin = EstrazioneFin
                       c = 0
                       For p = 1 To 4
                               For pp = p + 1 To 5
                                       c = c + 1
                                       For i = eini To efin
                                               num(1) = Estratto(i - x,rr,p)
                                               num(2) = Estratto(i - x,rr,pp)
                                               'num(3) = Estratto(i - x,rr,ppp)
                                               If SerieFreq(i,i,num,ruota,1) > 0 Then
                                                       rita(c,rr) = 0
                                               Else
                                                       rita(c,rr) = rita(c,rr) + 1
                                                       If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
                                               End If
                                       Next
                               Next
                       Next
               Next
               For z = 1 To 4
                       For k = z + 1 To 5
                               h = h + 1
                               rita(h,11) = Z
                               rita(h,12) = K
                               max(h,11) = Z
                               max(h,12) = K
                       Next
               Next
               ScriviMatrice rita
               'ScriviMatrice max
               Erase rita
               Erase max
       Next
       Erase rita
       Erase max
End Sub
 
Top
silop2005
icon1  view post Posted on 8/1/2019, 16:33
Avatar

Top Member

Group:
Member
Posts:
1,121
Location:
campania

Status:


LOGOSILOP
==============
Ciao g.silent ,
potresti "provare" a fare anche uno script per terno ?
Cinquine sincrone per terno A COLPO a passo x, su ruota e a TUTTTE.
==============
Ti ringrazio anticipatamente per tutto quello che ci regali.
Buon pomeriggio a tutto il forum.
======================
stickman
A presto
Silop ;) ;) ;)
 
Web  Top
g.silent8
view post Posted on 8/1/2019, 17:14




Ciao Silop, per quanto riguarda il terno a ruota basta

sostituire 2 con tre in questa funzione

SerieFreq(i,i,num,ruota,2) che compare due volte


CODICE
'CINQUINE SINCRONE per TERNO a colpo, a passo X
Sub Main()
       Dim ruota(1)
       Dim max(40,11),rita(40,11)
       Dim num(5)
       eini =3950' EstrazioneFin - 500
       efin = EstrazioneFin
       Scrivi "Cinquine sincrone per ambo a colpo, a passo X",1
       x = 0
       y = 17
       Scrivi "da passo " & x + 1 & " a passo " & y + 1
       Scrivi
       Scrivi "Ritardi attuali  al " & DataEstrazione(efin)
       Scrivi
       For rr = 1 To 10
               For ep = x To y
Messaggio ep
                       ruota(1) = rr
                       For i = eini To efin
                               For l = 1 To 5
                                       num(l) = Estratto(i -(ep + 1),rr,l)
                               Next
                               If SerieFreq(i,i,num,ruota,3) > 0 Then
                                       rita(ep,rr) = 0
                               Else
                                       If SerieFreq(i,i,num,ruota,3) = 0 Then
                                               rita(ep,rr) = rita(ep,rr) + 1
                                               If max(ep,rr) < rita(ep,rr) Then max(ep,rr) = rita(ep,rr)
                                       End If
                               End If
                       Next
               Next
       Next
       Scrivi Space(4),0,0
       For rr = 1 To 10
               Scrivi FormatSpace(SiglaRuota(rr),6),0,0
               If rr = 10 Then Scrivi "passo",0,1
       Next
       For Z = X To Y
               rita(z,11) = Z + 1
               max(z,11) = Z + 1
       Next
       ScriviMatrice rita
       'ScriviMatrice max
       Erase rita
       Erase        max
End Sub


Per il terno a tutte ci proverò

Ti ringrazio per l' apprezzamento

Saluti a tutti
 
Top
g.silent8
view post Posted on 8/1/2019, 17:30




Per il terno a tutte nel listato sopra sostituire ruota(1) = rr

con ruota(1) = 11
 
Top
53 replies since 7/1/2019, 13:55   2406 views
  Share  
 

Aiuto per Listati
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree