TABELLA NUMERI FREQUENTI

[vinci]

Ciao a tutti, sono alla ricerca di uno script che ricavi una tabella sui numeri frequenti con queste caratteristiche:

a) avere la possibilità di scegliere la ruota

b) poter scegliere il numero di estrazioni a ritroso da prendere in esame

c) la possibilità di scegliere la quantità dei numeri frequenti che devono essere disposti in tabella in ordine decrescente
in base alle uscite nel periodo preso in esame

d) in corrispondenza di ogni numero frequente oltre alle volte che è uscito nel periodo, riportare anche il ritardo attuale

Spero di essere stato chiaro e ringrazio in anticipo chi mi possa aiutare in questa ricerca

 

[claudio8]

Cerca su goggle
"script frequenti dopo spia"

 

[vinci]

Ciao claudio8, ti ringrazio per il tuo interessamento alla mia richiesta però non è proprio quello che cercavo esattamente.
La ricerca dei numeri frequenti non deve essere effettuata dopo numero spia ma su tutti i numeri.
Comunque grazie se nessuno interverrà ancora , proverò ad arrangiarmi così.

 

[i legend]

Ciao vinci ,
Non ho il PC pertanto non posso farti lo script, sono poco piu di 10righe di codice.
Sicuramente qualcuno ti verrà in soccorso
, al limite proverò a farlo con il cellulare, ma sicuramente farei degli errori( non ricordo i parametri ) da verificare in corso.
Ciao.

 

[Mike58]

Abbastanza semplice nella stesura
Prova

Sub Main
   Dim Nu(1),Ru(1),T
   Dim qtEs,R,qFr,Ini,fin,k,n,rit,max,Incr,fre,Tot,MedFre,ic
   qtEs = CInt(InputBox("Quante Estrazioni a Ritroso",,500))
   R = ScegliRuota
   qFr = CInt(InputBox("Quale presenza superiore > a : ",,0))
 
   Ini = EstrazioneFin - qtEs
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   T = Array(T,"Numero","Presenza","Ritardo Corrente","Ritardo Storico","IncrMax","Indice di Convenienza")
   Call InitTabella(T,,,,,"Arial Black")
   For n = 1 To 90
   Nu(1) = n
   Ru(1) = R
   Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
   MedFre = Dividi(Tot,fre)
   ic = Round(Dividi (rit,MedFre) ,2)
   If fre >= qFr Then
   T = Array(T,Nu(1),fre,rit,max,Incr,ic)
   Call AddRigaTabella(T)
   End If
   Next
   Scrivi "Ruota analizzata................ " & NomeRuota(R),1
   Scrivi "Totali estrazioni analizzati.... " & Tot,1
   Call CreaTabellaOrdinabile(2)
 
End Sub

 

[claudio8]

Bravo Mike... sei troppo veloce ,
a me risultano dati freq. errati - (range da sistemare)
se posso suggerirti, io ci metterei anche l'esito.

Analisi su ruota di Milano dal 08.04.2023 al 01.06.2023 - estr = 24

pos Num Freq rit Esito

1° 13 5 3 12°

2° 17 4 3 14°

3° 8 4 4 12°

4° 40 3 1 2°

5° 9 3 0 1°

6° 1 3 1 7°

7° 61 3 0 1°

8° 73 3 15 3°

9° 68 3 8 14°

10° 43 3 18 12°

11° 7 3 5 14°

12° 45 2 2 14°

saluti

 

[vinci]

Grazie a tutti molto gentili come sempre

 

[i legend]

Ini= fin-(qestr-1)
Così il range dovrebbe andare, ma verificate.


Grande Mike Sempre disponibile.

 

[Mike58]

x Claudio (ciao) con il range che hai usato le frequenze-Presenze a me risultano uguali alle tue raccolte.
Poi come suggerisce anche i Legend con ini = fin - (qEstr-1) le estrazioni sono corrette alla richiesta dell'inputBox.
Per Il Colpo è inteso che si possa mettere se stiamo con fin a delle estrazioni indietro e verificarne poi l'esito a seguire.

Metti pure il tuo script sicuramente è un arricchimento per gli utenti utilizzatori.

 

[Mike58]

I Colpi sono -1 perchè la verifica io la farei da fin + 1

 

[claudio8]

I Colpi sono -1 perchè la verifica io la farei da fin + 1 corretto

Ciao Mike, eccoti lo script, basilare x principianti versione anni 2000

Anticipazione (Spoiler): script

Sub Main()
Dim ru(2)
Dim tabFreq(90,4)
Dim num(1)
Dim co,fre,x,y,Ini,fin,r,eC,qt,riga,retClp
r = CInt(InputBox("Quale ruota esamino?","Ruota",5))
eC = CInt(InputBox("Estrazioni da controllare?","Esrazioni",24)) - 1
qt = CInt(InputBox("Quanti numeri in elenco?","Numeri frequenti",20))
fin = EstrazioneFin
Ini = EstrazioneFin - eC
For x = 1 To 90
num(1) = x
ru(1) = r
tabFreq(x,1) = x
fre = SerieFreqTurbo(Ini,fin,num,ru,1)
tabFreq(x,2) = fre
tabFreq(x,3) = RitardoEstrattoTurbo(x,fin,r)
If VerificaEsito(num,ru,fin + 1,1,,,,retClp) Then
tabFreq(x,4) = retClp
Else
tabFreq(x,4) = " - "
End If
Next
OrdinaMatrice tabFreq,- 1,2
For y = 1 To 90
tabFreq(y,0) = y
Next
Scrivi " pos Num Freq rit Esito ",1,False,,2
Scrivi " su " & NomeRuota(r) & " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(fin) & " - estr = " & eC + 1,1,True,,1
For x = 1 To qt
Scrivi " " & FormatSpace(tabFreq(x,0) & "°",3,True) & " " & FormatSpace(tabFreq(x,1),3,True) & _
" " & FormatSpace(tabFreq(x,2),3,True) & " " & FormatSpace(tabFreq(x,3),3,True) & " " & FormatSpace(tabFreq(x,4) & "°",3,True)
Next
End Sub

Vediamo che dice @vinci e come intende usarlo.
Ciao

 

[vinci]

Ciao a tutti e ancora grazie.
Io vorrei usare la tabella in questo modo:
Per ogni ruota esaminare il numero di estrazioni in base al massimo del ritardo della ruota stessa.
Io prenderò poi i numeri usciti almeno 10 volte con il suo relativo ritardo attuale e il valore di indice di convenienza e a questo punto farò delle valutazioni su cosa giocare

 

[Mike58]

Giusto per avere un'altra visione e partenza per raccogliere i dati.
Script delle Super Frequenze (già fatto).

Sub Main
   Dim ru(1)
   est = InputBox("Quante estrazioni analizzo",,18)
   freq = CInt(InputBox("Quanti frequenti => a",,3))
   Ini = EstrazioneFin - (est-1)
   fin = EstrazioneFin - 1
   fine = EstrazioneFin
   SetColorSezione(6)
   Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
   EndColorSezione
   'Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
   t = Array(t,"Ruota","Numeri","Q.tà","Verifica","Esito")
   Call InitTabella(t)
   For r = 1 To 12
      If r = 11 Then r = 12
      ru(1) = r
      For n = 1 To 90
         'For p = 1 To 5
         'a = Estratto(es,r,p)
         b = EstrattoFrequenzaTurbo(r,n,Ini,fin)
         c = EstrattoRitardoTurbo(r,n,Ini,fin)
         If b >= freq And c > 0 Then
            k = k + 1
            ReDim Preserve aNum(k)
            aNum(k) = n
            ReDim Preserve fre(k)
            fre(k) = b
            ReDim Preserve rit(k)
            rit(k) = c
         End If
         'Next
      Next
      Call VerificaEsito(aNum,ru,fine,1,1,,esito,,es1)
      v = Array(v,SiglaRuota(r),StringaNumeri(aNum,,1),k,es1,esito)
      vv = Array(vv,"Freq",StringaNumeri(fre,,1),"-","--","--")
      vvv = Array(vvv,"Rit",StringaNumeri(rit,,1),"-","--","--")
      vuoto = Array(vuoto,"","","","","","")
      Call AddRigaTabella(v)
      Call AddRigaTabella(vv,,,,1)
      Call AddRigaTabella(vvv,,,,2)
      Call AddRigaTabella(vuoto,3,,1)
      'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(aNum,,1) & vbTab & k
      k = 0
   Next
   CreaTabella
End Sub

 

[i legend]

Ciao
Complimenti agli scripter
Grazie.
La funzione verificaesito non ho capito come viene utilizzata, restituisce solo un valore su nEstrazioni.
Mi so arrugginito
Se ho capito bene Vinci vorrebbe iniziare dal numero più ritardatario
Ora vado a memoria
aNrit(1)= piu ritardatario ( parametri)
Fin= estrazionefin
Ini= serieultima( aNrit, aR, 1,fin)
Mi sembra che i parametri siano questi, ma non ne sono sicuro
Da verificare.
Poi il resto l avete già fatto voi

 

[vinci]

Si i parametri sono questi ora bisognerebbe riportarlo nello script completo

 

[claudio8]

Anticipazione (Spoiler)

Sub Main
     Dim nrit,r,Ini,fin,est,freq,n
     Dim ru(1)
     freq = CInt(InputBox("Quale frequenza ?  >= a",,10))
     'Ini = EstrazioneFin -(est - 1)
     fin = EstrazioneFin
     SetColorSezione(6)
     Scrivi "S U P E R F R E Q U E N T I al " & DataEstrazione(fin),1,,,1,4,,1
     EndColorSezione
     'Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
     t = Array(t," Ruota.rmax "," Numeri "," Q.tà ","  Verifica  "," 1°Esito "," colpo ")
     Call InitTabella(t)
     For r = 1 To 12
          If r = 11 Then r = 12
          ru(1) = r
          nrit = PiuRitardatario(EstrazioneFin,r)
          est = RitardoEstrattoTurbo(nrit,fin,r)
          Ini = EstrazioneFin -(est)
          fin = EstrazioneFin
          k = 0
          ReDim anum(90)
          ReDim fre(90)
          ReDim rit(90)
          For n = 1 To 90
               b = EstrattoFrequenzaTurbo(r,n,Ini,fin)
               c = RitardoEstrattoTurbo(n,fin,r)
               If b >= freq And c >= 0 Then
                    k = k + 1
                    ReDim Preserve anum(k)
                    anum(k) = n
                    ReDim Preserve fre(k)
                    fre(k) = b
                    ReDim Preserve rit(k)
                    rit(k) = c
               End If
          Next
          '         Call VerificaEsito(aNum,ru,fin + 1,1,1,,esito,retclp,es1)
          If VerificaEsito(anum,ru,fin + 1,1,,,esito,retclp,es1) Then
               clp = retclp & "°"
          Else
               clp = " "
          End If
          v = Array(v,SiglaRuota(r) & "." & est,StringaNumeri(anum,,1),k,es1,esito,clp)
          vv = Array(vv,"Freq",StringaNumeri(fre,,1),"-","--","--","--")
          vvv = Array(vvv,"Rit",StringaNumeri(rit,,1),"-","--","--","--")
          vuoto = Array(vuoto,"","","","","","")
          Call AddRigaTabella(v)
          Call AddRigaTabella(vv,,,,1)
          Call AddRigaTabella(vvv,,,,2)
          Call AddRigaTabella(vuoto,3,,1)
          'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(aNum,,1) & vbTab & k
          k = 0
     Next
     CreaTabella
End Sub

controllare i risultati - scrip modificato..
attenzione quando il ritardo è 0 non viene inserito in tabella... da sostituire Stringanumeri con altro
Buona notte

 

[Mike58]

Lo script è oramai stravolto nella sua costruzione logica, non comprendo la logica delle estrazioni prese in esame dal più ritardatario.
Comunque va bene così, l'utilizzo è a vostro carico e piacere.
Rispondo a Claudio per lo stringanumeri ?
In questo casi è meglio usare una stringa e raccogliere anche i ritardi zero.
riga3 = riga3 & Format2(c) & " "

Sub Main
     Dim nrit,r,Ini,fin,est,freq,n
     Dim ru(1)
     freq = CInt(InputBox("Quale frequenza ?  >= a",,10))
     'Ini = EstrazioneFin -(est - 1)
     fin = EstrazioneFin
     SetColorSezione(6)
     Scrivi "S U P E R F R E Q U E N T I al " & DataEstrazione(fin),1,,,1,4,,1
     EndColorSezione
     'Scrivi "S U P E R . . . .  F R E Q U E N T I ",1,,,1,4,,1
     t = Array(t," Ruota.rmax "," Numeri "," Q.tà ","  Verifica  "," 1°Esito "," colpo ")
     Call InitTabella(t)
     For r = 1 To 12
          If r = 11 Then r = 12
          ru(1) = r
          nrit = PiuRitardatario(EstrazioneFin,r)
          est = RitardoEstrattoTurbo(nrit,fin,r)
          Ini = EstrazioneFin -(est)
          fin = EstrazioneFin
          k = 0
          ReDim anum(90)
          ReDim fre(90)
          ReDim rit(90)
          For n = 1 To 90
               b = EstrattoFrequenzaTurbo(r,n,Ini,fin)
               c = RitardoEstrattoTurbo(n,fin,r)
               If b >= freq And c >= 0 Then
                    k = k + 1
                    ReDim Preserve anum(k)
                    anum(k) = n
                    riga = riga & Format2(n) & " "
                    ReDim Preserve fre(k)
                    fre(k) = b
                    riga2 = riga2 & Format2(b) & " "

                    ReDim Preserve rit(k)
                    rit(k) = c
                    riga3 = riga3 & Format2(c) & " "

               End If
          Next
          '         Call VerificaEsito(aNum,ru,fin + 1,1,1,,esito,retclp,es1)
          If VerificaEsito(anum,ru,fin + 1,1,10,,esito,retclp,es1) Then
               clp = retclp & "°"
          Else
               clp = " "
          End If
          v = Array(v,SiglaRuota(r) & "." & est,riga,k,es1,esito,clp)
          vv = Array(vv,"Freq",riga2,"-","--","--","--")
          vvv = Array(vvv,"Rit",riga3,"-","--","--","--")
          vuoto = Array(vuoto,"","","","","","")
          Call AddRigaTabella(v)
          Call AddRigaTabella(vv,,,,1)
          Call AddRigaTabella(vvv,,,,2)
          Call AddRigaTabella(vuoto,3,,1)
          'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(aNum,,1) & vbTab & k
          k = 0
          riga = ""
          riga2 = ""
          riga3 = ""
     Next
     CreaTabella
End Sub

 

[claudio8]

Rispondo a Claudio per lo stringanumeri ?
In questo casi è meglio usare una stringa e raccogliere anche i ritardi zero.
riga3 = riga3 & Format2(c) & " "

Mike, ho solo specificato che occorreva trovare l'alternativa a StringaNumeri, e come vedo lo hai fatto egregiamente.

...... non comprendo la logica delle estrazioni prese in esame dal più ritardatario.
Comunque va bene così, l'utilizzo è a vostro carico e piacere.

condivido la considerazione

Ciao
Complimenti agli scripter
Grazie.
La funzione verificaesito non ho capito come viene utilizzata, restituisce solo un valore su nEstrazioni.

restituisece il primo esito (o maggiore) rispetto alla sorte ricercata

VerificaEsito
Descrizione
Consente di verificare un pronostico per una determinata sorte sulle ruote stabilite

Ciao