Novità

Ritardi e Frequenze

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Platoon

dal menù di Spaziometria scegli in sequenza:

-Base Dati

-Aggiornamento lotto

-Tronca Archivio

Raggiunto il programma, deputato a questo scopo ...

con gli appositi cursori selezioni la data a cui vuoi effettuare il taglio.

- Confermi di voler tagliare l'ultima parte, premendo Esegui.

Poi ripeti la normale operazione di aggiornamento dell'archivio e dovrebbe andare apposto.

In questa immagine hai il riferimento grafico di quanto ho appena descritto:

Untitled.jpg

:) Buona serata a tutte/i.
 

platoon

Member
Ciao Joe91 grazie x l'assistenza che mi stai dedicando.
Allora io ho troncato l'archivio e in sostanza ho cancellato tutte quelle del 2016 (dopo il troncamento al 29 dic 2015).Ho fatto il normale aggiornamento usando monopoli gov.it ( qui non so se ho fatto bene) ma l'archivio ora me lo lascia aggiornato sempre al 31 dic 2015 e non inserisce quelle del 2016 ! che faccio?
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao ...

i link agli archivi on line, ... NON SEMPRE ... sono ben funzionanti.

Per questa ragione Luigi ha inserito la possibilità

di collegarsi a diverse banche dati, e chiesto a qualcuno se lo aiuta

a mantenere efficenti questi link aggiornando le interfacce necessarie.

Cioè i "setacci" con i quali selezionare in ognuno di questi link ...

i dati utili ... per aggiornare gli archivi.

Per questa ragione è utile provare... anche con... gli altri archivi disponibili on-line.

Eventualmente si può provare a cancellare ancora qualche estrazione,

tra le ultime del 2015, perchè il problema che avevi riferito ... era li.

Ancora ... dovresti provare a consultare i messaggi simili e paralleli a questo,

ove si lamentano problemi analoghi.

Personalmente, ho provato, ora, ad aggiornare dal 29/12/2015 ad oggi ... dal sito governativo

(che hai indicato) e le estrazioni mancanti a completare l'archivio (fino al 12/1/2016) si sono scaricate tutte.

:)
 
Ultima modifica:

vincenzo4221

Advanced Member >PLATINUM<
mi arrivano le email con la segnalazione di una risposta alla discussione , ma le risposte non sono attinenti..............
 

Serpico 90

Advanced Member
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 .....io sto scoprendo che quando la selezione dei numeri indica un numero a ZERO nell'estrazione precedente lo stesso numero è già stato estratto 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 lasto facendo per la ruota di Venezia ma controllando altre ruote ho visto che il fenome in parte si ripete.
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.
Se non sono stato chiaro nell'esposizione potrei indicarvi le date e le ruote per poter capire al meglio quello che ho descritto.
In attesa vi saluto
Serpico
 

vincenzo4221

Advanced Member >PLATINUM<
Ciao Serpico , grazie per il tuo intervento , vado subito a verificare quello che ci dici , sicuramente Claudio con i suoi mezzi farà altretanto , ci sentiamo in seguito x eventuali sviluppi .....
 

claudio8

Premium Member
Serpico 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
grazie ciao
 

Serpico 90

Advanced Member
Ri ciao io in questo periodo ho problemi non ho capito se è il mio P.C. o problemi di coockie e non mi fanno scrivere e scaricare script come prima in sostanza impiego tantissimo tempo per scrivere o guardare il forum......vedremo........
Questa la ricerca effettuata fino al 26/09/2015 perchè senza uno script ci vuole tempo.

21/7---23/7da conc.n.89 ambata..44----estratto con.104 con ambo 44-26

1/8--4/8 da conc.94 ambata 40 estratta conc.103 con ambo 40-36

8/8--11/8 da conc.97 ambata 6 conc.98 ambata 6 cvon ambo 6--22

20/8--22/8 da conc.102 ambata 71 NEGATIVO

Vi sono altri colpi se vuoi continuo ti faccio solo notare che i colpi di gioco per potere avere casi positivi devono essere 18... quindi occorrerebbe studiare come INDIVIDUARE il numero che pPOTREBBE ACCOPPIARSI con il numero capo gioco .
vedi conc.27/8--29/8 ambata 81 solo ieri sera conc.5/2016 VENEZIA 81--53 AMBO
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
 

claudio8

Premium Member
Per Scorpio e Vincenzo,
Questo script riprende, gestendo a piacere il min-rit e max-rit, l'analisi iniziale, ed evidenzia gli esiti x ambata al 1° esito dei numeri rientranti nel range di ritardo impostato. ( x Scorpio: Da notare che se non si ha una ambata sufficentemente costante, elaborazioni con abbinamenti ad ambo sono sicuramente di scarso interesse, cerchèrò comunque di dareseguito alla tua richiesta appena possibile)

Codice:
'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

Un saluto e Buon divertimento agli smanettoni.....
ps: non mi fate lavorare troppo.;););)
 

claudio8

Premium Member
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

Provalo e dacci notizie....

Codice:
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

Spero sia ciò che chiedi e che non vi siano errori.
 
Ultima modifica:

Serpico 90

Advanced Member
Buon giorno....Claudio Grazie per lo script....Ottimo per fare la ricerca del numero Ambata da rigiocare.... e fin qui ci siamo....a colpo d'occhio riusciamo a capire l'ambata e la ruota dove ognuno vuole sfidare la lottomatica....
Ora viene il lavoro più ,più da INDIVIDUARE cioè UNO O DUE numeri dei Nove da giocare per AMBO:
Quale strada intraprendere?
Io andrò a cercare ,con lo script che hai fatto,ritardo 1 e 2 dei numeri della novina e verificherò se vi è una buona possibilità di fare ambo.
Per quanto riguarda il numero Ambata da rigiocare credo che rigiocarlo in UNA O DUE posizioni DETERMINATA queste le mie idee ......dovrebbe essere più remunerativo ......
Evidentemente se qualcuno ha idee li metta a disposizione,,,,,,,,,
Per Vincenzo se hai suggerimenti sempre sul metodo che hai postato e il bravo Claudio che lo ha messo su script siamo qui ad attendere .
Ora mi metto a lavoro e appena finisco vi faccio sapere.
Grazie
Una buona e serena giornata
:D:cool:
 

vincenzo4221

Advanced Member >PLATINUM<
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.
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.

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.

A questo punto chiedo il vs intervento se sbaglio : come operare ? far partire lo script (Vers 3) una prima volta per analizzare un 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).

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 , 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.

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 , 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
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"
E' qui che lo script deve arrivare e dopo ci manca la terza e ultima parte. Ciao vincenzo

INVITO TUTTI ALLA VERIFICA
 

claudio8

Premium Member
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 :mad::mad::mad: )

Siamo alla prima parte dell'argomento , infatti abbiamo ottenuto un grafico è dovremo adesso capire attraverso il suo andamento se e&#146; 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&#146;andamento dell&#146;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&#146;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

Ciao Claudio
Attendo, a presto.
 
Ultima modifica:

vincenzo4221

Advanced Member >PLATINUM<
Ciao a tutti , riposto per la 2à volta.

la 3° parte riguarda il confronto della estrne in esame con quelle

estr. che hanno uguale indice di ruota.
Dobbiamo adesso trovare la minore somma globale x come intesa

dall'autore.
Nel confrontare l'estr.ne in esame con quelle con = indice , bisogna

aver presente il Ritardo di Casella , già da me affrontato nella

discussione che ha portato al realizzo del Plugin "ritardo di

Casella" di joe.
Il ritardo di casella dà il ritardo in relazione alla posizione che

il numero occupa nella casella , diventa quindi importante , la

posizione geografica del numero , il quadro di questo ritardo

mostra una griglia di caselle 10 x 9 (orizontale x verticale) in

modo da poter evidenziare la posizione del numero.
Confrontando l'estrazione in esame con quelle estr.ni con = indice ,

si trovano i numeri che occupano (se ve ne sono) la stessa posizione

e fra questi calcolare la differenza fra i ritardi.
Si fa la somma delle differenze dei ritardi di tutti i numeri che

occupano la stessa posizione è si otterrà la somma globale (intesa

dall'autore).
Questa operazione va fatta per tutte le estrni con = indice, tra

queste somme globali si sceglie quella prossima allo ZERO (la più

bassa).
Quindi , avendo ricavato la posizione geografica dei numeri

dell'estrazione con totale differenze più prossima allo zero ,

questi numeri della estrne in esame che occupano lo stesso posto

sono i numeri FAVORITI per lo sfaldamento.

Per la frequenza, sarebbe meglio la frequenza del periodo

impostato,comunque per questo valore siamo a livello sperimentale.

Ho in mente una alternativa più semplice x la scelta della somma

globale , eventualmente vedremo in seguito, se sei d'accordo

,claudio, ok?

scusami x gli errori , ma sono già 2 volte che posto la discussione

(non l'avevo salvata) che continua a non apparire sul forum.
ciao
 

vincenzo4221

Advanced Member >PLATINUM<
NON riesco a trovarla , ho questi appunti delle richiesta..
da fonti sul web:
"Che cosa è il ritardo o la frequenza della posizione o di casella? Create un rettangolo e suddividetelo in una griglia di 9 righe x 10 colonne; alla sinistra di ciascuna riga mettete le intestazioni della riga, etichettandole A, B, C, e così via; nella parte superiore del rettangolo mettete le intestazioni delle colonne, etichettandole 1, 2, 3 etc. L'intersezione tra una riga e una colonna origina una cella e quindi in totale vengono create 90 celle. Ogni cella viene ad essere identificata da un indirizzo che è costituito dalla lettera della riga seguito dal numero della colonna: ad esempio, l'indirizzo A1 fa riferimento alla cella creata dalla intersezione tra la riga A e la colonna 1. A questo punto possiamo inserire i 90 numeri del gioco del lotto nelle 90 celle della griglia procedendo da sinistra verso destra, dall'alto in basso e dal più ritardato al meno ritardato, in maniera tale che il numero più ritardato (nel caso delle frequenze, il piu' frequente) si venga a trovare nella cella A1 e il meno ritardato nella cella I10. Ad ogni nuova estrazione evidentemente i numeri sortiti poiché azzereranno il loro ritardo cambieranno posizione e verranno inseriti nelle celle da I6 a I10 mentre le celle lasciate libere da questi verranno occupate, a seguito dello scorrimento verso sinistra e verso l'alto, dai numeri che immediatamente li seguivano. E' evidente che ogni numero prima di sortire si viene a trovare in una data cella e quindi in una data posizione che è funzione sia del suo ritardo sia del ritardo di tutti gli altri numeri. Il ritardo della posizione non è altro che il numero di estrazioni consecutive da cui il numero che volta per volta si viene a trovare in una data cella non viene sortito. In altre parole il ritardo della posizione non è riferito al numero bensì alla cella e cioè al numero di estrazioni trascorse da quando un numero che in essa si trovava è stato sortito tanto che sarebbe più esatto parlare di ritardo di casella. Il fatto che il ritardo sia riferito alla cella e non al numero è ancora più evidente se si pensa che il numero che ad ogni estrazione si viene a trovare in una data cella può essere anche differente dalla estrazione precedente e ciò per il motivo suddetto che dopo ogni estrazione la posizione dei numeri viene ridefinita in funzione del loro nuovo ritardo. A questo punto vi chiederete a che cosa serve conoscere il ritardo o la frequenza della posizione? Diciamo in prima approssimazione che nella ricerca dei numeri da mettere in gioco il ritardo della posizione costituisce una ulteriore indicazione, un parametro di valutazione che va ad aggiungersi a quello classico del ritardo numerico; infatti, capita spesso che due o più numeri vengono ad avere lo stesso ritardo numerico o comunque un ritardo similare e quindi una ulteriore selezione si può operare considerando il ritardo della posizione che il numero occupa. Un uso efficace del ritardo della posizione verrà esaminato quando passeremo a trattare dell'indice di ruota, per il momento vi basterà sapere che questo APPLICAZIONE alla opzione RITARDO DELLA POSIZIONE mostra due tabelle: la tabella di sinistra contiene i 90 numeri in ordine di ritardo numerico mentre la tabella di destra mostra il relativo ritardo (nel caso di selezione della frequenza, della frequenza di posizione) della posizione. E' sufficiente quindi individuare un numero da giocare nella tabella di sinistra e allo stesso indirizzo di cella nella tabella di destra troverete il relativo ritardo della posizione. Procedimento identico va attuato per rintracciare il numero in maggior frequenza di posizione riscontrato su un database riferito alle ultime 90 estrazioni in archivio."
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto