Ennio Caperna ed il suo Kcritico.

[Antonio Pagano]

Ho letto il post #10 di Ramaco dove descrive esattamente quello che ho detto fino adesso unica differenza che il Signor Ramaco lo applica sull'intero archivio mentre io a 54 esstrazioni.

​

​

 

[genios]

Ok avevo anche io intuito come dici .

 

[orion13]

Questo è l'articolo del settimanale del 28 maggio 1991

 

[orion13]

articolo del 20agosto1991,devo trovare il modo di inserire l'immagine senza allegato pdf

 

[orion13]

settimanale del 4 giugno1991

 

[orion13]

 

[orion13]

 

[Elleuca]

settimanale del 4 giugno1991
Vedi l'allegato 2244008

Grazie Orion. Se la data(04 giugno 1991) che hai detto è corretta diciamo che il Caperna aveva il suo bel da fare per essere credibile

 

[genios]

Orion grazie degli articoli se hai altro pubblica .

Ciao Eugenio

 

[orion13]

ciao a tutti, ciao Elleuca ,in verità a distanza di cosi tanto tempo non ricordo più se le ricerche di Caperna fossero efficaci, e un po come riscoprirle leggendo questi articoli.ciao Genios si ho altri articoli da postare più o meno una ventina e poi guarderò meglio nell'armadio dei ricordi se trovo altro.

 

[orion13]

 

[orion13]

art.del 17 sett. 1991 il settimanale era in edicola al martedi.

 

[orion13]

 

[Atlantis57]

Ciao Antonio, ci deve essere qualche errore di conteggio delle sortite,
non conta bene le sortite e a volte anche il ritardo,
ti allego foto del mio programma,ne conta 4 con lo script ne conta 5, vedi numero 29 e numero65

 

[genios]

Puo essere che lo script conti 55 estrazioni invece che 24 . Fai girare lo script con 53 estrazioni invece di 54 . E Vedi se combacino i dati .

 

[Antonio Pagano]

Ciao Antonio, ci deve essere qualche errore di conteggio delle sortite,
non conta bene le sortite e a volte anche il ritardo,
ti allego foto del mio programma,ne conta 4 con lo script ne conta 5, vedi numero 29 e numero65

Atlantis ho controllato, sbagliare è umano, ma da un esame attento mi accorgo che errori non ce ne sono mi trovo perfettamente con Spaziometria. verifica anche tu se riesci a riscontrare l'errore sono lieto correggerlo.Ciao grazie per l'attenzione.

 

[Atlantis57]

Ciao è molto semplice
prendi le ultime 54 estrazioni dalla data 14/06/2022 alla 15/10/2022
Torino
conta quante volte è uscito il numero 65, ne sono usciti 4
il tuo script né da 5 sortite

 

[Atlantis57]

 

[Atlantis57]

ho controllato l'archivio di spazio, il tuo script conta 55 estrazioni
ecco perché conta 5 volte il numero 65 data 11/06/2022,
provato a modificare lo script senza successo

 

[Atlantis57]

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