INNOVATIVA RICERCA STATISTICA

Beppignello · 22 Settembre 2016

22-09-2016, 18:39
Beppignello ti prego di verificare anche questa situazione dove lo script non si limita più a segnalare la prima vincita, ma elenca tutte....... segue copi/incolla dello script

okey sistemato, scrive solo la prima vincita

Situazione all'estrazione n.9200 / 16.08.2016
O u t p u t o r d i n a t o p e r F r e q u e n z a / R i t a r d o ( Beppignello )
Elenco con numeri > di...2
Lista Tutte le Combinazioni rilevate....
Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento
_________________________________________________________________________________
---> estr.n. 9200 Comb.Rilevata..67 MI05 : 78 NA06 : 13 TO09 :
<------------> colpo n.01..usc.estr.9201.....NA .. .. .. .. 13.........Estratto
---> estr.n. 9200 Comb.Rilevata..80 BA01 : 04 FI03 : 18 TO09 :
<------------> colpo n.03..usc.estr.9203.....FI .. .. .. 18 ...........Estratto
---> estr.n. 9200 Comb.Rilevata..43 FI03 : 77 GE04 : 17 NA06 :
<------------> colpo n.01..usc.estr.9201.....FI 77 .. .. .. ...........Estratto
---> estr.n. 9200 Comb.Rilevata..42 BA01 : 42 RO08 : 22 TO09 :
<------------> colpo n.01..usc.estr.9201.....TO .. .. .. .. 42.........Estratto

Beppignello · 22 Settembre 2016

domanda, le verifica degli esiti in fondo pagina, sia quella globale della combinazione o insieme grande o lunghetta che sia, e quello con la suddivisione in figura, li devo lasciare o non servono e li togliamo?

creano disturbo?
possono essere utili in qualcosa?

skygirl · 22 Settembre 2016

skygirl;n2005812 ha scritto:
Vediamo se qualcuno di questi numeri uscirà, ho preso in considerazione all'estraz 9215 del 20/09/2016 il rapporto RComb/XComb, creato una colonna B in cui i valori sono trasformati in un indice percentuale, ho preso in considerazione i numeri legati ai primi 10 indici più elevati

Esiti:

R18 8 NZ

R6 2 BA

i legend · 22 Settembre 2016

Brava Sky ci si avvicina .
Bisogna fare molte verifiche per pensare di essere giunti a qualcosa.

Continuiamo con le verifiche teoriche e lo studio.

Ciao a tutti Buona notte

numerico · 22 Settembre 2016

Beppignello;n2006214 ha scritto:
domanda, le verifica degli esiti in fondo pagina, sia quelle globale della combinazione o insieme grande o lunghetta che sia, e quello con la suddivisione in figura, li devo lasciare o non servono e li togliamo?

Parere personale. Avendo sperimentato parecchie volte sia le figure che il surplus tra teoriche e reali del tabellone analitico, devo ammettere che sono state una grande delusione. Non aiutano, come si spererebbe nell'ottenere una vincita se non proprio molto sporadicamente. Questi elementi ''predittivi'' sono ormai obsoleti...... serve un'idea nuova!.

Beppignello · 22 Settembre 2016

Codice:

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
       [B]ColoreTesto[/B](1)
       [B]Scrivi[/B] " Appunti  :    Ritardo Tabellone valori riscontrati come storico..dal 1946",1
       [B]Scrivi[/B] " 2 Nr. al Ritardo 84 ",1
       [B]Scrivi[/B] " 3 Nr. al Ritardo 33 ",1
       [B]Scrivi[/B] " 4 Nr. al Ritardo 29 ",1
       [B]Scrivi[/B] " 5 Nr. al Ritardo    ",1
       [B]Scrivi[/B] " 6 Nr. al Ritardo 28 ",1
       [B]Scrivi[/B] " 7 Nr. al Ritardo 22 ",1
       [B]Scrivi[/B] " 8 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] " 9 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] "10 Nr. al Ritardo  7 ",1
       [B]Scrivi[/B] "11 Nr. al Ritardo  8 ",1
       [B]ColoreTesto[/B](0)
       [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]retfre[/B],[B]tutti[/B],[B]z[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retesito[/B],[B]retidestr[/B],[B]ruota[/B],[B]ciclo[/B],[B]n1[/B],[B]scelta[/B],[B]ctgn[/B]
       [B]Dim[/B] [B]stat[/B],[B]ct[/B],[B]ctg[/B],[B]L[/B],[B]xy[/B],[B]m[/B],[B]elenco[/B],[B]Lastr[/B],[B]h[/B],[B]Ini[/B],[B]finale[/B],[B]sor[/B],[B]elenco2[/B],[B]elenco3[/B],[B]minore[/B],[B]maggiore[/B],[B]j[/B],[B]RN[/B],[B]CN[/B],[B]ulteriori[/B],[B]ValTeorico[/B],[B]nretteorico[/B],[B]Aspettabilita[/B],[B]ValTeonRuote[/B]
       [B]Dim[/B] [B]gen[/B](9999999),[B]rag[/B](999,2),[B]ruoterie[/B](12,90),[B]ruotefre[/B](12,90),[B]ruoterae[/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]scelta[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi output 1=R/F  2=F/R ?",,1))
       [B]ruota[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("0 Lista (Tutte) oppure lista solo di questa ruota",,0))
       [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]("Verifica per sorte ",,1))
       ''''''crea tabella combinazione con doppia sincronia e  sincro-isocronia
       [B]Dim[/B] [B]atitolo[/B](15),[B]aris[/B](15),[B]TabelloneR[/B](250)
       '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t     e x c e l   ''''''''''''''''''''''''''''''''''''''''''''''
       '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Rit. / freq."
       [B]If[/B] [B]scelta[/B] [B]=[/B] 2 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Freq./ Rit. "
       [B]atitolo[/B](2) [B]=[/B] " "
       [B]atitolo[/B](3) [B]=[/B] "Rit.Comb."
       [B]atitolo[/B](4) [B]=[/B] "Rit.Comb.Max"
       [B]atitolo[/B](5) [B]=[/B] "C o m b i n a z i o n i   s u   Ruota/e "
       [B]atitolo[/B](6) [B]=[/B] "Comb.Numeri"
       [B]atitolo[/B](7) [B]=[/B] " "
       [B]atitolo[/B](8) [B]=[/B] "D.Sincr."
       [B]atitolo[/B](9) [B]=[/B] "Pr.Teoriche"
       [B]atitolo[/B](10) [B]=[/B] "Attend."
       [B]atitolo[/B](11) [B]=[/B] " "
       [B]atitolo[/B](12) [B]=[/B] "P.ReaTotTab"
       [B]atitolo[/B](13) [B]=[/B] " Dif "
       [B]atitolo[/B](14) [B]=[/B] "Teo11/nRuote"
       [B]atitolo[/B](15) [B]=[/B] "1° Esito"
       [B]SetTableWidth[/B]("85%px")
       [B]Call[/B] [B]InitTabella[/B]([B]atitolo[/B],1,"left",1.35,4,"Cambria")
       [B]Scrivi[/B] " Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B]
             ''''''''''''''''''''''''''''''''''''''''''
             [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]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''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
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [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],"0000")
                                  [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]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [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],"0000")
                                  [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]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r     R i t a r d o  /  F r e q u e n z a         ( [USER="11025"]Beppignello[/USER] ) ",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [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]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"000 / 0000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                  [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  '''''' aris(11) = Round((ValTeorico/11)*last,4)
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/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]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        ''''''''''''''''''''''''   ''''' verifica esiti della combinazione rilevata
                                        [B]Ini[/B] [B]=[/B] [B]fine[/B]
                                        [B]Scrivi[/B] "---> estr.n. " [B]&[/B] [B]Ini[/B] [B]&[/B] "  Comb.Rilevata.." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                        [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 : [B]ctgn[/B] [B]=[/B] 0
                                        [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]Ini[/B],[B]sor[/B],,,[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]aris[/B](15) [B]=[/B] "Usc.Positiva cn." [B]&[/B] [B]retcolpi[/B]
                                               [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] "..usc.estr." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "........." [B]&[/B] [B]retesito[/B],1
                                               [B]ColoreTesto[/B](0)
                                        [B]Else[/B]
                                               [B]aris[/B](15) [B]=[/B] "Nessun Esito"
                                        [B]End[/B] [B]If[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](168,162,251),[B]vbWhite[/B])
                                        [B]If[/B] [B]aris[/B](15) [B]=[/B] "Nessun Esito" [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](15,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' 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]ctgn[/B] [B]=[/B] [B]ctgn[/B] [B]+[/B] 1
                                  [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]ulteriori[/B] [B]=[/B] ""
                                        [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]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/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]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]),1
                                                      [B]End[/B] [B]If[/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] "_________________________________________________________________________________",1
             [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]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [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      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [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]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/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]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [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]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                    [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]ctgn[/B] [B]=[/B] [B]ctgn[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/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] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/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]Else[/B]
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r    F r e q u e n z a   /  R i t a r d o         ( [USER="11025"]Beppignello[/USER] )    ",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]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''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
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [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]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/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]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [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]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/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]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [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]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"0000 / 000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                 [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/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]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        ''''''''''''''''''''''''   ''''' verifica esiti della combinazione rilevata
                                        [B]Ini[/B] [B]=[/B] [B]fine[/B]
                                        [B]Scrivi[/B] "---> estr.n. " [B]&[/B] [B]Ini[/B] [B]&[/B] "  Comb.Rilevata.." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                        [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 : [B]ctgn[/B] [B]=[/B] 0
                                        [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]Ini[/B],[B]sor[/B],,,[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]aris[/B](15) [B]=[/B] "Usc.Positiva cn." [B]&[/B] [B]retcolpi[/B]
                                               [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] "..usc.estr." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "........." [B]&[/B] [B]retesito[/B],1
                                               [B]ColoreTesto[/B](0)
                                        [B]Else[/B]
                                               [B]aris[/B](15) [B]=[/B] "Nessun Esito"
                                        [B]End[/B] [B]If[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]If[/B] [B]aris[/B](15) [B]=[/B] "Nessun Esito" [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](15,[B]RGB[/B](171,167,245),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' 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]ctgn[/B] [B]=[/B] [B]ctgn[/B] [B]+[/B] 1
                                  [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]ulteriori[/B] [B]=[/B] ""
                                        [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]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/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]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]),1
                                                      [B]End[/B] [B]If[/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] "_________________________________________________________________________________",1
             [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]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [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      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [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]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/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]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [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]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                    [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] "Ambo" [B]Or[/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] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/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]If[/B]
[B]End[/B] [B]Sub[/B]

Beppignello · 22 Settembre 2016

...... serve un'idea nuova!.[/quote]

su ruota fissa

si potrebbe provare la gaussiana di frequenza e somme ritardo, si ottiene,poi, un rapporto %, tra questi dati

curiosamente questo rapporto è un multiplo di (11) in quasi la totalità dei raggruppamenti di frequenza.
quelle combinazioni invece con rapporto che sconfina fuori dal multiplo di 11, in pochi colpi, alcuni elementi escono.

queste combinazioni, si potrebbero intrecciare o mettere in relazione a quelle con doppia sincronia per convergenza tra loro
e rafforzare la previsione.

soprattutto permetterebbe di identificare in specifico di quali numeri si trovano in convergenza.

esempio: NAZIONALE
Ruota di Nazionale all'estrazione n.9216 / 22.09.2016
--------------------------------------------------------------
080 2......010 ..%.. 0,022 Elenco...79.88.
082 2......029 ..%.. 0,022 Elenco...03.41.
083 2......064 ..%.. 0,022 Elenco...32.51.
084 2......014 ..%.. 0,022 Elenco...35.75.
085 1......013 ..%.. 0,011 Elenco...64.
086 1......003 ..%.. 0,011 Elenco...31.
087 1......032 ..%.. 0,011 Elenco...72.
088 3......016 ..%.. 0,033 Elenco...01.84.87.
090 4......087 ..%.. 0,044 Elenco...07.21.26.62.
091 4......117 ..%.. 0,044 Elenco...48.49.56.65.
092 2......026 ..%.. 0,022 Elenco...30.69.
093 3......096 ..%.. 0,033 Elenco...20.28.85.
094 2......026 ..%.. 0,022 Elenco...83.86.
095 4......048 ..%.. 0,044 Elenco...14.18.24.43.
096 3......060 ..%.. 0,033 Elenco...54.55.59.
097 2......024 ..%.. 0,022 Elenco...34.77.
098 5......228 ..%.. 0,056 Elenco...40.45.63.74.82.
099 6......227 ..%.. 0,067 Elenco...08.19.23.53.58.60.
100 5......100 ..%.. 0,056 Elenco...12.67.71.76.78.
101 2......009 ..%.. 0,022 Elenco...70.73.
102 5......099 ..%.. 0,056 Elenco...02.10.11.36.38.
103 5......022 ..%.. 0,056 Elenco...06.44.52.68.81.
104 3......031 ..%.. 0,033 Elenco...16.61.90.
105 5......091 ..%.. 0,056 Elenco...05.13.25.42.47.
107 2......025 ..%.. 0,022 Elenco...29.37.
109 2......029 ..%.. 0,022 Elenco...22.50.
110 1......001 ..%.. 0,011 Elenco...66.
111 1......012 ..%.. 0,011 Elenco...57.
112 2......004 ..%.. 0,022 Elenco...09.15.
113 1......008 ..%.. 0,011 Elenco...89.
114 3......081 ..%.. 0,033 Elenco...04.27.46.
117 1......005 ..%.. 0,011 Elenco...80.
120 1......001 ..%.. 0,011 Elenco...39.
123 1......019 ..%.. 0,011 Elenco...33.
128 1......036 ..%.. 0,011 Elenco...17.
Tot.nr...90
Tot.Rit. 1693

vincenzo4221 · 23 Settembre 2016

Un chiarimento , perchè alcune celle sono evidenziate in rosso? e quelle in giallo ?

numerico · 23 Settembre 2016

I NUMERI DA GIOCARE PER L'ESTRAZIONE DEL 24.09 DOVREBBERO ESSERE QUESTI:
53 : 77 : 33 : FI03 NA06 RO08
90 : 52 : 87 : MI05 NA06 PA07
78 : 02 : 74 : FI03 MI05 NA06
31 : 32 : 80 : 75 BA01 PA07 VE10
CERCATE DI NON ATTRIBUIRE IL NUMERO ALLA RUOTA DI ORIGINE..... AL 90% IL CASO VI FREGA E SARETE PERDENTI. INTANTO CERCHIAMO DI STUDIARLI COSÌ COME VENGONO PROPOSTE. NEL TEMPO MATURERÀ QUALCHE IDEA PER RIDURRE I NUMERI O LE RUOTE. NEL FRATTEMPO UN'IDEA SPARTANA CE L'AVREI. MA VEDREMO IN SEGUITO.

Beppignello · 23 Settembre 2016

53 : 77 : 33 : FI03 NA06 RO08

90 : 52 : 87 : MI05 NA06 PA07
78 : 02 : 74 : FI03 MI05 NA06
31 : 32 : 80 : 75 BA01 PA07 VE10

ma proponi numeri per la ripetizione a colpo, con interscambio di ruota?
sono appena usciti e non riesco a vedere la doppia sincronia, il ritardo c'è, ma la frequenza?

che range hai usato 18-54-?

Beppignello · 23 Settembre 2016

la mia proposta, per qualche colpo

BARI 44
GENOVA 03 49

Motivo? :
1° sempre per eccesso di presenze al ritardo 32 nell'isocronismo
2° ritardo vicino ad un maxsto dal 1946

attenzione particolare ai 2 numeri di Genova.

Lottomano · 23 Settembre 2016

Ciao Beppignello e numerico! Vi volevo chiedere, cortesemente, visto che sto seguendo questa interessante proposta riportando con formule e macro su foglio excel la struttura rit./fre,
su quante estrazioni potrebbe vertire la statistica? Ad esempio calcolando le frequenze/ ritardi sulle ultime 18 estrazioni, o sulle ultime 90 estrazioni... Insomma c'è un qualche insieme che vi risulti sia attendibile, senza partire sempre dagli anni '40??

Grazie mille se mi risponderete

Beppignello · 23 Settembre 2016

a mio avviso, per periodi corti, terrei in considerazione ritardi > 24

perché questi numeri, generalmente sono 25-30 max per ruota, detto in altre parole sono i 25 numeri più ritardatari di ogni ruota, e soggetti alla legge del terzo, quindi in 18 colpi successi, diamo per scontato
anche se di formule matematiche, non ne esistono, che i 2/3 usciranno.

se tra questi trovi alcuni che hanno una doppia sincronia rit/fre, potrebbe essere già risolto un po di
lavoro di analisi.

tenuto conto che poche sono le combinazioni in terzine e quartine isocrone, in doppia sincronia che si spingono ulteriormente al ritardo 26-28 in su.
questi ritardi, sono da intendersi come ritardo minimo di tabellone analitico.

ma non sempre è possibile trovare a questi ritardi, combinazioni
in doppia sincronia.

vediamo cosa dice anche qualcun altro

numerico · 23 Settembre 2016

Beppignello;n2006291 ha scritto:
...... serve un'idea nuova!.[/quote]

su ruota fissa

si potrebbe provare la gaussiana di frequenza e somme ritardo, si ottiene,poi, un rapporto %, tra questi dati

curiosamente questo rapporto è un multiplo di (11) in quasi la totalità dei raggruppamenti di frequenza.
quelle combinazioni invece con rapporto che sconfina fuori dal multiplo di 11, in pochi colpi, alcuni elementi escono.

queste combinazioni, si potrebbero intrecciare o mettere in relazione a quelle con doppia sincronia per convergenza tra loro
e rafforzare la previsione.

Clicca per espandere...

Bene, è una bella idea. Io addirittura volevo trovare un modo per agganciarci la t-student con excel, ma ho dimenticato il linguaggio ''macro'' per creare certi automatismi per far sì che i numeri prossimi o superiori a 4 venissero eliminati dal pronostico. Comunque mi auguro che tutti questi post servano a risvegliare la fantasia e l'ingegno dei vari utenti.

numerico · 23 Settembre 2016

Beppignello;n2006315 ha scritto:
ma proponi numeri per la ripetizione a colpo, con interscambio di ruota?
sono appena usciti e non riesco a vedere la doppia sincronia, il ritardo c'è, ma la frequenza?

che range hai usato 18-54-?

ho usato l'archivio esteso, partendo dall'estrazione n. 1 del 1871

Beppignello · 23 Settembre 2016

la T Student

se mi confermi che si calcola in questo modo, posso fare qualche prova

al un ritardo (x), per ogni numero si calcolano i seguenti dati

1) presenze reali
2) presenze teoriche
3) scarto medio quadratico

TStudent = [(1) - (2)] / (3)

Nota Bene:
però, mi ricordo che per il gioco del Lotto, già anni fa c'erano a volte alcuni numeri che
superavano il limite di 4, anche a valore max quasi di (6),
mentre il presupposto della Tstudent è proprio che il valore 4 non deve essere mai superato, perché corrisponde ad Probabilità 100% o 1, uguale a certezza.

numerico · 23 Settembre 2016

Beppignello;n2006399 ha scritto:
la T Student

se mi confermi che si calcola in questo modo, posso fare qualche prova

al un ritardo (x), per ogni numero si calcolano i seguenti dati

1) presenze reali
2) presenze teoriche
3) scarto medio quadratico

TStudent = [(1) - (2)] / (3)

Nota Bene:
però, mi ricordo che per il gioco del Lotto, già anni fa c'erano a volte alcuni numeri che
superavano il limite di 4, anche a valore max quasi di (6),
mentre il presupposto della Tstudent è proprio che il valore 4 non deve essere mai superato, perché corrisponde ad Probabilità 100% o 1, uguale a certezza.

Si, confermo la giustezza della formula. In eventi legati al caso, c'è sempre da aspettarsi qualche splafonamento. Se però, quest'ultimo rappresenta delle eccezioni, significa che la regola è valida (la cosiddetta ''l'eccezione conferma la regola'')!

Lottomano · 23 Settembre 2016

numerico;n2006389 ha scritto:
Beppignello;n2006291 ha scritto:

Bene, è una bella idea. Io addirittura volevo trovare un modo per agganciarci la t-student con excel, ma ho dimenticato il linguaggio ''macro'' per creare certi automatismi per far sì che i numeri prossimi o superiori a 4 venissero eliminati dal pronostico. Comunque mi auguro che tutti questi post servano a risvegliare la fantasia e l'ingegno dei vari utenti.

Clicca per espandere...

beh se mi dai le specifiche, sempre se ci capisco qualcosa riguardo le vostre formule, il foglio excel ve lo faccio io, macro inclusa/e

Lottomano · 23 Settembre 2016

Se posso intrufolarmi nel discorso eh... Io ho creato un foglio excel che calcola i ritardi e le frequenze dei 90 numeri per ciascuna ruota nelle ultime 90 estrazioni (è una quantità a mia discrezione, si può cambiare ovviamente) Ho una macro che calcola i ritardi e le presenze sempre nelle 90 estrazioni e un'altra che ordina in base ai ritardi / frequenza; laddove entrambe i valori risultino uguali per uno o più numeri vengono evidenziate in rosso le celle in corrispondenza dei numeri stessi. Per ora è a livello di singola ruota.
A questo punto bisogna scegliere tra i numeri evidenziati immagino e poi... ditemi voi se ho capito male qualcosa o posso implementare la cosa. Poi se viene fuori un lavoro decente la metterò a disposizione di tutti.

numerico · 23 Settembre 2016

Lottomano;n2006408 ha scritto:
numerico;n2006389 ha scritto:

beh se mi dai le specifiche, sempre se ci capisco qualcosa riguardo le vostre formule, il foglio excel ve lo faccio io, macro inclusa/e

Clicca per espandere...

Per far questo dovresti estrapolare le frequenze dei numeri proposti dallo script di Beppignello e poi calcolarci la formula ''t-student''. Ad esempio ad oggi, se si parte con l'archivio ristretto (dall'estrazione n. 3950 per intenderci), sono trascorse ben 5267 estrazioni. Ebbene, secondo la t-student, ogni numero non dovrebbe superare le 360 presenze (salvo eccezioni), mentre se parti dall'estrazione n.1 non dovrebbe superare la soglia delle 600 presenze -essendo 9216 estrazioni- (ben inteso per quelle ruote esistenti a quell'epoca)
P.S.: ti scrivo la formula per calcolare lo SCARTO QUADRATICO MEDIO:
Radice quadrata(numero di estrazioni * 1/18 * 17/18)
Buon lavoro

INNOVATIVA RICERCA STATISTICA

Beppignello

Guest

Beppignello

Guest

Advanced Member >GOLD<

Premium Member

Super Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Super Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Banned

Beppignello

Guest

Super Member >GOLD<

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Banned

Banned

Super Member >GOLD<