Nel Tabellone Analitico del sistema virtuale parallelo D 7, a rc 1,nelle ruote
di Bari e Napoli, troviamo solo tre numeri: ciò significa che si è avuta una ripetizione
a colpo per ambo nelle ruote suddette.
Ciò si può verificare con il seguente output sui ritardi per ripetizione
a colpo per ambo (rit 0), output in cui si evidenzia il ritardo del SVP D79
della ruota di Roma
Storici dal 1946
Script ritardi attuali
Saluti
di Bari e Napoli, troviamo solo tre numeri: ciò significa che si è avuta una ripetizione
a colpo per ambo nelle ruote suddette.
Ciò si può verificare con il seguente output sui ritardi per ripetizione
a colpo per ambo (rit 0), output in cui si evidenzia il ritardo del SVP D79
della ruota di Roma
Codice:
26 26 4 13 31 32 5 29 12 6 D 1
32 134 32 33 57 27 13 18 81 5 D 11
9 27 10 23 28 12 1 109 12 19 D 31
5 16 60 38 39 1 18 10 50 2 D 41
56 14 82 6 23 12 52 29 180 179 D 61
8 29 54 51 29 195 12 7 30 24 D 71
42 6 19 107 55 23 1 102 37 83 D 13
92 17 50 17 49 9 156 268 2 42 D 23
87 60 4 16 5 147 9 25 27 36 D 43
107 34 111 68 27 2 50 39 98 37 D 53
10 9 15 20 4 1 45 23 10 62 D 73
2 9 86 100 45 40 38 2 11 134 D 83
0 17 3 20 66 0 27 88 54 11 D 7
20 29 26 15 17 25 17 17 137 37 D 17
35 43 5 17 17 11 10 6 32 54 D 37
32 26 18 44 30 0 40 30 23 55 D 47
12 11 15 11 113 22 75 1 17 60 D 67
11 48 14 21 126 110 159 45 38 46 D 77
76 7 62 2 5 61 51 37 8 22 D 19
15 16 11 37 24 33 11 63 19 0 D 29
43 124 38 49 25 80 57 9 36 27 D 49
5 19 4 6 10 48 8 148 46 8 D 59
3 94 40 114 86 50 60 352 3 14 D 79
27 87 63 48 14 2 22 48 7 52 D 89
67 1 26 88 20 65 24 0 45 117 D 90
BA CA FI GE MI NA PA RO TO VEStorici dal 1946
Codice:
=====================================================================================
223 180 291 234 246 152 236 240 254 250 D 1
213 242 166 261 200 187 267 246 255 229 D 11
281 186 340 235 263 180 263 290 332 192 D 31
181 244 160 246 223 228 159 233 203 259 D 41
151 247 227 239 206 234 201 185 214 179 D 61
203 281 222 202 250 245 248 233 212 276 D 71
193 221 186 275 164 314 205 272 241 246 D 13
178 208 197 244 279 308 278 268 235 187 D 23
175 402 226 191 227 196 300 226 149 394 D 43
253 191 240 197 236 199 187 222 203 224 D 53
381 308 218 298 199 254 220 314 396 279 D 73
215 268 186 125 214 264 221 337 215 213 D 83
153 199 330 275 154 192 208 219 250 155 D 7
184 202 297 234 248 300 315 302 238 164 D 17
220 247 288 282 292 326 207 284 195 216 D 37
157 330 351 266 243 327 251 240 186 185 D 47
159 210 171 201 235 212 253 222 269 201 D 67
240 161 279 323 253 304 211 238 172 223 D 77
196 288 221 221 219 281 196 210 310 255 D 19
177 220 254 170 352 184 280 188 242 212 D 29
211 152 255 263 195 219 240 250 216 199 D 49
264 259 196 219 258 157 279 194 235 320 D 59
243 162 154 286 175 285 177 352 186 218 D 79
159 151 157 302 307 313 201 277 159 303 D 89
211 223 310 214 218 179 158 166 208 144 D 90
BA CA FI GE MI NA PA RO TO VE
valore massimo 402Script ritardi attuali
Codice:
Sub Main()
Dim num(5)
Dim ruota(1)
Dim d(25)
Dim rita(25,14)
d(1) = 1 :d(2) = 11 :d(3) = 31 :d(4) = 41 :d(5) = 61 :d(6) = 71
d(7) = 13 :d(8) = 23 :d(9) = 43 :d(10) = 53 :d(11) = 73 :d(12) = 83
d(13) = 7 :d(14) = 17 :d(15) = 37 :d(16) = 47 :d(17) = 67 :d(18) = 77
d(19) = 19 :d(20) = 29 :d(21) = 49 :d(22) = 59 :d(23) = 79 :d(24) = 89
d(25) = 90
eini = EstrazioneFin - 362
efin = EstrazioneFin
For i = eini To efin
Messaggio i
For rg = 1 To 10
ruota(1) = rg
For x = 1 To 25
For p = 1 To 5
num(p) = Fuori90(Estratto(i - 1,rg,p) + d(x))
Next
If SerieFreq(i,i,num,ruota,2) > 0 Then
rita(x,rg) = 0
Else
rita(x,rg) = rita(x,rg) + 1
End If
Next
Next
Next
For h = 1 To 25
rita(h,12) = Chr(68)
rita(h,13) = d(h)
Next
For j=1 To 10
rita(26,J)=SiglaRuota(j)
Next
ScriviMatrice rita
End SubSaluti
Ultima modifica:
