CODICE
' Cinquine sincrone a passo x - Estratto: Ripetizione determinata ISOTOPA
Sub Main()
Dim num(5)
Dim nu(5)
Dim ruota(1)
Dim rita(5,11)
Dim max(5,11)
Dim estr(5,11)
For ep = 1 To 2
AvanzamentoElab 1,38,ep
Scrivi "-------------------------------------------------------------------passo " & ep
Scrivi
Scrivi Space(5),0,0
For rr = 1 To 10
ruota(1) = rr
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 10 Then Scrivi "posizione"
For p = 1 To 5
eini = 3950' EstrazioneFin - 1200
efin = EstrazioneFin
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
nu(1) = Estratto(i,rr,p)
estr(p,rr) = Estratto(efin - ep + 1,rr,p)
If num(1) = nu(1) Then
rita(p,rr) = 0
Else
rita(p,rr) = rita(p,rr) + 1
If max(p,rr) < rita(p,rr) Then max(p,rr) = rita(p,rr)
End If
Next
Next
Next
For z = 1 To 5
rita(z,11) = z
max(z,11) = z
estr(z,11) = z
Next
Scrivi
Scrivi "----------------------------------------ritardi attuali"
ScriviMatrice rita 'ritardi attuali
Scrivi "----------------------------------------ritardi storici"
ScriviMatrice max 'ritardi storici
ColoreTesto 1
Scrivi "Numeri in gioco per l'estrazione successiva al " & DataEstrazione(efin)
ScriviMatrice estr
ColoreTesto 0
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub
[CODE]-------------------------------------------------------------------passo 2
Ba Ca Fi Ge Mi Na Pa Ro To Ve posizione
----------------------------------------ritardi attuali
138 22 15 47 22 90 25 7 14 85 1
25 19 21 97 63 145 132 49
935 65 2
27 53 98 40 43 18 137 141 114 3 3
257 10 26 12 149 110 67 324 56 95 4
3 280 102 19 307 33 6 10 159 49 5
----------------------------------------ritardi storici
421 515 454 377 368 363 454 352 470 361 1
477 465 545 549 730 351 449 523 935 946 2
772 452 387 363 442 386 328 504 411 494 3
439 296 332 484 393 340 341 324 514 434 4
297 433 481 407 346 318 322 303 265 764 5
[CODE]