Ciao Jp4, ciao a tutti
riguardo la terzina isocrona che hai segnalato a Rc 541
Estrazione del 03.02.2015
Bari 52 68 39 05 85
Cagliari 25 21 43 02 83
Firenze 32 10 25 66 29
Genova 06 37 56 73 47
Milano 45 59 23 70 27
Napoli 90 24 27
21 50Palermo 55 54 41 76 16
Roma
21 82 84 45
67Torino 47 17 37 89 22
Venezia
50 52 18
67 56
Nazionale 75 06 74 68 60
Una terzina si puņ scomporre in tre ambi;
puņ succedere che i tre ambi sortiscano
nella stessa estrazione, su tre ruote diverse.
Giocando l' intera terzina sulle tre ruote per ambo
mi risultano i seguenti storici (S.E.&O.)dal 1946
maggiori di 300 estr.
su dieci ruote, nazionale esclusa
casi 5085
[4988] 13.08.1966 Ba-Ca-To-71.55.39.61.04...28.04.06.85.73...01.06.49.34.61...04.06.61<> rit => 309
[6626] 06.08.1997 Ba-Ca-Ro-02.25.29.49.15...10.15.54.31.51...12.25.70.44.31...15.25.31<> rit => 347
[7182] 30.11.2002 Ca-Ge-Pa-76.37.19.04.75...78.90.19.11.84...34.04.11.38.15...04.11.19<> rit => 342
[7432] 06.04.2005 Fi-Ge-To-56.80.57.35.08...57.13.87.70.72...02.56.87.01.60...56.57.87<> rit => 310
[7834] 24.11.2007 Ca-Ge-Mi-87.86.77.80.57...90.59.29.21.86...90.27.77.38.32...77.86.90<> rit => 316
[9100] 28.12.2015 Ca-Fi-Mi-13.61.60.05.45...59.72.35.56.60...34.72.61.88.31...60.61.72<> rit => 308
HTML
'Storici Terzina scomposta: gioco una terzina su tre ruote
Sub Main()
Dim N(3)
Dim ru(3)
Dim k(90)
Dim m(90)
ef = EstrazioneFin
c = 0
For es = 3950 To EstrazioneFin
Messaggio es
For r1 = 1 To 8
For r2 = r1 + 1 To 9
For r3 = r2 + 1 To 10
C = 0
ru(3) = r3
ru(2) = r2
ru(1) = r1
For h = 1 To 90
m(1) = h
If SerieFreq(es,es,m,ru,1) = 2 Then
C = c + 1
k(c) = h
If C = 3 Then
N(1) = k(1)
N(2) = k(2)
N(3) = k(3)
If SerieFreq(es,es,N,ru,3) < 1 Then
casi = casi + 1
If SerieFreq(es + 1,ef,N,ru,2) > 0 Then
ri =(SeriePrima(es + 1,ef,N,ru,2)) - es - 1
If max < ri Then max = ri
If ri > 300 Then
Scrivi "[" & es & "] " & DataEstrazione(es) & " " & _
SiglaRuota(r1) & "-" & SiglaRuota(r2) & "-" & SiglaRuota(r3) & "-",0,0
Scrivi StringaEstratti(es,r1) & "...",0,0
Scrivi StringaEstratti(es,r2) & "...",0,0
Scrivi StringaEstratti(es,r3) & "...",0,0
Scrivi StringaNumeri(N) & "<> ",1,0
Scrivi " rit => " & ri & " " & max,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi casi
End Sub
Saluti
