Ritardi e Frequenze

[vincenzo4221]

Ciao a tutti e Auguroni di un Buon Anno migliore x tutti noi.

In tanti anni di letture su tecniche e teorie "lottistiche" , sono state tante anche le volte , che mi domando dove orientare meglio le mie ricerche.
A questo risponde un altro studio ,( e a ben vedere visto alternarsi delle ultime vicessitudini sul apparire dei numeri nel tabellone analitico ); un "Indice" che ci possa aiutare a scegliere
il momento giusto per attacare i frequenti o i ritardatari , BENE , questo esiste già, ad esempio nella BORSA AFFARI, e qualcuno da tempo aveva studiato l'approccio al LOTTO.
CHE FACCIAMO ? ci diamo da fare per rendere fattibile lo studio , con uno script?
Se interessa posto l'argomento , ciao e Auguriiii.

 

[claudio8]

Vai pure avanti postando l'argomento.... il digiuno mi fa venire mal di pancia , e tanti auguri 2016

 

[vincenzo4221]

DAL WEB (autore D'amore):
" Cose’ l’analisi tecnica dell’indice di ruota?
L’analisi tecnica e’ lo studio di un indice di una ruota effettuato con l’esame dei 90 numeri che la rappresentano nella loro evoluzione estrazionale. Detta analisi perche’ sia visibile ed utilizzabile viene a sua volta supportata da grafici che ne facilitano la comprensione.
In questo modo amiamo definire la nostra tecnica di previsione basata sul numero e sul ritardo ad esso correlato.
Tutto questo per poter individuare il momento piu’ propizio ad attaccare una serie di combinazioni prossime allo sfaldamento attraverso una inversione di tendenza (che spiegheremo in seguito) del ritardo "massimo" o "minimo".
La teoria che andiamo a trattare in questa sede non e’ altro che il tentativo
di esportare al Gioco del Lotto le tecniche di previsione utilizzate
dagli operatori finanziari per prevedere l'andamento futuro delle
quotazioni dei titoli azionari della Borsa Valori (analisi tecnica grafica).
Come è noto è possibile non solo rappresentare graficamente
l'andamento di una singola azione ma anche l'andamento di un Indice
di Borsa, cioè di un dato paniere di titoli, per ricavarne le
tendenze generali del mercato o di un dato settore.
Anche per il Gioco del Lotto è possibile seguire oltre alle vicende
del singolo numero (ritardo, frequenza, etc...) anche l'andamento
di una Ruota nel suo complesso e cioè la distribuzione complessiva
dei ritardi.
Per far ciò è necessario individuare un parametro che sia in
grado di riassumere in un solo grafico il quadro estrazionale di una
ruota e la sua distribuzione complessiva dei ritardi. Il cosiddetto trend azionario in borsa valori. Una volta individuato tale parametro sarà possibile rappresentarlo
graficamente per studiarne le serie storiche e l'andamento in un
dato arco di tempo allo scopo di predirne la sua evoluzione.
Un tale parametro, scelto proprio per la sua significatività, è
stato da noi denominato INDICE DI RUOTA.
Come si ottiene l’indice di ruota ? Modus operandi.
L'indice si ricava dopo ogni estrazione sommando
in un unico valore globale il ritardo attuale di tutti i 90 numeri di ogni singola ruota. Lo
stesso risultato si otterrebbe facendo la somma algebrica di + 85 - SRNE, dove per SRNE si evince la Somma del Ritardo dei Numeri Estratti.
Ogni settimana vengono estratti cinque numeri. Detti numeri dopo essere usciti sulla ruota in esame azzerano il loro ritardo. Questo provoca una diminuzione dell'indice globale pari alla somma dei ritardi che i numeri avevano prima di essere estratti.
Gli altri 85 numeri non sortiti aumentano di contro il loro ritardo di una unità incrementando l'indice di ruota di un numero fisso (85), pari alla somma dei singoli incrementi. Per sintetizzare e’ bene specificare che ogni settimana si avrà un aumento dell'indice di ruota se la somma dei ritardi dei numeri estratti è inferiore
a 85, mentre si avrà una diminuzione dell'indice di ruota se la
somma dei ritardi dei numeri estratti è maggiore di 85.
A cosa porta tutto ciò ?
E' evidente che se l'indice di ruota ha un valore molto basso significa che c'è uno scarso accumulo di ritardi (c’e’ un decremento del trend nel grafico).
Perchè l'indice possa risalire (riferirsi al grafico allegato a titolo di esempio) è necessario che la somma dei ritardi dei numeri estratti sia inferiore ad 85, che escano cioè
numeri poco ritardati, posizionati in basso in un qualsiasi "tabellone dei ritardi" che comunemente trovate in molti giornali specializzati.
In poche parole che si verifichi il fenomeno dei cosiddetti numeri meno in ritardi o estratti di recente che dir si voglia.
Se l'indice ha un valore molto elevato e’ in atto un elevato accumulo dei ritardi e quindi perchè si inverta la tendenza è necessario che la somma dei ritardi dei numeri che
sortiscono sia maggiore di 85.
Dall'analisi grafica dell'indice di ruota è possibile
ricavare la sua tendenza di fondo in maniera tale da poter decidere
se è più opportuno giocare i numeri più in ritardo o viceversa
quelli meno in ritardo (sortiti di recente). Una volta formulata la previsione sull'evoluzione dell'indice ci si trova di fronte ad una indicazione generica quale la seguente :
sappiamo dall’andamento del grafico se e’ propizio un gioco sui numeri più ritardati oppure su quelli meno in ritardo. E' a questo punto che viene in soccorso il ritardo
di posizione.
Una volta constatato che bisogna giocare i numeri meno in ritardo una ulteriore scrematura dei dati la si può ottenere selezionando tra questi quelli con il maggior ritardo di casella . LO SCRIPT DOVREBBE FARE l' ANALISI GRAFICA DELL'INDICE DI RUOTA mostrando graficamente l'evoluzione dell'indice di ruota, indicandone il valore ad ogni estrazione e segnalando ed evidenziando i valori minimo e massimo registrati storicamente sulla ruota (dal 1939n ad oggi) e le estrazioni del passato che eventualmente hanno fatto registrare un valore dell'indice uguale a quello dell'ultima estrazione.
Si potrà facilmente vedere che l'indice di ruota ha un andamento
ciclico in cui ad una fase di accumulo dei ritardi (aumento dell'in-
dice) segue una fase di dispersione degli stessi ("sfaldamento", diminuzione dell'indice).
A questo punto non resta che tirare le somme dello studio della tecnica in oggetto. Con il computer abbiamo simulato alcune decine di milioni di estrazioni
ed abbiamo scoperto che l'indice di ruota ha statisticamente una maggior tendenza ad aumentare il suo trend piuttosto che a diminuirlo. Questo è da imputare evidentemente al fatto che i ritardi si accumulano con una maggiore lentezza rispetto al tempo necessario per la loro dispersione (fase di uscita "sfaldamento"), ciò significa che statisticamente una persona che gioca 5 numeri la cui somma dei ritardi è minore di 85 avrebbe maggiori probabilità di vincita rispetto ad un'altra che giochi sempre 5 numeri la cui
somma dei ritardi è maggiore di 85.
Dalla simulazione effettuata è risultato che una ruota a
parità di numero indice conseguito anche in estrazioni lontane tra
di 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.
LOSCRIPT DOVREBBE segnalare le ESTRAZIONE CON DISTRIBUZIONE
RITARDI SIMILARE va alla ricerca tra tutte le estrazione del passato,
(la ricerca e’ condotta dal 1939 ad oggi), dell'estrazione con una distribuzione
ritardi più vicina a quella dell'ultima estrazione memorizzata e
ne segnala il TOTALE DIFFERENZE ricavato (come da grafico riportato sotto).
Facendo la somma di tutte le differenze tra i ritardi dei numeri che si trovano nella
medesima posizione; individua i numeri sortiti nella estrazione
successiva a quella similare trovata nel passato.
Dopo aver ricavato l'indirizzo di posizione di tali numeri quantificabile nel numero di 5 (quanti sono gli estratti su singola ruota in una qualsiasi estrazione), ricerca i numeri
che si trovano nella stessa posizione dopo l'ultima estrazione, i numeri da giocare.

I numeri così ricavati saranno tanto più attendibili quanto
minore sarà il TOTALE DIFFERENZE riscontrato. Piu’ tale valore sara’ vicino a 0 piu’ sara’ probabile l’uscita di uno, due, tre numeri.....dei cinque pronosticati.
Si consiglia pertanto di consultare tutte le dieci ruote per
ricercare la ruota in cui si è rintracciata una estrazione precedente
con una distribuzione ritardi più vicina al valore 0.cioe’ al valore piu’ basso. E’ tutto cosi semplice ? No.
L'imperfezione di questo metodo sta nel fatto di operare con un archivio estrazioni quantitativamente limitato rispetto al numero di estrazioni di confronto necessarie per riscontrarne almeno una con DIFFERENZA = 0.
Vi potete "consolare" pensando che ogni volta che memorizzate una nuova estrazione aumentate le probabilità di ottenere tale risultato (differenza minima) nelle consultazioni future."
ciao

 

[claudio8]

Grazie x l'argomento, vedo di trovare il tempo per abbozzare qualcosa.
Chiunque altro voglia partecipare alla realizzazione dello script è benvenuto.
Saluti e buona Epifania ... "che le feste porta via".

 

[claudio8]

Un passo alla volta per evitare di prendere un percorso errato.
Cominciamo con questo scipt che mette in elenco/tabella le estrazioni che vogliamo visionare.
x Vincenzo: comincia con il controllare, se hai possibilità i ritardi dei singoli estratti usciti e se i dati in tabella sono esatti.
Le colonne "estratti 1°colpo... estratti7° colpo per ora non fanno testo, verranno sostituite con i ritardi ai vari colpi.
Possiamo filtrare (usando le icone filtro e cannocchiale) la tabella per indice di ruota (I.D.R.) in modo da avere sott'occhio solo le estrazioni relative ad uno specifico IDC.
Per il grafico, devo rivedere la funzione per applicarla, se qualcuno la conosce bene, può fare le modifiche del caso.
Buona visione e se il caso fai o fate ossservazioni o suggerimenti, sono ben accette.

 Sub Main
    ReDim V(15)
    Dim nu(1),ru(1),ritN(5)
    'Dim escluse
    Dim n,es,r,rit,rit5e,ritIni,ritEs,DeltaRit,ritPrec,p
    escluse = InputBox("QUANTE ESTRAZIONI ESCLUDIAMO","Estrazioni (valore in casella riferito al 7/1/39)",250) 'EstrazioneFin - 3547 -inizio archivio dal 7/1/1939 estr.n°-3548
        r = InputBox("QUALE Ruota",,10)
    Ini = EstrazioneFin - escluse
    fin = EstrazioneFin ' parametro del fine archivio impostato su SPTM
    Scrivi " Indice di Ruota per ................ " & NomeRuota(r),1
    ReDim T(15)
    T(1) = "Info ... estraz. "
    T(2) = "  I.D.R."
    T(3) = " E s t r a t t i  "
    T(4) = "r.1°"
    T(5) = "r.2°"
    T(6) = "r.3°"
    T(7) = "r.4°"
    T(8) = "r.5°"
    T(9) = " Es.tti 1° colpo"
    T(10) = "Es.tti 2° colpo"
    T(11) = "Es.tti 3° colpo"
    T(12) = "Es.tti 4° colpo"
    T(13) = "Es.tti 5° colpo"
    T(14) = "Es.tti 6° colpo"
    T(15) = "Es.tti 7° colpo"
    Call InitTabella(T,2,,1,5,"Calibri")
         For es = Ini To fin
               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,p)' 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
        ' Scrivi DataEstrazione(es) & " I D R. " & ritIni & " est. " & StringaEstratti(es,r) & " rit/estr. " & FormatSpace(ritN(1),3,1) & "." & FormatSpace(ritN(2),3,1) & "." & FormatSpace(ritN(3),3,1) & "." & FormatSpace(ritN(4),3,1) & "." & FormatSpace(ritN(5),3,1)
        ReDim V(15)
        ColoreTesto 2
        V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
        V(2) = ritIni
        V(3) = StringaEstratti(es,r)
        V(4) = FormatSpace(ritN(1),3,1)
        V(5) = FormatSpace(ritN(2),3,1)
        V(6) = FormatSpace(ritN(3),3,1)
        V(7) = FormatSpace(ritN(4),3,1)
        V(8) = FormatSpace(ritN(5),3,1)
        V(9) = StringaEstratti(es + 1,r)
        V(10) = StringaEstratti(es + 2,r)
        V(11) = StringaEstratti(es + 3,r)
        V(12) = StringaEstratti(es + 4,r)
        V(13) = StringaEstratti(es + 5,r)
        V(14) = StringaEstratti(es + 6,r)
        V(15) = StringaEstratti(es + 7,r)
        Call AddRigaTabella(V,,,1,,"Calibri")
    Next
    Call SetTableWidth("100%")
    ColoreTesto 0
    Call CreaTabellaOrdinabile
    End Sub

notare la estrazione del con IDR =1502 del 19/12/2015

per il grafico di tendenza, attualme è possibile esportare (icona excel) ed impostarlo con esso.

 

[vincenzo4221]

MAGNIFICO Claudio , mi metto subito all'opera..............

 

[claudio8]

Qui c'è anche il grafico ...che anche se poco leggibile, dà comunque indicazioni di andamento.

Sub Main
    ReDim V(15)
    Dim nu(1),ru(1),ritN(5)
    Dim n,es,r,rit,rit5e,ritIni,ritEs,DeltaRit,ritPrec,p,esc
    esc = CInt(InputBox("QUANTE ESTRAZIONI ESCLUDIAMO","Estrazioni (x visione andamento..100)",100))  'inizio archivio dal 7/1/1939 estr.n°-3548
    d = CInt(esc)
    ReDim aDati(d+1,3)
    r = InputBox("QUALE Ruota",,10)
    Ini = EstrazioneFin - esc
    fin = EstrazioneFin ' parametro del fine archivio impostato su SPTM
    Scrivi " Indice di Ruota per ................. " & NomeRuota(r) & " con " & d & " estrazioni",1
    ReDim T(15)
    T(1) = "Info ... estraz. "
    T(2) = "  I.D.R."
    T(3) = " E s t r a t t i "
    T(4) = "r.1°"
    T(5) = "r.2°"
    T(6) = "r.3°"
    T(7) = "r.4°"
    T(8) = "r.5°"
    T(9) = " Es.tti 1° colpo"
    T(10) = "Es.tti 2° colpo"
    T(11) = "Es.tti 3° colpo"
    T(12) = "Es.tti 4° colpo"
    T(13) = "Es.tti 5° colpo"
    T(14) = "Es.tti 6° colpo"
    T(15) = "Es.tti 7° colpo"
    Call InitTabella(T,2,,1,5,"Calibri")
    co = 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,p)' 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
        aDati(co,1) = GetInfoEstrazione(es) & "-" & ritIni
        aDati(co,2) = ritIni 'c1
        'Scrivi DataEstrazione(es) & " I D R. " & ritIni & " est. " & StringaEstratti(es,r) & " rit/estr. " & FormatSpace(ritN(1),3,1) & "." & FormatSpace(ritN(2),3,1) & "." & FormatSpace(ritN(3),3,1) & "." & FormatSpace(ritN(4),3,1) & "." & FormatSpace(ritN(5),3,1)
        ReDim V(15)
        ColoreTesto 2
        V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
        V(2) = ritIni
        V(3) = StringaEstratti(es,r)
        V(4) = FormatSpace(ritN(1),3,1)
        V(5) = FormatSpace(ritN(2),3,1)
        V(6) = FormatSpace(ritN(3),3,1)
        V(7) = FormatSpace(ritN(4),3,1)
        V(8) = FormatSpace(ritN(5),3,1)
        V(9) = StringaEstratti(es + 1,r)
        V(10) = StringaEstratti(es + 2,r)
        V(11) = StringaEstratti(es + 3,r)
        V(12) = StringaEstratti(es + 4,r)
        V(13) = StringaEstratti(es + 5,r)
        V(14) = StringaEstratti(es + 6,r)
        V(15) = StringaEstratti(es + 7,r)
        Call AddRigaTabella(V,,,1,,"Calibri")
    Next
    Call SetTableWidth("100%")
    ColoreTesto 0
    Call Grafico(aDati,2,"Indice di Ruota","titX ","titY")
    Call CreaTabellaOrdinabile
End Sub

modificando questa riga:
aDati(co,2) = ritIni 'c1
in
aDati(co,2) = ritIni - 1200'c1 .....si ottiene un grafico + indicativo degli sbalzi dell' I.D.R.

 

[claudio8]

Per un maggior approfondimento, questa versione ripete lo script x visualizzare anche l'andamento delle ultime 10 estrazioni.

Sub Main
    Dim nu(1),ru(1),ritN(5)
    Dim n,es,r,rit,rit5e,ritIni,ritEs,DeltaRit,ritPrec,p,esc
    esc = CInt(InputBox("QUANTE ESTRAZIONI ESCLUDIAMO","Estrazioni (x visione andamento..100)",100)) 'inizio archivio dal 7/1/1939 estr.n°-3548
    d = CInt(esc)
    ReDim aDati(d + 1,3)
    r = InputBox("QUALE Ruota",,10)
    Ini = EstrazioneFin - esc
    fin = EstrazioneFin ' parametro del fine archivio impostato su SPTM
    Scrivi " Indice di Ruota per ................. " & NomeRuota(r) & " con " & d & " estrazioni",1
    ReDim T(15)
    T(1) = "Info ... estraz. "
    T(2) = "  I.D.R."
    T(3) = " n. E s t r a t t i "
    T(4) = "r.1°"
    T(5) = "r.2°"
    T(6) = "r.3°"
    T(7) = "r.4°"
    T(8) = "r.5°"
    T(9) = " Es.tti 1° colpo"
    T(10) = "Es.tti 2° colpo"
    T(11) = "Es.tti 3° colpo"
    T(12) = "Es.tti 4° colpo"
    T(13) = "Es.tti 5° colpo"
    T(14) = "Es.tti 6° colpo"
    T(15) = "Es.tti 7° colpo"
    Call InitTabella(T,2,,1,5,"Calibri")
    co = 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,p)' 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
        aDati(co,1) = GetInfoEstrazione(es) & "-" & ritIni
        aDati(co,2) = ritIni - 1200'c1
        'Scrivi DataEstrazione(es) & " I D R. " & ritIni & " est. " & StringaEstratti(es,r) & " rit/estr. " & FormatSpace(ritN(1),3,1) & "." & FormatSpace(ritN(2),3,1) & "." & FormatSpace(ritN(3),3,1) & "." & FormatSpace(ritN(4),3,1) & "." & FormatSpace(ritN(5),3,1)
        ReDim V(15)
        ColoreTesto 2
        V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
        V(2) = ritIni
        V(3) = StringaEstratti(es,r)
        V(4) = FormatSpace(ritN(1),3,1)
        V(5) = FormatSpace(ritN(2),3,1)
        V(6) = FormatSpace(ritN(3),3,1)
        V(7) = FormatSpace(ritN(4),3,1)
        V(8) = FormatSpace(ritN(5),3,1)
        V(9) = StringaEstratti(es + 1,r)
        V(10) = StringaEstratti(es + 2,r)
        V(11) = StringaEstratti(es + 3,r)
        V(12) = StringaEstratti(es + 4,r)
        V(13) = StringaEstratti(es + 5,r)
        V(14) = StringaEstratti(es + 6,r)
        V(15) = StringaEstratti(es + 7,r)
        Call AddRigaTabella(V,,,1,,"Calibri")
    Next
    Call SetTableWidth("100%")
    ColoreTesto 0
    Call Grafico(aDati,2,"Indice di Ruota","titX ","titY")
    Call CreaTabellaOrdinabile
    ' SEZIONE X ANALISI DELLE ULTIME 10 ESTRAZIONI
    Dim escUltime
    escUltime = CInt(InputBox("QUANTE ESTRAZIONI ESCLUDIAMO","Estrazioni(x lettura I.D.R. -> 10)",10))
    du = CInt(escUltime)
    ReDim aDati1(du + 1,3)
    
    Ini = EstrazioneFin - escUltime
    'fin = EstrazioneFin ' parametro del fine archivio impostato su SPTM
    Scrivi " Indice di Ruota per ................. " & NomeRuota(r) & " con ultime " & du & " estrazioni",1
'    ReDim T(15)
'    T(1) = "Info ... estraz. "
'    T(2) = "  I.D.R."
'    T(3) = " n.E s t r a t t i "
'    T(4) = "r.1°"
'    T(5) = "r.2°"
'    T(6) = "r.3°"
'    T(7) = "r.4°"
'    T(8) = "r.5°"
'    T(9) = " Es.tti 1° colpo"
'    T(10) = "Es.tti 2° colpo"
'    T(11) = "Es.tti 3° colpo"
'    T(12) = "Es.tti 4° colpo"
'    T(13) = "Es.tti 5° colpo"
'    T(14) = "Es.tti 6° colpo"
'    T(15) = "Es.tti 7° colpo"
    Call InitTabella(T,2,,1,5,"Calibri")
    co = 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,p)' 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 - 1200'c1
        'Scrivi DataEstrazione(es) & " I D R. " & ritIni & " est. " & StringaEstratti(es,r) & " rit/estr. " & FormatSpace(ritN(1),3,1) & "." & FormatSpace(ritN(2),3,1) & "." & FormatSpace(ritN(3),3,1) & "." & FormatSpace(ritN(4),3,1) & "." & FormatSpace(ritN(5),3,1)
        ReDim V(15)
        ColoreTesto 2
        V(1) = GetInfoEstrazione(es) & "/" & SiglaRuota(r)
        V(2) = ritIni
        V(3) = StringaEstratti(es,r)
        V(4) = FormatSpace(ritN(1),3,1)
        V(5) = FormatSpace(ritN(2),3,1)
        V(6) = FormatSpace(ritN(3),3,1)
        V(7) = FormatSpace(ritN(4),3,1)
        V(8) = FormatSpace(ritN(5),3,1)
        V(9) = StringaEstratti(es + 1,r)
        V(10) = StringaEstratti(es + 2,r)
        V(11) = StringaEstratti(es + 3,r)
        V(12) = StringaEstratti(es + 4,r)
        V(13) = StringaEstratti(es + 5,r)
        V(14) = StringaEstratti(es + 6,r)
        V(15) = StringaEstratti(es + 7,r)
        Call AddRigaTabella(V,,,1,,"Calibri")
    Next
    Call SetTableWidth("100%")
    ColoreTesto 0
    Call Grafico(aDati1,2,"Indice di Ruota Ultime estrazioni","titX ","titY")
    Call CreaTabellaOrdinabile
End Sub

 

[Alien.]

Grazie x l'argomento, vedo di trovare il tempo per abbozzare qualcosa.
Chiunque altro voglia partecipare alla realizzazione dello script è benvenuto.
Saluti e buona Epifania ... "che le feste porta via".

l'opinione di Vincenzo non fa una piega ma mi son chiesto perchè non prendere in esame tutti i numeri usciti in una estrazione?
che teoricamente sono 55 ma in genere ne escono 15/20 doppi.quindi il campo si restringe.Si potrebbe giocare varie decine di numeri in decine per il tentativo di cinquina................su tutte .....o un numero ristretto di ruote?..........è solo...una folle idea....

 

[claudio8]

X Alien, continuiamo sulla specifica delle singole ruote per vedere le potenzialità della tecnica, poi penseremo eventualmente ad ampliamenti di utilizzo, se la riterremo interessante.
Aspettiamo i riscontri da Vincenzo.
un saluto

 

[vincenzo4221]

Ciao a Tutti , allora dai riscontri effettuati , pochi a dir la verità, su 4 ruote , sembrerebbe che tutto fili liscio , ritardi ok ..
Il periodo (dopo festivo ) è tiranno x il tempo , che ho disponibile , devo ancora veder per bene gli altri due script inseriti , come posso vi seguo. Ciao

X Claudio sei un grande!

 

[Pluta]

Scusami Vincenzo ma non riesco a trovare la convergenza che hai con Blade su Napoli ..
Qual è??

 

[vincenzo4221]

Ciao a Tutti , ,
è vero l'argomento pur sollecitando curiosità , diventa poi difficile nell'interpretazione dei dati , ma traspare nel leggere e "studiare" , gli scritti e i dati fin'ora acquisiti (anche dagli script) l'enorme potenzialità dell'argomento .
INOLTRE , per chi ha un pò di fantasia è facile (una volta che lo studio ci dà dei dati su cui lavorare). trovare soluzioni pratiche per la realizzazione di un pronostico statistico valido .
Allora dai miei intrecci celebrali :
1- fin'ora ho provato a leggere i dati del script e cercando di dedurre il ciclo dell'indice ;
quando claudio segnala di modificare il rigo con "aDati(co,2) = ritIni - 1200'c1 .....si ottiene un grafico + indicativo degli sbalzi dell' I.D.R.modificando" , io ho provato a portare a 1500 ottenendo un grafico dove forse , viene reso più evidente il momento che L'INDICE sta attraversando ,(graficamente con la linea centrale dello ZERO , è evidente il formarsi altalenante dell'INDICE nel susseguirsi delle estrazioni.
Per claudio è fattibile ciò , oppure è sbagliato farlo ? ci dai dei lumi sul dato 1500 .
Se per ipotesi questa modifica va bene, con una semplice occhiata possiamo sapere se l'indice a seconda di dove attualmente si trova ad esempio in area - negativa significa che c'è uno scarso accumulo di ritardi ,si sta attraversando quindi un momento in cui stanno uscendo numeri ritardati con somma +85.
L'obbiettivo principale che mi pongo è la deduzione facile del momento che L'indice attraversa.

2- x la tua segnalazione sull'estrazione del 19 dicembre , dove notiamo che , nell'estrazione successiva tutti i ritardi sono al di sotto delle 10 estrazioni , hai da evidenziare altri dati a riguardo?
secondo me ,potrebbe essere utile , creare una colonna con le somme dei ritardi ed evidenziare il + o - 85 con una colorazione , cosi , interfacciandosi con il grafico ,si ha una visione più chiara della tendenza che l'INDICE sta attraversando
3-cercando di trovare appigli promettenti , mi è venuto in mente un ulteriore sviluppo , ne parlerò in seguito.
PER CLAUDIO , dammi lumi sul 1 punto , inoltre

per il momento...ciao

 

[claudio8]

Ciao a Tutti , ,
è vero l'argomento pur sollecitando curiosità , diventa poi difficile nell'interpretazione dei dati , ma traspare nel leggere e "studiare" , gli scritti e i dati fin'ora acquisiti (anche dagli script) l'enorme potenzialità dell'argomento .
INOLTRE , per chi ha un pò di fantasia è facile (una volta che lo studio ci dà dei dati su cui lavorare). trovare soluzioni pratiche per la realizzazione di un pronostico statistico valido .
Allora dai miei intrecci celebrali :
1- fin'ora ho provato a leggere i dati del script e cercando di dedurre il ciclo dell'indice ;
quando claudio segnala di modificare il rigo con "aDati(co,2) = ritIni - 1200'c1 .....si ottiene un grafico + indicativo degli sbalzi dell' I.D.R.modificando" , io ho provato a portare a 1500 ottenendo un grafico dove forse , viene reso più evidente il momento che L'INDICE sta attraversando ,(graficamente con la linea centrale dello ZERO , è evidente il formarsi altalenante dell'INDICE nel susseguirsi delle estrazioni.
Per claudio è fattibile ciò , oppure è sbagliato farlo ? ci dai dei lumi sul dato 1500 .
L'obbiettivo principale che mi pongo è la deduzione facile del momento che L'indice attraversa.

1--.Hai perfettamente ragione, il 1500 o qualsiasi valore di sottrazione dalla Somma di Titardo dei 90 numeri, si pone nel gafico quale linea a valore "zero".
Se la Somma supera questo limite essa si evidenzia con la barra sull'area superiore dello "zero, se la somma è inferiore al limite opera in maniera contraria evidenziando una barra che definisce fisicamente il valore(negativo) che manca x arrivare a 1500, preso nell'esempio come linea "zero".

2- x la tua segnalazione sull'estrazione del 19 dicembre , dove notiamo che , nell'estrazione successiva tutti i ritardi sono al di sotto delle 10 estrazioni , hai da evidenziare altri dati a riguardo?
----Nessuno in particolare, solo il fatto che quando vi sono ritardi di valori bassi, vi è il rischio inversamente proporzionale al valore, che i numeri ponibili in gioco (quelli al detto ritardo) siano in quantità maggiori e quindi poco remunerativa come scelta di giocata.

secondo me ,potrebbe essere utile , creare una colonna con le somme dei ritardi ed evidenziare il + o - 85 con una colorazione , cosi , interfacciandosi con il grafico ,si ha una visione più chiara della tendenza che l'INDICE sta attraversando
--no problem, preparo la modifica
3-cercando di trovare appigli promettenti , mi è venuto in mente un ulteriore sviluppo , ne parlerò in seguito.

per il momento...ciao

Vincenzo, spero ti sia chiaro quanto scritto.

 

[vincenzo4221]

Ciao a tutti ,
penso sia meglio non porci a priore il problema della quantità di numeri , penseremo dopo ad eventuale riduzione degli stessi.
Inoltre stavo pensando ancora al dato 1500 se si comporta cosi da spartiacque , dovrebbe essere un dato molto vicino alla media aritmetica della somma dei ritardi dei 90 numeri , correggimi se sbaglio, allora forse è bene ottenere questo dato e far lavorare poi lo script in base ad esso... ci siamo comunque vicini se non sbaglio tra 1450 e 1550.
da fare quindi media dei ritardi di tutto il periodo, poi media dei ritardi del periodo in esame , meglio sarebbe cercare di interfacciare i dati sul lungo periodo e sul breve periodo , cosi facendo se risultano indicazioni convergenti , l'indicazione potrebbe rivelarsi giusta e con le appropiate riduzioni.......forse se i range d'esame sono entro le canoniche 180 o 360 estr.ni saremmo facilitati nel trovare le giuste riduzioni , tutto da verificare..... a presto

 

[platoon]

Buona sera,scusate l'intrusione ,non sono competente in questo argomento ma oggi dopo aver installato Spazio 1.5.574 ,ho notato una cosa strana:

Sul Tab Analitico normale noto che a rit 21 se non erro ci sono 2 cinq sincrone ,1 a Firenze( che e' ok) l'altra a Venezia dove come primo num della cinquina c'e' il 31. Ma andando sul sito lottomatica e richiamando l'estrazione del 31 dic 2015 ,appare il 31,quindi il tab e' errato e di conseguenza l'archivio.

Con questo volevo solo dire che chi usa poi lo script potrebbe ottenere dati falsati.

mi confermate l'errore? grazie

 

[claudio8]

Buona sera,scusate l'intrusione ,non sono competente in questo argomento ma oggi dopo aver installato Spazio 1.5.574 ,ho notato una cosa strana:

Sul Tab Analitico normale noto che a rit 21 se non erro ci sono 2 cinq sincrone ,1 a Firenze( che e' ok) l'altra a Venezia dove come primo num della cinquina c'e' il 31. Ma andando sul sito lottomatica e richiamando l'estrazione del 31 dic 2015 ,appare il 31,quindi il tab e' errato e di conseguenza l'archivio.

Con questo volevo solo dire che chi usa poi lo script potrebbe ottenere dati falsati.

mi confermate l'errore? grazie

Ciao Platoon, hai sicuramente fatto qualche errore, qualsiasi nuova installazione non modifica l'archivio lotto a meno che non lo si voglia specificatamente, ti allego lo screenshot dell'attuale tabellone con l'archivio lotto che aggiorno di estrazione in estrazione. Confermo la cinquina di Firenze attualmente al 22° ritardo ma a Ve il 31 non è + presente .
Controlla che l'ultima estrazione 9106 sia corretta.


.

 

[platoon]

Ciao Claudio,grazie a me manca l'estraz del 31 12 2015 che facendo l'aggiornamento non la inserisce,come mai? tu quale opzione usi x agg.re l'archivio? grazie

 

[Joe91]

Ciao

devi troncare l' archivio cancellando tuttele estrazioni del 2016....

Poi fai l'aggiornamento

 

[claudio8]

Anche se il costrutto può essere migliorato nei tempi di esecuzione, (a questo ci pensiamo dopo) ti invio questa versione + ampia
Controlla se vi sono eventuali errori.

'Vers. 3 (Indice di Ruota con singola o doppia tabella+grafico, delta-ritardi e media-ritardi identificazione 1a mese )
Sub Main
    Dim nu(1),ru(1),ritN(5)
    Dim n,es,r,rit,rit5e,ritIni,ritEs,DeltaRit,ritPrec,p,esc,Zerograf,ritTot1,ritT1,ritTot,ritT,d,du
    r = InputBox("QUALE Ruota","RUOTA DI RICERCA",10)
    scelta39 = CInt(InputBox("Vuoi valutare tutto l'archivio dal 1939 ?"," Si=1  No= 0 ",1))
    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) ",180) - 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(17)
    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.R."
    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"
    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(17)
        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)
        Call AddRigaTabella(V,,,1,,"Calibri")
        If IsUltimaDelMese(es - 1) = True Then Call SetColoreCella(1,3)
    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(17)
            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)
            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