Novità

A volte basta uno script facile per tutti.

Hai mai pensato di mettere sempre i suoi laterali, come faccio io, quando credo ad una previsione, tanto 2€ in piu' cosa cambia.Dico questo che amme' i laterali non mi fregano piu'.
no a dire il vero no perche' quando sogno i numeri.. quelli sono. Il problema è il quando escono 😅 a volte presto a volte dopo parecchio... Pero', buona idea grazie, ne terro' conto :)
 
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!

Con moderazione!!!
bari Spy 78.PNG
 
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!

Con moderazione!!!
Vedi l'allegato 2280314
Questo e' un resocondo reale del 1° caso a Bari dopo la spia 78 coppia 1.32 con l'uscita del 32 del 8/3/2024 al 2° colpo.

Estr. n. 8970 del 26/2/2015 Ruota: Ba 78 Esito: E 1 Ba; al 14° C
Estr. n. 8987 del 7/4/2015 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 9003 del 14/5/2015 Ruota: Ba 78 Esito: E 1 Ba; al 7° C
Estr. n. 9014 del 9/6/2015 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9036 del 30/7/2015 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9051 del 3/9/2015 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9102 del 31/12/2015 Ruota: Ba 78 Esito: E 1 Ba; al 9° C
Estr. n. 9113 del 26/1/2016 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9150 del 21/4/2016 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9153 del 28/4/2016 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 9212 del 13/9/2016 Ruota: Ba 78 Esito: E 32 Ba; al 5° C
Estr. n. 9258 del 29/12/2016 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9296 del 28/3/2017 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9313 del 6/5/2017 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9340 del 8/7/2017 Ruota: Ba 78 Esito: E 1 Ba; al 17° C
Estr. n. 9354 del 10/8/2017 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9389 del 31/10/2017 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9405 del 7/12/2017 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9466 del 28/4/2018 Ruota: Ba 78 Esito: E 1 Ba; al 6° C
Estr. n. 9474 del 17/5/2018 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9494 del 3/7/2018 Ruota: Ba 78 Esito: E 1 Ba;E 32 Ba; al 4° C
Estr. n. 9503 del 24/7/2018 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9539 del 16/10/2018 Ruota: Ba 78 Esito: E 1 Ba; al 13° C
Estr. n. 9557 del 27/11/2018 Ruota: Ba 78 Esito: E 32 Ba; al 5° C
Estr. n. 9576 del 10/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9578 del 15/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9580 del 19/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9581 del 22/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 9° C
Estr. n. 9583 del 26/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 7° C
Estr. n. 9612 del 4/4/2019 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9623 del 30/4/2019 Ruota: Ba 78 Esito: E 32 Ba; al 4° C
Estr. n. 9645 del 20/6/2019 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9659 del 23/7/2019 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9661 del 27/7/2019 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9663 del 1/8/2019 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9669 del 16/8/2019 Ruota: Ba 78 Esito: E 32 Ba; al 4° C
Estr. n. 9702 del 31/10/2019 Ruota: Ba 78 Esito: E 32 Ba; al 7° C
Estr. n. 9721 del 14/12/2019 Ruota: Ba 78 Esito: E 1 Ba; al 17° C
Estr. n. 9742 del 1/2/2020 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9756 del 5/3/2020 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9768 del 14/5/2020 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9783 del 18/6/2020 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 9790 del 4/7/2020 Ruota: Ba 78 Esito: E 1 Ba; al 2° C
Estr. n. 9791 del 7/7/2020 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9840 del 29/10/2020 Ruota: Ba 78 Esito: E 1 Ba; al 14° C
Estr. n. 9872 del 12/1/2021 Ruota: Ba 78 Esito: E 1 Ba; al 2° C
Estr. n. 9897 del 11/3/2021 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9907 del 3/4/2021 Ruota: Ba 78 Esito: E 32 Ba; al 6° C
Estr. n. 9919 del 3/5/2021 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9952 del 17/7/2021 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9957 del 29/7/2021 Ruota: Ba 78 Esito: E 32 Ba; al 6° C
Estr. n. 9960 del 5/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 9968 del 24/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 9970 del 28/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 10038 del 3/2/2022 Ruota: Ba 78 Esito: E 32 Ba; al 9° C
Estr. n. 10065 del 7/4/2022 Ruota: Ba 78 Esito: E 32 Ba; al 18° C
Estr. n. 10091 del 7/6/2022 Ruota: Ba 78 Esito: E 32 Ba; al 14° C
Estr. n. 10097 del 21/6/2022 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 10132 del 10/9/2022 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 10134 del 15/9/2022 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 10190 del 24/1/2023 Ruota: Ba 78 Esito: E 32 Ba; al 7° C
Estr. n. 10199 del 14/2/2023 Ruota: Ba 78 Esito: E 1 Ba; al 6° C
Estr. n. 10401 del 8/3/2024 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
 
Ora vi faccio un regalo....Batters studialo bene,ha' tutti i titoli per entrare in "FUTURO",x TOON, e' possibile allineare la prima tabella ,dove ci sono in blu le posizioni e sotto gli esiti in rosso?

Il listato prende in esame il numero di estrazioni desiderato e
restituisce quante volte ogni estratto di ogni ruota si è ripetuto
nella prima estrazione successiva, vi dice inoltre, su quali ruote
sono avvenute le ripetizioni e in quali posizioni.
Ritengo sia uno degli script piu belli e utili fatti negli anni da un
vero artista nella compilazione di listati.

Io nell'imputbox ho scelto 216 estrazioni,ma si puo' cambiare...il valore 216 ,a mio avviso ha' il suo perche'...fate le vostre prove.....script di Jesy.

Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
inizio = EstrazioneFin - es

For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (2,"-")
Next

End Sub
 
Ora vi faccio un regalo....Batters studialo bene,ha' tutti i titoli per entrare in "FUTURO",x TOON, e' possibile allineare la prima tabella ,dove ci sono in blu le posizioni e sotto gli esiti in rosso?

Il listato prende in esame il numero di estrazioni desiderato e
restituisce quante volte ogni estratto di ogni ruota si è ripetuto
nella prima estrazione successiva, vi dice inoltre, su quali ruote
sono avvenute le ripetizioni e in quali posizioni.
Ritengo sia uno degli script piu belli e utili fatti negli anni da un
vero artista nella compilazione di listati.

Io nell'imputbox ho scelto 216 estrazioni,ma si puo' cambiare...il valore 216 ,a mio avviso ha' il suo perche'...fate le vostre prove.....script di Jesy.

Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
inizio = EstrazioneFin - es

For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (2,"-")
Next

End Sub
Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estr :unsure:
 
Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estr :unsure:
Allora ti dico il mio ragionamento.....se andiamo a vedere i ritardi max di un lottrone,abbiamo il 53 a venezia ,vado a memoria...253 estrazioni...sono ritardi di PRESENZA...in realta se vai a calcolare la max di presenza(media) di un ritardatario e' 216 ,pochissime volte si hanno ritardi sopra questa cifra....ed e' per questo che qui,su questo 3d,ho detto,visto e proposto i 2 ritardatari di Ba (presi,e giocati...è bene pure)....ora,la formula del ripetuto su ruota proposto dal listato,NON puo prescindere da questa tesi... (mio parere) liberissimi di fare le Vostre prove.
 
Allora ti dico il mio ragionamento.....se andiamo a vedere i ritardi max di un lottrone,abbiamo il 53 a venezia ,vado a memoria...253 estrazioni...sono ritardi di PRESENZA...in realta se vai a calcolare la max di presenza(media) di un ritardatario e' 216 ,pochissime volte si hanno ritardi sopra questa cifra....ed e' per questo che qui,su questo 3d,ho detto,visto e proposto i 2 ritardatari di Ba (presi,e giocati...è bene pure)....ora,la formula del ripetuto su ruota proposto dal listato,NON puo prescindere da questa tesi... (mio parere) liberissimi di fare le Vostre prove.
Tipo come questo,ha 20 anni l'ho' tirato fuori da un cd,ancora funzionante.
X Toon mi confermi il tuo 22 MI/PA per vedere le presenze se sono esatte.
 

Allegati

  • Spie di posizioni.PNG
    Spie di posizioni.PNG
    22,6 KB · Visite: 37
Un altro utilissimo listato che, dopo averci chiesto
di quale numero vogliamo sapere tutto sui ritardi in
posizione, ci restituisce per ogni posizione e su ogni ruota
il ritardo attuale e, a fianco quello storico.
Bellissimo e utilissimo.


Sub main()

Dim numero
Dim ritardi(5,10)
Dim storici(5,10)

numero=InputBox("Inserisci il numero per la ricerca.")
If numero="" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If

For r= 1 To 10
For i= 1 To 5
ritardi(i,r)=EstrazioneIni
Next
Next

For n=EstrazioneIni To EstrazioneFin
For r= 1 To 10
p=Posizione(n,r,numero)
If p>0 Then

If n-ritardi(p,r) > storici(p,r) Then storici(p,r)=n-ritardi(p,r)
ritardi(p,r)=n
End If
Next
Next

Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""

For r=1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p= 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next

End Sub

Ora basta regali...voglio ricordare a tutti gli abitanti del 3d,che questi listati sono utilissimi se a priori ci sta'una base di ricerca seria....e "FUTURO" di Batters lo e'...questi listati presi a se' NON fanno vincere una cippa'....anzi vi rimbabiscono ancor di piu' nel "mare" dei numeri....avvisati e mezzi salvati....
 
Un altro utilissimo listato che, dopo averci chiesto
di quale numero vogliamo sapere tutto sui ritardi in
posizione, ci restituisce per ogni posizione e su ogni ruota
il ritardo attuale e, a fianco quello storico.
Bellissimo e utilissimo.


Sub main()

Dim numero
Dim ritardi(5,10)
Dim storici(5,10)

numero=InputBox("Inserisci il numero per la ricerca.")
If numero="" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If

For r= 1 To 10
For i= 1 To 5
ritardi(i,r)=EstrazioneIni
Next
Next

For n=EstrazioneIni To EstrazioneFin
For r= 1 To 10
p=Posizione(n,r,numero)
If p>0 Then

If n-ritardi(p,r) > storici(p,r) Then storici(p,r)=n-ritardi(p,r)
ritardi(p,r)=n
End If
Next
Next

Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""

For r=1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p= 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next

End Sub

Ora basta regali...voglio ricordare a tutti gli abitanti del 3d,che questi listati sono utilissimi se a priori ci sta'una base di ricerca seria....e "FUTURO" di Batters lo e'...questi listati presi a se' NON fanno vincere una cippa'....anzi vi rimbabiscono ancor di piu' nel "mare" dei numeri....avvisati e mezzi salvati....
Questo e' fenomenale Grazie ancora Codicebinario. Viene calcolato dalla prima estrazione?
 
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!

Con moderazione!!!
Vedi l'allegato 2280314
convergenza 1 ..10 ba, da sogno non mio, che sto giocando :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
Indietro
Alto