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.