x Beppignello

vincenzo4221 · 29 Agosto 2017

Ciao Beppi , potresti fare le modifiche x ottenere i CICLI DI 18 estrazioni anzichè di 90 estr.ni su questo tuo script?

Option Explicit
Sub Main
Dim n,est,est2,r,c,retfre,p,tp1,tp2,tp3,tp4,tp5,gen,rae,retrit,retritmax,teo,perc,descr,frelun,ne,v,perc2,qt,m,ruote,nruotesel,nrt
Dim apos(5),an(10),pr(5)
ReDim ar(10)
nruotesel = ScegliRuote(ar)
ScegliNumeri(an)
qt = UBound(an)
''''''crea tabella combinazione
Dim atitolo(16),aris(16)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
atitolo(1) = "Ruota"
atitolo(2) = "Combin. "
atitolo(3) = " da estr."
atitolo(4) = " a estr. "
atitolo(5) = " 1°P.d. "
atitolo(6) = " 2°P.d. "
atitolo(7) = " 3°P.d. "
atitolo(8) = " 4°P.d. "
atitolo(9) = " 5°P.d. "
atitolo(10) = "Tot.usc."
atitolo(11) = "Fr.ReaP."
atitolo(12) = "Fr.TeoP."
atitolo(13) = " % Per "
atitolo(14) = "Fr.ReaL."
atitolo(15) = "Fr.TeoL."
atitolo(16) = " %Lungo"
SetTableWidth("95%px")
Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
ColoreTesto(2)
For r = 1 To nruotesel
Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
nrt = nrt & SiglaRuota(ar(r)) & " - "
Next
ColoreTesto(0)
est = EstrazioneFin - 909
est2 = EstrazioneFin - 819
tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
For c = 1 To 10
For p = 1 To 5
apos(p) = True
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,est,est2,,apos)
pr(p) = retfre
apos(p) = False
Next
Scrivi nrt & " " & StringaNumeri(an,".") & " da.." & est & " a.." & est2 & " Presenze..." & pr(1) & "..." & pr(2) & "..." & pr(3) & "..." & pr(4) & "..." & pr(5)
tp1 = tp1 + pr(1)
tp2 = tp2 + pr(2)
tp3 = tp3 + pr(3)
tp4 = tp4 + pr(4)
tp5 = tp5 + pr(5)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = est
aris(4) = est2
aris(5) = pr(1)
aris(6) = pr(2)
aris(7) = pr(3)
aris(8) = pr(4)
aris(9) = pr(5)
aris(10) = pr(1) + pr(2) + pr(3) + pr(4) + pr(5)
Call AddRigaTabella(aris,,,1)
If aris(10) < 10 Then
Call SetColoreCella(10,RGB(255,255,176),vbBlack)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
est = est + 91
est2 = est2 + 91
Next
gen = tp1 + tp2 + tp3 + tp4 + tp5
ColoreTesto(2)
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,EstrazioneFin - 899,EstrazioneFin)
teo = 900/(18/qt)*nruotesel
perc = Round((teo - retfre)/teo,2)*100
If perc > 0 Then
ColoreTesto(0)
descr = "(Scarto "
Else
descr = "(Eccesso + "
perc = 0
ColoreTesto(2)
End If
Scrivi "------------------- T o t a l e " & Format2(tp1) & ".." & Format2(tp2) & ".." & Format2(tp3) & ".." & Format2(tp4) & ".." & Format2(tp5) & "------>" & gen & " RaE.." & retrit & " / " & retritmax & " Fr.Reale.." & retfre & " Fr.Teo.." & teo & " " & descr & retfre - teo & ") % " & FormattaStringa(perc,"00.00"),1
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' tabella
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = 3950
aris(4) = EstrazioneFin
aris(5) = tp1
aris(6) = tp2
aris(7) = tp3
aris(8) = tp4
aris(9) = tp5
aris(10) = "Tot. " & gen
aris(11) = gen
aris(12) = teo
aris(13) = FormattaStringa(perc,"00.00")
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,3950,EstrazioneFin)
frelun = retfre
ne = Int((EstrazioneFin - 3950) /(18/qt))*nruotesel
aris(14) = frelun
aris(15) = ne
perc2 = Round((ne - frelun)/ne,2)*100
aris(16) = perc2
Call AddRigaTabella(aris,,,1)
For v = 1 To 16
Call SetColoreCella(Int(v),RGB(224,224,224),vbBlack)
Next
If aris(11) < aris(12) Then
Call SetColoreCella(11,RGB(255,128,128),vbBlack)
End If
If aris(14) < aris(15) Then
Call SetColoreCella(14,RGB(255,128,128),vbBlack)
End If
Call CreaTabella(3,- 1,1)
End Sub

fillotto · 2 Settembre 2017

Se ho capito (forse) è così, come lo utilizzi??

Codice:

Option Explicit
Sub Main
Dim n,est,est2,r,c,retfre,p,tp1,tp2,tp3,tp4,tp5,gen,ra,e,retrit,retritmax,teo,perc,descr,frelun,ne,v,perc2,qt,m,ruote,nruotesel,nrt
Dim apos(5),an(10),pr(5)
ReDim ar(10)
nruotesel = ScegliRuote(ar)
ScegliNumeri(an)
qt = UBound(an)
''''''crea tabella combinazione
Dim atitolo(16),aris(16)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
atitolo(1) = "Ruota"
atitolo(2) = "Combin. "
atitolo(3) = " da estr."
atitolo(4) = " a estr. "
atitolo(5) = " 1°P.d. "
atitolo(6) = " 2°P.d. "
atitolo(7) = " 3°P.d. "
atitolo(8) = " 4°P.d. "
atitolo(9) = " 5°P.d. "
atitolo(10) = "Tot.usc."
atitolo(11) = "Fr.ReaP."
atitolo(12) = "Fr.TeoP."
atitolo(13) = " % Per "
atitolo(14) = "Fr.ReaL."
atitolo(15) = "Fr.TeoL."
atitolo(16) = " %Lungo"
SetTableWidth("95%px")
Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
ColoreTesto(2)
For r = 1 To nruotesel
Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
nrt = nrt & SiglaRuota(ar(r)) & " - "
Next
ColoreTesto(0)
est = EstrazioneFin - 180
est2 = EstrazioneFin - 162
tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
For c = 1 To 10
For p = 1 To 5
apos(p) = True
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,est,est2,,apos)
pr(p) = retfre
apos(p) = False
Next
Scrivi nrt & " " & StringaNumeri(an,".") & " da.." & est & " a.." & est2 & " Presenze..." & pr(1) & "..." & pr(2) & "..." & pr(3) & "..." & pr(4) & "..." & pr(5)
tp1 = tp1 + pr(1)
tp2 = tp2 + pr(2)
tp3 = tp3 + pr(3)
tp4 = tp4 + pr(4)
tp5 = tp5 + pr(5)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = est
aris(4) = est2
aris(5) = pr(1)
aris(6) = pr(2)
aris(7) = pr(3)
aris(8) = pr(4)
aris(9) = pr(5)
aris(10) = pr(1) + pr(2) + pr(3) + pr(4) + pr(5)
Call AddRigaTabella(aris,,,1)
If aris(10) < 10 Then
Call SetColoreCella(10,RGB(255,255,176),vbBlack)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
est = est + 19
est2 = est2 + 19
Next
gen = tp1 + tp2 + tp3 + tp4 + tp5
ColoreTesto(2)
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax ,,retfre,EstrazioneFin - 17,EstrazioneFin)
teo = 180/(18/qt)*nruotesel
perc = Round((teo - retfre)/teo,2)*100
If perc > 0 Then
ColoreTesto(0)
descr = "(Scarto "
Else
descr = "(Eccesso + "
perc = 0
ColoreTesto(2)
End If
Scrivi "------------------- T o t a l e " & Format2(tp1) & ".." & Format2(tp2) & ".." & Format2(tp3) & ".." & Format2(tp4) & ".." & Format2(tp5) & "------>" & gen & " RaE.." & retrit & " / " & retritmax & " Fr.Reale.." & retfre & " Fr.Teo.." & teo & " " & descr & retfre - teo & ") % " & FormattaStringa(perc,"00.00"),1
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''' tabella
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = 3950
aris(4) = EstrazioneFin
aris(5) = tp1
aris(6) = tp2
aris(7) = tp3
aris(8) = tp4
aris(9) = tp5
aris(10) = "Tot. " & gen
aris(11) = gen
aris(12) = teo
aris(13) = FormattaStringa(perc,"00.00")
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax ,,retfre,3950,EstrazioneFin)
frelun = retfre
ne = Int((EstrazioneFin - 3950) /(18/qt))*nruotesel
aris(14) = frelun
aris(15) = ne
perc2 = Round((ne - frelun)/ne,2)*100
aris(16) = perc2
Call AddRigaTabella(aris,,,1)
For v = 1 To 16
Call SetColoreCella(Int(v),RGB(224,224,224),vbBlack)
Next
If aris(11) < aris(12) Then
Call SetColoreCella(11,RGB(255,128,128),vbBlack)
End If
If aris(14) < aris(15) Then
Call SetColoreCella(14,RGB(255,128,128),vbBlack)
End If
Call CreaTabella(3,- 1,1)
End Sub

vincenzo4221 · 3 Settembre 2017

Si , va bene , grazie Filotto, il suo uso è x determinare le posizioni più scompensate di una "X" formazione su una o + ruote.

vincenzo4221 · 4 Settembre 2017

a Proposito Filotto , c'è la possibilità di ottenere più di 10 cicli? si può fare?

fillotto · 4 Settembre 2017

vincenzo4221;n2077331 ha scritto:
a Proposito Filotto , c'è la possibilità di ottenere più di 10 cicli? si può fare?
Sicuro che si puo fare !! Esempio invece di 10 cicli di 18 estr. vogliamo 15 cicli sempre di 18 estraz. (15x18=270),,,quindi cambieremo:
est = EstrazioneFin - 180------> con.270
est2 = EstrazioneFin - 162----->-con 252
poi ....For c = 1 To 10------->con 15
quindi......If aris(10) < 10 Then con.. If aris(15) < 15 Then

Provato e ... funge

solare · 4 Settembre 2017

Ciao Vincenzo4221, potresti dare qualche indicazione su come utilizzare questo listato ?
Grazie

Alien. · 5 Settembre 2017

vincenzo4221 · 5 Settembre 2017

Non so come spiegarmi io uso lo script x esaminare delle formazioni e determinare quale posizione è carente d'uscite....
ad esempio ultimamente ho suggerito questo pronostico: BA24 e TO58 ebbene utilizzando lo script, potrai ricavare le posizioni determinate favorevoli....

solare · 5 Settembre 2017

ok grazie

vincenzo4221 · 6 Settembre 2017

niente , Solare sempre a vs servizio

lotto_tom75 · 7 Settembre 2017

vincenzo4221;n2077576 ha scritto:
niente , Solare sempre a vs servizio

Ciao vincenzo4221, complimenti per l'idea di sviluppo per cercare di rintracciare l'estratto determinato e complimenti anche al grande fillotto che ti ha realizzato il praticissimo script.

Per cercare di capirne la funzionalità ti riporto un es. qui sotto se mi puoi confermare o meno la mia intuizione di utilizzo. Grazie

TORINO mettiamo ad esempio che siano interessanti per teorico sfaldamento entro tre colpi i numeri 3-4-38.

Dando in pasto allo script questa terzina lasciando il range 1871 - 5/9/2017 mi viene in output questo:

Ruote Selezionate :Torino TO - 3.4.38 da..9185 a..9203 Presenze...0...3...1...0...1 TO - 3.4.38 da..9204 a..9222 Presenze...0...0...1...0...0 TO - 3.4.38 da..9223 a..9241 Presenze...0...1...0...0...1 TO - 3.4.38 da..9242 a..9260 Presenze...0...0...0...0...0 TO - 3.4.38 da..9261 a..9279 Presenze...2...1...1...0...0 TO - 3.4.38 da..9280 a..9298 Presenze...1...0...0...1...2 TO - 3.4.38 da..9299 a..9317 Presenze...1...2...0...3...0 TO - 3.4.38 da..9318 a..9336 Presenze...0...0...0...0...0 TO - 3.4.38 da..9337 a..9355 Presenze...1...0...0...2...0 TO - 3.4.38 da..9356 a..9374 Presenze...1...1...0...0...0 ------------------- T o t a l e 06..08..03..06..04------>27 RaE..3 / 7 Fr.Reale..4 Fr.Teo..30 (Scarto -26) % 87,00

Ruota	Combin.	da estr.	a estr.	1°P.d.	2°P.d.	3°P.d.	4°P.d.	5°P.d.	Tot.usc.	Fr.ReaP.	Fr.TeoP.	% Per	Fr.ReaL.	Fr.TeoL.	%Lungo
TO -	3.4.38	9356	9374	1	1	0	0	0	2
TO -	3.4.38	9337	9355	1	0	0	2	0	3
TO -	3.4.38	9318	9336	0	0	0	0	0	0
TO -	3.4.38	9299	9317	1	2	0	3	0	6
TO -	3.4.38	9280	9298	1	0	0	1	2	4
TO -	3.4.38	9261	9279	2	1	1	0	0	4
TO -	3.4.38	9242	9260	0	0	0	0	0	0
TO -	3.4.38	9223	9241	0	1	0	0	1	2
TO -	3.4.38	9204	9222	0	0	1	0	0	1
TO -	3.4.38	9185	9203	0	3	1	0	1	5
TO -	3.4.38	3950	9365	6	8	3	6	4	Tot. 27	27	30	87,00	860	902	5

Presumo che la riga dei "TOTALI" da analizzare... sia questa... omonima...

T o t a l e 06..08..03..06..04------>27 RaE..3 / 7 Fr.Reale..4 Fr.Teo..30 (Scarto -26) % 87,00

Quindi guardando i 5 valori di presenza... la posizione + probabile per uno dei 3 elementi analizzati di esempio sarebbe la TERZA POSIZIONE perchè in totale ha meno presenze rispetto agli altri...

o non è affatto così che si deve utilizzare questo intrigante script?

fillotto · 7 Settembre 2017

Ti ringrazio Lotto_tom per il "grande", meno male che è scritto minuscolo!!

GRANDE è Beppignello che ha fatto lo script !!! io l'ho minimamente modificato .
Comunque tornando a noi anche io ho capito così come hai ipotizzato tu, si potrebbe anche considerare la 5^ pos insieme alla 3^ perchè correlate da 4 cicli il premio in caso di uscita dovrebbe essere 8,62 (non so se ho sbagliato i calcoli

)
Piuttosto io non ho capito nell'output cosa sono questaltri patametri "RaE..3 / 7 Fr.Reale..4 Fr.Teo..30 (Scarto -26) % 87,00" e nei Totali i valori 860 902 e 5 cosa rappresentano ?!

860

902

5

lotto_tom75 · 7 Settembre 2017

fillotto;n2077759 ha scritto:
Ti ringrazio Lotto_tom per il "grande", meno male che è scritto minuscolo!! GRANDE è Beppignello che ha fatto lo script !!! io l'ho minimamente modificato .
Comunque tornando a noi anche io ho capito così come hai ipotizzato tu, si potrebbe anche considerare la 5^ pos insieme alla 3^ perchè correlate da 4 cicli il premio in caso di uscita dovrebbe essere 8,62 (non so se ho sbagliato i calcoli )
Piuttosto io non ho capito nell'output cosa sono questaltri patametri "RaE..3 / 7 Fr.Reale..4 Fr.Teo..30 (Scarto -26) % 87,00" e nei Totali i valori 860 902 e 5 cosa rappresentano ?!

860 902 5

Purtroppo neanche io ho la minima idea di cosa siano quei parametri che hai indicato...

Allora mi sa che dovremmo aspettare il GRANDE beppignello che ci delucidi eventualmente al riguardo

. Per quanto riguarda il tuo "si potrebbe anche considerare la 5^ pos insieme alla 3^ perchè correlate da 4 cicli" cosa intendi di preciso?

Ciao

Beppignello · 7 Settembre 2017

ciao a tutti

Rae è il ritardo attuale dell'estratto = 3 il suo massimo nel range che si è scelto ha avuto il ritardo massimo di 7
pertanto come dato indicativo significa che entro 4 concorsi può uscirne sicuramente 1, sempre che i ritardi con le Venus
vengano rispettati come quelli del passato.

Frequenza teorica corrisponde che la terzina deve e teoricamente dare 30 estratti circa
frequenza reale , infatti ne ha dati nei 10 cicli precedenti 27

nel lungo periodo la frequenza teorica è di 902 estratti
nel lungo periodo la frequenza reale è stata di 860 estratti , cioè il 5% circa in meno del dato teorico

il prospetto prevede 10 cicli massimi
ogni cicli deve essere nel caso della terzina di 30 estrazioni

ciclo teorico per estratto determinato è di 90 per 1 numero singolo per due numeri 90/2=45 per tre numeri 90/3=30 etc...
per la lunghetta o combinazione che viene scelta.

buona serata

fillotto · 8 Settembre 2017

Grazie Beppi, adesso è un po +chiaro l'output le uscite nel ciclo teorico lo avevo già capito mentre pr quanto riguarda "Rae è il ritardo attuale dell'estratto = 3 il suo massimo nel range che si è scelto ha avuto il ritardo massimo di 7
pertanto come dato indicativo significa che entro 4 concorsi può uscirne sicuramente 1, sempre che i ritardi con le Venus
vengano rispettati come quelli del passato." lo script in modo automatico "vede" che la 3^ posizione è la + scompensata? e ci suggerisce che entro 4 estrazioni dovrebbero uscire uno dei 3 numeri perchè nel passato questi 3 numeri , in quella posizione sono ritardati un max di 7 estrazioni ? o piuttosto di 7 cicli? , perchè in questo caso cambia , grazie per le eventuali spiegazioni.
X Lotto Tom correlati significa che marciano(i cicli) allo stesso passo,nel nostro caso,i 3 numeri non sono usciti nel quartultimo ciclo ,così nel3°ultimo nel penultimo e metà dell'ultimo.
Questo equilibrio è destinato a spezzarsi solo quando in una posizione esce un numero dei tre e all'alta posiz. non esce alcun numero oppure in una posiz esce un num. e all'altra 2 ,mentre non si interroberebbe qualora uscisse lo stesso numero di uscite una e una, due e due ancorchè sarebbe + favorevole ad un'eventuale giocata.
In excell esiste la funzione "correlazione" che fa proprio questo, su spazio non esiste ma sono sicuro che il nostro Beppi è capace di fare una funzione simile per arricchire lo script

Beppignello · 8 Settembre 2017

No uno dei tre numeri può uscire nei prossimi 4 colpi, ma in una delle 5 posizioni.

si le pos.3 e 5 sono quelle più sottofrequenti, come i tre numeri sono sottofrequenti anche nel lungo 860 su 902 e 27 su 30
è una sotto frequenza minima perché è del 5% circa.

nel breve periodo, cioè nei 10 cicli elencati, si notano che la pos 3 è rimasta a zero uscite da 5 cicli
ma poiché la media di uscite teoriche dovrebbe essere uguale a tre per ogni ciclo distribuite nelle 5 posizioni,
si nota anche che negli ultimi 3 cicli, l'ultimo (uscite = 2) ed il terz'ultimo (uscite =0) hanno fatto la differenza o lo scarto
che si rileva 27 su 30.

spesso succede che,la posizione dove è uscito 1 volta, si incrementa nei cicli successivi.

personalmente prenderei in considerazione, sicuramente la 3 posizione, ma ci metterei anche la 2 posizione perché negli ultimi 5
cicli ha solo 3 presenze.
Ma questo è soggettivo.

Beppignello · 8 Settembre 2017

guardando con un po più di attenzione i vari cicli, mi sembra che siano di 29 estrazioni anziché 30.

i legend · 8 Settembre 2017

Ciao a tutti
Mi sembra di capire che tom ha un archivio con 3974 estrazioni...
E' corretto?
quante sono le estrazioni?

i legend · 10 Settembre 2017

peccato che nessuno mi sappia dire quante estrazioni ci sono in archivio con esattezza, proverò a chiedere in statistica grazie a tutti ugualmente.
Ciao

lotto_tom75 · 11 Settembre 2017

Ciao beppi, filotto e ilegend! Grazie a tutti per le varie precisazioni date!

Dunque ilegend sicuramente non ho capito la tua domanda ma ti rispondo lo stesso

Il mio archivio su spaziometria ha al momento 9367 estrazioni. Ciao mitico!

x Beppignello

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Premium Member

Premium Member

Advanced Premium Member