Joe91;n1951488 ha scritto:Ciao
devi troncare l' archivio cancellando tuttele estrazioni del 2016....
Poi fai l'aggiornamento
Ciao Joe91 come si fa a troncare l'archivio alla data da te riferitami? grazie
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.
Joe91;n1951488 ha scritto:Ciao
devi troncare l' archivio cancellando tuttele estrazioni del 2016....
Poi fai l'aggiornamento
grazie ciaoSerpico 90;n1951944 ha scritto:Buon giorno... per Vincenzo e Claudio intanto complimenti per il vostro lavoro ho problemi per intervenire perchè appena entro nella pagina per scrivere ci cuole molto tempo .....comunque spero di scoprire cosa fare per migliorare ..........per quanto riguarda il lavoro da voi postato ..... (grazie per il tuo intervento)
io sto scoprendo che quando la selezione dei numeri indica un numero a ZERO nell'estrazione precedente lo stesso numero è già stato estratto ( esatto, questo perchè i ritardi si riferiscono alla situazione precedente l'estrazione stessa) e poi nelle estraziioni successive....diciamo al 50% lo stesso numero estratto due volte lo ritroviamo estratto o da solo o a volte con uno dei numeri facenti parte della estrazione questa ricerca per ora la sto facendo per la ruota di Venezia ma controllando altre ruote ho visto che il fenome in parte si ripete. ( penso di aver capito,ma se inserisci qualche esempio è meglio, per evitare che io possa interpretare )
Non so se ha queste conclusioni già ci eravate arrivati...........Chiedo cortesemente a Claudio8 se è possibile creare uno script dove poter inserire le due cinquine estratte dove vi è lo stesso numero ( indicato dal metodo con lo ZERO) e verificare con quale numero si abbina dei nove rimanenti ( ripeto:.penso di aver capito, ma se inserisci qualche esempio è meglio, per evitare che io possa interpretare )
Se non sono stato chiaro nell'esposizione potrei indicarvi le date e le ruote per poter capire al meglio quello che ho descritto. Attendo, ciao
In attesa vi saluto
Serpico
'Vers. 4 (Indice di Ruota con singola tabella e doppio grafico, delta-ritardi e media-ritardi colre 1a mese ed ambate + esiti x ambata )
Sub Main
Dim nu(1),ru(1),ritN(5),anum(5),clp(100),nr(10),ambo(2)
Dim n,es,r,rit,rit5e,ritIni,ritEs,DeltaRit,ritPrec,p,esc,Zerograf,ritTot1,ritT1,ritTot,ritT,d,du,colRitMax,colRitMin,c,retcolpi,clpg
r = InputBox("QUALE Ruota","RUOTA DI RICERCA",10)
colRitMin = CInt(InputBox("QUALE Ritardo Minimo Evidenzio?","RITARDO MINIMO",0))
colRitMax = CInt(InputBox("QUALE Ritardo aggiungo x definire il Massimo Evidenziato? ","RITARDO MASSIMO",0))'se unico ritardo mantenere questo parametro a "0"
clpg = CInt(InputBox("QUANTI colpi di gioco?","COLPI di Gioco",100))
scelta39 = CInt(InputBox("Vuoi valutare tutto l'archivio dal 1939 ?"," Si=1 No= 0 ",0))
If scelta39 = 1 Then
'Inizio costrutto per Calcolo ritardo medio di tutto l'archivio dal "39"
esc39 = CInt((EstrazioneFin - 3549) - 1)
d39 = CInt(esc39)
ReDim aDati(d39 + 1,3)
Ini = EstrazioneFin - esc39
fin = EstrazioneFin ' parametro di fine archivio definito da quanto impostato su SPMT
co = 0
ritTot39 = 0
For es = Ini To fin
co = co + 1
Call AvanzamentoElab(Ini,fin,es)
Call Messaggio("estrazione " & es)
If ScriptInterrotto Then Exit For
ritIni = 0
For n = 1 To 90
rit = RitardoEstrattoTurbo(n,es,r)
ritIni = rit + ritIni
Next
aDati(co,0) = co
aDati(co,1) = GetInfoEstrazione(es) & "-" & ritIni
aDati(co,2) = ritIni
ritT = aDati(co,2)
ritTot39 = ritTot39 + ritT
Next
ColoreTesto 0
Scrivi " Indice di Ruota per " & NomeRuota(r) & " - Media Ritardi su " & FormatSpace(d39 + 1,4,1) & " estrazioni = " & CInt(ritTot39/(d39 + 1)) & " ",1,,6
Else
End If
' fine costrutto x Media ritardo dell'intero archivio dal "39" - storico
'''''''''''''''''''''''''''''''''''
esc = CInt(InputBox("QUANTE ESTRAZIONI ANALIZZIAMO"," Estrazioni (x visione andamento..100) ",250) - 1)
Zerograf = CInt(InputBox("QUALE Valore utilizzo per lo 'ZeroGrafico'","ZEROGRAFICO.. (1500) ",1500))
d = CInt(esc)
ReDim aDati(d + 1,3)
Ini = EstrazioneFin - esc
fin = EstrazioneFin ' parametro di fine archivio definito da quanto impostato su SPMT
''''
ReDim T(22)
T(1) = "Info ... estraz. "
T(2) = "I.D.R."
T(3) = "Delta"
T(4) = " n. E s t r a t t i "
T(5) = "r.1°"
T(6) = "r.2°"
T(7) = "r.3°"
T(8) = "r.4°"
T(9) = "r.5°"
T(10) = "Som"
T(11) = "Es.tti 1°colpo"
T(12) = "Es.tti 2°colpo"
T(13) = "Es.tti 3°colpo"
T(14) = "Es.tti 4°colpo"
T(15) = "Es.tti 5°colpo"
T(16) = "Es.tti 6°colpo"
T(17) = "Es.tti 7°colpo"
T(18) = "esito 1° estr"
T(19) = "esito 2° estr"
T(20) = "esito 3° estr"
T(21) = "esito 4° estr"
T(22) = "esito 5° estr"
Call InitTabella(T,2,,1,5,"Calibri")
co = 0
ritTot = 0
For es = Ini To fin
co = co + 1
Call AvanzamentoElab(Ini,fin,es)
Call Messaggio("estrazione " & es)
If ScriptInterrotto Then Exit For
For p = 1 To 5
n = Estratto(es,r,p)
ritEs = RitardoEstrattoTurbo(n,es - 1,r)' ritardo alla estrazione precedente del singolo Estratto
ritN(p) = ritEs
Next
ritIni = 0
For n = 1 To 90
rit = RitardoEstrattoTurbo(n,es,r)
ritIni = rit + ritIni
Next
aDati(co,0) = co
If IsUltimaDelMese(es - 1) = True Then
ColoreTesto 4
aDati(co,1) = "PrimaMese ->" & "-" & ritIni
Else
ColoreTesto 0
aDati(co,1) = GetInfoEstrazione(es) & "-" & ritIni
End If
aDati(co,2) = ritIni - Zerograf
ritT = aDati(co,2) + Zerograf
ritTot = ritTot + ritT
ReDim V(22)
ColoreTesto 2
V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
V(2) = ritIni
If es = Ini Then
V(3) = "n.c."
Else
V(3) = aDati(co,2) - aDati(co - 1,2)
End If
V(4) = StringaEstratti(es,r)
V(5) = FormatSpace(ritN(1),3,1)
V(6) = FormatSpace(ritN(2),3,1)
V(7) = FormatSpace(ritN(3),3,1)
V(8) = FormatSpace(ritN(4),3,1)
V(9) = FormatSpace(ritN(5),3,1)
V(10) = FormatSpace(ritN(1) + ritN(2) + ritN(3) + ritN(4) + ritN(5),3,1)
V(11) = StringaEstratti(es + 1,r)
V(12) = StringaEstratti(es + 2,r)
V(13) = StringaEstratti(es + 3,r)
V(14) = StringaEstratti(es + 4,r)
V(15) = StringaEstratti(es + 5,r)
V(16) = StringaEstratti(es + 6,r)
V(17) = StringaEstratti(es + 7,r)
'''''' Controllo se all'interno del range di ritardo e verifico esito di Ambata
ru(1) = r
If CInt(V(5)) >= colRitMin And CInt(V(5)) <= colRitMax Then
anum(1) = Estratto(es,r,1)
'ru(1) = r
If VerificaEsitoTurbo(anum,ru,es + 1,1,clpg,,retesito,clp1,retestratti) = True Then
V(18) = anum(1) & "-" & clp1 & "° - " & StringaEstratti(es + clp1,r)
Else
V(18) = " negativo "
End If
Else
V(18) = " - "
End If
If CInt(V(6)) >= colRitMin And CInt(V(6)) <= colRitMax Then
anum(1) = Estratto(es,r,2)
'ru(1) = r
If VerificaEsitoTurbo(anum,ru,es + 1,1,clpg,,retesito,clp2) = True Then
V(19) = anum(1) & "-" & clp2 & "° - " & StringaEstratti(es + clp2,r)
Else
V(19) = " negativo "
End If
Else
V(19) = " - "
End If
If CInt(V(7)) >= colRitMin And CInt(V(7)) <= colRitMax Then
anum(1) = Estratto(es,r,3)
'ru(1) = r
If VerificaEsitoTurbo(anum,ru,es + 1,1,clpg,,retesito,clp3) = True Then
V(20) = anum(1) & "-" & clp3 & "° - " & StringaEstratti(es + clp3,r)
Else
V(20) = " negativo "
End If
Else
V(20) = " - "
End If
If CInt(V(8)) >= colRitMin And CInt(V(8)) <= colRitMax Then
anum(1) = Estratto(es,r,4)
'ru(1) = r
If VerificaEsitoTurbo(anum,ru,es + 1,1,clpg,,retesito,clp4) = True Then
V(21) = anum(1) & "-" & clp4 & "° - " & StringaEstratti(es + clp4,r)
Else
V(21) = " negativo "
End If
Else
V(21) = " - "
End If
If CInt(V(9)) >= colRitMin And CInt(V(9)) <= colRitMax Then
anum(1) = Estratto(es,r,5)
'ru(1) = r
If VerificaEsitoTurbo(anum,ru,es + 1,1,clpg,,retesito,clp5) = True Then
V(22) = anum(1) & "-" & clp5 & "° - " & StringaEstratti(es + clp5,r)
Else
V(22) = " negativo "
End If
Else
V(22) = " - "
End If
Call AddRigaTabella(V,,,1,,"Calibri")
If IsUltimaDelMese(es - 1) = True Then Call SetColoreCella(1,3)
If CInt(V(5)) >= colRitMin And CInt(V(5)) <= colRitMax Then Call SetColoreCella(5,vbYellow,vbBlack)
If CInt(V(6)) >= colRitMin And CInt(V(6)) <= colRitMax Then Call SetColoreCella(6,vbYellow,vbBlack)
If CInt(V(7)) >= colRitMin And CInt(V(7)) <= colRitMax Then Call SetColoreCella(7,vbYellow,vbBlack)
If CInt(V(8)) >= colRitMin And CInt(V(8)) <= colRitMax Then Call SetColoreCella(8,vbYellow,vbBlack)
If CInt(V(9)) >= colRitMin And CInt(V(9)) <= colRitMax Then Call SetColoreCella(9,vbYellow,vbBlack)
Next
Call SetTableWidth("100%")
ColoreTesto 0
Scrivi " Indice di Ruota per " & NomeRuota(r) & " - Media Ritardi su " & FormatSpace(d + 1,4,1) & " estrazioni = " & CInt(ritTot/(d + 1)) & " -> ZeroGrafico imposto = " & Zerograf & " ",1,,4
Call Grafico(aDati,2,"Indice di Ruota","titX ","titY")
Call CreaTabellaOrdinabile
' SEZIONE X ANALISI DELLE ULTIME 10 (o a scelta) ESTRAZIONI
scelta = CInt(InputBox("Vuoi valutare le ultime estrazioni?"," Si=1 No= 0 ",1))
If scelta = 1 Then
Dim escUltime
escUltime = CInt(InputBox("QUANTE ESTRAZIONI ANALIZZIAMO"," Estrazioni(x lettura I.D.R. -> 25)",25) - 1)
du = CInt(escUltime)
ReDim aDati1(du + 1,3)
Ini = EstrazioneFin - escUltime
''''''fin = EstrazioneFin ' parametro del fine archivio impostato su SPTM
'Call InitTabella(T,2,,1,5,"Calibri")
co = 0
ritTot = 0
For es = Ini To fin
co = co + 1
Call AvanzamentoElab(Ini,fin,es)
Call Messaggio("estrazione " & es)
If ScriptInterrotto Then Exit For
' For p = 1 To 5
' n = Estratto(es,r,p)
' ritEs = RitardoEstrattoTurbo(n,es - 1,r)' ritardo alla estrazione precedente del singolo Estratto
' ritN(p) = ritEs
' Next
ritIni = 0
For n = 1 To 90
rit = RitardoEstrattoTurbo(n,es,r)
ritIni = rit + ritIni
Next
aDati1(co,0) = co
aDati1(co,1) = ritIni & " - " & GetInfoEstrazione(es)
aDati1(co,2) = ritIni - Zerograf'c1
ritT1 = aDati1(co,2) + Zerograf
ritTot1 = ritTot1 + ritT1
' 'ReDim V(22)
' ColoreTesto 2
' V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
' V(2) = ritIni
' If es = Ini Then
' V(3) = "n.c."
' Else
' V(3) = aDati1(co1,2) - aDati1(co - 1,2)
' End If
' V(4) = StringaEstratti(es,r)
' V(5) = FormatSpace(ritN(1),3,1)
' V(6) = FormatSpace(ritN(2),3,1)
' V(7) = FormatSpace(ritN(3),3,1)
' V(8) = FormatSpace(ritN(4),3,1)
' V(9) = FormatSpace(ritN(5),3,1)
' V(10) = FormatSpace(ritN(1) + ritN(2) + ritN(3) + ritN(4) + ritN(5),3,1)
' V(11) = StringaEstratti(es + 1,r)
' V(12) = StringaEstratti(es + 2,r)
' V(13) = StringaEstratti(es + 3,r)
' V(14) = StringaEstratti(es + 4,r)
' V(15) = StringaEstratti(es + 5,r)
' V(16) = StringaEstratti(es + 6,r)
' V(17) = StringaEstratti(es + 7,r)
' V(18) = "no"
' V(19) = "no"
' V(20) = "no"
' V(21) = "no"
' V(22) = "no"
' Call AddRigaTabella(V,,,1,,"Calibri")
' If IsUltimaDelMese(es - 1) = True Then Call SetColoreCella(1,4)
Next
'Call SetTableWidth("100%")
ColoreTesto 0
Scrivi " Indice di Ruota per " & NomeRuota(r) & " - Media Ritardi sulle ultime " & du + 1 & " estrazioni = " & CInt(ritTot1/(du + 1)) & " -> ZeroGrafico imposto = " & Zerograf & " ",1,,3
Call Grafico(aDati1,2,"Indice di Ruota Ultime estrazioni","titX ","titY")
'Call CreaTabellaOrdinabile
Else
End If
End Sub
Serpico 90;n1951994 ha scritto:Ri ciao ........vedremo........
Ho notato che di questi casi ce ne sono abbastanza ECCO PERCHE TI CHIEDO SE PUOI INSIEME A VINCENZO DI TROVARE QUALCHE ALGORITMO (COSI SI DICE ) che ci aiuti ad individuare UNO O AL MASSIMO DUE NUMERI PER POTER GIOCARE 18 COLPI CON DUE EURO A COLPO E SE VA BENE SE NON PAZIENZA SI RICOMINCIA CON ALTRA PREVISIONE.
Io aspetto se cortesemente fai uno script..per fare le verifiche di quanto sopra descritto perchè stare davanti al p.c. si stancano gli occhi.
Spero di aver fatto cosa gradita A VOI L'ARDUA SENTENZA
SERPICO
Sub Main()
Dim rt(1),pte(1),pta(2),am(1),ambo(9),nr(9),nn(5)
Dim rit,clp,estr
estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",15))
clp = CInt(InputBox("Quanti colpi di gioco?","Colpi",20))
rit = CInt(InputBox("Quale ritardo?","Ritardo",0))
pte(1) = 1
pta(2) = 1
ini = EstrazioneFin - estr
fin = EstrazioneFin
rt(1) = r
'rt(2) = 11 'tutte
For es = ini To fin
For r = 1 To 10
For p = 1 To 5
If RitardoEstrattoTurbo(Estratto(es,r,p),es - 1,r) = rit Then
p2 = Posizione(es -(rit + 1),r,Estratto(es,r,p))
ng = 0
am(1) = Estratto(es,r,p)
rt(1) = r
ng = ng + 1
ImpostaGiocata ng,am,rt,pte,clp
nr(1) = Estratto(es,r,FuoriX(p + 1,5))
nr(2) = Estratto(es,r,FuoriX(p + 2,5))
nr(3) = Estratto(es,r,FuoriX(p + 3,5))
nr(4) = Estratto(es,r,FuoriX(p + 4,5))
nr(5) = Estratto(es -(rit + 1),r,FuoriX(p2 + 1,5))
nr(6) = Estratto(es -(rit + 1),r,FuoriX(p2 + 2,5))
nr(7) = Estratto(es -(rit + 1),r,FuoriX(p2 + 3,5))
nr(8) = Estratto(es -(rit + 1),r,FuoriX(p2 + 4,5))
For x = 1 To 8
ambo(1) = am(1)
ambo(2) = nr(x)
ng = ng + 1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
co = co + 1
Scrivi GetInfoEstrazione(es -(rit + 1)) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es -(rit + 1),r) & " ---> Caso n° " & co,1,,3
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ritardo = " & rit & " --- n° ripetuto = " & am(1),1,,4
Call Gioca(es,True,False,2)
End If
Next
Next
Next
ScriviResoconto
End Sub
vincenzo4221;n1950411 ha scritto:MAGNIFICO Claudio , mi metto subito all'opera..............
vincenzo4221;n1952454 ha scritto:Ciao Claudio , l'argomento che stiamo trattando porta via tanto tempo nello sviluppo (almeno x le mie capacità) , e sono veramente felice di aver intrapreso con te questo rapporto spero d'amicizia facilitata dalla passione comune, e quindi non finiro mai di ringraziarti per quello che stai facendo. niente ringraziamenti, è un piacere anche per me quando trovo il tempo per questi lavori.
Ritornando al Lotto , faccio un breve prologo delle intenzioni , appassionandomi a questo gioco da tanto tempo, tanti sono stati gli studi e gli argomenti da me trattati e tanti sono i quesiti che intendo risolvere con il tuo aiuto, in questo lungo tempo trascorso , ho cercato di "tirar le somme" dei molti argomenti trattati , ma mi sono reso conto di aver bisogno di uno scripter con cui condividere le proprie deduzioni .
Quindi ti preannuncio che vorrei trattare anche altre argomentazioni che prevedono la professionalità che ti distinque.
Quindi dei 4 o 5 argomenti che tratterò , questo dell'INDICE è di sicuro il più astruso e si presta a tante variabili , mentre noi dobbiamo stare nello scritto di cui sopra per non perderci.( meno male che cominciamo con il + astruso )
Siamo alla prima parte dell'argomento , infatti abbiamo ottenuto un grafico è dovremo adesso capire attraverso il suo andamento se e’ propizio un gioco sui numeri più ritardati oppure su quelli meno in ritardo.
Con la vers. 3 o 4 puoi vedere l'andamento delle ultime a tua scelta
A questo punto chiedo il vs intervento se sbaglio : come operare ? far partire lo script (Vers 3) una prima volta per analizzare un periodo , questo è risolvibile in automatico con la specifica del periodo
(in questo caso non serve esaminare un periodo lunghissimo basteranno 250 estrazioni ) e trovare il dato medio di questo range di estrazioni in questo caso 1540 ( molto vicino a 1523 con range di 5500 estrni), facciamo ripartire di nuovo lo script dandogli il dato medio , si otterra un grafico più preciso dov'è evidente la ciclicità dell'indice di ruota (come da scritto) , ora se alla data odierna L'indice è al di sopra del dato medio , stiamo attraversando un periodo deve escono numeri numeri frequenti, mentre se ( attualmente) l'INDICE è al disotto del dato medio stanno uscendo numeri ritardatari , ora purtroppo il dato pur segnalandoci una tendenza , non possiamo dire che la situazione sia molto delineata , perchè il dato è appena sopra all'indice medio , molto vicino allo zero , è non segnala un periodo molto "deciso" come potrebbe essere quello che va da luglio ad agosto dello scorso anno (vedi grafico).
A mio parere,l’andamento dell’indice lo si evince solo considerando poche ultime estrazioni (15-20) già impostato nello script
Quindi in base allo scritto di cui sopra siamo appena agli inizi , bisogna adesso verificare , che le segnalazioni provenienti dallo script siano valide , cioè , (ad esempio) è vero che nel periodo ago/set del 2015 sono usciti più numeri frequenti?
E' possibile verificare con lo script il comportamento dei numeri , ad esempio colorando diversamente i numeri che appartengono ai ritardatari (o ai frequenti ), e a proposito ti avevo già chiesto di evidenziare la colonna "somma ritardi" tramite un colore solo le caselle dove la somma era +85( ok ), adesso ti chiedo anche di poter evidenziare tramite un colore solo i numeri frequenti ( o ritardatari) delle colonne estratti 1à colpo , ecc. ad esempio nel'output nelle righe degli estratti avremo dei numeri segnati in rosso e alla fine aggiungerei un'altra colonna con % o totale di numeri frequenti o ritardatari.
Questa parte non è chiara, se riesci a fare degli esempi anche visivi e specifici mi eviti di ipotizzare.
Per la frequenza, cosa intendi: le uscite nel periodo che si imposta o nell’ultimo ciclo di 18 estrazioni?
Una volta che abbiamo verificato l'esattezza dei dati , passiamo alla fase successiva che è quella di trovare nelle estrazioni passate , quelle estrazioni che più si avvicinano ai dati dell'estr.ne in esame e a tal riquardo si usa, trovare nel passato più INDICI di ruota con uguale dato a quello attuale ; tra queste estrazioni del passato trovare la somma globale dell'estr.ne ,
Questa parte dello script prevede un rifacimento totale dello stesso con una impostazione diversa (occorre farlo lavorare su di un archivio)
e per questo motivo riporto una parte dello scritto "
Dalla simulazione effettuata è risultato che una ruota a parità di numero indice conseguito anche in estrazioni lontane tra i loro tende ad avere una distribuzione ritardi similare.
A parità di distribuzione dei ritardi (somma globale), nella settimana successiva tendono a sortire i numeri estratti (come in passato) nelle medesime caselle"
Spiegami quali sarebbero le caselle di cui fai cenno
E' qui che lo script deve arrivare e dopo ci manca la terza e ultima parte. Ciao vincenzo
Mettici pure la terza parte così evito di trovarmi nella condizione di ulteriormente rivoluzionarlo
INVITO TUTTI ALLA VERIFICA