Ennio Caperna ed il suo Kcritico.

[Antonio Pagano]

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

 

[Atlantis57]

Ciao Antonio, per il momento sembra tutto ok
grazie

 

[genios]

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

 

[Antonio Pagano]

Speriamo i un volenteroso programmatore, non sono in grado di realizzarlo. Ciao Ragazzi

 

[Atlantis57]

ciao , dove è l'articolo,

 

[orion13]

 

[orion13]

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

 

[orion13]

8 ottobre 1991

 

[orion13]

15 ottobre 1991

 

[genios]

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

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]

 

[orion13]