Posts written by Beppignello

Nr  Periodo  Pr.Reali  Oscillazione  ▴    Scarto  %                Ritardo RitardoMax IncrRit   IndConv
90        3777        0271        Superpresente          33 Posit.13,87%        006        087        000        0,431
86        3777        0287        Superpresente          49 Posit.20,59%        018        073        000        1,368
85        3777        0281        Superpresente          43 Posit.18,07%        003        081        000        0,223
83        3777        0274        Superpresente          36 Posit.15,13%        010        090        000        0,725
82        3777        0270        Superpresente          32 Posit.13,45%        030        062        000        2,145
81        3777        0281        Superpresente          43 Posit.18,07%        002        101        000        0,149
80        3777        0268        Superpresente          30 Posit.12,61%        001        062        000        0,071
79        3777        0278        Superpresente          40 Posit.16,81%        016        060        000        1,178
77        3777        0281        Superpresente          43 Posit.18,07%        018        085        000        1,339
68        3777        0274        Superpresente          36 Posit.15,13%        003        068        000        0,218
66        3777        0273        Superpresente          35 Posit.14,71%        004        061        000        0,289
65        3777        0269        Superpresente          31 Posit.13,03%        013        068        000        0,926
62        3777        0268        Superpresente          30 Posit.12,61%        002        073        000        0,142
55        3777        0280        Superpresente          42 Posit.17,65%        001        080        000        0,074
52        3777        0272        Superpresente          34 Posit.14,29%        004        062        000        0,288
51        3777        0267        Superpresente          29 Posit.12,18%        000        084        000        0
49        3777        0276        Superpresente          38 Posit.15,97%        017        094        000        1,242
45        3777        0272        Superpresente          34 Posit.14,29%        003        126        000        0,216
38        3777        0267        Superpresente          29 Posit.12,18%        002        075        000        0,141
19        3777        0267        Superpresente          29 Posit.12,18%        030        086        000        2,121
06        3777        0282        Superpresente          44 Posit.18,49%        001        067        000        0,075
70        3777        0236        Sottopresente          -02  Neg. -0,84%        013        082        000        0,812
64        3777        0235        Sottopresente          -03  Neg. -1,26%        020        112        000        1,244
60        3777        0219        Sottopresente          -19  Neg. -7,98%        012        100        000        0,696
59        3777        0230        Sottopresente          -08  Neg. -3,36%        028        074        000        1,705
53        3777        0229        Sottopresente          -09  Neg. -3,78%        012        084        000        0,728
50        3777        0220        Sottopresente          -18  Neg. -7,56%        008        093        000        0,466
44        3777        0237        Sottopresente          -01  Neg. -0,42%        008        109        000        0,502
36        3777        0224        Sottopresente          -14  Neg. -5,88%        000        111        000        0
31        3777        0232        Sottopresente          -06  Neg. -2,52%        018        112        000        1,106
29        3777        0234        Sottopresente          -04  Neg. -1,68%        000        083        000        0
28        3777        0237        Sottopresente          -01  Neg. -0,42%        022        115        000        1,38
27        3777        0235        Sottopresente          -03  Neg. -1,26%        008        107        000        0,498
24        3777        0231        Sottopresente          -07  Neg. -2,94%        009        127        000        0,55
23        3777        0233        Sottopresente          -05  Neg. -2,1%        002        071        000        0,123
18        3777        0216        Sottopresente          -22  Neg. -9,24%        004        108        000        0,229
13        3777        0231        Sottopresente          -07  Neg. -2,94%        010        091        000        0,612
07        3777        0232        Sottopresente          -06  Neg. -2,52%        007        098        000        0,43
05        3777        0231        Sottopresente          -07  Neg. -2,94%        004        111        000        0,245
02        3777        0224        Sottopresente          -14  Neg. -5,88%        026        096        000        1,542
89        3777        0249        Normale Min-Max        11 Posit.4,62%        048        085        000        3,164
88        3777        0262        Normale Min-Max        24 Posit.10,08%        016        067        000        1,11
87        3777        0264        Normale Min-Max        26 Posit.10,92%        013        082        000        0,909
84        3777        0251        Normale Min-Max        13 Posit.5,46%        017        099        000        1,13
78        3777        0245        Normale Min-Max        07 Posit.2,94%        020        098        000        1,297
76        3777        0247        Normale Min-Max        09 Posit.3,78%        022        085        000        1,439
75        3777        0262        Normale Min-Max        24 Posit.10,08%        002        066        000        0,139
74        3777        0253        Normale Min-Max        15 Posit.6,3%        025        110        000        1,675
73        3777        0243        Normale Min-Max        05 Posit.2,1%        011        114        000        0,708
72        3777        0254        Normale Min-Max        16 Posit.6,72%        022        094        000        1,479
71        3777        0252        Normale Min-Max        14 Posit.5,88%        001        081        000        0,067
69        3777        0243        Normale Min-Max        05 Posit.2,1%        006        090        000        0,386
67        3777        0243        Normale Min-Max        05 Posit.2,1%        018        093        000        1,158
63        3777        0258        Normale Min-Max        20 Posit.8,4%        009        081        000        0,615
61        3777        0251        Normale Min-Max        13 Posit.5,46%        010        090        000        0,665
58        3777        0241        Normale Min-Max        03 Posit.1,26%        019        077        000        1,212
57        3777        0245        Normale Min-Max        07 Posit.2,94%        027        066        000        1,751
56        3777        0260        Normale Min-Max        22 Posit.9,24%        063        088        000        4,337
54        3777        0256        Normale Min-Max        18 Posit.7,56%        006        067        000        0,407
48        3777        0258        Normale Min-Max        20 Posit.8,4%        005        097        000        0,342
47        3777        0258        Normale Min-Max        20 Posit.8,4%        017        083        000        1,161
46        3777        0240        Normale Min-Max        02 Posit.0,84%        000        092        000        0
43        3777        0261        Normale Min-Max        23 Posit.9,66%        005        107        000        0,346
42        3777        0250        Normale Min-Max        12 Posit.5,04%        014        088        000        0,927
41        3777        0262        Normale Min-Max        24 Posit.10,08%        009        058        000        0,624
40        3777        0254        Normale Min-Max        16 Posit.6,72%        001        071        000        0,067
39        3777        0266        Normale Min-Max        28 Posit.11,76%        022        076        000        1,549
37        3777        0259        Normale Min-Max        21 Posit.8,82%        048        071        000        3,292
35        3777        0248        Normale Min-Max        10 Posit.4,2%        056        075        000        3,677
34        3777        0241        Normale Min-Max        03 Posit.1,26%        000        084        000        0
33        3777        0250        Normale Min-Max        12 Posit.5,04%        007        084        000        0,463
32        3777        0262        Normale Min-Max        24 Posit.10,08%        024        094        000        1,665
30        3777        0240        Normale Min-Max        02 Posit.0,84%        003        074        000        0,191
26        3777        0238        Normale Min-Max        00  Neg. 0%        012        095        000        0,756
25        3777        0258        Normale Min-Max        20 Posit.8,4%        023        072        000        1,571
22        3777        0253        Normale Min-Max        15 Posit.6,3%        004        077        000        0,268
21        3777        0253        Normale Min-Max        15 Posit.6,3%        000        116        000        0
20        3777        0246        Normale Min-Max        08 Posit.3,36%        001        100        000        0,065
17        3777        0255        Normale Min-Max        17 Posit.7,14%        005        076        000        0,338
16        3777        0247        Normale Min-Max        09 Posit.3,78%        028        079        000        1,831
15        3777        0254        Normale Min-Max        16 Posit.6,72%        014        075        000        0,941
14        3777        0239        Normale Min-Max        01 Posit.0,42%        006        073        000        0,38
12        3777        0240        Normale Min-Max        02 Posit.0,84%        011        074        000        0,699
11        3777        0248        Normale Min-Max        10 Posit.4,2%        007        076        000        0,46
10        3777        0241        Normale Min-Max        03 Posit.1,26%        017        089        000        1,085
09        3777        0240        Normale Min-Max        02 Posit.0,84%        010        064        000        0,635
08        3777        0248        Normale Min-Max        10 Posit.4,2%        011        100        000        0,722
04        3777        0242        Normale Min-Max        04 Posit.1,68%        030        089        000        1,922
03        3777        0243        Normale Min-Max        05 Posit.2,1%        015        078        000        0,965
01        3777        0265        Normale Min-Max        27 Posit.11,34%        015        090        000        1,052

Option Explicit
Sub Main
  Dim r,n,rx,fre,Ini,fin,cam,nu,tn,Iniz,aretritardi,aretidestr,qt,rit,k,ctn,Formazione
  Dim retestratti,retidestr,t,v
  Dim rc(90,4),an(1),AR(1)
  ReDim anum(20)
  r = InputBox("Ruota",,2)
  fin = InputBox("Estraz.n.",,EstrazioneFin)
  Ini = fin - 17
  Scrivi "Ruota di " & NomeRuota(r),1,2,2
  Scrivi "Periodo : " & Ini & " " & DataEstrazione(Ini) & " / " & fin & " " & DataEstrazione(fin)
  Iniz = 3950
  t = 0
  '''loop per ritardi periodo
  For n = 1 To 90
     an(1) = n
     AR(1) = r
     rit = EstrattoRitardo(r,n,Iniz,fin)
     rc(n,1) = Format2(n)
     rc(n,2) = FormattaStringa(rit,"000")
     Call ElencoRitardiTurbo(an,AR,1,Iniz,fin,aretritardi,aretidestr)
     qt = UBound(aretritardi)
     ''''''
     ctn = 0
     If rit > 17 Then
        ReDim aretidestr(qt),aretidestr(qt)
        For k = 0 To 2
           If aretritardi(qt - k) > 18 Then
              ctn = ctn + 1
           End If
           If ctn = 3 Then
              Formazione = Formazione & Format2(n) & "."
              t = t + 1
              anum(t) = n
           End If
        Next
     End If
     '''''''''''''riepilogo numeri con presenze 0 nei 18 concorsi
     If rit > 17 Then
        cam = cam & Format2(n) & "."
        tn = tn + 1
     End If
  Next
  ''''
  Scrivi
  Scrivi "Presenze 0 Periodo: " & Ini & " / " & fin
  Scrivi "Totale Nr. " & tn & "    Numeri: " & cam,1,2,4
  Scrivi
  Scrivi "Estratti con presenze 0 e RC > 18 nel primo ciclo ",1
  Scrivi "Inoltre negli 2 Ultimi Ritardi avuti risultano maggiori di 18"
  Scrivi "Numeri Filtrati  " & Formazione,1,2,4
  Scrivi
  Scrivi "Verifica risultati nei 18 concorsi successivi dall'estrazione n." & fin + 1,1,2,3
  Scrivi "Sulla Ruota di " & SiglaRuota(r) & "    " & StringaNumeri(anum," "),1,2,2
  For v = 1 To 18
     Call VerificaEsitoTurbo(anum,AR,fin + v,1,1,,,,retestratti,retidestr)
     If retestratti <> "" Then
        Scrivi fin + 1 & " : " & retidestr & "  " & retestratti & "   Colpo n." & retidestr -(fin + 1)
     End If
  Next
End Sub