INNOVATIVA RICERCA STATISTICA

numerico · 30 Agosto 2016

Da una recente indagine statistica ho potuto verificare (ovviamente dalle estrazioni passate) un notevole riscontro positivo nell'individuare i numeri deputati ad essere estratti. In pratica si tratta di individuare quei numeri che hanno lo stesso ritardo e la stessa frequenza. Siccome sono eventi insoliti in un gioco dove regna il caos, proprio perchè è un gioco casuale. Comunque per rendere chiaro il concetto faccio un ipotetico esempio:
mettiamo che il 23 di Bari abbia 27 estrazioni di ritardo e 470 di frequenza e contestualmente notiamo anche che a Palermo il numero 78 ha 27 estrazioni di ritardo e 470 di frequenza. In questo caso i numeri da giocare sarebbero 23-78 su entrambe le ruote, e cioè BA-PA. Ora, per fare una ricerca del genere, c'è il rischio di perdere il bene della vista ? per cui chiedo, a chi è in grado di elaborare uno script, se cortesemente può operare in tal senso. Ringrazio anticipatamente chi darà corso alla mia richiesta.
Cordiali saluti

Beppignello · 1 Settembre 2016

dovrebbe essere questa combinazione interessante

GE-RO 70 39 estratti

Genova Primaria

r46/x46

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

NAPOLI 61 e 46 ROMA

oltre alle 2 ruote di rilevamento, per prova per il ritardo migliore e più alto fuori ruote

CAGLIARI 61 e 46 estratti
aventi r60 e x60

Beppignello · 1 Settembre 2016

Situazione all'estrazione n.9206 / 30.08.2016
Elenco con numeri > di...1
__________________________________________________ _______________________________
Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
000/276 000/036....09 FI03 : 57 RO08 :
000/280 000/027....14 CA02 : 72 NA06 :
000/285 000/031....65 FI03 : 67 VE10 :
000/288 000/011....38 CA02 : 05 MI05 : 78 MI05 : 01 PA07 :
000/289 000/032....68 NA06 : 40 PA07 :
000/294 000/035....31 GE04 : 75 RO08 :
000/299 000/010....84 BA01 : 38 GE04 : 51 RO08 : 65 TO09 :
000/302 000/010....05 BA01 : 66 MI05 : 69 RO08 : 79 VE10 :
000/319 000/028....87 NA06 : 51 TO09 :
001/279 001/014....13 CA02 : 63 GE04 : 82 PA07 :
001/282 001/038....78 FI03 : 88 PA07 :
001/285 001/028....26 GE04 : 30 NA06 :
001/287 001/031....60 GE04 : 06 RO08 :
001/290 001/032....70 TO09 : 54 VE10 :
001/292 000/012....46 MI05 : 05 NA06 : 03 RO08 :
001/294 000/013....75 CA02 : 50 GE04 : 10 TO09 :
001/300 000/027....68 MI05 : 23 NA06 :
001/301 000/035....01 MI05 : 45 PA07 :
001/308 001/025....21 PA07 : 84 TO09 :
001/309 001/032....22 GE04 : 34 VE10 :
001/311 001/029....62 BA01 : 83 CA02 :
002/111 002/040....09 NZ12 : 57 NZ12 :
002/271 002/030....26 RO08 : 55 TO09 :
002/274 002/030....71 FI03 : 28 GE04 :
002/292 002/045....54 BA01 : 27 NA06 :
002/293 000/008....74 BA01 : 56 FI03 : 26 NA06 : 90 VE10 :
002/294 002/035....19 MI05 : 47 TO09 :
002/295 002/029....88 FI03 : 20 MI05 :
002/302 002/036....54 NA06 : 50 RO08 :
002/303 002/023....32 MI05 : 04 RO08 : 56 RO08 :
002/322 002/034....84 CA02 : 73 GE04 :
003/267 003/029....58 RO08 : 01 VE10 :
003/284 003/028....12 FI03 : 59 GE04 :
003/288 003/051....46 GE04 : 46 NA06 :
003/289 003/028....09 BA01 : 11 PA07 :
003/302 003/038....81 MI05 : 58 VE10 :
003/303 003/029....74 CA02 : 62 RO08 :
003/305 000/038....74 GE04 : 29 MI05 :
003/310 003/053....18 PA07 : 89 PA07 :
003/312 001/026....03 BA01 : 39 TO09 :
004/274 004/063....52 MI05 : 52 RO08 :
004/283 002/008....22 CA02 : 10 MI05 : 29 PA07 : 16 RO08 : 16 VE10 :
004/287 004/033....48 GE04 : 78 VE10 :
004/292 002/035....54 FI03 : 59 NA06 :
004/300 004/037....58 CA02 : 23 PA07 :
004/301 004/033....35 FI03 : 81 VE10 :
004/304 003/019....03 MI05 : 18 MI05 : 49 PA07 :
004/305 000/029....26 BA01 : 40 RO08 :
004/308 004/026....38 RO08 : 17 VE10 :
005/266 005/030....15 GE04 : 72 TO09 :
005/271 005/074....21 MI05 : 41 MI05 :
005/278 005/033....12 CA02 : 32 RO08 :
005/281 005/029....67 BA01 : 50 NA06 :
005/285 005/025....14 GE04 : 76 RO08 :
005/292 004/037....81 FI03 : 30 VE10 :
005/295 004/029....49 NA06 : 31 VE10 :
005/298 005/035....38 NA06 : 15 PA07 :
005/323 003/024....14 MI05 : 81 RO08 :
006/280 006/028....24 FI03 : 63 VE10 :
006/281 006/031....43 CA02 : 71 VE10 :
006/288 006/022....02 MI05 : 28 TO09 :
006/290 000/028....89 GE04 : 07 NA06 :
006/292 000/019....60 CA02 : 14 VE10 : 46 VE10 :
006/295 006/048....59 MI05 : 85 MI05 :
006/296 004/032....17 TO09 : 49 VE10 :
006/298 003/023....60 PA07 : 11 RO08 :
006/304 006/031....30 BA01 : 86 RO08 :
006/315 006/025....73 FI03 : 43 NA06 :
007/281 000/038....05 CA02 : 60 MI05 :
007/291 005/031....35 BA01 : 11 MI05 :
007/293 007/033....17 MI05 : 40 NA06 :
007/300 007/033....68 BA01 : 16 CA02 :
007/303 007/032....12 GE04 : 78 PA07 :
007/304 000/014....53 GE04 : 64 NA06 : 26 PA07 :
008/263 006/034....17 CA02 : 48 NA06 :
008/266 001/028....10 NA06 : 03 TO09 :
008/278 008/061....62 NA06 : 70 NA06 :
008/280 001/013....43 FI03 : 77 GE04 : 17 NA06 :
008/283 005/016....44 PA07 : 30 RO08 : 27 VE10 :
008/287 002/019....86 MI05 : 32 VE10 : 87 VE10 :
008/290 002/014....54 CA02 : 30 FI03 : 21 TO09 :
008/292 007/033....11 CA02 : 24 MI05 :
008/311 008/044....51 BA01 : 69 BA01 :
009/098 009/039....08 NZ12 : 63 NZ12 :
009/278 009/035....41 BA01 : 22 PA07 :
009/286 000/029....10 BA01 : 40 CA02 :
009/290 003/041....61 NA06 : 46 RO08 :
009/291 009/034....83 FI03 : 23 MI05 :
009/292 004/030....27 GE04 : 75 PA07 :
009/297 009/067....03 FI03 : 32 FI03 :
010/271 010/081....59 RO08 : 77 RO08 :
010/283 010/056....56 NA06 : 84 NA06 :
010/290 005/032....25 GE04 : 15 RO08 :
010/294 010/030....61 GE04 : 56 MI05 :
010/306 010/029....89 CA02 : 76 FI03 :
010/308 010/031....84 GE04 : 37 VE10 :
010/317 007/029....56 PA07 : 37 TO09 :
011/271 011/031....37 FI03 : 63 MI05 :
011/276 011/036....33 NA06 : 65 RO08 :
011/281 005/037....42 BA01 : 42 RO08 : 22 TO09 :
011/303 000/031....80 FI03 : 57 VE10 :
012/289 012/055....39 PA07 : 64 PA07 :
012/313 000/030....67 PA07 : 41 RO08 :
013/299 011/040....34 PA07 : 09 TO09 :
014/268 014/035....67 MI05 : 13 TO09 :
014/277 012/032....28 NA06 : 03 PA07 :
014/298 001/033....51 GE04 : 40 VE10 :
014/323 000/038....59 BA01 : 76 TO09 :
015/262 000/030....40 TO09 : 33 VE10 :
015/285 007/029....02 BA01 : 35 PA07 :
015/291 002/037....71 BA01 : 26 FI03 :
016/297 000/045....42 CA02 : 14 RO08 :
017/280 000/035....36 PA07 : 08 TO09 :
017/299 017/056....64 CA02 : 79 CA02 :
018/289 004/032....36 CA02 : 48 RO08 :
019/298 015/037....47 BA01 : 71 NA06 :
020/308 008/025....88 RO08 : 12 VE10 :
021/296 018/028....83 PA07 : 41 VE10 :
021/302 014/037....22 NA06 : 35 VE10 :
022/272 003/014....80 BA01 : 04 FI03 : 18 TO09 :
022/296 003/027....44 BA01 : 03 GE04 : 49 GE04 :
027/283 013/027....79 NA06 : 89 TO09 :
029/281 007/033....17 GE04 : 65 MI05 :
029/294 002/026....55 NA06 : 35 TO09 :
032/283 002/014....22 FI03 : 71 RO08 : 47 VE10 :
036/268 000/040....37 GE04 : 31 PA07 :
042/289 004/032....17 FI03 : 36 MI05 :
045/270 000/026....38 FI03 : 57 TO09 :
046/282 002/030....13 MI05 : 19 VE10 :
054/286 020/028....70 GE04 : 39 RO08 :
074/297 022/035....82 BA01 : 61 CA02 :
Totale combinazioni trovate...131
Totale Combinazioni vincenti..

numerico · 2 Settembre 2016

magia;n2000326 ha scritto:

Buonanotte,
Salutando tutti ,e scusandoci per l' intromissione.
Postiamo questo listato , reperito in altri lidi ,e modificato da amaretto .
E' molto macchinoso e ferruginoso , ma visto le competenze di amaretto .
ci si puo' aspettare solo questo .
Se qualcun ' altro , lo puo' semplificare e /o migliorare .
Controllare e Verificare la veridicita' dei dati .

Codice:

Option Explicit
'http://forum.lottoced.com/forum/lottoced/area-download/1999841-script-per-innovativa-ricerca-statistica
'INNOVATIVA RICERCA STATISTICA di numerico
Sub Main
Dim Ini,fin
Ini = EstrazioneIni
fin = EstrazioneFin
ReDim atitoli(24)
atitoli(01) = " Numeri "
atitoli(02) = " BA - Rt "
atitoli(03) = " BA - Fr "
atitoli(04) = " CA - Rt "
atitoli(05) = " CA - Fr "
atitoli(06) = " FI - Rt "
atitoli(07) = " FI - Fr "
atitoli(08) = " GE - Rt "
atitoli(09) = " GE - Fr "
atitoli(10) = " MI - Rt "
atitoli(11) = " MI - Fr "
atitoli(12) = " NA - Rt "
atitoli(13) = " NA - Fr "
atitoli(14) = " PA - Rt "
atitoli(15) = " PA - Fr "
atitoli(16) = " RO - Rt "
atitoli(17) = " RO - Fr "
atitoli(18) = " TO - Rt "
atitoli(19) = " TO - Fr "
atitoli(20) = " VE - Rt "
atitoli(21) = " VE - Fr "
atitoli(22) = " NZ - Rt "
atitoli(23) = " NZ - Fr "
atitoli(24) = " Numeri "
Call InitTabella(atitoli,vbGreen,,02,00)
Dim x
Dim nt(90)
For x = 01 To 90
nt(01) = x
Call Messaggio(Format2(x))
Call AvanzamentoElab(01,90,x)
ReDim avalori(24)
avalori(01) = Format2(x)
avalori(24) = Format2(x)
'------------------------------------------------------------
Dim rit01,freq01
ReDim ruota01(01)
ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,rit01,,,freq01,,Ini,fin)
avalori(02) = rit01
avalori(03) = freq01
'------------------------------------------------------------
Dim rit02,freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,rit02,,,freq02,,Ini,fin)
avalori(04) = rit02
avalori(05) = freq02
'------------------------------------------------------------
Dim rit03,freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,rit03,,,freq03,,Ini,fin)
avalori(06) = rit03
avalori(07) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,rit04,,,freq04,,Ini,fin)
avalori(08) = rit04
avalori(09) = freq04
'------------------------------------------------------------
Dim rit05,freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,rit05,,,freq05,,Ini,fin)
avalori(10) = rit05
avalori(11) = freq05
'------------------------------------------------------------
Dim rit06,freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,rit06,,,freq06,,Ini,fin)
avalori(12) = rit06
avalori(13) = freq06
'------------------------------------------------------------
Dim rit07,freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,rit07,,,freq07,,Ini,fin)
avalori(14) = rit07
avalori(15) = freq07
'------------------------------------------------------------
Dim rit08,freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,rit08,,,freq08,,Ini,fin)
avalori(16) = rit08
avalori(17) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,rit09,,,freq09,,Ini,fin)
avalori(18) = rit09
avalori(19) = freq09
'------------------------------------------------------------
Dim rit10,freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,rit10,,,freq10,,Ini,fin)
avalori(20) = rit10
avalori(21) = freq10
'------------------------------------------------------------
Dim rit12,freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,rit12,,,freq12,,Ini,fin)
avalori(22) = rit12
avalori(23) = freq12
Call AddRigaTabella(avalori,,,03,,01)
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If avalori(02) = avalori(04) And avalori(03) = avalori(05) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255))
ElseIf avalori(02) = avalori(06) And avalori(03) = avalori(07) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255))
ElseIf avalori(02) = avalori(08) And avalori(03) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(02) = avalori(10) And avalori(03) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(02) = avalori(12) And avalori(03) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(02) = avalori(14) And avalori(03) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(02) = avalori(16) And avalori(03) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(02) = avalori(18) And avalori(03) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(02) = avalori(20) And avalori(03) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(02) = avalori(22) And avalori(03) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(02,RGB(255,128,255)):Call SetColoreCella(03,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(04) = avalori(06) And avalori(05) = avalori(07) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255))
ElseIf avalori(04) = avalori(08) And avalori(05) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(04) = avalori(10) And avalori(05) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(04) = avalori(12) And avalori(05) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(04) = avalori(14) And avalori(05) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(04) = avalori(16) And avalori(05) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(04) = avalori(18) And avalori(05) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(04) = avalori(20) And avalori(05) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(04) = avalori(22) And avalori(05) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(04,RGB(255,128,255)):Call SetColoreCella(05,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(06) = avalori(08) And avalori(07) = avalori(09) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255))
ElseIf avalori(06) = avalori(10) And avalori(07) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(06) = avalori(12) And avalori(07) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(06) = avalori(14) And avalori(07) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(06) = avalori(16) And avalori(07) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(06) = avalori(18) And avalori(07) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(06) = avalori(20) And avalori(07) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(06) = avalori(22) And avalori(07) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(06,RGB(255,128,255)):Call SetColoreCella(07,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(08) = avalori(10) And avalori(09) = avalori(11) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255))
ElseIf avalori(06) = avalori(12) And avalori(09) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(08) = avalori(14) And avalori(09) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(08) = avalori(16) And avalori(09) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(08) = avalori(18) And avalori(09) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(08) = avalori(20) And avalori(09) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(08) = avalori(22) And avalori(09) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(08,RGB(255,128,255)):Call SetColoreCella(09,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(10) = avalori(12) And avalori(11) = avalori(13) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255))
ElseIf avalori(10) = avalori(14) And avalori(11) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(10) = avalori(16) And avalori(11) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(10) = avalori(18) And avalori(11) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(10) = avalori(20) And avalori(11) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(10) = avalori(22) And avalori(11) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(10,RGB(255,128,255)):Call SetColoreCella(11,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(12) = avalori(14) And avalori(13) = avalori(15) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255))
ElseIf avalori(12) = avalori(16) And avalori(13) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(12) = avalori(18) And avalori(13) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(12) = avalori(20) And avalori(13) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(12) = avalori(22) And avalori(13) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(12,RGB(255,128,255)):Call SetColoreCella(13,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(14) = avalori(16) And avalori(15) = avalori(17) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255))
ElseIf avalori(14) = avalori(18) And avalori(15) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255))
ElseIf avalori(14) = avalori(20) And avalori(15) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(14) = avalori(22) And avalori(15) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(14,RGB(255,128,255)):Call SetColoreCella(15,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ElseIf avalori(16) = avalori(18) And avalori(17) = avalori(19) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(18,RGB(255,128,255)):Call SetColoreCella(19,RGB(255,128,255)) 
ElseIf avalori(16) = avalori(20) And avalori(17) = avalori(21) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255))
ElseIf avalori(16) = avalori(22) And avalori(17) = avalori(23) Then
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(16,RGB(255,128,255)):Call SetColoreCella(17,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
'---------------------------------------------------------------------------------------------------------------------------------------Grazie
Call SetColoreCella(01,RGB(255,184,149)):Call SetColoreCella(24,RGB(255,184,149)):_
Call SetColoreCella(20,RGB(255,128,255)):Call SetColoreCella(21,RGB(255,128,255)):Call SetColoreCella(22,RGB(255,128,255)):Call SetColoreCella(23,RGB(255,128,255))
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Next
Call Messaggio(" Attendere Creazione Tabella ")
Call CreaTabella()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

Grazie mille per la disponibilità e la cortesia usatami. Il listato che ne scaturisce, pur essendo privo di errori, mette in evidenza solo un numero che straordinariamente collima con lo stesso numero di un'altra ruota. Intendiamoci, questo può rappresentare un gioiellino perchè restringe il pronostico ad un solo numero su max due ruote. Ora occorrerà studiarne le performance. Grazie di nuovo

numerico · 2 Settembre 2016

Beppignello;n2000342 ha scritto:
Situazione all'estrazione n.9206 / 30.08.2016
Elenco con numeri > di...1
__________________________________________________ _______________________________
Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
000/276 000/036....09 FI03 : 57 RO08 :
000/280 000/027....14 CA02 : 72 NA06 :
000/285 000/031....65 FI03 : 67 VE10 :
000/288 000/011....38 CA02 : 05 MI05 : 78 MI05 : 01 PA07 :
000/289 000/032....68 NA06 : 40 PA07 :
000/294 000/035....31 GE04 : 75 RO08 :
000/299 000/010....84 BA01 : 38 GE04 : 51 RO08 : 65 TO09 :
000/302 000/010....05 BA01 : 66 MI05 : 69 RO08 : 79 VE10 :
000/319 000/028....87 NA06 : 51 TO09 :
001/279 001/014....13 CA02 : 63 GE04 : 82 PA07 :
001/282 001/038....78 FI03 : 88 PA07 :
001/285 001/028....26 GE04 : 30 NA06 :
001/287 001/031....60 GE04 : 06 RO08 :
001/290 001/032....70 TO09 : 54 VE10 :
001/292 000/012....46 MI05 : 05 NA06 : 03 RO08 :
001/294 000/013....75 CA02 : 50 GE04 : 10 TO09 :
001/300 000/027....68 MI05 : 23 NA06 :
001/301 000/035....01 MI05 : 45 PA07 :
001/308 001/025....21 PA07 : 84 TO09 :
001/309 001/032....22 GE04 : 34 VE10 :
001/311 001/029....62 BA01 : 83 CA02 :
002/111 002/040....09 NZ12 : 57 NZ12 :
002/271 002/030....26 RO08 : 55 TO09 :
002/274 002/030....71 FI03 : 28 GE04 :
002/292 002/045....54 BA01 : 27 NA06 :
002/293 000/008....74 BA01 : 56 FI03 : 26 NA06 : 90 VE10 :
002/294 002/035....19 MI05 : 47 TO09 :
002/295 002/029....88 FI03 : 20 MI05 :
002/302 002/036....54 NA06 : 50 RO08 :
002/303 002/023....32 MI05 : 04 RO08 : 56 RO08 :
002/322 002/034....84 CA02 : 73 GE04 :
003/267 003/029....58 RO08 : 01 VE10 :
003/284 003/028....12 FI03 : 59 GE04 :
003/288 003/051....46 GE04 : 46 NA06 :
003/289 003/028....09 BA01 : 11 PA07 :
003/302 003/038....81 MI05 : 58 VE10 :
003/303 003/029....74 CA02 : 62 RO08 :
003/305 000/038....74 GE04 : 29 MI05 :
003/310 003/053....18 PA07 : 89 PA07 :
003/312 001/026....03 BA01 : 39 TO09 :
004/274 004/063....52 MI05 : 52 RO08 :
004/283 002/008....22 CA02 : 10 MI05 : 29 PA07 : 16 RO08 : 16 VE10 :
004/287 004/033....48 GE04 : 78 VE10 :
004/292 002/035....54 FI03 : 59 NA06 :
004/300 004/037....58 CA02 : 23 PA07 :
004/301 004/033....35 FI03 : 81 VE10 :
004/304 003/019....03 MI05 : 18 MI05 : 49 PA07 :
004/305 000/029....26 BA01 : 40 RO08 :
004/308 004/026....38 RO08 : 17 VE10 :
005/266 005/030....15 GE04 : 72 TO09 :
005/271 005/074....21 MI05 : 41 MI05 :
005/278 005/033....12 CA02 : 32 RO08 :
005/281 005/029....67 BA01 : 50 NA06 :
005/285 005/025....14 GE04 : 76 RO08 :
005/292 004/037....81 FI03 : 30 VE10 :
005/295 004/029....49 NA06 : 31 VE10 :
005/298 005/035....38 NA06 : 15 PA07 :
005/323 003/024....14 MI05 : 81 RO08 :
006/280 006/028....24 FI03 : 63 VE10 :
006/281 006/031....43 CA02 : 71 VE10 :
006/288 006/022....02 MI05 : 28 TO09 :
006/290 000/028....89 GE04 : 07 NA06 :
006/292 000/019....60 CA02 : 14 VE10 : 46 VE10 :
006/295 006/048....59 MI05 : 85 MI05 :
006/296 004/032....17 TO09 : 49 VE10 :
006/298 003/023....60 PA07 : 11 RO08 :
006/304 006/031....30 BA01 : 86 RO08 :
006/315 006/025....73 FI03 : 43 NA06 :
007/281 000/038....05 CA02 : 60 MI05 :
007/291 005/031....35 BA01 : 11 MI05 :
007/293 007/033....17 MI05 : 40 NA06 :
007/300 007/033....68 BA01 : 16 CA02 :
007/303 007/032....12 GE04 : 78 PA07 :
007/304 000/014....53 GE04 : 64 NA06 : 26 PA07 :
008/263 006/034....17 CA02 : 48 NA06 :
008/266 001/028....10 NA06 : 03 TO09 :
008/278 008/061....62 NA06 : 70 NA06 :
008/280 001/013....43 FI03 : 77 GE04 : 17 NA06 :
008/283 005/016....44 PA07 : 30 RO08 : 27 VE10 :
008/287 002/019....86 MI05 : 32 VE10 : 87 VE10 :
008/290 002/014....54 CA02 : 30 FI03 : 21 TO09 :
008/292 007/033....11 CA02 : 24 MI05 :
008/311 008/044....51 BA01 : 69 BA01 :
009/098 009/039....08 NZ12 : 63 NZ12 :
009/278 009/035....41 BA01 : 22 PA07 :
009/286 000/029....10 BA01 : 40 CA02 :
009/290 003/041....61 NA06 : 46 RO08 :
009/291 009/034....83 FI03 : 23 MI05 :
009/292 004/030....27 GE04 : 75 PA07 :
009/297 009/067....03 FI03 : 32 FI03 :
010/271 010/081....59 RO08 : 77 RO08 :
010/283 010/056....56 NA06 : 84 NA06 :
010/290 005/032....25 GE04 : 15 RO08 :
010/294 010/030....61 GE04 : 56 MI05 :
010/306 010/029....89 CA02 : 76 FI03 :
010/308 010/031....84 GE04 : 37 VE10 :
010/317 007/029....56 PA07 : 37 TO09 :
011/271 011/031....37 FI03 : 63 MI05 :
011/276 011/036....33 NA06 : 65 RO08 :
011/281 005/037....42 BA01 : 42 RO08 : 22 TO09 :
011/303 000/031....80 FI03 : 57 VE10 :
012/289 012/055....39 PA07 : 64 PA07 :
012/313 000/030....67 PA07 : 41 RO08 :
013/299 011/040....34 PA07 : 09 TO09 :
014/268 014/035....67 MI05 : 13 TO09 :
014/277 012/032....28 NA06 : 03 PA07 :
014/298 001/033....51 GE04 : 40 VE10 :
014/323 000/038....59 BA01 : 76 TO09 :
015/262 000/030....40 TO09 : 33 VE10 :
015/285 007/029....02 BA01 : 35 PA07 :
015/291 002/037....71 BA01 : 26 FI03 :
016/297 000/045....42 CA02 : 14 RO08 :
017/280 000/035....36 PA07 : 08 TO09 :
017/299 017/056....64 CA02 : 79 CA02 :
018/289 004/032....36 CA02 : 48 RO08 :
019/298 015/037....47 BA01 : 71 NA06 :
020/308 008/025....88 RO08 : 12 VE10 :
021/296 018/028....83 PA07 : 41 VE10 :
021/302 014/037....22 NA06 : 35 VE10 :
022/272 003/014....80 BA01 : 04 FI03 : 18 TO09 :
022/296 003/027....44 BA01 : 03 GE04 : 49 GE04 :
027/283 013/027....79 NA06 : 89 TO09 :
029/281 007/033....17 GE04 : 65 MI05 :
029/294 002/026....55 NA06 : 35 TO09 :
032/283 002/014....22 FI03 : 71 RO08 : 47 VE10 :
036/268 000/040....37 GE04 : 31 PA07 :
042/289 004/032....17 FI03 : 36 MI05 :
045/270 000/026....38 FI03 : 57 TO09 :
046/282 002/030....13 MI05 : 19 VE10 :
054/286 020/028....70 GE04 : 39 RO08 :
074/297 022/035....82 BA01 : 61 CA02 :
Totale combinazioni trovate...131
Totale Combinazioni vincenti..

Grazie Beppingello, hai saputo interpretare perfettamente la mia richiesta. Anche se i numeri individuati sono tanti, il tutto mi serve per effettuare una minuziosa analisi. In una cosa non mi ritrovo: i numeri da te proposti non coincidono con l'analisi che ho fatto con spaziometria. Ciò non toglie che io stesso sia incorso in un involontario errore, tuttavia, se puoi, ti inviterei a dargli un occhio ^_^.
Grazie di nuovo anche a te per la cortesia riservatami.
Saluti.

Beppignello · 2 Settembre 2016

In una cosa non mi ritrovo: i numeri da te proposti non coincidono con l'analisi che ho fatto con spaziometria.

....
non so con spaziometria che tipo di analisi hai fatto?, c'è qualche funzione che esegue questa elaborazione da qualche parte? prova indicarmela così posso controllare.

io ho eseguito utilizzando 'archivio dall'estrazione n.3950 alla 9206.

questo è l'esito ad 1 colpo di gioco

Situazione all'estrazione n.9206 / 30.08.2016
Elenco con numeri > di...1
__________________________________________________ _______________________________
Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
000/276 000/036....09 FI03 : 57 RO08 :
<-------------------------------> 9207.....RO .. 57 09 .. ......1

001/279 001/014....13 CA02 : 63 GE04 : 82 PA07 :
<-------------------------------> 9207.....GE 82 .. .. .. ......1

001/309 001/032....22 GE04 : 34 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

002/274 002/030....71 FI03 : 28 GE04 :
<-------------------------------> 9207.....FI .. .. .. .. 28....1

002/294 002/035....19 MI05 : 47 TO09 :
<-------------------------------> 9207.....TO .. 19 .. .. ......1

003/303 003/029....74 CA02 : 62 RO08 :
<-------------------------------> 9207.....RO 62 .. .. 74 ......1

003/305 000/038....74 GE04 : 29 MI05 :
<-------------------------------> 9207.....GE .. 74 .. .. ......1

003/312 001/026....03 BA01 : 39 TO09 :
<-------------------------------> 9207.....TO 39 .. .. .. ......1

004/283 002/008....22 CA02 : 10 MI05 : 29 PA07 : 16 RO08 : 16 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

004/292 002/035....54 FI03 : 59 NA06 :
<-------------------------------> 9207.....NA .. .. .. 59 ......1

004/308 004/026....38 RO08 : 17 VE10 :
<-------------------------------> 9207.....RO .. .. .. .. 17....1

005/278 005/033....12 CA02 : 32 RO08 :
<-------------------------------> 9207.....CA .. .. 32 .. ......1

005/285 005/025....14 GE04 : 76 RO08 :
<-------------------------------> 9207.....GE .. .. 14 .. ......1

006/288 006/022....02 MI05 : 28 TO09 :
<-------------------------------> 9207.....TO .. .. 02 .. ......1

008/280 001/013....43 FI03 : 77 GE04 : 17 NA06 :
<-------------------------------> 9207.....FI .. .. 17 .. ......1

009/286 000/029....10 BA01 : 40 CA02 :
<-------------------------------> 9207.....CA .. .. .. 40 ......1

010/294 010/030....61 GE04 : 56 MI05 :
<-------------------------------> 9207.....GE .. .. .. 61 ......1

011/303 000/031....80 FI03 : 57 VE10 :
<-------------------------------> 9207.....FI .. 80 .. .. ......1

014/268 014/035....67 MI05 : 13 TO09 :
<-------------------------------> 9207.....TO .. .. .. 67 ......1

015/291 002/037....71 BA01 : 26 FI03 :
<-------------------------------> 9207.....BA .. .. .. 71 ......1

017/299 017/056....64 CA02 : 79 CA02 :
<-------------------------------> 9207.....CA .. .. .. .. 79....1

019/298 015/037....47 BA01 : 71 NA06 :
<-------------------------------> 9207.....BA .. .. .. 71 ......1

021/302 014/037....22 NA06 : 35 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

022/272 003/014....80 BA01 : 04 FI03 : 18 TO09 :
<-------------------------------> 9207.....FI .. 80 .. .. ......1

032/283 002/014....22 FI03 : 71 RO08 : 47 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

042/289 004/032....17 FI03 : 36 MI05 :
<-------------------------------> 9207.....FI .. .. 17 .. ......1

Totale combinazioni trovate...131
Totale Combinazioni vincenti..26 per estratto
Totale combinazioni vincenti.. 02 per ambo

numerico · 2 Settembre 2016

Beppignello;n2000530 ha scritto:
....
non so con spaziometria che tipo di analisi hai fatto?, c'è qualche funzione che esegue questa elaborazione da qualche parte? prova indicarmela così posso controllare.

io ho eseguito utilizzando 'archivio dall'estrazione n.3950 alla 9206.

questo è l'esito ad 1 colpo di gioco

Situazione all'estrazione n.9206 / 30.08.2016
Elenco con numeri > di...1
__________________________________________________ _______________________________
Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota
000/276 000/036....09 FI03 : 57 RO08 :
<-------------------------------> 9207.....RO .. 57 09 .. ......1

001/279 001/014....13 CA02 : 63 GE04 : 82 PA07 :
<-------------------------------> 9207.....GE 82 .. .. .. ......1

001/309 001/032....22 GE04 : 34 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

002/274 002/030....71 FI03 : 28 GE04 :
<-------------------------------> 9207.....FI .. .. .. .. 28....1

002/294 002/035....19 MI05 : 47 TO09 :
<-------------------------------> 9207.....TO .. 19 .. .. ......1

003/303 003/029....74 CA02 : 62 RO08 :
<-------------------------------> 9207.....RO 62 .. .. 74 ......1

003/305 000/038....74 GE04 : 29 MI05 :
<-------------------------------> 9207.....GE .. 74 .. .. ......1

003/312 001/026....03 BA01 : 39 TO09 :
<-------------------------------> 9207.....TO 39 .. .. .. ......1

004/283 002/008....22 CA02 : 10 MI05 : 29 PA07 : 16 RO08 : 16 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

004/292 002/035....54 FI03 : 59 NA06 :
<-------------------------------> 9207.....NA .. .. .. 59 ......1

004/308 004/026....38 RO08 : 17 VE10 :
<-------------------------------> 9207.....RO .. .. .. .. 17....1

005/278 005/033....12 CA02 : 32 RO08 :
<-------------------------------> 9207.....CA .. .. 32 .. ......1

005/285 005/025....14 GE04 : 76 RO08 :
<-------------------------------> 9207.....GE .. .. 14 .. ......1

006/288 006/022....02 MI05 : 28 TO09 :
<-------------------------------> 9207.....TO .. .. 02 .. ......1

008/280 001/013....43 FI03 : 77 GE04 : 17 NA06 :
<-------------------------------> 9207.....FI .. .. 17 .. ......1

009/286 000/029....10 BA01 : 40 CA02 :
<-------------------------------> 9207.....CA .. .. .. 40 ......1

010/294 010/030....61 GE04 : 56 MI05 :
<-------------------------------> 9207.....GE .. .. .. 61 ......1

011/303 000/031....80 FI03 : 57 VE10 :
<-------------------------------> 9207.....FI .. 80 .. .. ......1

014/268 014/035....67 MI05 : 13 TO09 :
<-------------------------------> 9207.....TO .. .. .. 67 ......1

015/291 002/037....71 BA01 : 26 FI03 :
<-------------------------------> 9207.....BA .. .. .. 71 ......1

017/299 017/056....64 CA02 : 79 CA02 :
<-------------------------------> 9207.....CA .. .. .. .. 79....1

019/298 015/037....47 BA01 : 71 NA06 :
<-------------------------------> 9207.....BA .. .. .. 71 ......1

021/302 014/037....22 NA06 : 35 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

022/272 003/014....80 BA01 : 04 FI03 : 18 TO09 :
<-------------------------------> 9207.....FI .. 80 .. .. ......1

032/283 002/014....22 FI03 : 71 RO08 : 47 VE10 :
<-------------------------------> 9207.....VE .. 22 .. .. ......1

042/289 004/032....17 FI03 : 36 MI05 :
<-------------------------------> 9207.....FI .. .. 17 .. ......1

Totale combinazioni trovate...131
Totale Combinazioni vincenti..26 per estratto
Totale combinazioni vincenti.. 02 per ambo

Buongiorno Beppingello,

caspita quanti bei risultati al primo colpo....... e suppongo che gli altri non tarderanno molto a fare la loro comparsa!
Per quanto riguarda la tua domanda, ho fatto una semplice analisi dell'Estratto semplice per tutte le 9026 estrazioni (non essendoci indicata l'estrazione di partenza) ed è per questo che non corrispondevano le frequenze dei numeri. Ora è tutto chiaro. Ti dispiacerebbe postare lo script di questo tuo eccellente lavoro?

Grazie e buona giornata.

skygirl · 2 Settembre 2016

numerico complimenti per la ricerca
Beppignello bellissimo lavoro sempre bravissimo scripter, non vedo l'ora di provare lo script

Beppignello · 2 Settembre 2016

riflettiamo ancora un attimo, poi lo script te lo posto.

prendiamo per esempio, questa combinazione rintracciata:
032/283 002/014....22 FI03 : 71 RO08 : 47 VE10 :

al ritardo 32 e con uguale frequenza 283, si rilevano i numeri
22 Firenze
71 Roma
47 Venezia

tu suggerisci di di mettere assieme questi numeri su tutte le ruote rilevate
quindi abbiamo
FIRENZE 22 71 47
ROMA 22 71 47
VENEZIA 22 71 47

tre estratti per tre ruote, certo gli esiti ci sono in pochi colpi, ma credo proprio che nessuno abbia intenzione di mettere
in gioco (per fare un esempio) 3 euro a ruota, per vincerne 10,34.
l' utile si attesta a 1,34,
che vuol dire investire soldi al 14,88% netti
------------------------------------------------------------
tutto può sembrare semplice, se fossero costanti le vincite a colpo, ma quando ci vogliono 5,6 o più colpi per arrivare all'esito vincente
che tipo di progressione si deve impostare?

la giocata di partenza dovrebbe essere moltiplicata per circa 9 o 10 volte a colpo!

più o meno questo è il discorso.

certo questa rilevazione dei numeri ha qualche altro significato, per esempio numeri attesi convergenti su queste ruote.

Beppignello · 2 Settembre 2016

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]gen[/B](999999)
       [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]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]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]End[/B] [B]Sub[/B]

Beppignello · 2 Settembre 2016

note funzioni dello script:

1) lo script chiede fino a che estrazione si vuole elaborare i dati.
è chiaro che mette sempre in automatico l'ultima estrazione che abbiamo in archivio, ma se vogliamo fare una indagine retroattiva, che
so per fare un esempio alla 9180, lo script a questo punti evidenzierà i risultati successivi a quella estrazione che abbiamo richiesto.
lo fa in automatico, il verifica esito.

2) lo script chiede quanti numeri vuoi vedere nella combinazioni
a) poiché ci sono combinazioni con 2 numeri diversi su 1 ruota o 2 ruote
b) poiché ci sono combinazioni con 3 numeri diversi su 1 ruota o più ruote
c) poiché ci sono combinazioni con 4 numeri diversi etc..........

ho impostato la possibilità di parzializzare tutti queste combinazioni che vengono rintracciate.
com numeri > 1 praticamente si vedono tutte le combinazioni rintracciate da pari ritardo e pari frequenza.

3) lo script contempla anche la possibilità di vedere una volta rintracciata una combinazione di vedere la situazione
dei ritardi sulle 12 ruote.
per default è impostato che questa funzione non viene attivata in automatico, infatti si presenta con "NO", come scelta
ma se volessi rispondere "SI", OTTENGO per ogni ruota il ritardo attuale / ritardo massimo
potrebbe essere utile vedere se questi numeri sono attualmente in ritardo su altre ruote diverse da quelle di rilevazione.

altro non c'è nulla da aggiungere.
buon utilizzo.

numerico · 2 Settembre 2016

Beppingello, dirti grazie è dirti poco. Non ho parole per manifestarti la mia gratitudine! Per quanto riguarda la resa, con le ambate puoi giostrarle come vuoi nell'ambito della resa, tuttavia essendoci un'ampia scelta, il giocatore, in base ai propri convincimenti o altro, può scegliere le combinazioni che ritiene migliori anche per integrarle ai fini di una sorte maggiore.
Grazie ancora.

vincenzo4221 · 2 Settembre 2016

Ciao a tutti e complimenti a Beppi x lo script , volevo chiedere delucidazioni su
"Rcomb/XComb " cosa significa questo rapporto e i numeri dati, è forse il ritardo della combinazione , puoi spiegarmi meglio ?
Inoltre volevo chiederti se era possibile fare in modo che gli sfaldamenti , vengano presi in considerazione solo se avvenuti nella ruota di appartenenza; ed ancora penso che le segnalazioni migliori siano quelle con lo stesso numero su 2/3 ruote , possiamo fare in modo che questi siano evidenziati?

Beppignello · 2 Settembre 2016

"Rcomb/XComb " cosa significa questo rapporto e i numeri dati

facciamo un esempio, aggiornato ad oggi.

009/283 006/016....44 PA07 : 30 RO08 : 27 VE10 :

al ritardo 9 e con 283 di frequenza si rileva
44 PA
30 RO
27 VE

RComb 6 (Rit.della combinazione vista nel suo insieme) 44 30 27
XComb 16 (Rit.Max della combinazione vista nel suo insieme ) 44 30 27

questi valori sono relativi alle sole 3 ruote di Rilevamento PA-RO-VE.

Così ha richiesto NUMERICO,

quindi ritardo del TABELLONE 9 è una cosa diversa da ritardo della combinazione vista nella sua interezza.

in sintesi, il ragionamento è :
Rcomb = 6 ed il Xcomb il massimo è stato dal 1946 di 16, entro 10 colpi in teoria cadrà 1 numero dei 3 su una della 3 ruote. PA-RO-VE

mi sono cimentato, in questo argomento e in
questa iniziativa è da ritenersi come un doppio equilibrio instabile, dato dal ritardo e della frequenza in sincronismo.

di per sé , non è una cosa nuova questa statistica o interpretazione, ma possiamo di certo dire che script o software
che ne prendano in considerazione questa metodologia sono stati molto pochi, finora.

da oggi, per un certo periodo, non sarà più così.

vincenzo4221 · 2 Settembre 2016

GRAZIE BEPPI , sono molto grato della tua disponibilità ; si è vero in passato se avevi qualke ideuzza in merito a qualke teoria o script , e dopo aver spiegato tutto mi si rispondeva che non si sapeva più andare avanti.." i furbetti"...e dopo qualke mese..si postavano ricerche (monche) e risultati (x intero) per far bella figura.....spero proprio in una fattiva collaborazione nell'eventualità mi venisse qualke altra ideuzza.. (vedi discussione " analisi convergenti"). ciao e a presto..con buone nuove.. spero.-

Y10 · 2 Settembre 2016

Ciao Beppignello , innanzitutto , grazie per l'eccellente lavoro , volevo chiederti , essendo tu il DEUS EX MACHINA di questa innovazione , cosa giocheresti per domani sia per ambata che per tentativo di ambo. Grazie se mi risponderai . Buon serata.

Beppignello · 2 Settembre 2016

Ciao y10

2 comb. Le ho postate al #2 commento

Oggi non ho avuto tempo di controllare quello che esce da questo script

Ma da altre parti

Ho 04 44 estratto ed ambo Bari

Ho 53 77 nazionale e tutte

skygirl · 2 Settembre 2016

Beppignello;n2000666 ha scritto:
in sintesi, il ragionamento è :
Rcomb = 6 ed il Xcomb il massimo è stato dal 1946 di 16, entro 10 colpi in teoria cadrà 1 numero dei 3 su una della 3 ruote. PA-RO-VE

Beppignello volevo chiederti se è possibile fare in modo che lo script possa includere anche un indice di convenienza che sia massimo quando Rcomb=Xcomb e vada via via decrescendo

thanks

Y10 · 2 Settembre 2016

Grazie Beppignello , molto gentile , per Skygirl , sopra hai fatto una ottima richiesta speriamo sia fattibile. Buona serata ad entrambi.

Beppignello · 3 Settembre 2016

Come Previsione provo questa:

estratto 2 x 1

BA 82 e CA 61

INNOVATIVA RICERCA STATISTICA

Super Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Super Member >GOLD<

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Advanced Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Super Member >GOLD<

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Beppignello

Guest