BABY BOOMERS ed estratti Doc

[genios]

Mi Auguro stasera

Aspettabilità 0, 77477909851937915211434


Ma per la statistica è giusto il mio ragionamento ?

in quanto tempo pensi uscirà almeno 1 ambo?

questo è il secondo passo o quesito da trovare.

Su questo non so dirti .
Ma la formula di jno fa un calcolo con 500 estrazioni .

c'è una motivazione statistica abbastanza valida, quindi il metodo di qualcuno non conta.
quel che conta è la motivazione statistica che hai dato al problema.

Qui entra in ballo De Finetti

 

[Beppignello]

se parliamo dello stesso Jno o di altri esperti di quel forum, credo di ricordare che generalmente entro 8 colpi avevano esiti abbastanza consueti, ma so per certo che a volte ebbero esiti dopo 13 colpi.

poi non so, non ho più seguito quel forum, era indirizzato non al lotto ma ad altri giochi, che
seguo sempre poco.

 

[Beppignello]

situazione aggiornata al 3 Dicembre 2016

NAZIONALE





Riepilogo Massimi Storici di Livello Ruota di Nazionale
...Periodo: 7440/04.05.2005 : 9247/03.12.2016

Liv.05 RC Max ..033 MaxRSL....032
Liv.04 RC Max ..042 MaxRSL....037
Liv.03 RC Max ..065 MaxRSL....041
Liv.02 RC Max ..140 MaxRSL....071
Liv.01 RC Max ..236 MaxRSL....213

 

[Beppignello]

Ruota Nazionale
in evidenza cinquine estratte

>Base ..RC..000....RSL..000........estr.n..9241....NZ 67.18.57.71.40
>Base ..RC..000....RSL..000........estr.n..9247....NZ 42.32.01.87.75

la cinquina estratta nell'estr.n.9241 è in piena evidenza dove uno dei cinquine estratti è molto probabile
che venga estratto entro il decimo colpo, con una percentuale favorevole intorno al 96%

considerazioni:
sono passati 6 concorsi senza nessuna uscita
sono tutti in bi-sincronismo con altri
le colonne 2,4,5 sono da preferire che corrispondono ai nr. 18 71 40

NAZIONALE 18 71 40 (3x1) 4 colpi
o possibili abbinamenti al 53 se dovesse uscire in questi colpi.

 

[Beppignello]

Ruota Nazionale
in evidenza cinquine estratte

> Base ..RC..000....RSL..000........estr.n..9241....NZ 67.18.57.71.40

>Base ..RC..000....RSL..000........estr.n..9247....NZ 42.32.01.87.75

la cinquina estratta nell'estr.n.9241 è in piena evidenza dove uno dei cinquine estratti è molto probabile
che venga estratto entro il decimo colpo, con una percentuale favorevole intorno al 96%

considerazioni:
sono passati 6 concorsi senza nessuna uscita
sono tutti in bi-sincronismo con altri
le colonne 2,4,5 sono da preferire che corrispondono ai nr. 18 71 40

NAZIONALE 18 71 40 (3x1) 4 colpi
o possibili abbinamenti al 53 se dovesse uscire in questi colpi.

ecco puntuale l'estratto 40

 

[Alien.]

Sub triamboconsecutivo()
Dim rambo(8990, 1)
Dim ult, rankda, riga, estr, es1, es2, z1, z2, zz1, zz2, ambo, numEm, hh, cap, dif1, dif2

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''leggo archivio estrazioni
ult = Range("INPUT!C13")
cap = Range("INPUT!C27")
fog = "output4"
Sheets(fog).Select
Range("A02:G4005").Select
Selection.Delete
Selection.Range("A01:G700").NumberFormat = "@"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("Archivio").Select 'seleziona il Foglio Archivio per andare a leggere i dati delle estrazioni
''''questa riga serve per azzerare la variabile conta che ci servir… per passare da una ruota alla successiva
riga = 1 'si aggiunge + 1 perchŠ l'arichivio inizia dalla seconda riga
es1 = Cells(riga, 1) 'scrive la variabile NumEM (il numero estrazione) nella Cella H2
es2 = Cells(riga, 3) 'scrive la variabile DataE (la data dell'estrazione) nella Cella D4
estr = 1

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''legge archivio dal 1939 di tutte le estrazioni
For estr = estr + 1 To ult
rankda = 4
numEm = estr
''''Tutte le ruote carica i 50 estratti
For ruota = 1 To 10
ReDim nm(5)
hh = 0
For k = 0 To 4
hh = hh + 1
nm(hh) = Cells(estr, rankda + k)
Next
rankda = rankda + 5
'''calcola ritardo dei 100 ambi di ogni estrazione
For z1 = 1 To 4
z2 = z1
For z2 = z2 + 1 To 5

If nm(z1) < 10 Then
zz1 = "0" & nm(z1)
Else
zz1 = nm(z1)
End If
If nm(z2) < 10 Then
zz2 = "0" & nm(z2)
Else
zz2 = nm(z2)
End If

If Int(zz1) < Int(zz2) Then
ambo = zz1 & zz2
Else
ambo = zz2 & zz1
End If

rambo(ambo, 0) = ambo
rambo(ambo, 1) = numEm

Next
Next

Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''sposta ritardi in array ram
ReDim ambi(4005, 1)
za = 8990
cc = 0
For z = 1 To za
If rambo(z, 0) > 0 Then
cc = cc + 1
ambi(cc, 1) = ult - rambo(z, 1)
ambi(cc, 0) = rambo(z, 0)
End If
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''scrivi intestazione colonne su foglio output
fog = "output4"
Sheets(fog).Select
Cells(1, 1) = " Ruota "
Cells(1, 2) = " Ambo "
Cells(1, 3) = " Ritardo "
Cells(1, 4) = " Ambo "
Cells(1, 5) = " Ritardo "
Cells(1, 6) = " Ambo "
Cells(1, 7) = " Ritardo "
'''prova sort per ritardo discendente a tutte valutato
''' Case "descend"
SortCol = 1
'riempiere campi output
Dim i As Long, j As Long, temp As Variant
Numrows = 4005
For i = 1 To Numrows - 1
For j = i To Numrows
If Val(ambi(j, 1)) > Val(ambi(i, 1)) Then
temp = ambi(i, 1)
temp1 = ambi(i, 0)
ambi(i, 1) = ambi(j, 1)
ambi(i, 0) = ambi(j, 0)
ambi(j, 1) = temp
ambi(j, 0) = temp1
End If
Next j
Next i
Selection.Value = ram

''''''''''scrittura file di output4
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''' ricerca triambo consecutivo
cs = 1
za = 4003
For z = 1 To za
If ambi(z, 0) > 0 Then
dif1 = ambi(z + 1, 1) - ambi(z + 2, 1)
dif2 = ambi(z, 1) - ambi(z + 1, 1)
'''consecutività nel ritardo del triambo
If dif1 = 1 And dif2 = 1 Then
cs = cs + 1
Cells(cs, 1) = " T u t t e "
Cells(cs, 2) = ambi(z, 0)
Cells(cs, 3) = ambi(z, 1)
Cells(cs, 4) = ambi(z + 1, 0)
Cells(cs, 5) = ambi(z + 1, 1)
Cells(cs, 6) = ambi(z + 2, 0)
Cells(cs, 7) = ambi(z + 2, 1)
Cells(cs, 2).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 3).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 6).Interior.ColorIndex = 6 'si colora la cella di giallo
Cells(cs, 7).Interior.ColorIndex = 6 'si colora la cella di giallo
End If
End If
Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Cells(cs + 1, 4) = " Per un gioco a Tutte attenzione a questi numeri...." & evid & "...(Aggiungere i vertibili) "
Cells(cs + 2, 3) = " 3 ambi attendere il ritardo sopra 163"
Cells(cs + 3, 3) = " 4 ambi attendere il ritardo sopra 106"
Cells(cs + 4, 3) = " 6 ambi attendere il ritardo sopra 95 "
Cells(cs + 5, 3) = " 5 ambi attendere il ritardo sopra 94 "
Cells(cs + 6, 3) = " 7 ambi attendere il ritardo sopra 92 "
Cells(cs + 7, 3) = " 8 ambi attendere il ritardo sopra 90 "
Cells(cs + 8, 3) = " 9 ambi attendere il ritardo sopra 53 "
End Sub

a questo punto io vi dico che con 8Gb di memoria RAM ci impiego circa 20 secondi, anche meno,
vorrei sapere, voi in quanto tempo impiega per l'elaborazione sul vs. Pc.

se mi postate l'elenco evidenziato in output per controllo è la verifica massima che siamo allineati in tutto.


ciao

ciao,complimenti per il tuo lavoro,ma lo script mi da errore :


Dim i As Long, j As Long, temp As Variant


errore script prevista fine istruzione







senti ma con il superenalotto non si può fare na cosa simile ma sando solo dall'1 al 69?
grazie.

 

[Beppignello]

credo che tu abbia impostato le estrazioni iniziale e finale in modo sbagliato.

senti ma con il superenalotto non si può fare na cosa simile ma sando solo dall'1 al 69?[/quote]


spiegati meglio, al superenalotto ci sono 90 numeri.

 

[Beppignello]

prova sistema BARI


01 11 23 34 41 42 43 51 61 69 78 84 85

 

[vincenzo4221]

Purtroppo dà anche a me , quell'errore , secondo me dipende dal fatto che inizialmente mancano qualche codice appropiato , infatti , inizia con " Sub triamboconsecutivo(1) , mentre forse dovrebbe iniziare con Sub Main , comunque anche modificando , non ho avuto risultati...un aiuto?

 

[Beppignello]

1° intanto stiamo parlando di excel, e non spaziometria.
2° magari se spiegate cosa avete nelle celle con n.estraz.iniziale e n.estraz.finale
quale foglio di output riceve i dati, etc...
se mettete qualche info, posso aiutarvi, altrimenti non so che dirvi, a me funziona.

 

[vincenzo4221]

Di sicuro , a me , manca qualke passaggio, riassumiamo : inizialmente bisogna esportare le estrazioni in excel da spaziometria/base dati/ esporta estrazioni lotto in excel( che in passato riportavano degli errori nell'elencazione cronologica, comunque dovutamente corretto), per 2° passaggio in che cartella si posiziona? e poi se lo script dovrà fare riferimento a questo archivio, non bisogna identificare anche nel script il percorso? (io non riesco a trovarlo ), inoltre supponiamo che il range in esame sia dal inizio 1939 all'ultima estr.ne estratta. Vediamo se riusciamo "a cavar il ragno dal buco" ciao

 

[Beppignello]

ciao vincenzo 4221

fammi capire una cosa

ti serve capire e gestire qualcosa in excel, o è solo il programmino o lo script che ti fa ottenere
un triambo consecutivo a Tutte le ruote?

ti pongo questa domanda, perchè altrimenti mi tocca rispiegare di nuovo come si devono impostare i
foglio input,Archivio,output4,ed altri
ti devo spiegare nuovamente come deve essere impostato e costruito il foglio Archivio che contiene
le estrazioni del lotto dal 1939 ad oggi, quali le differenze con l'archivio spaziometria, etc.....

tutte cose che ho già spiegato a genios all'inizio di questo post.
o te le vai a rileggere.

se ti serve invece solo per avere una elaborazione dei triambi o n.ambi consecutivi, anche con spaziometria la cosa diventa più semplice perché ci sono almeno 2 modi molto semplici per ottenere
questo lavoro.

1) direttamente da spaziometria
2) con uno script di spaziometria

3) creazione in excel con tutto ciò che concerne l'uso di questo mezzo.

ora attendo tua risposta per procedere, con qualche dritta.

 

[Beppignello]

credo che le due tecniche tu le conosca già, ma colgo l'occasione di descriverle:

1) ambi aventi ritardo consecutivo con un capo gioco
2) ambi aventi ritardo consecutivo con capi gioco diversi

con spaziometria basta andare su Tabelloni /Tabellone Analitico Ambi/
e risalire con i ritardi a Tutte intorno a 160-170 estrazioni o superiore, a colpo d'occhio
siamo già in grado di vedere se ci sono gruppi di ambi con ritardo consecutivo.
generalmente si guarda al gruppo, quindi ad una serie di ambi con capi gioco diversi.
l'importante è il ritardo consecutivo

vedi foto attuale.
Guarda il capo gioco 53 ritardi 158,159 ambi 53 54 * 39 53 * 50 53

guarda i ritardi a 226,227,228 ci sono 5 ambi diversi

quindi le 2 caratteristiche diverse di questo tipo di analisi statistica

avranno 2 ritardi medio-massimi di tipo diverso, ma che entro certi limiti sono cadute nel passato.

la prima generalmente intorno ai 180-190 estrazioni
la seconda entro i 250

tutto questo è possibile con spaziometria con un semplice click e un po di dimestichezza nell'analisi


le macro excel più o meno fanno lo stesso procedimento

 

[vincenzo4221]

Ciao Beppi , scusa leggo solo ora , beh a questo punto, comunque grazie per aver considerato la mia domanda, mi basta l'aiuto nell'avermi rammentato l'argomento nello specifico.Non voglio impegnarti su qualcosa che seppur interessante non mi urge servirmene se non in un ottica determinata e progettata. Mentre , mi piacerebbe ritornare sull'argomento della richiesta di qualke tempo fa ,( da te momentaneamente sospesa) mi pare sulla discussione di numerico sulla classifica RI_FRE , ricordi?

 

[Beppignello]

#625 20-11-2016, 11:23 [IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/funkyimg.com\/i\/2jphf.jpg"}[/IMG2]








LA graduatoria "Gr.3" a cosa si riferisce?
e la "somma" sarebbe il risultato di 10 estrazioni consecutive?
grazie x i chiarimenti che vorrai darci...

PS:
- per le frequenze da che estrazione inizie l'analisi?
- il Tot Rit del script che pubblico qui sotto , è diverso o uguale a quello da cui deriva la tua tabella? , insomma il dato "somma" della tua tabella è uguale al " Tot Rit " della mia tabella?
-per non parlare della graduatoria 3 , ci dCattura.JPGai delucidazioni ,o meglio ancora il nuovo script Cattura.JPG ?

a questa domanda che ponevi,

all'articolo (#625)

io ho già risposto subito con articolo (#626)

ma hai letto la mia risposta ?

La grad3 e' un tentativo di legare un sincronismo di somma uguale

vediamo se riesco a spiegarmi bene

i sincronismi che numerico ha richiesto all'origine erano ritardo e frequenza
con le 2 graduatorie ordinate differentemente
con una estensione di una graduatoria 3 con delle sue regole.

qua la differenza che ho posto io

la graduatoria 3 di numerico non mi convince come risultati, in quanto e' come quella dei sistemi virtuali, dove sebbene rientrano in un determinato tempo per ritardi, in verita' sono soggetti ad aumentare col trascorrere delle estrazioni.

le mie differenti idee, in fase di test sono:

bi-sincronia ritardo/frequenza ok

a) somma IDR+IDF
questa somma delle posizione nelle 2 grad.1 e grad.2
legano sicuramente il bi-sincronismo, quando c'è, ma lega anche numeri diversi non in bisincronismo
b) a questo punto è necessaria un grad.3 che dimostri un sincronismo
tra bisincroni ma con somma idr+idf diversa.

la ragione è questa:
ho controllato a campione, che il bisincronismo a 3 livelli
spesso sforna estratti, ma sembra a prima vista che i tempi siano un po dilatati (vedi gli estratti BARI 51 e 69 )

rispetto agli altri casi (vedi FI 45 e 69 e NA 61 e 44)

perché?

è quello che sto cercando di capire.


anche numerico all'inizio ha detto che il bi-sincronismo doveva farsi carico di numeri derivanti anche da altre ruote, perché spesso si scambiavano le ruote in uscita.

qua è più o meno lo stesso concetto, se si guarda solo al bi-sincronismo, si è raggiunto solo una parte dell'obbiettivo, ma rimane
scoperto un'altra parte dei ragionamenti.

risposta, la rimetto nuovamente

non ha nulla a che fare con i ritardi ultimi o qualsiasi altra cosa a cui tu fai riferimento

la somma, chiamiamola così, anche se non mi piace
è semplicemente la somma tra le 2 colonne
1 colonna graduatoria ritardo
2 colonna graduatoria frequenza

gr3 = è la somma delle 2 colonne a cui ho preso le definizioni ed accettato da I-Legend (IDR+IDF)


1, ordina la matrice ritardi
2, ordina la matrice frequenza
gr3 = somma l'ordine delle matrici

inizio estrazioni dalla 3950 ad oggi

 

[Beppignello]

credo che le due tecniche tu le conosca già, ma colgo l'occasione di descriverle:

1) ambi aventi ritardo consecutivo con un capo gioco
2) ambi aventi ritardo consecutivo con capi gioco diversi

con spaziometria basta andare su Tabelloni /Tabellone Analitico Ambi/
e risalire con i ritardi a Tutte intorno a 160-170 estrazioni o superiore, a colpo d'occhio
siamo già in grado di vedere se ci sono gruppi di ambi con ritardo consecutivo.
generalmente si guarda al gruppo, quindi ad una serie di ambi con capi gioco diversi.
l'importante è il ritardo consecutivo

vedi foto attuale.
Guarda il capo gioco 53 ritardi 158,159 ambi 53 54 * 39 53 * 50 53

guarda i ritardi a 226,227,228 ci sono 5 ambi diversi

quindi le 2 caratteristiche diverse di questo tipo di analisi statistica

avranno 2 ritardi medio-massimi di tipo diverso, ma che entro certi limiti sono cadute nel passato.

la prima generalmente intorno ai 180-190 estrazioni
la seconda entro i 250

tutto questo è possibile con spaziometria con un semplice click e un po di dimestichezza nell'analisi


le macro excel più o meno fanno lo stesso procedimento

ecco l'ambo secco 53 39 Tutte

 

[Beppignello]

prova sistema BARI


01 11 23 34 41 42 43 51 61 69 78 84 85

ambo 01 11 a Bari

3° colpo

 

[vincenzo4221]

Complimenti Beppignello !