Ennio Caperna ed il suo Kcritico.

[Matematico]

Buongiorno, ho ripreso questo script che mi sembra a parere mio un ottimo lavoro.
Ho modificato leggermente qualcosa da quello originale adattandolo alle mie esigenze.
Ho seguito il metodo per circa 3 mesi e i risultati purtroppo sono stati modesti.
Le piccole modifiche che ho fatto sono qui sotto riportate:

"----------------------------METODO KRITIKO 137------------------------------------ "
"----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
"Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
"Da giocare a colpo nell'estrazione successiva"

Se fosse possibile sarebbe ottima cosa fare ulteriori modfiche:
-individuare il numero di estrazioni del calcolo che statisticamente fornisce i risultati miglior (in questo caso 137)
-estrapolare a parte la o le previsioni che rispettano le condizioni sopra elencate (massimo 5 numeri per ruota)
- capire per quanti colpi di gioco seguire le previsioni scelte
. statistiche delle previsioni prese in esame (resoconto)

Vediamo se può interessare e se chi ne è capace se si può fare queste modifiche

GRAZIE


_____________________________________________________________________________________________________________________________________

SCRIPT



Option Explicit
Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin,x,ex,ez
ColoreTesto 0:Scrivi " Legenda Colori "
ColoreTesto 1:Scrivi " PROSSIMA USCITA "
ColoreTesto 3:Scrivi " In USCITA "
ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "----------------------------METODO KRITIKO 137------------------------------------ "
Scrivi "----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
Scrivi "Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
Scrivi "Da giocare a colpo nell'estrazione successiva"

Scrivi "----------------------------------------------------------------------------------- "


c = 0
clp = 0
x = CInt(InputBox("Quante Estrazioni a Ritroso ? ",,"137"))
es = x + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
ex = EstrazioneFin - es + clp
ez = EstrazioneFin - clp
For r = 1 To 11
If r = 11 Then r = 12
Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex,,,"/") & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez,,,"/") & " - " & "[" & EstrazioneFin - clp & "]"
Scrivi:Scrivi "NUMERO Fre- Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90
c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo
If c = 0 Then fleg = 1
If c = 0 Then c = 1
e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7

ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."
If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)
ColoreTesto 0
Next
Scrivi
Next
End Sub

Grazie . Su L8 non gira , dove devo fare la modifica?

 

[giorgio1960]

Grazie . Su L8 non gira , dove devo fare la modifica?

Rimuovi Option Explicit

 

[Matematico]

Rimuovi Option Explicit

Non basta, mi dà errore qui: Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex,,,"/") & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez,,,"/") & " - " & "[" & EstrazioneFin - clp & "]"

 

[vinci]

Io ho SpazioMetria versione 1.6.54
e gira perfettamente lo script

 

[Reacher]

L8 è differente... Più tosto

 

[joe]

Sembra la Storia di Penelope.

Si fa per L8+ lo si converte per Spaziometria.

Dopo un pò lo si converte per L8+ e poi lo si converte nuovamente per Spaziometria.

Dopo un pò, di nuovo, lo si converte per L8+ e/o per Spaziometria.

Comunque vada a finire questa End-Less-Story ... Questo gira su L8 e produce gli stessi risultati.

Per il "colore dei semafori" ... non vi ho badato, considerando che è preferito ritornare alle origini di un percorso circolare.

Option Explicit
Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin,x,ex,ez
Dim Nu(1),Ru(1)
ColoreTesto 0:Scrivi " Legenda Colori "
ColoreTesto 1:Scrivi " PROSSIMA USCITA "
ColoreTesto 3:Scrivi " In USCITA "
ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "----------------------------METODO KRITIKO 137------------------------------------ "
Scrivi "----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
Scrivi "Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
Scrivi "Da giocare a colpo nell'estrazione successiva"

Scrivi "----------------------------------------------------------------------------------- "


c = 0
clp = 0
x = CInt(InputBox("Quante Estrazioni a Ritroso ? ",,"137"))
es = x + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
ex = EstrazioneFin - es + clp
ez = EstrazioneFin - clp
For r = 1 To 11
If r = 11 Then r = 12
Ru(1) = R
Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex) & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez) & " - " & "[" & EstrazioneFin - clp & "]"
Scrivi:Scrivi "NUMERO Fre- Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90
Nu(1) = A
c = SerieFreq (Ini,fin,Nu,Ru,1) ' frequenza
d = SerieRitardo (Ini,Fin,Nu,ru,1) ' ritardo
If c = 0 Then fleg = 1
If c = 0 Then c = 1
e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7

ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."
If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co)
ColoreTesto 0
Next
Scrivi
Next
End Sub

Buona domenica a tutte/i.

 

[Reacher]

Alla fine basta salvare uno per spaziometria e uno per L8 così si conservano entrambi come faccio io

 

[joe]

Alla fine basta salvare uno per spaziometria e uno per L8 così si conservano entrambi come faccio io

Giusto!

 

[Alien.]

Ciao joe una cortesia, non mi si aggiorna più il superenalotto su spaziometria fermo al 29 agosto 2026 con gli script , soluzione,grazie.

 

[joe]

Alien come al solito ... non so ... perché non mi interesso di mantenere aggiornato quell'archivio.

La mia unica curiosità in questo, argomento ha riguardato a come LuigiB aveva usato il timestamp per codificare la data.

 

[Alien.]

 

[joe]

Ma che script usi ?

 

[Alien.]

È l'ho preso qua..

Option Explicit

'Aggiornamento Automatico Archivio DAT SuperEnalotto GNTN

Sub Main

'---------------------------- file temporanei

Dim sPercorsoLocale,sFileLocale0,sFileLocale1

sPercorsoLocale = GetDirectoryTemp & _

"gntn-pgd.it"

CreaDirectory(sPercorsoLocale)

sFileLocale0 = sPercorsoLocale & "0.txt"

sFileLocale1 = sPercorsoLocale & "1.txt"

Call EliminaFile(sFileLocale0)

Call EliminaFile(sFileLocale1)

'--------------------------------- file archivio estrazioni

Dim sFileBaseDati : sFileBaseDati = GetDirectoryAppData & _

"BaseDatiSuperEna.Dat"

'---------------------------------------------------- backup file

Dim eDate,eClock,sPercorsosFileBaseDatiBackup,sFileBaseDatiBackup

metterlo tutto è come una pergamena......ma sai dato che smanetto a volte faccio CAOS ma poi risolvo......per adesso ho risolto per caso ho ripreso il vecchio metodo di spaziometria e non ci potevo credere lo ha aggiornato che K.... hahahhahaha

 

[joe]

Per il niente che ne so io probabilmente il sito gntn-pgd.it non fornisce più i dati che ti servono.

 

[max66]

Si può realizzare almeno per ambata un listato seguendo quanto spiega Ennio Caperna in questo articolo:

Ma come si ottiene il valore del Kcritico? Semplice, dividendo la quantità delle sortite con la frequenza si ottiene un valore, per esempio se un numero è sortito 10 volte in 100 concorsi , lui ha frequenza di sortire una volta ogni 10,
se il ritardo attuale è zero in quanto è sortito nell’ultimo concorso, il Kcritico ha valore zero, diventa di valore 1 o multiplo di uno ogni volta che non uscendo raggiunge i 10 concorsi di ritardo; per cui dopo 10 assume il valore 1, dopo 20 assume il valore 2, e così via per un massimo in genere valore 7 e quasi mai oltre.
Ecco il punto, quando conviene prendere in considerazione la prossima sortita del numero o della combinazione di 2 – 3 numeri o della combinazione di combinazioni?
Diremo subito dopo, prima spieghiamo cosa abbiamo pensato e come
l’ abbiamo realizzato. Un numero è un numero , si sa; 2 e 3 numeri formano una combinazione a sé stante.
Noi non andiamo oltre perché la quaterna è il risultato della combinazione di 2 ambi mentre la cinquina è il risultato della combinazione di un ambo con il terno, quindi i nostri programmi che sono al servizio di studiosi e ingegneri verranno trattati e spiegati in video conferenza in determinati giorni e ore.
Ritornando a quale valore del Kcritico conviene mettere in gioco il numero o la combinazione, diciamo subito che i programmi informano visivamente il momento della messa in gioco, abbiamo fatto una statistica della statistica e possiamo dire che si avvera solo il 67% – 73% della previsione, pertanto in genere la sortita si avvera tra il 25% e il 51% del cambiamento del valore.
Esempio: il numero che esce ogni 10 concorsi se ha un ritardo di 2,5 concorsi o 5 concorsi, va messo in gioco, diversamente si aspetta il prossimo valore, che
dovrebbe essere tra il ritardo 12- 13 concorsi e 15 – 16 concorsi.
Ad ogni modo abbiamo diviso il momento di sortita in 3 fasce:
CELESTE, VERDE E VIOLA E LA COMBINAZIONE DELLE FASCE TRA LORO.
A LLA FASCIA CELESTE APPARTENGONO I NUMERI E LE COMBINAZIONI SORTITE DA POCO.
ALLA VERDE APPARTENGONO QUELLE CHE SONO DI PROSSIMA SORTITA.
AL VIOLA APPARTENGONO QUELLI CHE HANNO SUPERATO LA FASCIA VERDE.

Sperando in un volenteroso programmatore in attesa saluto ringraziando anticipatamente.

puoi vedere questo http://cannonedoro.altervista.org/lotto/Metodi/kcritico.php poi se ti serve altro puoi registrarti qui https://cannonedoro.altervista.org/login.php