Novità

Per Salvo50 o altro esperto in listati

Matematico

Advanced Member >PLATINUM<
Ciao a tutti cercherò di spiegarmi nel miglior modo possibile.
Mi chiedo se e possibile un listato che analizzi la frequenza e il ritardo di codice .
Esempio:
Prendiamo in considerazione una ruota qualsiasi :
BARI -68 03 70 14 06
88 88 88 88 88 codice da me scelto tramite imput box
------------------------------------
66 01 68 12 04 previsione x a/t//q/c BA e tutte

Ai 5 estratti sommiamo sempre lo stesso numero _(codice) ,ovviamente con il fuori 90..generiamo quindi una nuova cinquina..questo ultima sara messa in gioco x ambo su ruota e a tutte..(quale sarà la sua frequenza ?)..e ritardo?
Potrebbe essere ottimo un imput box dove inserire il codice preferito da 1 a 90 (codici) lo farebbe in automatico e che a fine elaborato fosse evidenziato in tabella...
'L utilità del listato assomiglia un pò alla teoria dei codici e a metodi sommativi.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Matematico, questo non è alla mia portata, (conosco i miei limiti) spero che qualcuno te lo posta.
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50, capisco e ti ringrazio per la tua attenzione ...speriamo in Mike58 , Claudio, Joe o altri esperti nel settore...secondo me ne vale la pena e sarà utile a tutti gli studiosi appassionati di numeri.
 

joe

Advanced Member >PLATINUM PLUS<
Ciao ...

... io ho una sorta di rifiuto mentale per certi argomenti.

Mi spiace, ma proprio non riesco ad accontentarti.

:) Come vedi ... preferivo glissare.
 
R

Roby

Guest
Ciao, posso accontentarti solo in parte.

Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x
Dim ruota(12)
Dim poste(10)
Dim am(5)
Dim a,b,c,d,e,co
poste(2) = 1
x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
r1 = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruota(2) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + x)
am(2) = Fuori90(b + x)
am(3) = Fuori90(c + x)
am(4) = Fuori90(d + x)
am(5) = Fuori90(e + x)
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fisso " & x,1,,,1
ImpostaGiocata 1,am,ruota,poste,Clp,2
Gioca es,True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub
 
R

Roby

Guest
Per così poco, non c'è di chè.

Comunque ti dico la mia.

Non sono pochi quelli che hanno quel tipo di rifiuto mentale...

ma si spiega tutto per il semplice fatto che nel corso degli anni, (e l'età conta in questi casi), avendo tritato e ritritato l'argomento,
ti accorgi che alla fine qualcosa stona.

ma comunque ci sono anche metodi sommativi paarticolari che hanno un senso.

questa e solo la mia opinione

ciao
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Quando mi chiedono uno script, io non guardo se l'argomento mi piace o no, se sono in grado di farlo ed ho tempo a perdere lo faccio, Matematico aveva chiesto, ritardi, frequenze e tabelle, ed io non sono pratico su queste funzioni, quello che avrei potuto fare io sarebbe stato, ne più ne meno quello che ha fatto Cerberus.

Comunque rispetto l'opinione di Joe, e quando avrò più dimestichezza con gli script, forse avrò la stessa riluttanza.
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Con qualche piccola modifica al listato di Cerberus ..... si gioca a colpo percentuale di rendimento 2015%
Fatelo girare così come sta , naturale è un sommativo costruito però è sfizioso oggi andrebbe giocato la cinquina 88.61.73.21.71 su MI per Ambo
Codice:
Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x
Dim ruota(8)
Dim poste(10)
Dim am(5)
Dim a,b,c,d,e,co
poste(2) = 1
'x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"5"))
r1 = CInt(InputBox(" Scegli la ruota gioco ",,"5"))
'r1 = 1
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"1"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruota(2) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + 28)
am(2) = Fuori90(b + 88)
am(3) = Fuori90(c + 84)
am(4) = Fuori90(d + 23)
am(5) = Fuori90(e + 51)
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fisso " & x,1,,,1
ImpostaGiocata 1,am,ruota,poste,Clp',2
Gioca es ',True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub
 

fillotto

Advanced Member >PLATINUM<
Cerberus;n2122267 ha scritto:
infatti con i sommativi ci si può sbizzarrire a creare qualcosa di perfetto che perfetto non è, è solo un illusione

vero!! guarda questo: sulla NZ esaminate le ultime 10 estrazioni spesa 20 euro vincita 1010 euro
far girare così come scritto..... magari continuasse !!!!
Codice:
Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x
Dim ruota(8)
Dim poste(10)
Dim am(5)
Dim a,b,c,d,e,co
poste(2) = 1
poste(3) = 1
'x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"12"))
r1 = CInt(InputBox(" Scegli la ruota gioco ",,"12"))
'r1 = 1
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"1"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruota(2) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + 57)
am(2) = Fuori90(b + 17)
am(3) = Fuori90(c + 86)
am(4) = Fuori90(d + 79)
am(5) = Fuori90(e + 55)
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fisso " & x,1,,,1
ImpostaGiocata 1,am,ruota,poste,Clp',2
Gioca es ',True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
salvo50;n2122244 ha scritto:
Ciao a Tutti.

Quando mi chiedono uno script, io non guardo se l'argomento mi piace o no, se sono in grado di farlo ed ho tempo a perdere lo faccio, Matematico aveva chiesto, ritardi, frequenze e tabelle, ed io non sono pratico su queste funzioni, quello che avrei potuto fare io sarebbe stato, ne più ne meno quello che ha fatto Cerberus.

Comunque rispetto l'opinione di Joe, e quando avrò più dimestichezza con gli script, forse avrò la stessa riluttanza.

Ciao Salvo,

condivido quanto scrivi.

Tuttavia è anche giusto quanto scrive Cerberus.

Se sai che pestando i rebbi di un rastrello è probabile che ti arrivi una bastonata ...

l'esperienza fa si che si porti, ad utile ... non calpestare i rastrelli.

Tutto qui.

Passando a cose meno terrene, gli esempi codificati in script da Filotto,

si prestano ad alcune, considerazioni.

Per queste è opportuno che siano trascorsi alcuni concorsi,

così da poterle rendere esplicite con i "risultati alla mano".

:)
 
Ultima modifica:
R

Roby

Guest
salvo50;n2122244 ha scritto:
Ciao a Tutti.

Quando mi chiedono uno script, io non guardo se l'argomento mi piace o no, se sono in grado di farlo ed ho tempo a perdere lo faccio, Matematico aveva chiesto, ritardi, frequenze e tabelle, ed io non sono pratico su queste funzioni, quello che avrei potuto fare io sarebbe stato, ne più ne meno quello che ha fatto Cerberus.

Comunque rispetto l'opinione di Joe, e quando avrò più dimestichezza con gli script, forse avrò la stessa riluttanza.



Ciao salvo, Ciao a tutti

La stessa cosa io, non guardo il "cosa" se lo so fare lo faccio se ho tempo, e se serve a qualcuno tanto meglio.
Anche io non ho dimestichezza con ritardi, frequenze e tabelle.
Diciamo che ho fatto solo la prima parte richiesta. (faccio quello che so fare).


Tutt'altro discorso la riluttanza a certi argomenti :

Io personalmente non ho riluttanza con nulla, ma solo "opinioni" dettate dall'esperienza.

L'argomento in questione sono i metodi Sommativi.


Non bisogna essere dei mostri con gli script per capire certi argomenti.
Serve solo averne avuto esperienza fino alla noia e capito...


"Costruire" un sommativo è relativamente semplice con gli script.

Chi è piu bravo con gli script è solo piu rapido a scovare gli utilissimi "Arzigogoli" e i fissi piu prolifici.

Insomma si tratta di far "quadrare" il piu possibile tutto il "quadrabile" a nostra disposizione è il gioco è fatto!
Dove Il quadrabile è rappresentato dalla quantità di estrazioni interessate dal metodo sommativo.

Niente di piu e niente di meno.

joe lo spiega alla sua maniera (vedi esempio rastrello), ma comunque il succo è quello.

Io invece dico che è come sparare con un fucile con la canna ad ombrello.


Ma perchè si arriva a questo?


Vi pare che joe con le sue abilità scriptistiche non abbi sondato il terreno in lungo e in largo?

ma non bisogna essere delle cime con gli script per farlo, se lo si è, lo si fa solo meglio e sopratutto piu mirato.

L'unica cosa che serve davvero è la pazienza di fare tutte le prove (perdendo tempo) per scovare il "quadrato" nel "quadrabile".

Poi si presenta il "quadrato" come qualcosa di estremamente semplice ed incredibile.


Questa filosofia è nata molto tempo fa, Poi quando cominciarono ad uscire i famigerati costruttori di metodi,
la cosa si è affermata sempre più nelle menti dei giocatori, dando l'illusione che se si trovano i fissi migliori, codici, o come vogliamo chiamarli,
si arriva facilmente alla vincita.

La teoria dei sommativi
Il perchè è ancora seguita, è perchè le vincite ci possono essere, ma c'è un pro e un contro.


Mettiamo che costruisca un sommativo qualsiasi che comprenda 1000 estrazioni di ricerca.
In quelle mille estrazioni, avendo pazienza, si riesce a far quadrare quello che vogliamo, trasformando tutti gli esiti in esiti positivi di grande rilievo.
Siamo noi che dirigiamo l'orchestra e che suoniamo ogni singolo strumento e decidiamo che musica suonare...
Ci vuole pazienza, tempo e sopratutto voglia di farlo. Non te la cavi semplicisticamente, la musica deve essere anche "armonica".

Prendendo in esame 1000 estrazioni, qualsiasi sommativo fatto in questa attenta maniera, potrebbe funzionare per altre centinaio di estrazioni massimo,
facendo credere al miracolo (sempre temporaneo).

Smettere del tutto e poi riprendere a funzionare quando vuole lui. Dimostrando la tipica intermittenza.

Questo succede perchè, "Il metodo" è stato "CREATO" per quelle 1000 estrazioni !!!

ma ne son passate altre 100 e se perde colpi,

Andrebbe aggiornato a 1100 estrazioni, come minimo per trovare sempre le "coincidenze migliori"....e poi presentare le versione "2" del metodo...

e cosi via andando.

( per un attimo facciamo un ragionamento da lottologo commerciale...) (ma proprio il succo condensato)

... al momento giusto si avverte che con la versione 2, non avreste avuto esiti negativi, avuti ultimamente con la prima versione
e anzi avreste vinto questo e quello...

...funziona ininterrottamente dal 19xx...

e bla, bla ,bla. (...A me gli occhi please!).

----------------------------------

Si dimostra in modo tangibile che con la 2 versione, ci sono prove alla mano con tutta la statistica positiva al 100%

MA QUESTO è "QUASI" VALIDO SOLO FINO A QUEL MOMENTO MA A PARTIRE DALL'ESTRAZIONE SUCCESSIVA,

le cose cominciano lentamente a cambiare, fino ad azzerare la validità di tutto il lavoro.

Fisso a minimo 100 estrazioni l'adeguato tempo con cui il cambiamento si manifesta, fino alla versione N° 3.

In cento estrazioni ai voglia a fare bla bla bla.


So che ci sono persone che usano software specifici per questo genere di cose.
Noi con solo gli script siamo dei dilettanti.



A parte tutto, la morale finale sui sommativi, è quella che se ti metti a rischiare di prima persona,

puoi si, esultare wow, ma anche sprofondare mille volte.


..è solo la mia opinione...

Comunque per me che non gioco è tutto passatempo.


un saluto a tutti
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Cerberus ...

Ti svelo un segreto.

Non gioco perchè non sono abbastanza bravo.

Per esempio questo è un mio metodo scritto 8 anni fa e da allora da questi risultati:


================================================== ========== Caso n°1433
14.06.2018 TO 22.52.26.38.17 38.52
Estrazione generatrice del pronostico 09486 [ 71 - 14/06/2018]
G 0001 Numeri in gioco : 03 su TO per Estratto
V N. [03 ] [TO] [.. .. .. 03 ..] C. 7 Estratto 09493 [ 78 - 30/06/2018]
Interrotta per esito verificato G 0002 Numeri in gioco : 03.71.76 su TO per Ambo
In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 03.71.76 su TO TT per Ambo
In corso per altre 5 estrazioni
================================================== ========== Caso n°1434
19.06.2018 CA 84.22.63.64.27 27.63
Estrazione generatrice del pronostico 09488 [ 73 - 19/06/2018]
G 0001 Numeri in gioco : 02 su CA per Estratto
V N. [02 ] [CA] [.. .. 02 .. ..] C. 3 Estratto 09491 [ 76 - 26/06/2018]
Interrotta per esito verificato
G 0002 Numeri in gioco : 02.58.83 su CA per Ambo
In corso per altre 7 estrazioni
G 0003 Numeri in gioco : 02.58.83 su CA TT per Ambo
V N. [02.58.83 ] [TT] [NA][83 .. 58 .. ..] C. 3 Ambo 09491 [ 76 - 26/06/2018]
V N. [02.58.83 ] [TT] [NA][83 .. .. .. 58] C. 5 Ambo 09493 [ 78 - 30/06/2018] ============================================================ Caso n°1433
14.06.2018 TO 22.52.26.38.17 38.52
Estrazione generatrice del pronostico 09486 [ 71 - 14/06/2018]
G 0001 Numeri in gioco : 03 su TO per Estratto
V N. [03 ] [TO] [.. .. .. 03 ..] C. 7 Estratto 09493 [ 78 - 30/06/2018]
Interrotta per esito verificato
G 0002 Numeri in gioco : 03.71.76 su TO per Ambo
In corso per altre 5 estrazioni G
0003 Numeri in gioco : 03.71.76 su TO TT per Ambo
In corso per altre 5 estrazioni
============================================================ Caso n°1434
19.06.2018 CA 84.22.63.64.27 27.63
Estrazione generatrice del pronostico 09488 [ 73 - 19/06/2018]
G 0001 Numeri in gioco : 02 su CA per Estratto
V N. [02 ] [CA] [.. .. 02 .. ..] C. 3 Estratto 09491 [ 76 - 26/06/2018]
Interrotta per esito verificato
G 0002 Numeri in gioco : 02.58.83 su CA per Ambo
In corso per altre 7 estrazioni
G 0003 Numeri in gioco : 02.58.83 su CA TT per Ambo
V N. [02.58.83 ] [TT] [NA][83 .. 58 .. ..] C. 3 Ambo 09491 [ 76 - 26/06/2018]
V N. [02.58.83 ] [TT] [NA][83 .. .. .. 58] C. 5 Ambo 09493 [ 78 - 30/06/2018]
In corso per altre 7 estrazioni


================================================== ========== Caso n°1433
14.06.2018 TO 22.52.26.38.17 38.52
Estrazione generatrice del pronostico 09486 [ 71 - 14/06/2018]
G 0001 Numeri in gioco : 03 su TO per Estratto
V N. [03 ] [TO] [.. .. .. 03 ..] C. 7 Estratto 09493 [ 78 - 30/06/2018]
Interrotta per esito verificato
G 0002 Numeri in gioco : 03.71.76 su TO per Ambo
In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 03.71.76 su TO TT per Ambo
In corso per altre 5 estrazioni
================================================== ========== Caso n°1434
19.06.2018 CA 84.22.63.64.27 27.63
Estrazione generatrice del pronostico 09488 [ 73 - 19/06/2018]
G 0001 Numeri in gioco : 02 su CA per Estratto
V N. [02 ] [CA] [.. .. 02 .. ..] C. 3 Estratto 09491 [ 76 - 26/06/2018]
Interrotta per esito verificato
G 0002 Numeri in gioco : 02.58.83 su CA per Ambo
In corso per altre 7 estrazioni
G 0003 Numeri in gioco : 02.58.83 su CA TT per Ambo
V N. [02.58.83 ] [TT] [NA][83 .. 58 .. ..] C. 3 Ambo 09491 [ 76 - 26/06/2018]
V N. [02.58.83 ] [TT] [NA][83 .. .. .. 58] C. 5 Ambo 09493 [ 78 - 30/06/2018]
In corso per altre 7 estrazioni

Sembrano ottimi risultati ... ma per me non lo sono e lo reputo gravemente INSUFFICIENTE,

Se poi, per essere ancora più onesto, qualcuno me lo proponesse

dovrei sconsigliarlo senza ombra di dubbio.

Non perchè è mio o perchè è molto meglio di un sommativo.

:) Il giudizio deve essere di merito.

PS: Di questo metodo ne ho già parlato tempo fa e non ne svelo i dettagli.

Anche perché, e per ora, mi serve per ricerche e riscontri personali di teorie statistiche.
 
R

Roby

Guest
Il segreto, io l'ho capito, sarà dura farlo capire anche ad altri...solo inciampando nel rastrello...
 

Alien.

Advanced Premium Member
Cerberus;n2122124 ha scritto:
Ciao, posso accontentarti solo in parte.

Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x
Dim ruota(12)
Dim poste(10)
Dim am(5)
Dim a,b,c,d,e,co
poste(2) = 1
x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
r1 = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruota(2) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + x)
am(2) = Fuori90(b + x)
am(3) = Fuori90(c + x)
am(4) = Fuori90(d + x)
am(5) = Fuori90(e + x)
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fisso " & x,1,,,1
ImpostaGiocata 1,am,ruota,poste,Clp,2
Gioca es,True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub

CIAO,scusa ma si può inserire 2 fissi ,vengono fuori 10 numeti ,5 conteggiati con un fisso e gli altri 5 con altro fisso da immettere? grazie.
 

Alien.

Advanced Premium Member
Cerberus;n2122718 ha scritto:
Il segreto, io l'ho capito, sarà dura farlo capire anche ad altri...solo inciampando nel rastrello...

è qual'è




Il-segreto-canale-5.jpg
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
Alto