Cave Canem (Metodo statistico a pronostico dinamico)

[joe]

Cum più l'ablativo "precedenza" alle ruote di CA_VE_ in questa tabella

si osserva il ritardo degli ultimi 5 Estratti al riproporsi in Ambo a Colpo.



In ultima linea è in evidenza l'entità degli eccessi e degli scompensi nell'ultimo recente biennio.

Dunque non c'è nulla da calcolare.

Si deve solo da prestare ATTENZIONE a quanto ci sarà da attendere!

 

[joe]

A Cagliari si ripete il numero 7 il 25/07/2026

A Venezia si ripete il numero 80 sempre nell'ultima Estrazione.

Quindi si è conclusa subito con i 2 Estratti attesi nelle 2 Ruote indicate.

Buona Domenica.

 

[vincenzo63]

ciao Joe , manca presenze recenti.ls ?

 

[joe]

ciao Joe , manca presenze recenti.ls ?

Buongiorno Vincenzo,

forse non ho conservato quello script o è stato creato al momento per avere quei dati.

È semplice da replicare

Dim Ini,Fin,Es

Ini = EstrazioneFin - 399

Fin = EstrazioneFin

For Es = Ini to Fin

Scrivi DataEstrazione (Es) & " | ",1,0
'
'
'
Scrivi ""

Next

È la struttura portante dello script.

 

[joe]

Aggiungi all' inizio

Dim R,P,E

e poi, queste righe di codice nella parte centrale del precedente

For R = 1 to 12 : IF R = 11 then R = 12
For P = 1 to 5
E = Estratto (Es,R, P)
Scrivi Format2(E) & space(1) ,0,0
Next
Scrivi "| " ,1,0
Next

 

[joe]

La crasi delle 2 parti unite in unico script,

realizzano un browser dell'archivio Lotto, che visualizza le ultime 400 estrazioni.

Si tratta di introdurre la logica necessaria a far sparire (visivamente) la maggior parte degli estratti,

lasciando in evidenza solo la porzione di questi più utili alla conta del compendio statistico.

Per questo trattandosi di "Ripetizione a Colpo" dobbiamo controllare nell'estrazione precedente,

ma lo vedremo dopo per ora vediamo come bianchettare tutto gli Estratti.

E' una piccola modifica allo script precedente dove inserisco

Coloretesto Bianco/Nero, subito prima e subito dopo, aver scritto ogni Estratto.

E = Estratto (Es,R, P)
Coloretesto 5 'applica il colore BIANCO
Scrivi Format2 (E) & Space(1) ,0,0
Coloretesto 0 'Ripristina il colore NERO
Next

Eseguendo lo script che "bianchetta" ogni Estratto si ottiene una tabella apparentemente vuota

in cui rimangono visibili solo le date ed i separatori delle colonne con cui sono divise le Ruote.

 

[joe]

Ora si tratta di far apparire solo i "Ripetuti a Colpo"

In sintesi di ridare colore all'Estratto se questo è già presente nell' ESTRAZIONE PRECEDENTE.

Lo script scrive Riga per Riga ovvero di Estrazione in Estrazione.

Ogni Estrazione è la numero "Es" ... pertanto è facile intuire che la precedente è Es-1

L'istruzione posizione Posizione (Estrazione, Ruota, Estratto) restituisce un numero 0 / 1 / 2 / 3 / 4 / 5.

Quindi Zero se l' Estratto non è presente.

Ovvero un valore della Posizione "Maggiore di Zero"

Ogni volta che se l' Estratto "E" è presente nella Estrazione e nella Ruota che si sono indicate,

e pertanto possiamo "Ridare Colore" (NERO) a quel singolo Estratto.

E = Estratto(Es,R,P)
ColoreTesto 5
If Posizione(Es - 1,R,E) > 0 Then ColoreTesto 0
Scrivi Format2(E) & Space(1),0,0
ColoreTesto 0

Con questa modifica "si completa" la parte grafica che consiste nel trasformare l'Archivio in una tabella,

in cui sono in evidenza gli Estratti che in ogni ruota si "Ripetono a Colpo"

In altre parole "quelli" già presenti nell' Estrazione Precedente (Es-1).

.... Rimangono da conteggiare "Sorti" e "Ritardi".

 

[joe]

If Posizione(Es - 1,R,E) > 0 Then ColoreTesto 0

è un test condizionale che "SI ATTIVA OGNI VOLTA CHE" ... trova un estratto ripetuto.

Dunque se si inserisce un semplicissimo contatore abbiamo :

1 se c'è 1 Estratto ripetuto e 2 se ci sono 2 Estratti ripetuti Ovvero si è ripetuto un Ambo o più ...

Si predispone una variabile da nome "C" (di contatore) da incrementarsi ogni estratto che viene visualizzato in colore nero.

La condizione è pertantoallo stesso livello e nella stessa linea dove si esegue il test (già ampiamente descritto).

If Posizione(Es - 1,R,E) > 0 Then ColoreTesto 0 : C = C + 1

Questo contatore però deve essere azzerato all'inizio di ogni cinquina di estratti.

altrimenti continua a crescere diventando presto un numero enorme e molto più grande del suo valore massimo.

Cioè 5 teoricamente presente con una improbabile cinquina ripetuta a colpo ed a ruota.

Bene dopo aver scritto Dim C all'inizio e modificato il test condizionale abbiamo "la conta" degli estratti ripetuti.

Però non è visibile e per controllare che tutto funziona bene si deve controllare questo valore

Con riferimento a quanto scritto nel messaggio 5 si vede che dopo i 5 estratti di ogni ruota c'è un separatore "|"

Subito prima di scrivere il separatore scriviamo Scrivi C & " " ,1,0

Ed avremo a video questi valori. simili a colonne come questa "000100020010001010110000 ecc...

Con corrispondenza biunivoca ovvero è la conta di quanti estratti ci sono tra quei 5.

.... Se tutto è apposto ... si può continuare!

 

[joe]

Dove abbiamo inserito l'istruzione per controllare il valore "C" (Scrivi C & " ",0,0)

E' evidente che "C" rappresenta il valore della sorte che si realizza nell'estrazione "Es"

Quindi assieme a scrivi possiamo aggiungere 2 istuzioni per memorizzare il numero di estrazione (ULTIMO)

in cui si è ottenuto il risultato.

If C = 1 Then A(R) = Es
If C >= 2 Then A(R) = Es : B(R) = Es

Questa sorte può essere diversa ed avvenire, in modo diverso per le 11 ruote.

Dunque dopo aver predisposto 2 Array da 12 posizioni con le 2 linee di istruzioni (qui sopra)

si possono selezionare e memorizzare il numero di estrazione in cui c'è un Estratto o un Ambo (o più) .

Dopo aver visualizzato gli estratti tutta la ricerca numerico statistica diventa questa:

Scrivi C & " ",0,0
If C = 1 Then A(R) = Es
If C >= 2 Then A(R) = Es : B(R) = Es
Scrivi "| ",1,0

 

[joe]

Ritengo sia utile avere il riferimento al Ritardo corrente.

Lo si ottiene inserendo subito dopo l'istruzione con cui viene esposta la data,

questa nuova riga di codice : Scrivi FormatSpace(Fin - Es,3,1) & " | ",1,0

E' evidente che il ritardo CORRENTE indica da quante estrazioni non si verifica la presenza della sorte,

oppure cresce in senso inverso con retrocedere nel tempo delle Estrazioni.

Didatticamente è Fin-Es. Differenza in estrazioni tra la ultima (Fin) e quella Es in cui è presente l'evento.

Analogamente possiamo calcolare e riprodurre a video quelli di cui è fatta richiesta.

Prima ancora però è utile avere un titolo per ogni colonna (con Data Rc e Ruota/e)

Lo si ottiene aggiungendo in fondo allo script (subito prima di End Sub) queste poche righe di codice.

Scrivi Space(4) & "Data" & Space(3) & "| Rc ",1,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi "|" & FormatSpace(NomeRuota(R),16),1,0
Next
Scrivi "|",1
Scrivi

Con un solo ciclo For-Next viene scritto il nome della Ruota (per esteso considerando che ci sono spazi sufficienti).

In ultimo ricordando che il RitC è Fin-Es con un ciclo For-Next identico al precedente,

possiamo produrre un resoconto dei ritardi di Estratto ed Ambo ... per ogni Ruota

Aggiungeno ancora prima di End Sub e dopo ave battezzato le colonne con il loro nome lo si ottiene con

For R = 1 To 12 : If R = 11 Then R = 12
Scrivi NomeRuota(R),1
Scrivi "Rc_Estr" & FormatSpace(Fin - A(R),4,1)
Scrivi "Rc_Ambo" & FormatSpace(Fin - B(R),4,1)
Scrivi String(12,"-")
Next

Con questo si dovrebbe avere un piccolo script per mostrare in grafica e sinteticamente la situazione attuale,

riguardo le ruote la frequenza ed il ritardo degli Estratti nel loro casuale ritmo del ripetersi a colpo.

 

[vincenzo63]

..Ok...ho Capito ? ..non lo so ,...ci provo..ci sono diversi passaggi

 

[joe]

..Ok...ho Capito ? ..non lo so ,...ci provo..ci sono diversi passaggi

Non dovrebbe essere difficile comporlo.

e dovrebbero essere circa 30-35 linee di codice.

Quando l' hai messo assieme se ci sono errori ...

... li correggeremo.