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ì 06 maggio 2025
    Bari
    06
    44
    88
    74
    39
    Cagliari
    72
    46
    55
    69
    07
    Firenze
    84
    82
    56
    39
    05
    Genova
    77
    53
    57
    42
    49
    Milano
    40
    71
    11
    02
    64
    Napoli
    12
    78
    75
    59
    38
    Palermo
    16
    47
    26
    56
    05
    Roma
    20
    19
    55
    01
    72
    Torino
    54
    83
    78
    71
    41
    Venezia
    71
    41
    55
    35
    63
    Nazionale
    46
    52
    67
    78
    59
    Estrazione Simbolotto
    Milano
    34
    21
    07
    16
    01

Ultimi Messaggi

Indietro
Alto