Richiesta listato

oracolotto · 6 Gennaio 2018

Chiedo agli esperti scripters del forum se si può avere un listato che, in un arco di ricerca a scelta di estrazioni, calcoli per ogni numero la media dei ritardi delle relative sortite nel periodo, le frequenze nel periodo impostato ed il ritardo attuale.
Grazie a Buon Anno a tutti
Oracolotto

oracolotto · 15 Gennaio 2018

(Untitled)

Buongiorno, neanche una risposta o un commento.Non credevo di aver fatto anche questa volta una richiesta complicata, dovuto sicuramente alla mia ignoranza sui listati.

superbone · 15 Gennaio 2018

ciao Oracolotto,
abbi fede, come avrai notato tutti gli scripter di questa sezione che di solito fanno listati, sono impegnati in questo momento a testare le funzionalità del nuovo programma che LuigiB sta mettendo a punto.
Al momento opportuno vedrai che qualche anima buona esaudirà la tua richiesta

oracolotto · 16 Gennaio 2018

(Untitled)

Grazie superbone per il tuo conforto e devo dire che avevo pensato anch io la stessa cosa.
Rimaniamo allora fiduciosi che, appena possibile, qualche buon intenzionato proverÃ a fare il listato.
Grazie di nuovo a tutti gli scripters di questo forum ed anche e soprattutto a LuigiB che si adopera tantissimo per noi.

Mike58 · 16 Gennaio 2018

Ciao Oracolotto, non ti dispiacere e non prenderla come fatto personale chi esegue script in questo forum sono davvero pochi e a volte anche la voglia viene a mancare ed il tempo manca per tutti.

In un attimo di buona vena, eccoti lo script per come ho capito la richiesta.

Codice:

Sub Main
 Dim Nu(1),Ru(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,500)
 r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","-","Elenco Ritardi","Somma Rit","Ritardo Medio")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  Ru(1) = r
  Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,"-",riga,somrit,Medrit)
  AddRigaTabella(V)
  riga = 0
 Next
 CreaTabellaOrdinabile
End Sub

oracolotto · 16 Gennaio 2018

(Untitled)

Ciao Mike58, hai capito benissimo la mia richiesta e ti ringrazio tanto per il tempo dedicatomi e, come dici tu, mancante a tutti.
Lo script vÃ benissimo come tutti i tuoi listati, sperando che possa essere utile anche ad altri.
Un caro saluto
Oracolotto

claudio8 · 19 Gennaio 2018

Interessante script, sia per l'oggetto che per la bravura di Mike.
Ho notato che sul mio portatile la tabella va oltre lo schermo per cui ho inseriro ,

Codice:

questa riga    Call SetTableWidth("100%")
  prima di     CreaTabellaOrdinabile

saluti

oracolotto · 20 Gennaio 2018

Grazie claudio8 per il tuo commento, fortunatamente a me non dà quel problema.
Riguardo allo script, adesso stà a noi trovare i parametri " giusti " per estrapolare numeri più prossimi all'uscita.
Si accettano ben volentieri suggerimenti da tutti voi.
Grazie e buon week-end.
Oracolotto

Mike58 · 20 Gennaio 2018

Ciao Oracolotto , dici bene poi le idee vanno sviluppate ed ampliate, intanto io ho messo anche i ripetuti a zero ed il trend degli ultimi 10 estratti. e altro.

un saluto a Claudio.

Codice:

Sub Main
 Dim Nu(1),Ru(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,450)
 r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","-","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","Trend10","Sup al ciclo teorico","Inf al ciclo Teorico")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  Ru(1) = r
  Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
   If rp(z) = 0 Then zz = zz + 1
   If rp(z) > 18 Then zzz = zzz + 1
   If rp(z) =< 18 Then zx = zx + 1
   Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,"-",riga,somrit,Medrit,zz,Med10,zzz,zx)
  AddRigaTabella(V)
  riga = 0
  zz = 0
  zzz = 0
zx = 0
 Next
 Call SetTableWidth("100%")
 CreaTabellaOrdinabile
End Sub

oracolotto · 20 Gennaio 2018

Grazie mille Mike58 per la tua aggiunta che dà ulteriori elementi statistici ma il trend degli ultimi 10 estratti, ovviamente, condiziona l'arco di ricerca che non può scendere sotto le 385 estrazioni ( prova fatta solo sulla ruota di BA ) altrimenti dà errore.
Oracolotto

Mike58 · 20 Gennaio 2018

Si hai ragione a volte può capitare che nel range usato non ci sono + di 10 frequenze e quindi 10 ritardi e pertanto la media dei 10 elementi da errore in quanto inferiori alle presenze, per questo io avevo optato per un range superiore.

questa è la riga incriminata al massimo prova a togliere il relativo valore esempio rp(10) e dividerlo x 9

Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)

Ciao se ti vengono idee fattibili, ci possiamo provare.

oracolotto · 20 Gennaio 2018

(Untitled)

Grazie ancora Mike58!
Vista la tua esortazione, provo a suggerirti se possibile, se la ricerca, invece che a ruota singola, puÃ² essere impostata su n ruote ( basterebbero 2 ruote ) oppure, avere la finestra con l elenco delle ruote e selezionarle manualmente.

claudio8 · 20 Gennaio 2018

Mike58;n2097259 ha scritto:
Si hai ragione a volte può capitare che nel range usato non ci sono + di 10 frequenze e quindi 10 ritardi e pertanto la media dei 10 elementi da errore in quanto inferiori alle presenze, per questo io avevo optato per un range superiore.

questa è la riga incriminata al massimo prova a togliere il relativo valore esempio rp(10) e dividerlo x 9

Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)

Ciao se ti vengono idee fattibili, ci possiamo provare.

Prova ad inserire gli esiti, forse si stringe un pò il cerchio.

Mike58 · 21 Gennaio 2018

oracolotto;n2097270 ha scritto:
Grazie ancora Mike58!
Vista la tua esortazione, provo a suggerirti se possibile, se la ricerca, invece che a ruota singola, puÃ² essere impostata su n ruote ( basterebbero 2 ruote ) oppure, avere la finestra con l elenco delle ruote e selezionarle manualmente.

Ciao Oracolotto, Si la finestra di scelta ruote è possibile, ma poi se si sceglie un range elevato anche i ritardi in elenco sono tanti ed, il codice per sringare il tutto in una schermata non basta, pena l'allungamento della schermata.

Poi ho remmato il med10 in modo da riattivarlo quando le frequenze sono superiori o uguali i a 10

Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

Per il resto tutto sta al vostro utilizzo e scopo.

ciao

Codice:

Sub Main
 Dim Nu(1),T,V
 est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,270)
 'r = InputBox("Quale RUOTA",,1)
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
    ReDim RU(0)
 ScegliRuote(RU)
 k = UBound(RU)
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin)
 Scrivi "Totali Estrazioni........... " & est
 EndColorSezione
 T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","esito Ru","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","T10","Sup al ciclo teorico","Inf al ciclo Teorico")
 Call InitTabella(T)
 For n = 1 To 90
  Nu(1) = n
  'RU(1) = r
  Call StatisticaFormazioneTurbo(Nu,RU,1,rit,max,Incr,fre,Ini,fin)
  Call VerificaEsito(Nu,RU,fin-rit,1,,,,,es1)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardo(InizioR,fineR,Nu,RU,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
   If rp(z) = 0 Then zz = zz + 1
   If rp(z) > (18/k) Then zzz = zzz + 1
   If rp(z) =< (18/k) Then zx = zx + 1
   'Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,StringaRuote(RU),StringaNumeri(Nu),rit,max,fre,es1,riga,somrit,Medrit,zz,Med10,zzz,zx)
  AddRigaTabella(V)
  riga = 0
  zz = 0
  zzz = 0
zx = 0
 Next
 Call SetTableWidth("100%")
 CreaTabellaOrdinabile
End Sub

vincenzo4221 · 21 Gennaio 2018

Bravissimi tutti e grazie di cuore a Mike per lo script , vorrei cercare di dare una mano e sopratutto mi si è innescata la curiosità e la voglia di poter ancora migliorare i dati che questo meraviglia di script ci dà , quindi ho pensato che forse ci potrebbe ancor di più essere utile ai nostri fini ottenere i risultati attraverso un diverso punto di vista, mi spiego meglio , secondo me e qui inizia la mia richiesta..se noi avessimo la possibilità di poter chiedere i dati non attraverso un range di estrazioni.. ma lo script ci dovrebbe chiedere i dati attraverso una determinazione di due punti 1- che numero di estrazioni vogliamo sia formato un ciclo, 2-e sopratutto di quanti cicli vogliamo elaborare , ottenendo quindi i risultati in base a questi presupposti con base ciclica .. che ne dite? quindi la colonna "elenco ritardi" sarà determinata dai dati di imput immessi , e saranno fissi per tutti i numeri...

Ottima la possibilità di poter analizzare anche più ruote insieme...come fatto nell'ultimo script..

Poi , inoltre se vogliamo ancora di più ..mi è appena venuta un'altra piccola idea .. ma andiamo con ordine..una cosa alla volta..
...forza ragazzi insieme è meglio...

Mike58 · 21 Gennaio 2018

Ciao Vincenzo, ti ringrazio per l'apprezzamento dello script, e se ci sono dei punti che possono venire utile allo scopo originario ben vengano sempre che questi siano fattibili e attinenti allo script in origine.

A volte sembra facile ma agire su uno script che segue un suo iter o percorso e poi farlo lavorare in altro senso risulta complicato.

Questo script è costruito con un suo scopo vedere i vari ritardi in un arco di estrazioni e valutarne la media degli stessi.

Lo scopo gira attorno a questo dato.

Poi invece quello che tu chiedi agirebbe sulle frequenze (così mi sembra di capire ) ed uno script del genere Già ho avuto forse occasione di presentarlo.

Te lo posto tanto può essere usato come completamento dell'altro.

Codice:

Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFin -(nCicli * Qcicli)) + 1
fin = EstrazioneFin
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58  *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFin -(5 * 18)) + 1
finx = EstrazioneFin
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub

oracolotto · 21 Gennaio 2018

Mike58;n2097343 ha scritto:

Ciao Oracolotto, Si la finestra di scelta ruote è possibile, ma poi se si sceglie un range elevato anche i ritardi in elenco sono tanti ed, il codice per sringare il tutto in una schermata non basta, pena l'allungamento della schermata.

Poi ho remmato il med10 in modo da riattivarlo quando le frequenze sono superiori o uguali i a 10

Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

Per il resto tutto sta al vostro utilizzo e scopo.

ciao

Codice:

Sub Main
Dim Nu(1),T,V
est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,270)
'r = InputBox("Quale RUOTA",,1)
Ini = EstrazioneFin - est
fin = EstrazioneFin
ReDim RU(0)
ScegliRuote(RU)
k = UBound(RU)
SetColorSezione(6)
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazione(fin)
Scrivi "Totali Estrazioni........... " & est
EndColorSezione
T = Array(T,"Ruota","Numeri","Ritardo","Rit Max","Freq","esito Ru","Elenco Ritardi","Somma Rit","Ritardo Medio","Ripetuti Zero","T10","Sup al ciclo teorico","Inf al ciclo Teorico")
Call InitTabella(T)
For n = 1 To 90
Nu(1) = n
'RU(1) = r
Call StatisticaFormazioneTurbo(Nu,RU,1,rit,max,Incr,fre,Ini,fin)
Call VerificaEsito(Nu,RU,fin-rit,1,,,,,es1)
'---------- elenco ritardi --------------------
ReDim rp(fre)
riga = ""
InizioR = Ini
fineR = fin
somrit = 0
For z = 1 To CInt(fre)
rp(z) = SerieRitardo(InizioR,fineR,Nu,RU,1)
riga = riga & rp(z) & " "
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Round((somrit/z),2)
If rp(z) = 0 Then zz = zz + 1
If rp(z) > (18/k) Then zzz = zzz + 1
If rp(z) =< (18/k) Then zx = zx + 1
'Med10 = Round (((rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10))/10),2)
Next
' fine calcolo----------------------------------
V = Array(V,StringaRuote(RU),StringaNumeri(Nu),rit,max,fre,es1,riga,somrit,Medrit,zz,Med10,zzz,zx)
AddRigaTabella(V)
riga = 0
zz = 0
zzz = 0
zx = 0
Next
Call SetTableWidth("100%")
CreaTabellaOrdinabile
End Sub

Grazie Mike58 per la tua bravura e disponibilità.
Per il momento mi diverto a lavorare con questo in attesa di qualche altra idea.
Saluti
Oracolotto

rossonero8 · 21 Gennaio 2018

SALVE A TUTTI, a questo ultimo listato si potrebbe segnalare di colore diverso i n° che hanno raggiunto uguale RIT e RIT MAX
GRAZIE

Mike58 · 21 Gennaio 2018

Rossonero, a quale listato ti riferisci quello dei ritardi o quello dei cicli, si potrebbe fare ma comincieremo a pasticciarlo.

NeroAzzurro

se ti riferisci a quelo dei ritardi metti dopo addrigatabella, queste righe

Codice:

AddRigaTabella(V)
  For xx = 2 To 4
   If rit = max Then Call SetColoreCella((xx),3,1)
     Next

claudio8 · 22 Gennaio 2018

Mike58;n2097343 ha scritto:
Per Claudio non so se intenti la visualizzazione delle ruote, ma mettiamo anche quello così come la vedo io.

ciao

Ciao Mike, intendevo solo inserire l'esito per ogni numero, relativamente alla ruota in cui si fa la ricerca.

Codice:

Sub Main
    Dim Nu(1),Ru(1),T,V,retcolpi,clp
    est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,200)
    r = InputBox("Quale RUOTA",,1)
    Ini = EstrazioneFin - est
    fin = EstrazioneFin
    SetColorSezione(6)
    Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
    Scrivi Space(100) & "Script By Mike58",1
    Scrivi "Inizio Ricerca.............. " & GetInfoEstrazione(Ini)
    Scrivi "Fine   Ricerca.............. " & GetInfoEstrazione(fin) & " - " & SiglaRuota(r) & " - " & StringaEstratti(fin,r)
    Scrivi "Totali Estrazioni........... " & est
    EndColorSezione
    T = Array(T,"Ruota","Num.","Rit Att","Rit Max","Freq","ClpEsito","Elenco Ritardi","Somma Rit","Rit Medio")
    Call InitTabella(T)
    For n = 1 To 90
        Nu(1) = n
        Ru(1) = r
        Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
        If VerificaEsitoTurbo (Nu,Ru,fin + 1,1,EstrazioniArchivio - fin,,,retcolpi) Then
            clp = retcolpi &"°"
        Else
            clp = " ???° "
        End If
        '---------- elenco ritardi --------------------
        ReDim rp(fre)
        riga = ""
        InizioR = Ini
        fineR = fin
        somrit = 0
        co = 0
        For z = 1 To CInt(fre)
            rp(z) = SerieRitardo(InizioR,fineR,Nu,Ru,1)
            co = co + 1
            riga = riga & rp(z) & " "
            fineR = fineR -(rp(z) + 1)
            somrit = somrit + rp(z)
            Medrit = Round((somrit/z),2)
        Next
        ' fine calcolo----------------------------------
        V = Array(V,SiglaRuota(r),StringaNumeri(Nu),rit,max,fre,clp,riga,somrit,Medrit)
        'Call AddRigaTabella(V,,,1,,"Calibri")
        AddRigaTabella(V)
        For xx = 2 To 4
           If rit = max Then Call SetColoreCella((xx),3,1)
        Next
        riga = 0
    Next
    Call SetTableWidth("100%")
    CreaTabellaOrdinabile
End Sub

Ps: controllare sempre che i dati siano esatti.

Richiesta listato

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Member

Advanced Member >PLATINUM PLUS<

Premium Member