Novità

Ennio Caperna ed il suo Kcritico.

questo è lo script incriminato

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

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
c = 0
clp = 0
es = 54 + clp 'EstrazioneFin - 54
Ini = EstrazioneFin -(54 + clp)
fin = EstrazioneFin - clp
For r = 1 To 10 ' ruota 4

Scrivi NomeRuota(r) & " " & 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 ' per non incorrere nell'errore divisione per 0
If c = 0 Then c = 1

e = Int(es / c) 'MEDIA ' media dl numero estratto
kc = d / e 'probabilita ' quantità estrazione / la media
cl = Int(d / e) 'probabilita ' cl = intero ck
pr = Int(e * 25 /100) '% ' inizio gioco del numero
pr1 = Int(e * 51 /100) '% ' fine gioco del numero
g = Int(d -(cl * e)) 'RIT-ATT ' g definizione del ritardo attuale
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 'Dal confronto tra le variabili g con pr pr1 e co definisco i colori
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(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 > 2 Then Call Scrivi(ts & co,True,,co,co2) ' Cambiando il valore di confronto con cl avremo i vari kc se cerco i kc = 5 cambio 2 con 5

ColoreTesto 0
Next
Scrivi
Next

End Sub
Grazie Atlantis hai ragione non mi ero accorto del 54 ma deve essee 53, Allego il listato corretto e funzionante:

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

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "....................... 1 AMBATA KC 4 ................."
c = 0
clp = 0
es = 53 + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
For r = 1 To 10

Scrivi NomeRuota(r) & " " & 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
If d > 54 Then co = 2
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & Format2(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
 
Interessante sarebbe fare uno script della tabella dell' articolo pubblicato da orion 13 . Tabelle che per ciascuna presenza dei numeri nelle 54 estrazioni . Ci dia come risultato la quantità di sortite la presenza il ritardo attuale e il ritardo massimo presumo per la sorte ambo . Grazie ancora ad Orion13.

Ciao Eugenio




caperna tabella.jpg
 
cerco la soluzione migliore in base alle mie capacità per potere pubblicare gli articoli in questo ho diviso in due pdf dove in basso c'è la data di riferimento
 

Allegati

Dalla tabella pubblicata da Orion13 post #203 Caperna indicava sulla ruota di VE un ritardo ( forse per ) terno di 16 estrazioni contro un max di 23 estrazioni per il gruppo di numeri ( dinamico ) con 4 presenze su 54 estrazioni . Puntualmente nell' estrazione 6314 del 11/01/1992

terno con i numeri 07 23 67

10

6310 6257 14.12.1991

18 numeri sortiti 4 volte: 7 8 10 17 19 20 23 29 36 40 49 53 59 64 72 76 77 90 10

10

6311 6258 21.12.1991

17 numeri sortiti 4 volte: 7 8 10 17 19 20 21 23 29 36 40 46 49 53 64 77 90

10

6312 6259 53 28.12.1991


18 numeri sortiti 4 volte: 4 7 8 17 19 20 22 23 29 36 46 49 53 64 76 77 85 90
10

6313 6260 53 04.01.1992

17 numeri sortiti 4 volte: 4 7 8 17 19 20 23 36 46 49 53 57 64 67 76 85 90
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto