Ennio Caperna ed il suo Kcritico.

[*blacklotto*]

Discorsi che non tengono conto della realtà delle cose.
Le estrazioni non hanno memoria. Tutto ciò che si legge/interpreta negli archivi anche dopo la meccanizzazione delle estrazioni è casualità.
Lasciamo spazio al tread.

Si, certo, conviene che si lasci spazio al tread,
leggere quello che tu hai scritto fa rabbrividire.
Tieni per te certi commenti, che tra l'atro mi suona di frasi già riportate.
Se vuoi predicare quanto hai scritto avresti prima dovuto scrivere : il mio pensiero è ... e poi scrivere il pensiero, così scrivendo pare tu lo abbia letto sulle tavole antiche del gioco del lotto.
Dove sta scritto che le estrazioni non hanno memoria ?
Lo hai forse letto nelle tavole sopracitate dove qualche sacerdote lo stampò ai tempi che furono ?
Casualità è una parola orrenda, è una parola che uccide il gioco del lotto, e se così fosse, perché faremmo ricerche ? Perché tutte ste metodologie ? Perché migliaia di ore immersi tra i numeri, se, come dici tu, è tutto quanto casualità ? Che si fa, si gioca numeri a vanvera ?
Chi ha voce in capitolo in questo super seguito forum, o comunque ha notorietà, come hai tu, e lo dico con rispetto, dovrebbe metterlo bene in chiaro che sta scrivendo un pensiero proprio, e non verità.
Certo, fino a prova contraria, e con dimostrazione.

 

[claudio8]

Si, certo, conviene che si lasci spazio al tread,
leggere quello che tu hai scritto fa rabbrividire.
Tieni per te certi commenti, che tra l'atro mi suona di frasi già riportate.
Se vuoi predicare quanto hai scritto avresti prima dovuto scrivere : il mio pensiero è ... e poi scrivere il pensiero, così scrivendo pare tu lo abbia letto sulle tavole antiche del gioco del lotto.
Dove sta scritto che le estrazioni non hanno memoria ?
Lo hai forse letto nelle tavole sopracitate dove qualche sacerdote lo stampò ai tempi che furono ?
Casualità è una parola orrenda, è una parola che uccide il gioco del lotto, e se così fosse, perché faremmo ricerche ? Perché tutte ste metodologie ? Perché migliaia di ore immersi tra i numeri, se, come dici tu, è tutto quanto casualità ? Che si fa, si gioca numeri a vanvera ?
Chi ha voce in capitolo in questo super seguito forum, o comunque ha notorietà, come hai tu, e lo dico con rispetto, dovrebbe metterlo bene in chiaro che sta scrivendo un pensiero proprio, e non verità.
Certo, fino a prova contraria, e con dimostrazione.

Se vuoi andiamo avanti con questo discorso su nuovo tread che ti pregherei di aprire e di non rabbrividire .
Una sola nota: dove sta scritto che un proprio pensiero debba essere preceduto dalla dicitura " il mio pensiero è ... "
al massimo se si fa una citazione, è corretto citare la fonte.
Un saluto, con rispetto.

 

[genios]

Occorrerebbe fare uno script che calcoli i ritardi attuali e i ritardi storici dei gruppi A B C D E F G H I L per le varie sorti ambata, ambo terno quaterna cinquina. Naturalmente i numeri dei vari gruppi sono dinamici nel senso che potrebbero cambiare ad ogni estrazione . Allego foto della situazione ferma all estrazione 6347 dell 'archivio di spaziometria .

4
6347 29.08.1992

4 numeri sortiti 0 volte: 18 34 60 67
12 numeri sortiti 1 volte: 1 8 11 15 16 25 40 61 63 80 81 85
18 numeri sortiti 2 volte: 5 9 13 23 30 32 37 39 41 42 50 53 54 57 68 82 87 89
26 numeri sortiti 3 volte: 2 12 21 24 31 33 43 44 45 47 51 52 55 69 70 71 73 74 77 78 79 83 84 86 88 90
15 numeri sortiti 4 volte: 6 10 22 28 35 36 46 48 56 58 59 65 72 75 76
7 numeri sortiti 5 volte: 3 14 17 29 38 64 66
5 numeri sortiti 6 volte: 4 7 20 27 49
2 numeri sortiti 7 volte: 26 62
1 numeri sortiti 10 volte: 19

 

[genios]

X RAMCO potresti usando spaziometria indicare il K critico della situazione sulla ruota di Genova all estrazione 6347 per i numeri in tabella in foto . Vediamo se coincidono.

 

[genios]

Questo è il codice della ricerca nelle 54 estrazioni

Sub Main
   Dim frequenze(90)
   Dim n,c
   Dim i
   Dim ruota
   Dim es
   Dim s
   es = 6347
 
      ruota = 4 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ
      Scrivi ruota
      Scrivi es & " " & DataEstrazione(es)
      Scrivi
      For n = es To es - 54 Step - 1
         For i = 1 To 5
            e = Estratto(n,ruota,i)
            frequenze(e) = frequenze(e) + 1
         Next
      Next
      For n = 0 To 54
         s = " numeri sortiti " & CStr(n) & " volte: "
         c = 0
         For i = 1 To 90
            If frequenze(i) = n Then
               s = s & CStr(i) & " "
               c = c + 1
            End If
         Next
         If c > 0 Then
            Scrivi CStr(c) & s
         End If
         
    
   Next
End Sub

4

6347 29.08.1992



4 numeri sortiti 0 volte: 18 34 60 67

12 numeri sortiti 1 volte: 1 8 11 15 16 25 40 61 63 80 81 85

18 numeri sortiti 2 volte: 5 9 13 23 30 32 37 39 41 42 50 53 54 57 68 82 87 89

26 numeri sortiti 3 volte: 2 12 21 24 31 33 43 44 45 47 51 52 55 69 70 71 73 74 77 78 79 83 84 86 88 90

14 numeri sortiti 4 volte: 6 10 22 28 35 36 46 48 56 58 59 72 75 76

7 numeri sortiti 5 volte: 3 14 17 29 38 64 66

5 numeri sortiti 6 volte: 4 7 20 27 49

2 numeri sortiti 7 volte: 26 62

1 numeri sortiti 10 volte: 19


4

6348 05.09.1992



4 numeri sortiti 0 volte: 18 34 60 67

12 numeri sortiti 1 volte: 1 8 11 15 16 25 40 61 63 80 81 85

18 numeri sortiti 2 volte: 5 9 13 23 30 32 37 41 42 50 53 54 55 57 68 82 87 89

27 numeri sortiti 3 volte: 2 12 21 24 31 33 39 43 44 45 47 51 52 65 69 70 71 73 74 77 78 79 83 84 86 88 90

12 numeri sortiti 4 volte: 6 10 22 28 35 36 46 48 56 58 75 76

8 numeri sortiti 5 volte: 3 14 17 29 38 59 66 72

7 numeri sortiti 6 volte: 4 7 20 27 49 62 64

1 numeri sortiti 7 volte: 26

1 numeri sortiti 9 volte: 19

 

[joe]

Eugenio,

molti anni fa ti ho fatto uno script che si intitola "Classi di Presenza 78. V.3.

Se usi quello senza rovinarlo ... funziona.

Qui ... devi considerare che la somma di tutte le presenze, suddivise nelle diverse classi,

(cioè "Quantità di Estratti" X per "Classe di Presenza")

deve essere uguale alla Quantità di Estratti (5) di ogni estrazione moltiplicata per il numero di Estrazioni.

In sintesi devono esserci tutti gli estratti.

Né più né meno di 5 X 54 = 270 Presenze, suddivise tra le varie classi (in cui si raggruppano).

Dunque, quelle suddivisioni sono sicuramente sbagliate.

 

[genios]

Joe in effetti non risultano 270 ma di più . Mi sembra errato anche quello di Caperna .

 

[genios]

Ecco lo script corretto su quello precedente è sbagliata la costante 54 che invece doveva avere valore 53 .

Sub Main
   Dim frequenze(90)
   Dim n,c
   Dim i
   Dim ruota
   Dim es
   Dim s
   es = 6347
 
      ruota = 4 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ
      Scrivi ruota
      Scrivi es & " " & DataEstrazione(es)
      Scrivi
      For n = es To es - 53 Step - 1
         For i = 1 To 5
            e = Estratto(n,ruota,i)
            frequenze(e) = frequenze(e) + 1
         Next
      Next
      For n = 0 To 53
         s = " numeri sortiti " & CStr(n) & " volte: "
         c = 0
         For i = 1 To 90
            If frequenze(i) = n Then
               s = s & CStr(i) & " "
               c = c + 1
            End If
         Next
         If c > 0 Then
            Scrivi CStr(c) & s
         End If
        
    
   Next
End Sub

 

[joe]

Ecco lo script corretto su quello precedente è sbagliata la costante 54 che invece doveva avere valore 53 .

Questo corrisponde e conferma l'errore di cui ho scritto che riguarda quasi tutti gli script.

Lo sviluppo più evoluto sembra essere quello proposto da Antonio al messaggio 17.

Anche li ... si può discutere sul come o il perché si debbano scegliere 54 (78 o 107 estrazioni),

ed altri piccoli e grandi particolari che rendono MOLTO difficile allineare i risultati per confrontarli.

La mia proposta è che si ha interesse ... quella di continuare da li, concentrandosi su quello,

che è già un qualcosa di concreto su cui continuare ed ampliare.

 

[genios]

Joe dov è lo script di Antonio ?

 

[joe]

Joe dov è lo script di Antonio ?

Presenze
Ritardo
Medio

stabiliti quali siano

ruota
numero
limiti dell'intervallo considerato

sono facilmente calcolabili.

Con questi è possibile calcolare anche la Media riportata in tabella.

Chiaro che lo script di Antonio, sino a questa parte del controllo,

evidenzia almeno "un errore" e/o se non un errore la presenza di intervalli di estrazioni

poco compatibili tra loro.

Dunque per non avere diversi script che calcolano ognuno "a modo suo" sarebbe meglio

proseguire / correggere / migliorare un solo progetto.

Anche perché chi ha scelto il suono "Kcritico" per battezzare questo suo tipo di conteggio ...

 

[Sakti]

Ho provato lo script di Genios con la revisione di Joe "Classi di Presenza 78" cambiando il 78 con 53 e con le cifre risultanti, dalle prove che ho fatto, anche con pochi numeri, partendo dall'ultima del mese, mi ha sempre dato almeno un ambo sulla ruota prescelta, credo che la cosa sia degna di nota...Grazie

 

[Serpico 90]

Salve Toon...
Cortesemente ,se lo ritieni, potresti postare lo script con le modifiche da te apportate?
Io sono un frana...riesco a copiare ed installare solo gli script che vengono postati .
Nella tua libera scelta ..
Grazie ,in attesa di una gradita risposta
saluti
Serpico
l

 

[Sakti]

Non ho cambiato quasi nulla, andava più che bene così!!
Allego il file txt , non mi permette di mettere il listato come solito, ma penso vada
bene ugualmente..

 

[Serpico 90]

Grazie molto gentile
domani smanetto per capre meglio
Saluti
Serpico

 

[Rookie]

Buongiorno e se posso, vorrei chiedere qui a quanti hanno seguito il concetto di KCritico dello studio Caperna qualche lume perche' sono per natura curioso, e qualcosa non torna:

Alla data del riferimento lottografico riferito alla ruota di Genova, se si considerano solo 54 estrazioni, non si arriva alla situazione della tabella esposta nell'articolo di cui alle foto qui disponibili, per delle ragioni che passo a dettagliare:

a) ci sono 4 numeri che ovviamente si trovano con zero successi nelle 54 estrazioni
b) se ho ben interpretato il procedimento di calcolo, nessuno dei numeri in evidenza nella tabella lottografica ha un KCritico=3
c) le suddivisioni dei gruppi di numeri, dal gruppo A al gruppo H, hanno diversi modi possibili di essere interpretati ma per ora questo, a mio avviso, puo' essere lasciato come approfondimento successivo; ovvero dopo aver acclarato i punti a e b

duqnue, per avere una base su cui discettare accludo quello che ho rilevato alla data della tabella per la ruota di Genova. Per convenzione ho posto i non sortiti a ritardo 55 e questi sono i risultati con il mio archivio, se non ci sono errori di registrazione dei dati per quelle 54 estrazioni dell'epoca:

Ritardi rilevati e KCritico (in parentesi)
55) 18(0) 34(0) 60(0) 67(0) Numeri assenti
52) 61(1)
51) 81(1)
50) 80(1)
48) 15(1)
41) 11(1)
36) 16(1)
34) 31(2) 57(1)
32) 82(1)
31) 89(1)
30) 36(2) 73(2)
29) 41(1) 68(1)
28) 08(1) 85(1)
26) 09(1)
24) 01(0)
23) 25(0) 59(2) 76(2)
22) 05(1) 70(1)
21) 43(1) 65(2) 72(2)
19) 07(2) 33(1) 47(1) 54(1)
18) 06(1)
17) 17(2) 71(1)
16) 27(2) 58(1)
15) 02(1) 30(1) 53(1)
14) 26(2)
13) 64(1) 88(1) 90(1)
12) 12(1) 23(0)
11) 56(1)
10) 50(0) 55(1)
09) 04(1) 29(1) 37(0) 79(0)
08) 03(1) 21(0) 22(1)
07) 24(0) 75(1) 78(0)
06) 10(0) 42(0) 52(0) 63(0)
05) 14(0) 19(1) 39(0) 83(0)
04) 28(0) 40(0) 74(0) 77(0)
03) 32(0) 38(0) 45(0)
02) 44(0) 48(0) 62(0) 69(0)
01) 13(0) 46(0) 51(0) 66(0) 86(0) Ultimi numeri estratti
--------------------------------------------------------

GE Successi (indicati con K) nelle 54 estrazioni (tra parentesi il ritardo) fuori parentesi KCritico

K=10) 19(05) 1;
K=09) /
K=08) /
K=07) 26(14) 2; 62(02) 0;
K=06) 04(09) 1; 07(19) 2; 20(00) 0; 27(16) 2; 49(00) 0;
K=05) 03(08) 1; 14(05) 0; 17(17) 2; 29(09) 1; 38(03) 0; 64(13) 1; 66(01) 0;
K=04) 06(18) 1; 10(06) 0; 22(08) 1; 28(04) 0; 35(00) 0; 36(30) 2; 46(01) 0; 48(02) 0; 56(11) 1; 58(16) 1;
idem 59(23) 2; 65(21) 2; 72(21) 2; 75(07) 1; 76(23) 2;
K=03) 02(15) 1; 12(12) 1; 21(08) 0; 24(07) 0; 31(34) 2; 33(19) 1; 43(21) 1; 44(02) 0; 45(03) 0; 47(19) 1;
idem 51(01) 0; 52(06) 0; 55(10) 1; 69(02) 0; 70(22) 1; 71(17) 1; 73(30) 2; 74(04) 0; 77(04) 0; 78(07) 0;
idem 79(09) 0; 83(05) 0; 84(00) 0; 86(01) 0; 88(13) 1; 90(13) 1;
K=02) 05(22) 1; 09(26) 1; 13(01) 0; 23(12) 0; 30(15) 1; 32(03) 0; 37(09) 0; 39(05) 0; 41(29) 1; 42(06) 0;
idem 50(10) 0; 53(15) 1; 54(19) 1; 57(34) 1; 68(29) 1; 82(32) 1; 87(00) 0; 89(31) 1;
K=01) 01(24) 0; 08(28) 1; 11(41) 1; 15(48) 1; 16(36) 1; 25(23) 0; 40(04) 0; 61(52) 1; 63(06) 0; 80(50) 1;
idem 81(51) 1; 85(28) 1;
K=00) 18(55) 0; 34(55) 0; 60(55) 0; 67(55) 0;


GE KCritico (indicato con KC) rispetto alle 54 estrazioni (tra parentesi il ritardo)

KC=5) /
KC=4) /
KC=3) /
KC=2) 07(19) 17(17) 26(14) 27(16) 31(34) 36(30) 59(23) 65(21) 72(21) 73(30) 76(23)
KC=1) 02(15) 03(08) 04(09) 05(22) 06(18) 08(28) 09(26) 11(41) 12(12) 15(48) 16(36)
idem 19(05) 22(08) 29(09) 30(15) 33(19) 41(29) 43(21) 47(19) 53(15) 54(19) 55(10)
idem 56(11) 57(34) 58(16) 61(52) 64(13) 68(29) 70(22) 71(17) 75(07) 80(50) 81(51)
idem 82(32) 85(28) 88(13) 89(31) 90(13)
KC=0) 01(24) 10(06) 13(01) 14(05) 18(55) 20(00) 21(08) 23(12) 24(07) 25(23) 28(04)
idem 32(03) 34(55) 35(00) 37(09) 38(03) 39(05) 40(04) 42(06) 44(02) 45(03) 46(01)
idem 48(02) 49(00) 50(10) 51(01) 52(06) 60(55) 62(02) 63(06) 66(01) 67(55) 69(02)
idem 74(04) 77(04) 78(07) 79(09) 83(05) 84(00) 86(01) 87(00)

Sperando di aver fatto cosa gradita, auguro buon proseguimento e buon fine settimana!

 

[Antonio Pagano]

Signori visto che io ho acceso la miccia e che molti ci credono vi allego il mio script e vi spiego per che cosa avevo chiesto aiuto. Lo script funziona tutto secondo la teoria esposta un solo errore da risolvere non gira a 54 estrazioni a 78 ma solo a 107 risolto questo potremmo essere già a un buon punto. Buon lavoro.

' KC Antonio Pagano
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

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
clp = 10
es = 107 + clp 'EstrazioneFin - 54 ' media 35 cicli da 18 estrazioni
'f = EstrazioneFin

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,EstrazioneFin - es,EstrazioneFin - clp) ' frequenza
d = EstrattoRitardo(r,a,EstrazioneFin - es,EstrazioneFin - clp) ' ritardo

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 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) & " " & 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 cl => 2 Then Call Scrivi(ts & co,True,,co,co2)
'If cl > 0 Then Scrivi a & " " & c & " - " & d & " " & e & " " & cl & " " & pr & " % " & pr1 & " " & g & " " & pr1 - g & " " & kc
ColoreTesto 0

Next
Scrivi
Next
End Sub

 

[Rookie]

Signori visto che io ho acceso la miccia e che molti ci credono vi allego il mio script e vi spiego per che cosa avevo chiesto aiuto. Lo script funziona tutto secondo la teoria esposta un solo errore da risolvere non gira a 54 estrazioni a 78 ma solo a 107 risolto questo potremmo essere già a un buon punto. Buon lavoro.

' KC Antonio Pagano
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

'ColoreTesto 1:Scrivi " PROSSIMA USCITA "
'ColoreTesto 3:Scrivi " In USCITA "
'ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
clp = 10
es = 107 + clp 'EstrazioneFin - 54 ' media 35 cicli da 18 estrazioni
'f = EstrazioneFin

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,EstrazioneFin - es,EstrazioneFin - clp) ' frequenza
d = EstrattoRitardo(r,a,EstrazioneFin - es,EstrazioneFin - clp) ' ritardo

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 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) & " " & 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 cl => 2 Then Call Scrivi(ts & co,True,,co,co2)
'If cl > 0 Then Scrivi a & " " & c & " - " & d & " " & e & " " & cl & " " & pr & " % " & pr1 & " " & g & " " & pr1 - g & " " & kc
ColoreTesto 0

Next
Scrivi
Next
End Sub

Caro Antonio, se ho interpretato correttamente lo script qui allegato, devo desumere che la media dei successi (benche’ non influenzi il computo, o almeno così sembrerebbe) va’ calcolata sulla base degli ultimi 35 cicli di 18 estrazioni? Mi riferisco a questa linea contenuta nello script in parola: es = 107 + clp 'EstrazioneFin - 54 ' media 35 cicli da 18. Frattanto ringrazio per una eventuale risposta!

 

[Antonio Pagano]

Rookie non considerare 'EstrazioneFin - 54 ' media 35 cicli da 18 sono note segnate durante prove e prove e dimenticato di cancellare.
Il cl è il KC . Voglio correggere lo script che giri a 54 estrazioni e non riesco a capire perchè mi da errore. Grazie per l'interesse.

 

[Rookie]

Rookie non considerare 'EstrazioneFin - 54 ' media 35 cicli da 18 sono note segnate durante prove e prove e dimenticato di cancellare.
Il cl è il KC . Voglio correggere lo script che giri a 54 estrazioni e non riesco a capire perchè mi da errore. Grazie per l'interesse.

Grazie Antonio per la risposta! Mi viene spontaneo pensare che nel calcolo della media (cfr. e = Int(es / c) 'MEDIA) se c vale 0 (zero) la divisione è impossibile e quindi si avrebbe un errore di divisione per zero. Come nel caso per i 4 numeri che ho posto a ritardo 55 considerando, evidentemente, per tale ragione nullo il KCritico! Vedi tu se necessita aggiungere un controllo nel caso c abbia valore nullo.