Posts written by vincenzo4221

ciao Beppi, Bravo!!

Buongiorno Beppignello, ti ringrazio per l'impegno, proverò oggi pomeriggio lo script..spero che mi possa aiutare, ci sentiamo dopo, saluti

Buonasera a Tutti e bentrovati , chiedo se è possibile inserire in questo script la possibilità di poter elaborare dei numeri personali e di fare la susseguente statistica ( cioè avere la possibilità di inserire solo i numeri che vogliamo, che siano 5 o 35), grazie Vincenzo4221

Option Explicit
Sub Main
Dim r,n,f,i,L,ii,fr,q,j,y,Total,perc,det,nr,z,ct,dal,al,k,rr,kn,Totalgen,retfre,riga,xc,Lastda,Lasta
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''campi di input
'''1 ruote
'''2 lunghetta periodo estrazioni
'''3 vuoi dettaglio conteggi?
ReDim aRuote(11),rt(12) ' array che contiene i numeri delle ruote selezionate
If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote e se torna maggiore di 0
' vuol dire che sono state selezionate N ruote
' leggo l'array che ora contiene la selezione dell'utente
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
kn = kn + 1
rt(kn) = aRuote(k)
End If
Next
End If
'''''
f = EstrazioneFin
L = InputBox("Lunghetta periodo estraz.( 8 - 11 - 17 - 23 ) ",,11)
det = InputBox("Vuoi Dettaglio? S/N ",,"N")
ReDim unite(750)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''loop per ogni ruote
For rr = 1 To kn
ReDim fre(750)
r = rt(rr)
i = 3950 : Total = 0
'''''''''''''
For q = 1 To 750
ii = i + L
Messaggio(SiglaRuota(r) & " " & i & ":" & ii)
If i >= f Or ii >= f Then Exit For
''' Scrivi i & " : " & ii
For n = 1 To 90
fr = EstrattoFrequenzaTurbo(r,n,i,ii)
fre(fr) = fre(fr) + 1 '''' singola ruota
Next
Total = 0
For y = 0 To 7
If det = "S" Then Scrivi y & "..." & Round(fre(y)/90,7) & "........" & fre(y)
Total = Total + fre(y) '''' totale x ruota
Next
i = i + L + 1
Next
'''---------------------------------------------------------------------------
Scrivi
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " classe Freq. "
atitoli2(2) = " Reali Pr."
atitoli2(3) = " coeff.Distr."
atitoli2(4) = " Numeri Presenza Media"
atitoli2(5) = " Qta Nr.Reali Presenti"
atitoli2(6) = "Eccesso/deficit"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
ColoreTesto(2)
Scrivi "Ruota di " & NomeRuota(r),1
ColoreTesto(0)
Scrivi "Totale......" & Total,1
Scrivi "Periodo dalla 3950 alla estr.n. " & EstrazioneFin,1
Scrivi "Distribuzione nelle 7 classi di frequenza in cicli di durata.." & L + 1 & " estrazioni",1
Scrivi "Classe = 0 Numeri mai Usciti nel periodo scelto in altre parole quantità numeri con ritardo superiore a quello richiesto ",1
'''''''''''''''''
Totalgen = Totalgen + Total
''''loop 90 numeri per calcolo distribuzione attuale
ReDim pre(90)
dal = ii -(L*2) : al = ii - L
Scrivi "Ultimo ciclo periodo: " & dal & " : " & al,1
For nr = 1 To 90
pre(nr) = EstrattoFrequenzaTurbo(r,nr,dal,al)
Next
'''''''
For y = 0 To 7
perc = Round(fre(y)/Total,6)
avalori2(1) = y
avalori2(2) = fre(y)
avalori2(3) = perc
ct = 0
For z = 1 To 90
If Int(pre(z)) = y Then
ct = ct + 1
End If
Next
avalori2(5) = ct
''''''''''''
If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0 End If
avalori2(6) = Int(avalori2(5)) - Int(avalori2(4))
'''''''''''''''accumula valori per ruote unite
unite(y) = unite(y) + fre(y)
''''''''''''''
Call AddRigaTabella(avalori2,Bianco_,"center",2)
''' ''''''''''
Next
Call CreaTabella
Scrivi
''''''
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ColoreTesto(1)
Scrivi " P r o s p e t t o S o m m a R i e q u i l i b r i o C o e f f . ( D i s t r i b u z i o n e M e d i a ) a R u o t e U n i t e",1
ColoreTesto(0)
ReDim atitoli2(4),avalori2(4)
' preimposto i titoli delle colonne
atitoli2(1) = " classe Freq. "
atitoli2(2) = " Reali Pr."
atitoli2(3) = " coeff.Distr."
atitoli2(4) = " Numeri Presenza Media"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Arial")
Scrivi "Totale Generale Ruote Unite..." & Totalgen,1
''''''''''''''''''''''riepilogo generale con ruote unite
For y = 0 To 7
perc = Round(unite(y)/Totalgen,6)
avalori2(1) = y
avalori2(2) = unite(y)
avalori2(3) = perc
''''''''''''
If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0 End If
'''''''''''''''
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
Scrivi
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Scrivi "C a l c o l o R i e p i l o g o D i s t r i b u z i o n e M e d i a C l a s s i F r e q u e n z a a R u o t e U n i t e ",1
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " classe Freq. "
atitoli2(2) = " Reali Pr."
atitoli2(3) = " coeff.Distr."
atitoli2(4) = " Numeri Presenza Media"
atitoli2(5) = " Qta Nr.Reali Presenti"
atitoli2(6) = "Eccesso/deficit"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
''''loop calcolo della distribuzione media per ruote unite
ReDim fre(750),an(1)
i = 3950 : Total = 0
'''''''''''''
For q = 1 To 750
ii = i + L
Messaggio("Ruote Unite " & i & ":" & ii)
If i >= f Or ii >= f Then Exit For
For n = 1 To 90
an(1) = n
Call StatisticaFormazioneTurbo(an,rt,1,,,,retfre,i,ii)
fr = retfre
fre(fr) = fre(fr) + 1 ''''ruote unite
pre(n) = fr '''''Presenze x classe ultimo ciclo
Lastda = i :Lasta = ii
Next
Total = 0
For y = 0 To 15
If det = "S" Then Scrivi y & "..." & Round(fre(y)/90,7) & "........" & fre(y)
Total = Total + fre(y) '''' totale x ruote unite
Next
i = i + L + 1
Next
'''---------------------------------------------------------------------------
For y = 0 To 15
perc = Round(fre(y)/Total,6)
avalori2(1) = y
avalori2(2) = fre(y)
avalori2(3) = perc
ct = 0
For z = 1 To 90
If Int(pre(z)) = y Then
ct = ct + 1
End If
Next
avalori2(5) = ct
''''''''''''
If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0 End If
avalori2(6) = Int(avalori2(5)) - Int(avalori2(4))
''''''''''''''
Call AddRigaTabella(avalori2,Bianco_,"center",2)
''' ''''''''''
Next
Scrivi " Periodo Estraz.n. 3950 : " & Lasta,1
Call CreaTabella
Scrivi
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''presenze teorico/reali per frequenza '''''''''''''''''''''''''''''''''''''''''''''''''''
'''accumula valori di frequenza su ruote unite (situaz.ultima estrazionefin)
Scrivi "Riepilogo Cicli Teorici/reali su Ruote Unite scelte - Periodo " & Lastda & " : " & Lasta & " / " & DataEstrazione(Lasta),1
ColoreTesto(1)
For r = 1 To UBound(aRuote)
Scrivi SiglaRuota(aRuote(r)),1
Next
ColoreTesto(0)
ReDim sitfre(90,2),an(1)
For n = 1 To 90
an(1) = n
Call StatisticaFormazioneTurbo(an,rt,1,,,,retfre,Lastda,Lasta)
fr = retfre
sitfre(n,1) = Format2(n) & "."
sitfre(n,2) = retfre
Next
'''''stampa
For y = 0 To 15
riga = "Classe.." & y & "..."
xc = 0
For z = 1 To 90
If Int(sitfre(z,2)) = y Then
xc = xc + 1
riga = riga & Format2(sitfre(z,1)) & "."
End If
Next
Scrivi "Qt.nr.." & Format2(xc) & "...." & riga,1
Next
Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
End Sub

37 50 81 85 rit 4075 per terno su tutte

..Ciao JP4,...... vedo solo ora una convergenza con le mie "riduzioni" infatti avevo il 21 47 ad BARI e ROMA x ambo con capogioco 21..purtroppo abbiamo visto com'è andata 21 e 48 .....a presto Jp4...

Edited by vincenzo4221 - 6/3/2020, 11:08

Ciao a tutti , volevo chiedere uno script che calcoli la distribuzione delle frequenze in un determinato range temporale , in riferimento a un gruppo di numeri dati (terzine , coppie , quartine) Cattura.PNGda premettere che il calcolo deve tener conto della suddivisione IN CICLI dell'intero range temporale per un numero di estrazioni variabile da minimo 1 a 18 estrazioni per ciclo, quindi non bisogna tener conto di tutti i 90 numeri ma solo di quelli della formazione data e calcolare in rispetto al dato teorico l'eventuale differenza. riassumendo i dati da inserire di una ricerca per CICLI sono :
1 formazione (coppia , terzina, quartina ecc)
2 range temporale
3 numero estrazioni per ciclo

IN PRATICA , l'allegato mostra la distribuzione di frequenza della formazione di TRE numeri su bari considerando i numeri 1,2 e 3, considerando l'archivio dal 8.7.1939 al 19 dic 2019 suddiviso in cicli da 18 estrazioni, ORA quello che vorrei conoscere è IL NUMERO dei CICLI TEORICi che TRE numeri qualsiasi dovrebbero avere in base alla classe di frequenza e inoltre il calcolo della differenza (scarto della frequenza per classe),;

LO SCOPO , con riferimento all'immagine allegata, è quello di conoscere se il dato in classe di frequenza 1 con 40 presenze (della terzina 1,2,3) è in linea con la distribuzione teorica delle frequenze oppure è in scompenso o frequente, come fare? mi fate un esempio elementare di conme far di conto , o meglio ancora un foglio excel dedicato o un meraviglioso script

GRAZIE A DBR58

SSHHHSEEE!!! ..a parte te..piccolo veniale... chiedo ad altri amici utenti più generosi....

Buongiorno a tutti , qualcuno potrebbe postare l'archivio aggiornato del Lotto e 10elotto?

complimenti x la vincita e grazie per l'analisi in corso

secondo voi il Gorgia si riferiva agli isocroni semplici cioè che si ripetono in un altra ruota oppure si riferiva agli isocroni nelle stesse posizioni?

quindi proviamo a contare e a verificare se troviamo qualke eccedenza rispetto ai teorici dei numeri isocroni...
al 27 dicembre 2018
ritardo 15 , reali 27 , teorici 22,46, scarto +4,5
ritardo 18, reali 19 , teo. 18,92 , scarto +0,08
ritardo 22, reali 7 , teo 15,35 , scarto -8.35

secondo voi è giusto?

è sopratutto secondo voi il Gorgia si riferiva ai numeri che si ripetono in un altra ruota o ai numeri che si ripetono in una altra ruota nella stessa colonna?

Edited by vincenzo4221 - 29/12/2018, 13:26

Buongiorno e buon anno a tutti, rileggendo degli articoli del Gorgia, mi sono venuti dei dubbi in merito..chiedo se è possibile di potermi chiarire e di esprimere il vs parere su due articoli, di cui allego piccola parte per non incorrere in divieti di copyrigh :

1) ......"Distribuzione teorica dei numeri
di Leontino Gorgia

Sapendo che i numeri sono 90 ci si chiede come essi si distribuiscono in una Ruota, in una Estrazione. Matematicamente si hanno i seguenti valori:

50,82 numeri non escono
29,89 numeri escono una volta
7,91 numeri escono due volte
1,24 numeri escono tre volte
0,13 numeri escono quattro volte
0,01 numeri escono cinque volte
90,00 ...."

questo articolo mi confonde ,che significa? in 1 estrazione escono 5 numeri non 90!! mi spiegate per favore...

2) penso che il campo degli isocroni possa essere sviluppato molto di più , e a tal proposito l'articolo del Gorgia inerente di cui traggo queste ultime righe ci vengono in aiuto.."al ritardo 15 n.ri isocroni
teoricamente presenti sono 22,46;
al ritardo 18, i numeri isocroni teoricamente presenti sono 18,92" questo scriveva il Gorgia, secondo voi con la proporzione si possono ricavare in maniera esatta i numeri presenti in altri ritardi? ... per cercare situazioni di numeri isocroni in eccesso rispetto al teorico..... secondo me questo è un campo non ancora sufficientemente affrontato sui forum e apre a nuove ipotetiche analisi e statistiche ...pensate un pò ai gruppi sincroni, continui misti o verticali ecc. formati dai soli numeri isocroni, sarebbe utile avere i dati teorici di sfaldamento ....

Ciao Beppi e Buone Feste, ...anch'io penso che bisogna prendere in considerazione le venus cosi come suddivise dalla lottomatica .. (almeno nella fase iniziale di ricerca/analisi)...penso che in questo modo si assiste ad una distribuzione numerica nella norma più costante e con meno sorprese.....

Ciao Carmine Grazie per la gentile risposta..ti auguro un felice NATALE!!!

mmh mmh ...è vero poco tempo è nessuna verifica effettuata fin'ora ...ma pensavo di ricordare tra le tante discussioni ..che la formula del decadimento radioattivo applicata al lotto fosse plausibile...??? non è così?