Terno Ripetuto
- Creatore Discussione lota
- Data di inizio
Ciao, Lota.
Sul terno ripetuto avevo fatto uno script diverso tempo fà.
Non fare caso agli storici, non sono più aggiornati
Te lo posto.
Sul terno ripetuto avevo fatto uno script diverso tempo fà.
Non fare caso agli storici, non sono più aggiornati
Te lo posto.
Codice:
Sub main()
' Per Lota Terni ripetuti
'storici
'casi 267
'Massimo storico 610
' storico>500 1
' storico>400 3
' storico>300 4
' storico>200 16
' storico>100 66
Scrivi " Terno ripetuto (Cinzia) "&chr(10)
Dim ru(2),n(3),n1(3)
fin=EstrazioneFin
ini=fin-200' ultime 200 estrazioni se metti solo 1 al posto di fin-200 scorre l' intero archivio
For es=ini To fin
Messaggio(es)
For r=1 To 10
ru(1)=r
For r1=r+1 To 11
If r1=11 Then r1=12
ru(2)=r1
For p=1 To 3
For p1=p+1 To 4
For p2=p1+1 To 5
n(1)=Estratto(es,r,p)
n(2)=Estratto(es,r,p1)
n(3)=Estratto(es,r,p2)
If n(1)>0 Then
For q=1 To 3
For q1=q+1 To 4
For q2=q1+1 To 5
n1(1)=Estratto(es,r1,q)
n1(2)=Estratto(es,r1,q1)
n1(3)=Estratto(es,r1,q2)
If n1(1)>0 Then
If n(1)=n1(1)Or n(1)=n1(2)Or n(1)=n1(3)Then
If n(2)=n1(1)Or n(2)=n1(2)Or n(2)=n1(3)Then
If n(3)=n1(1)Or n(3)=n1(2)Or n(3)=n1(3)Then
s=SeriePrima(es+1,fin,n,ru,2)
If s=0 Then
at=fin-es
cas=cas+1
Scrivi FormatSpace(cas,4)&")"&DataEstrazione(es)& Space(2)&formatspace(es,4)& Space(2)& SiglaRuota (r)& Space(2)& SiglaRuota (r1)& _
Space(2)&StringaNumeri(n)& Space(2)&StringaNumeri(n1)& Space(4)& "ATT "&formatspace(at,4),1
Else
If s>0 Then
casi=casi+1
st=s-es-1
If st>mx Then mx=st
If st>500 Then ce=ce+1
If st>400 Then ce1=ce1+1
If st>300 Then ce2=ce2+1
If st>200 Then ce3=ce3+1
If st>100 Then ce4=ce4+1
Scrivi FormatSpace(casi,4)&")"&DataEstrazione(es)& Space(2)&formatspace(es,4)& Space(2)& SiglaRuota (r)& Space(2)& SiglaRuota (r1)& _
Space(2)&StringaNumeri(n)& Space(2)&StringaNumeri(n1)& Space(4)&formatspace(s,4)& Space(4)& "STO "& _
FormatSpace(st,4),0,0
Scrivi " Aggiornamento massimo storico "&formatspace(mx,4)
End If
End If
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
Next
Next
Scrivi "casi "&casi
Scrivi "Massimo storico "&mx
Scrivi " storico>500 "&ce
Scrivi " storico>400 "&ce1
Scrivi " storico>300 "&ce2
Scrivi " storico>200 "&ce3
Scrivi " storico>100 "&ce4
End SubVisto Cinzia27 intanto grazie ma non fà quello che vorrei, colpa mia che non ho sono spiegato bene la richiesta. Alora lo script dovrebbe cercarmi a ritroso max 20 estr. un terno uguale ripetuto uscito su ruota o su ruote diverse senza altro vincolo se non quello della presenza
Zetrix
Advanced Premium Member
For es1 = EstrazioneFin -10 To EstrazioneFin
For es2 = EstrazioneFin -10 To EstrazioneFin
n(1)=Estratto(es1,r,p)
n(2)=Estratto(es1,r,p1)
n(3)=Estratto(es1,r,p2)
n1(1)=Estratto(es2,r1,q)
n1(2)=Estratto(es2,r1,q1)
n1(3)=Estratto(es2,r1,q2)
lota devi aggiungere es1 e es2 per avere il quadro completo dei terni ripetuti
27.07.2021 1840 MI PA 10.22.53 10.53.22
19.08.2021 1850 MI PA 10.22.53 10.53.22
31.07.2021 1842 GE MI 8.70.83 83.8.70
05.08.2021 1844 GE MI 8.70.83 83.8.70
31.07.2021 1842 CA PA 44.13.19 44.19.13
10.08.2021 1846 CA PA 44.13.19 44.19.13
05.08.2021 1844 BA PA 78.19.13 19.78.13
10.08.2021 1846 BA PA 78.19.13 19.78.13
19.08.2021 1850 BA NZ 35.56.62 62.56.35
10.08.2021 1846 BA NZ 35.56.62 62.56.35
For es2 = EstrazioneFin -10 To EstrazioneFin
n(1)=Estratto(es1,r,p)
n(2)=Estratto(es1,r,p1)
n(3)=Estratto(es1,r,p2)
n1(1)=Estratto(es2,r1,q)
n1(2)=Estratto(es2,r1,q1)
n1(3)=Estratto(es2,r1,q2)
lota devi aggiungere es1 e es2 per avere il quadro completo dei terni ripetuti
27.07.2021 1840 MI PA 10.22.53 10.53.22
19.08.2021 1850 MI PA 10.22.53 10.53.22
31.07.2021 1842 GE MI 8.70.83 83.8.70
05.08.2021 1844 GE MI 8.70.83 83.8.70
31.07.2021 1842 CA PA 44.13.19 44.19.13
10.08.2021 1846 CA PA 44.13.19 44.19.13
05.08.2021 1844 BA PA 78.19.13 19.78.13
10.08.2021 1846 BA PA 78.19.13 19.78.13
19.08.2021 1850 BA NZ 35.56.62 62.56.35
10.08.2021 1846 BA NZ 35.56.62 62.56.35
trivellatomariotretre33
Super Member >PLATINUM<
Ciao zetrix potresti postarlo per intero lo script grazie
druid
Super Member >PLATINUM<
Buongiorno Cinzia e tutti gli intervenuti....
la differenza fra i risultati ottenuti dallo script e quelli attesi da Lota, sta nel fatto che lo script fa' una ricerca "sequenziale" (passami il termine) dei numeri.....
Andando a leggere l' estrazione (es.: a,b,c,d,e) verrebbero trovati solo i terni letti in "sequenza" (es.: a,b,c), ma se nell'altra estrazione troviamo ad es. il terno c,b,a o b,c,a o c,a,b o ......sempre nelle tre prime posizioni questo non verrebbe rilevato.....
Praticamente ogni terno sviluppa 6 combinazioni....
Spero di essere stato comprensibile....
Ciao
Zetrix
Advanced Premium Member
Codice:
Sub Main()
Dim es1,es2,r1,r2
Scrivi " Terno ripetuto (Cinzia) " & Chr(10),0,1,3,7
Dim ru(2),n(3),n1(3)
For es1 = EstrazioneFin - 10 To EstrazioneFin
For es2 = EstrazioneFin - 10 To EstrazioneFin
For r1 = 1 To 10
ru(1) = r1
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
ru(2) = r2
For p = 1 To 3
For p1 = p + 1 To 4
For p2 = p1 + 1 To 5
n(1) = Estratto(es1,r1,p)
n(2) = Estratto(es1,r1,p1)
n(3) = Estratto(es1,r1,p2)
If n(1) > 0 Then
For q = 1 To 3
For q1 = q + 1 To 4
For q2 = q1 + 1 To 5
n1(1) = Estratto(es2,r2,q)
n1(2) = Estratto(es2,r2,q1)
n1(3) = Estratto(es2,r2,q2)
If n1(1) > 0 Then
If n(1) = n1(1)Or n(1) = n1(2)Or n(1) = n1(3)Then
If n(2) = n1(1)Or n(2) = n1(2)Or n(2) = n1(3)Then
If n(3) = n1(1)Or n(3) = n1(2)Or n(3) = n1(3)Then
Scrivi FormatSpace(cas,4) & " " & DataEstrazione(es1) & Space(2) & FormatSpace(es1,4) & Space(2) & SiglaRuota(r1) & Space(2) & SiglaRuota(r2) & _
Space(2) & StringaNumeri(n) & Space(2) & StringaNumeri(n1) & Space(4) & " " & FormatSpace(at,4),0,1,1,4
Scrivi FormatSpace(casi,4) & " " & DataEstrazione(es2) & Space(2) & FormatSpace(es2,4) & Space(2) & SiglaRuota(r1) & Space(2) & SiglaRuota(r2) & _
Space(2) & StringaNumeri(n) & Space(2) & StringaNumeri(n1) & Space(4) & FormatSpace(s,4) & Space(4) & " " & _
FormatSpace(st,4),0,1,7,4
Scrivi " " & FormatSpace(mx,4)
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
Next
Next
Next
End Subciao trivellato , allego lo script ho modificato alcune cose comunque chiedete a cinzia
se volete sistemare meglio lo script che lei e piu brava di me..
Buongiorno a Tutti, grazie x le soluzioni suggerite però ancora purtroppo non ci siamo con il risultato che vorrei raggiungere anche se siamo molto vicini. Per Zetrix ( che ringrazio) nel tuo script manca il terno ripetuto 9.15.74 cagliari del 24.7.2021 e Bari 74.15.9 del 21.08.2021
trivellatomariotretre33
Super Member >PLATINUM<
grazie Zetrix aspettiamo Cinzia con le modifiche ,
Nikor
Premium Member
Un saluto a tutte/i i partecipanti, se posso dire la mia spenderei 2 scritti al riguardo:
Il termine terni ripetuti è generico e si suddivide in 3 distinte classi:
1 ] Terno ripetuto nella stessa estrazione , dicasi Terno Isocrono .
2 ] Terno ripetuto a Ruota ( può variare in un lasso di tempo che spazia da poche estrazioni fino al massimo in corso di una Cinquina Sincrona ) .
3 ] Terno uscito nel Comparto ( x ) che si ripete su uno dei 9 Comparti rimanenti.
Si possono unire le 3 elaborazioni in contemporanea e poi appurare dalla tabella quali siano i 3 casi distinti.
Un esempio vale più di cento scritti, ho provato ad elaborare tale concetto sulle 10 ruote ( Nazionale esclusa ) in un range ristretto di sole 10 estrazioni che spazia dalla data del 31/07/2021 al 21/08/2021 per avere sotto mano i casi rilevati.
Questo è quanto accaduto:
Si evince dalla tabella che in questo lasso di tempo non ci sono stati Terni Isocroni, possiamo inoltre notare una ripetizione sul comparto toscano di Firenze ; ed altri 4 casi di ripetizione su altri comparti…….
5 sono state le ripetizioni, se invece dovessimo andare a ritroso per altre 10 estrazioni ( 20 totali ) i casi riscontrati sono ben 19 , ovvero 14 altri casi oltre a quelli citati.....
Mi auspico che possa essere utile per i vostri riscontri, Cordialità da Nikor.
Il termine terni ripetuti è generico e si suddivide in 3 distinte classi:
1 ] Terno ripetuto nella stessa estrazione , dicasi Terno Isocrono .
2 ] Terno ripetuto a Ruota ( può variare in un lasso di tempo che spazia da poche estrazioni fino al massimo in corso di una Cinquina Sincrona ) .
3 ] Terno uscito nel Comparto ( x ) che si ripete su uno dei 9 Comparti rimanenti.
Si possono unire le 3 elaborazioni in contemporanea e poi appurare dalla tabella quali siano i 3 casi distinti.
Un esempio vale più di cento scritti, ho provato ad elaborare tale concetto sulle 10 ruote ( Nazionale esclusa ) in un range ristretto di sole 10 estrazioni che spazia dalla data del 31/07/2021 al 21/08/2021 per avere sotto mano i casi rilevati.
Questo è quanto accaduto:
Si evince dalla tabella che in questo lasso di tempo non ci sono stati Terni Isocroni, possiamo inoltre notare una ripetizione sul comparto toscano di Firenze ; ed altri 4 casi di ripetizione su altri comparti…….
5 sono state le ripetizioni, se invece dovessimo andare a ritroso per altre 10 estrazioni ( 20 totali ) i casi riscontrati sono ben 19 , ovvero 14 altri casi oltre a quelli citati.....
Mi auspico che possa essere utile per i vostri riscontri, Cordialità da Nikor.
Ringrazio tutti per la collaborazione, Sono d' accordo con Nikor. Il termine ripetuto è troppo generico.
Però, secondo me, la 2 è da escludere perché non ha senso considerare come ripetuto un terno che si riaffaccia sulla stessa ruota dopo svariate estrazioni e la 1 e la 3 vanno bene ma dicono la stessa cosa
1 ] Terno ripetuto nella stessa estrazione , dicasi Terno Isocrono .
2 ] Terno ripetuto a Ruota ( può variare in un lasso di tempo che spazia da poche estrazioni fino al massimo in corso di una Cinquina Sincrona ) .
3 ] Terno uscito nel Comparto ( x ) che si ripete su uno dei 9 Comparti rimanenti.
Nikor, sempre secondo la mia opinione, avrebbe dovuto aggiungere:
Terno che si ripete all'estrazione successiva su ruota o su tutte.
Premetto che non ho intenzione di ricevere rimbrotti da parte di Nikor, se si vuole discutere lo si fa civilmente.
Una cortesia a chi chiede script : siate puntuali nella descrizione di ciò che vorreste, altrimenti si lavora il doppio o il triplo.
Buona domenica a tutti.
Però, secondo me, la 2 è da escludere perché non ha senso considerare come ripetuto un terno che si riaffaccia sulla stessa ruota dopo svariate estrazioni e la 1 e la 3 vanno bene ma dicono la stessa cosa
1 ] Terno ripetuto nella stessa estrazione , dicasi Terno Isocrono .
2 ] Terno ripetuto a Ruota ( può variare in un lasso di tempo che spazia da poche estrazioni fino al massimo in corso di una Cinquina Sincrona ) .
3 ] Terno uscito nel Comparto ( x ) che si ripete su uno dei 9 Comparti rimanenti.
Nikor, sempre secondo la mia opinione, avrebbe dovuto aggiungere:
Terno che si ripete all'estrazione successiva su ruota o su tutte.
Premetto che non ho intenzione di ricevere rimbrotti da parte di Nikor, se si vuole discutere lo si fa civilmente.
Una cortesia a chi chiede script : siate puntuali nella descrizione di ciò che vorreste, altrimenti si lavora il doppio o il triplo.
Buona domenica a tutti.
Nikor
Premium Member
Ciao credo che abbiamo detto le stesse cose , ma proviamo un veloce ripasso:
Al punto 2 [ 2 ] ) si evince in tabella un terno che si è ripetuto a Firenze ! perchè non considerare le ripetizioni a ruota?
Per quanto concerne questo tuo scritto :
Morale della favola il punto ( 2 ) verifica le ripetizioni a ruota, mentre il punto ( 3 ) verifica le ripetizioni sulle rimanenti ruote ......
Avevo voluto specificare i 3 distinti valori perchè hanno la loro importanza per quando si sceglie una delle 3 distinte ricerche!
Spero di aver chiarito l'inghippo ( se cosi lo vogliamo definire ) ......
Per Lota:
Ciao Lota, per lo script non è possibile e come già scritto più volte la sintassi delle mie routine non sono compatibili con il VBscript. mi avvalgo di motore software con implementate librerie precompilate che eliminano la scrittura di lunghi codici richiamando solo ciò che serve all’occorrenza.
Per pura curiosità ho aggiunto la ruota Nazionale sulle ultime 20 estrazioni, se dalla fretta non ho commesso errori , ai precedenti 19 casi si devono aggiungere questi 3 ( nuovi ):
1 ] 10/07/2021 Napoli > 55-72-25 – Nazionale> 72-25-55 - 27/07/2021.
2 ] 17/07/2021 Nazionale> 18-26-01 – Milano> 01-26-18 – 03/08/2021.
3 ]10/08/2021 Nazionale> 62-56-35 – Bari> 35-56-62 – 19/08/2021.
Nel caso ci siano incongruenze potete segnalarmele .
Grazie a te Lota per aver apprezzato il mio piccolo contributo …..
Nikor.
Al punto 2 [ 2 ] ) si evince in tabella un terno che si è ripetuto a Firenze ! perchè non considerare le ripetizioni a ruota?
Per quanto concerne questo tuo scritto :
Al punto [ 3 ] leggasi:
Non è forse il caso di un Terno che si ripete sulle altre ruote?
Morale della favola il punto ( 2 ) verifica le ripetizioni a ruota, mentre il punto ( 3 ) verifica le ripetizioni sulle rimanenti ruote ......
Avevo voluto specificare i 3 distinti valori perchè hanno la loro importanza per quando si sceglie una delle 3 distinte ricerche!
Spero di aver chiarito l'inghippo ( se cosi lo vogliamo definire ) ......
Per Lota:
Ciao Lota, per lo script non è possibile e come già scritto più volte la sintassi delle mie routine non sono compatibili con il VBscript. mi avvalgo di motore software con implementate librerie precompilate che eliminano la scrittura di lunghi codici richiamando solo ciò che serve all’occorrenza.
Per pura curiosità ho aggiunto la ruota Nazionale sulle ultime 20 estrazioni, se dalla fretta non ho commesso errori , ai precedenti 19 casi si devono aggiungere questi 3 ( nuovi ):
1 ] 10/07/2021 Napoli > 55-72-25 – Nazionale> 72-25-55 - 27/07/2021.
2 ] 17/07/2021 Nazionale> 18-26-01 – Milano> 01-26-18 – 03/08/2021.
3 ]10/08/2021 Nazionale> 62-56-35 – Bari> 35-56-62 – 19/08/2021.
Nel caso ci siano incongruenze potete segnalarmele .
Grazie a te Lota per aver apprezzato il mio piccolo contributo …..
Nikor.
Zetrix
Advanced Premium Member
Ciao lota, lo script e da rivedere perche con 3 numeri il fattoriale da 6 combinazioni
per avere questo risultato basti che scrivi nella calcolatrice 3! con il punto esclamativo
cio vuole dire che con 3 numeri abbiamo la seguente combinazione di terni
1.2.3
1.3.2
2.1.3
2.3.1
3.1.2
3.2.1
per cui si devono aggiungere altre if allo script per avere tutte le combinazioni
possibili
quanto posso vedrò se riesco a modificare lo script..
Per me la una e la tre sono la stessa cosa, ma non voglio insistere.
E riconosco il merito di avere evidenziato la non univocità del termine.
Veniamo alla richiesta di Lota
E riconosco il merito di avere evidenziato la non univocità del termine.
Veniamo alla richiesta di Lota
Codice:
Sub Main()
' Per Lota Terni che si sono manifestati più volte nelle ultime tot estrazioni
Scrivi " Terno ripetuto (Cinzia) "&Chr(10)
Dim ru(1),n(3),rur(2)
fin=EstrazioneFin
ini=fin-20' ultime 20 estrazioni
rr=11
rr1=12
rur(1)=rr
rur(2)=rr1
For i=1 To 88
For j=i+1 To 89
For x=j+1 To 90
c=0
n(1)=i
n(2)=j
n(3)=x
If SerieFreq(ini,fin,n,rur,3)>1 Then
For es=ini To fin
If SerieFreq(es,es,n,rur,3)>0 Then
c=c+1
Messaggio FormatSpace(c,4,1)&")"&DataEstrazione(es)& Space(2)&FormatSpace(es,4)& Space(2)&StringaNumeri(n)
Scrivi FormatSpace(c,4,1)&")"&DataEstrazione(es)& Space(2)&FormatSpace(es,4)& Space(2)&StringaNumeri(n)&" ",0,0
For r=1 To 11
If r=11 Then r=12
ru(1)=r
If SerieFreq(es,es,n,ru,3)>0 Then
Scrivi " uscito a "&SiglaRuota (r)
End If
Next
End If
Next
End If
If c>0 Then Scrivi "casi " &c
Next
Next
Next
End SubZetrix
Advanced Premium Member
Codice:
Sub Main()
Dim es1,es2,r1,r2
Scrivi " Terno ripetuto (Cinzia) " & Chr(10),1,1,7,4
Dim ru(2),n(3),n1(3)
For es1 = EstrazioneFin - 15 To EstrazioneFin
For es2 = EstrazioneFin - 15 To EstrazioneFin
For r1 = 1 To 10
ru(1) = r1
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
ru(2) = r2
For p = 1 To 3
For p1 = p + 1 To 4
For p2 = p1 + 1 To 5
n(1) = Estratto(es1,r1,p)
n(2) = Estratto(es1,r1,p1)
n(3) = Estratto(es1,r1,p2)
If n(1) > 0 Then
For q = 1 To 3
For q1 = q + 1 To 4
For q2 = q1 + 1 To 5
n1(1) = Estratto(es2,r2,q)
n1(2) = Estratto(es2,r2,q1)
n1(3) = Estratto(es2,r2,q2)
If n1(1) > 0 Then
If n(1) = n1(1)Or n(1) = n1(2)Or n(1) = n1(3)Then
If n(2) = n1(1)Or n(2) = n1(2)Or n(2) = n1(3)Then
If n(3) = n1(1)Or n(3) = n1(2)Or n(3) = n1(3)Then
If n(1) = n1(1)Or n(1) = n1(3)Or n(1) = n1(2)Then
If n(2) = n1(1)Or n(2) = n1(3)Or n(2) = n1(2)Then
If n(3) = n1(1)Or n(3) = n1(3)Or n(3) = n1(2)Then
If n(1) = n1(2)Or n(1) = n1(1)Or n(1) = n1(3)Then
If n(2) = n1(2)Or n(2) = n1(1)Or n(2) = n1(3)Then
If n(3) = n1(2)Or n(3) = n1(1)Or n(3) = n1(3)Then
If n(1) = n1(2)Or n(1) = n1(3)Or n(1) = n1(1)Then
If n(2) = n1(2)Or n(2) = n1(3)Or n(2) = n1(1)Then
If n(3) = n1(2)Or n(3) = n1(3)Or n(3) = n1(1)Then
If n(1) = n1(3)Or n(1) = n1(1)Or n(1) = n1(2)Then
If n(2) = n1(3)Or n(2) = n1(1)Or n(2) = n1(2)Then
If n(3) = n1(3)Or n(3) = n1(1)Or n(3) = n1(2)Then
If n(1) = n1(3)Or n(1) = n1(2)Or n(1) = n1(1)Then
If n(2) = n1(3)Or n(2) = n1(2)Or n(2) = n1(1)Then
If n(3) = n1(3)Or n(3) = n1(2)Or n(3) = n1(1)Then
Scrivi FormatSpace(cas,4) & " " & DataEstrazione(es1) & Space(2) & FormatSpace(es1,4) & Space(2) & SiglaRuota(r1) & Space(2) & SiglaRuota(r2) & _
Space(2) & StringaNumeri(n) & Space(2) & StringaNumeri(n1) & Space(4) & " " & FormatSpace(at,4),1,1,1,4
Scrivi FormatSpace(casi,4) & " " & DataEstrazione(es2) & Space(2) & FormatSpace(es2,4) & Space(2) & SiglaRuota(r1) & Space(2) & SiglaRuota(r2) & _
Space(2) & StringaNumeri(n) & Space(2) & StringaNumeri(n1) & Space(4) & FormatSpace(s,4) & Space(4) & " " & _
FormatSpace(st,4),1,1,7,4
Scrivi " " & FormatSpace(mx,4)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
Next
Next
Next
End Sublota prova questo script
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 04 maggio 2024Bari0231815221Cagliari3988840167Firenze3630700641Genova5923612227Milano0517695739Napoli8162824350Palermo7355624518Roma7670016415Torino8255357046Venezia5823612921Nazionale1014014309Estrazione Simbolotto
Milano
3001053211
