INNOVATIVA RICERCA STATISTICA

maumau · 3 Settembre 2016

Buongiorno a tutti.....volevo chiedere a Beppignello se era possibile far apparire alla fine il riepilogo degli estratti previsti per ruota. Ho notato che c'è la possibilità di vincere qualche ambo, magari può essere un'alternativa di gioco all'ambata su due-tre numeri.
Grazie e buona giornata

Beppignello · 3 Settembre 2016

se si contemplano tutte le combinazioni trovate, abbiamo troppi numeri,
comunque salvo errori dovrebbero essere questi, poi oggi o domani provo a controllare.

Situazione all'estrazione n.9207 / 01.09.2016
R i e p i l o g o R u o t e
BA..02.05.09.26.30.31.32.34.35.36.41.42.44.47.51.54.59.62.67.68.69.71.74.80.82.84.
CA..05.08.11.12.13.14.16.17.22.32.36.38.42.43.54.58.60.61.75.79.83.84.89.
FI..03.04.12.22.24.30.32.35.37.38.43.56.65.71.73.76.78.80.81.83.88.
GE..03.12.14.15.17.22.25.26.27.28.31.37.38.46.48.49.50.51.53.59.60.63.68.70.73.77.84.89.
MI..01.02.03.05.10.11.13.14.17.18.19.20.21.23.24.32.33.41.46.52.59.60.63.65.66.67.68.70.78.81.85.86.
NA.02.05.07.10.17.20.22.23.26.27.28.30.33.38.40.43.46.48.49.50.54.55.56.59.61.62.64.68.70.71.72.79.8 2.84.87.88.
PA..01.03.04.11.15.18.21.22.23.26.29.31.34.35.36.39.40.44.45.49.56.60.64.67.72.75.78.82.83.88.89.
RO..03.04.06.11.14.15.16.26.30.32.38.39.40.41.42.46.48.50.51.52.56.57.58.59.62.65.69.71.74.75.77.81. 86.88.
TO..02.03.08.09.10.13.17.18.19.21.22.28.35.37.40.47.51.55.57.65.67.70.72.76.84.89.
VE..01.06.12.14.16.17.19.22.27.30.31.32.33.34.35.37.40.41.46.47.49.54.55.58.63.67.71.78.79.81.87.90.
TT.
NZ.08.09.57.63.

Beppignello · 3 Settembre 2016

se si contemplano le combinazioni con 3 o più numeri, in sincronismo di ritardo/frequenza
si ottiene questo riepilogo finale

Situazione all'estrazione n.9207 / 01.09.2016
R i e p i l o g o R u o t e
-BA......05.42.44.74.80.84.
-CA......08.13.22.38.54.60.75.79.
-FI......04.22.30.43.56.
-GE......03.14.38.49.50.53.63.77.
-MI......03.05.10.18.32.33.46.66.70.78.86.
-NA......02.05.17.26.59.64.
-PA......01.26.29.44.49.82.
-RO......03.04.16.30.42.51.56.69.71.
-TO......10.18.21.22.65.67.
-VE......14.16.22.27.32.46.47.79.87.90.
-TT......
-NZ......

buona giornata

maumau · 3 Settembre 2016

Grazie Beppignello, Si avevo notato che con 1 numero erano troppe combinazioni e in effetti mi sono orientato dai 3 numeri in poi.....a occhio in passato c'è stato qualche sfaldamento sincrono

.....aspetto tue notizie appena puoi.

Beppignello · 3 Settembre 2016

A tutte ci sono ambi e a volte Terni, anche delle quaterna , dipende da quanti numeri si formano su di una ruota.

Anche 2 numeri spesso ambi secchi se ne formano

Basta guardare 61 82 appena uscito a tutte Genova
Ma ce ne sono molti altri

Beppignello · 4 Settembre 2016

ho aggiunto il riepilogo in fondo delle combinazioni e degli esiti eventuali

Codice:

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
       [B]Dim[/B] [B]fine[/B],[B]r[/B],[B]n[/B],[B]nn[/B],[B]x[/B],[B]ritardo[/B],[B]frequenza[/B],[B]ix[/B],[B]last[/B],[B]rt[/B],[B]nr[/B],[B]y[/B],[B]retrit[/B],[B]retritmax[/B],[B]tutti[/B],[B]z[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B],[B]stat[/B],[B]ct[/B],[B]ctg[/B],[B]L[/B],[B]xy[/B]
       [B]Dim[/B] [B]elenco[/B],[B]m[/B],[B]h[/B],[B]Lastr[/B],[B]Ini[/B],[B]finale[/B],[B]sor[/B],[B]retesito[/B]
       [B]Dim[/B] [B]gen[/B](999999),[B]rag[/B](999,2),[B]ruoterie[/B](12,90)
       [B]fine[/B] [B]=[/B] [B]InputBox[/B]("All'estrazione n.",,[B]EstrazioneFin[/B])
       [B]tutti[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi elenco con quanti numeri ?  ",,1))
       [B]stat[/B] [B]=[/B] [B]InputBox[/B]("Aggiungi Ritardi su tutte le ruote ",,"NO")
       [B]sor[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Per la sorte ",,2))
       [B]Scrivi[/B] " Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
       [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
             [B]If[/B] [B]r[/B] [B]<>[/B] 11 [B]Then[/B]
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                           [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                           [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"000")
                           [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                    [B]Next[/B]
             [B]End[/B] [B]If[/B]
       [B]Next[/B]
       [B]ColoreTesto[/B](0)
       [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
       [B]Scrivi[/B] "_________________________________________________________________________________",1
       [B]Scrivi[/B] "Rit/Fre  Rcomb/XComb  Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota",1
       [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 999999
             [B]If[/B] [B]gen[/B]([B]nn[/B]) [B]<>[/B] "" [B]Then[/B]
                    [B]ReDim[/B] [B]aV2[/B](0),[B]ruote[/B](10),[B]numeri[/B](15)
                    [B]Call[/B] [B]SplitByChar[/B]([B]gen[/B]([B]nn[/B])," : ",[B]aV2[/B])
                    [B]last[/B] [B]=[/B] [B]UBound[/B]([B]aV2[/B])
                    [B]If[/B] [B]last[/B] [B]>[/B] [B]tutti[/B] [B]Then[/B]
                           [B]xy[/B] [B]=[/B] [B]xy[/B] [B]+[/B] 1
                           [B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
                                  [B]rt[/B] [B]=[/B] [B]Right[/B]([B]aV2[/B]([B]y[/B]),2)
                                  [B]nr[/B] [B]=[/B] [B]Left[/B]([B]aV2[/B]([B]y[/B]),2)
                                  '''carica array ruote e numeri
                                  [B]ruote[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]rt[/B]
                                  [B]numeri[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]nr[/B]
                                  [B]rag[/B]([B]xy[/B],1) [B]=[/B] [B]rag[/B]([B]xy[/B],1) [B]&[/B] [B]Format2[/B]([B]nr[/B]) [B]&[/B] "."
                                  [B]rag[/B]([B]xy[/B],2) [B]=[/B] [B]rag[/B]([B]xy[/B],2) [B]&[/B] [B]SiglaRuota[/B]([B]rt[/B]) [B]&[/B] "-"
                                  [B]ruoterie[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]nr[/B]
                           [B]Next[/B]
                           [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                           [B]ColoreTesto[/B](0)
                           [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                           [B]Scrivi[/B] [B]FormattaStringa[/B]([B]nn[/B],"000/000") [B]&[/B] "    " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                           ''''' verifica  esiti
                           [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]fine[/B] [B]+[/B] 1,1,,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                           [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                  [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]Scrivi[/B] "<-------------------------------> " [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "...." [B]&[/B] [B]retcolpi[/B],1
                                  [B]ColoreTesto[/B](0)
                           [B]End[/B] [B]If[/B]
                           '''''''''''''''''''''''''''''''''''
                           [B]If[/B] [B]stat[/B] [B]=[/B] "SI" [B]Or[/B] [B]stat[/B] [B]=[/B] "si" [B]Then[/B]
                                  [B]ReDim[/B] [B]ruote[/B](1)
                                  [B]ColoreTesto[/B](2)
                                  [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                                        [B]If[/B] [B]z[/B] [B]<>[/B] 11 [B]Then[/B]
                                               [B]ruote[/B](1) [B]=[/B] [B]z[/B]
                                               [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                               [B]Scrivi[/B] "------> " [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]Next[/B]
                           [B]End[/B] [B]If[/B]
                    [B]End[/B] [B]If[/B]
             [B]End[/B] [B]If[/B]
       [B]Next[/B]
       [B]Scrivi[/B] " Totale combinazioni trovate..." [B]&[/B] [B]ct[/B]
       [B]Scrivi[/B] " Totale Combinazioni vincenti.." [B]&[/B] [B]ctg[/B]
       [B]Scrivi[/B] "-------------------------------------------------",1
       [B]Scrivi[/B]
       [B]ColoreTesto[/B](2)
       [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
       [B]Scrivi[/B] "R i e p i l o g o   R u o t e     e  V e r i f i c a   E s i t i   dalla succcessiva   ",1
       [B]ColoreTesto[/B](0)
       [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
             [B]elenco[/B] [B]=[/B] ""
             [B]For[/B] [B]m[/B] [B]=[/B] 1 [B]To[/B] 90
                    [B]If[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]>[/B] 0 [B]Then[/B]
                           [B]elenco[/B] [B]=[/B] [B]elenco[/B] [B]&[/B] [B]FormattaStringa[/B]([B]ruoterie[/B]([B]L[/B],[B]m[/B])," 00") [B]&[/B] "."
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] "......" [B]&[/B] [B]elenco[/B]
             [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
             [B]Call[/B] [B]SplitByChar[/B]([B]elenco[/B],".",[B]aV[/B])
             [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
             [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                    [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
             [B]Next[/B]
             [B]ruo[/B](1) [B]=[/B] [B]L[/B] ': ruo(2) = 11
             [B]Ini[/B] [B]=[/B] [B]fine[/B]
             [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 13
             [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                    ''''' verifica  esiti
                    [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                    [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                           [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                           [B]ColoreTesto[/B](1)
                           [B]If[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                  [B]ColoreTesto[/B](2)
                           [B]End[/B] [B]If[/B]
                           [B]Scrivi[/B] "<-------------------------> colpo n." [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "...usc.estraz." [B]&[/B] [B]retidestr[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                           [B]ColoreTesto[/B](0)
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
       [B]Next[/B]
[B]End[/B] [B]Sub[/B]

maumau · 5 Settembre 2016

Perfetto, grazie Beppignello

numerico · 6 Settembre 2016

Veramente grazie beppignello per il lavoro svolto,
azzarderei quindi la coppia 42.22 su BA.RO.TO per pochissimi colpi
oppure un'altra coppia 83.41 su PA.VE Anche questa combinazione per pochissimi colpi

numerico · 6 Settembre 2016

Che non sia giunto il momento di verificare se, nell'ambito della stessa ruota, esistano almeno 1 o più coppie che abbiano lo stesso ritardo e la stessa frequenza? E tutto ciò per ogni singola ruota al fine di restringere il campo previsionale, sperando che ogni singola ruota non abbia più di due o tre di questi particolari sincronismi. Che dite, vale la pena tentare? A livello di script è fattibile?
Grazie a tutti coloro che si cimenteranno in questo campo con idee nuove, strategie, tecniche o quant'altro per rendere più proficuo il gioco!
Saluti.

Beppignello · 6 Settembre 2016

ciao Numerico

lo script rileva già i numeri sulla medesima Ruota ed allo stesso ritardo ed alla stessa frequenza

questo è un esempio:

002/288 002/011....38 CA02 : 05 MI05 : 78 MI05 : 01 PA07 :

come vedi a Milano c'è il nr. 05 ed il 78 che entrambi sono al ritardo 2 di tabellone ed hanno entrambi 288 di frequenza
dalla 3950 ad oggi.

certo è, che sono un po mischiati con altri su altre ruote e poco visibili a colpo d'occhio.

mi stai chiedendo di mettere una richiesta di parzializzare l'output con le sole combinazioni che figurano sulle medesime ruote?

detto in altre parole:

vuoi una scelta che evidenzi la riga esposta sopra, per fare un esempio:

002/288 05 MI05 : 78 MI05 che non contenga anche ( 38 ca-01 pa ) ?

oppure vuoi che scegliendo una ruota ti dia solo quelle combinazioni di quella ruota?

fammi sapere

numerico · 6 Settembre 2016

Hai ragione Beppignello, ti chiedo scusa. Tuttavia se anche tu ritieni che avere una lista in più contenente una sola ruota a scelta, oppure una lista completa ordinata per ruota, sia cosa buona e giusta..........

In ogni caso, grazie comunque per tutto quello che hai fatto.

Beppignello · 6 Settembre 2016

fatemi sapere

ho modificato lo script

mettendo la possibilità di scelta di 1 sola ruota, vengono listate solo le combinazioni di quella ruota

se si lascia 0 quando chiede la ruota, l'output risulta completo, versione precedente.

in altre parole si ottiene quanto sotto riportato.

Situazione all'estrazione n.9208 / 03.09.2016
Elenco con numeri > di...1
Lista Combinazioni Rilevate Solo per la Ruota di....Milano
__________________________________________________ _______________________________
Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
001/286 001/048....33 MI05 : 70 MI05 :
002/288 002/060....05 MI05 : 78 MI05 :
006/304 006/051....03 MI05 : 18 MI05 :
008/295 008/048....59 MI05 : 85 MI05 :
Totale combinazioni trovate...4
Totale Combinazioni vincenti..
-------------------------------------------------

Situazione all'estrazione n.9208 / 03.09.2016
R i e p i l o g o R u o t e e V e r i f i c a E s i t i dalla succcessiva
-BA......
-CA......
-FI......
-GE......
-MI...... 03. 05. 18. 33. 59. 70. 78. 85.
-NA......
-PA......
-RO......
-TO......
-VE......
-TT......
-NZ......

numerico · 6 Settembre 2016

ok, per me va benissimo anche così. Grazie di nuovo.

Beppignello · 6 Settembre 2016

Option Explicit
Sub Main
Dim fine,r,n,nn,x,ritardo,frequenza,ix,last,rt,nr,y,retrit,retritmax,tutti,z,retcolpi,retestratti,retidestr,stat,ct,ctg,L,xy
Dim elenco,m,h,Lastr,Ini,finale,sor,retesito,ruota
Dim gen(999999),rag(999,2),ruoterie(12,90)
fine = InputBox("All'estrazione n.",,EstrazioneFin)
tutti = CInt(InputBox("Vuoi elenco con quanti numeri ? ",,1))
ruota = CInt(InputBox("0 Lista (Tutte) oppure lista solo di questa ruota",,0))
stat = InputBox("Aggiungi Ritardi su tutte le ruote ",,"NO")
sor = CInt(InputBox("Per la sorte ",,2))
Scrivi " Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine),1
'''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
'''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
For r = 1 To 12
If r <> 11 Then
For n = 1 To 90
If ruota = r Then
ritardo = EstrattoRitardoTurbo(r,n,3950,fine)
frequenza = EstrattoFrequenzaTurbo(r,n,3950,fine)
ix = FormattaStringa(ritardo,"000") & FormattaStringa(frequenza,"000")
gen(ix) = gen(ix) & Format2(n) & " " & SiglaRuota(r) & Format2(r) & " : "
End If
If ruota = 0 Then
ritardo = EstrattoRitardoTurbo(r,n,3950,fine)
frequenza = EstrattoFrequenzaTurbo(r,n,3950,fine)
ix = FormattaStringa(ritardo,"000") & FormattaStringa(frequenza,"000")
gen(ix) = gen(ix) & Format2(n) & " " & SiglaRuota(r) & Format2(r) & " : "
End If
Next
End If
Next
ColoreTesto(1)
Scrivi " Elenco con numeri > di..." & tutti,1
If ruota <> 0 Then Scrivi " Lista Combinazioni Rilevate Solo per la Ruota di...." & NomeRuota(ruota),1
If ruota = 0 Then Scrivi " Lista Tutte le Combinazioni rilevate....",1
ColoreTesto(0)
Scrivi "_________________________________________________ ________________________________",1
Scrivi "Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota",1
'''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
''''''''''verifica esito sulle ruote di rilevamento del sincronismo
For nn = 0 To 999999
If gen(nn) <> "" Then
ReDim aV2(0),ruote(10),numeri(15)
Call SplitByChar(gen(nn)," : ",aV2)
last = UBound(aV2)
If last > tutti Then
xy = xy + 1
For y = 0 To last - 1
rt = Right(aV2(y),2)
nr = Left(aV2(y),2)
'''carica array ruote e numeri
ruote(y + 1) = rt
numeri(y + 1) = nr
rag(xy,1) = rag(xy,1) & Format2(nr) & "."
rag(xy,2) = rag(xy,2) & SiglaRuota(rt) & "-"
ruoterie(rt,nr) = nr
Next
ct = ct + 1
ColoreTesto(0)
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,3950,fine)
Scrivi FormattaStringa(nn,"000/000") & " " & FormattaStringa(retrit,"000") & "/" & FormattaStringa(retritmax,"000") & "...." & gen(nn),1
''''' verifica esiti
Call VerificaEsitoTurbo(numeri,ruote,fine + 1,1,,,,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ctg = ctg + 1
ColoreTesto(1)
Scrivi "<-------------------------------> " & retidestr & "....." & retestratti & "...." & retcolpi,1
ColoreTesto(0)
End If
'''''''''''''''''''''''''''''''''''
If stat = "SI" Or stat = "si" Then
ReDim ruote(1)
ColoreTesto(2)
For z = 1 To 12
If z <> 11 Then
ruote(1) = z
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,3950,fine)
Scrivi "------> " & SiglaRuota(z) & " " & FormattaStringa(retrit,"000") & "/" & FormattaStringa(retritmax,"000") & "...." & gen(nn)
End If
Next
End If
End If
End If
Next
Scrivi " Totale combinazioni trovate..." & ct
Scrivi " Totale Combinazioni vincenti.." & ctg
Scrivi "-------------------------------------------------",1
Scrivi
ColoreTesto(2)
Scrivi "Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine),1
Scrivi "R i e p i l o g o R u o t e e V e r i f i c a E s i t i dalla successiva ",1
ColoreTesto(0)
'''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
For L = 1 To 12
elenco = ""
For m = 1 To 90
If ruoterie(L,m) > 0 Then
elenco = elenco & FormattaStringa(ruoterie(L,m)," 00") & "."
End If
Next
Scrivi "-" & SiglaRuota(L) & "......" & elenco
ReDim aV(0),ruo(2),av5(50)
Call SplitByChar(elenco,".",aV)
Lastr = UBound(aV)
For h = 0 To Lastr - 1
av5(h + 1) = aV(h)
Next
ruo(1) = L ': ruo(2) = 11
Ini = fine
finale = Ini + 24
For Ini = Ini + 1 To finale
''''' verifica esiti
Call VerificaEsitoTurbo(av5,ruo,Ini,sor,1,,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ctg = ctg + 1
ColoreTesto(1)
If retesito = "Terno" Or retesito = "Quaterna" Then
ColoreTesto(2)
End If
Scrivi "<-------------------------> colpo n." & Format2(retidestr -(fine)) & "....." & retestratti & "...usc.estraz." & retidestr & " " & retesito,1
ColoreTesto(0)
End If
Next
Next
End Sub

numerico · 6 Settembre 2016

Ciao Beppignello,
ho notato che la ruota n. 11 (ossia tutte) viene omessa nell'elaborazione. Si tratta di una cosa voluta o è un bug?
L'elaborato in questione avrebbe dovuto restituire queste 3 combinazioni:
17-43 (0000/2902)
55-64 (0000/2931)
40-48-75 (0000/2933)
S.E.&.O.
Un cordiale saluto.

Beppignello · 6 Settembre 2016

la cosa è voluta, da questa istruzione

tra le prime istruzioni in alto

include tutte le ruote diverse dalla 11 (che significa Tutte)

For r = 1 To 12
If r <> 11 Then

end if
next

per includere Tutte le ruote
basta mettere degli apici prima, a queste 2 righe, lasciando invariate le altre
e salvare lo script

così:

''' If r <> 11 Then

''' end if

Beppignello · 6 Settembre 2016

trovo interessante il terno secco a Tutte 48 55 75
rat..3270 / rax.3270

è un terno uscito 1 Presenza su Napoli
è un terno uscito 2 Presenze su Palermo
è un terno uscito 2 Presenze su Firenze
è un terno uscito 1 Presenza su Roma

è un terno uscito 6 presenze su Tutte

si ripeterà nuovamente su 1 ruota tra le 4 sopra?

probabile, ma quando?

numerico · 6 Settembre 2016

perfetto, grazie

maumau · 10 Settembre 2016

Scusami Beppignello ma il listato con la scelta della ruota da esiti diversi da quello senza scelta. Ho selezionato la ruota di Napoli e mi ha dato 4 numeri mentre quello senza scelta ne da molti di più...c'è qualche errore in quello con la ruota scelta?
Grazie

Beppignello · 10 Settembre 2016

Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
012/278 012/061....62 NA06 : 70 NA06 :
014/283 014/056....56 NA06 : 84 NA06 :
questo elenco ottengo con la scelta della ruota di Napoli

---------------------------------------------------

012/278 012/061....62 NA06 : 70 NA06 :
012/280 003/013....43 FI03 : 77 GE04 : 17 NA06 :
012/283 009/016....44 PA07 : 30 RO08 : 27 VE10 :
012/287 000/019....86 MI05 : 32 VE10 : 87 VE10 :
012/290 002/014....54 CA02 : 30 FI03 : 21 TO09 :
questo elenco ottengo con nessuna scelta della ruota, quindi 0

------------------------------------

014/271 014/081....59 RO08 : 77 RO08 :
014/283 014/056....56 NA06 : 84 NA06 :
014/317 011/029....56 PA07 : 37 TO09
questo elenco ottengo con nessuna scelta della ruota, quindi o

----------------------------------------------

guardando al ritardo 12 e frequenza 278 ci sono NA 62 70
guardando al ritardo 14 e frequenza 283 ci sono NA 56 84
che corrispondono a quelle che ho riportato sopra per prime.

se intendi che intravvedi il 17 48 10 64 ed altre, c'è la diversità
di frequenza.

oltre al ritardo si deve guardare alla frequenza uguale, vengono accorpate
per entrambe le condizioni.

quando specifichi la ruota, non tiene conto di un estratto solo, ma la condizione impone d'obbligo almeno la presenza di 2 numeri con medesimo ritardo e medesima frequenza

questo è quello che dal controllo ho rilevato.

oppure non ho capito cosa vuoi esattamente.

INNOVATIVA RICERCA STATISTICA

Advanced Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Advanced Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Advanced Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Super Member >GOLD<

Advanced Member >GOLD<

Beppignello

Guest