TABELLA NUMERI FREQUENTI

vinci · 28 Giugno 2023

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 · 1 Luglio 2023

Cerca su goggle
"script frequenti dopo spia"

vinci · 1 Luglio 2023

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 · 2 Luglio 2023

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 · 2 Luglio 2023

Abbastanza semplice nella stesura
Prova

Codice:

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 · 2 Luglio 2023

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 · 2 Luglio 2023

Grazie a tutti molto gentili come sempre

i legend · 2 Luglio 2023

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

Grande Mike 🙂👍 Sempre disponibile.

Mike58 · 2 Luglio 2023

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 · 2 Luglio 2023

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

claudio8 · 2 Luglio 2023

Mike58 ha scritto:
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

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 · 2 Luglio 2023

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 · 2 Luglio 2023

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

Codice:

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 · 2 Luglio 2023

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 · 2 Luglio 2023

Si i parametri sono questi ora bisognerebbe riportarlo nello script completo

claudio8 · 2 Luglio 2023

Codice:

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 · 3 Luglio 2023

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) & " "

Codice:

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 · 3 Luglio 2023

Mike58 ha scritto:
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.

Mike58 ha scritto:
...... 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

i legend ha scritto:
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

TABELLA NUMERI FREQUENTI

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member