Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
dal 26.05.2012 estr. n. 8539 al 02.10.2021 estr. n. 9985
8539 Ba Mi 9788 Ba 25.55 Mi 80.12 rdla 197
8695 Ca Ge 9766 Ca 10.82 Ge 70.38 rdla 219
8868 Mi To 9727 Mi 36.87 To 45.76 rdla 258
8926 Fi Na 9853 Fi 03.61 Na 35.59 rdla 132
8939 Fi Ve 9975 Fi 83.37 Ve 54.18 rdla 10
8953 Mi To 9679 Mi 20.12 To 17.86 rdla 306
8978 Na Ve 9727 Na 69.86 Ve 87.20 rdla 258
9128 Ge Ro 9871 Ge 83.51 Ro 15.68 rdla 114
9164 Pa Ro 9982 Pa 79.01 Ro 08.76 rdla 3
9266 Fi Ge 9985 Fi 86.62 Ge 06.72 rdla 0
9309 Fi Nz 9914 Fi 10.34 Nz 81.57 rdla 71
9378 Ge Ve 9948 Ge 21.84 Ve 50.44 rdla 37
Casi attuali 12
Massimo ritardo attuale 306
Sono d'accordo!Ennesima dimostrazione,
della superiorità qualitativa della buona Statistica.
Senza calcoli e cabale .... ingenio e risultati.
Brava.
Ennesima dimostrazione,
della superiorità qualitativa della buona Statistica.
Senza calcoli e cabale .... ingenio e risultati.
Brava.
No Cinzia,Grazie, Joe. Sono pienamente d' accordo.
Per Marco-elle. Se la domanda è rivolta a me, studio il lotto non solo per passione ma anche per giocare qualcosa, si può investire solo una minima parte, che spesso è quella in quel momento non vincente. Il fatto che la giocata minima è quasi raddoppiata non aiuta di certo.
Sono d' accordo col fatto che per questo hobby trascuriamo comportamenti salutari come il camminare o andare in bicicletta.
Ma anche la mente ha bisogno di stimoli, basta conciliare le due cose.
Buona domenica a tutti.
Invece non figurano e credo che riappariranno rispettivamente quando sortiranno gli altri due ambi presenti: quello di VE 50.44 e quello di RO 08.76.
Sub Main()
Scrivi Space(18) & "RSIL ATTUALI ULTIMA COPPIA DI AMBI DI 2 CSI (Cinzia)":Scrivi
Dim a1(2),a2(2),a3(2),a4(2),a5(2),a6(2),a7(2),a8(2),a9(2),a10(2),sp(10),ru(1),n(2),nn(2)
Dim b1(2),b2(2),b3(2),b4(2),b5(2),b6(2),b7(2),b8(2),b9(2),b10(2),sp1(10),ru1(1),n1(2),nn1(2)
fin = EstrazioneFin
ini = 8539
Scrivi "dal " & DataEstrazione(ini) & " estr. n. " & ini & " al " & DataEstrazione(fin) & " estr. n. " & fin
Scrivi
qq = 1:qq1 = 2
For es = ini To fin
ex=es+1
If ex>fin Then ex=fin
For r = 1 To 10
ru(1) = r
a1(1) = Estratto(es,r,1)
If a1(1) > 0 Then
a1(2) = Estratto(es,r,2)
a2(1) = Estratto(es,r,1)
a2(2) = Estratto(es,r,3)
a3(1) = Estratto(es,r,1)
a3(2) = Estratto(es,r,4)
a4(1) = Estratto(es,r,1)
a4(2) = Estratto(es,r,5)
a5(1) = Estratto(es,r,2)
a5(2) = Estratto(es,r,3)
a6(1) = Estratto(es,r,2)
a6(2) = Estratto(es,r,4)
a7(1) = Estratto(es,r,2)
a7(2) = Estratto(es,r,5)
a8(1) = Estratto(es,r,3)
a8(2) = Estratto(es,r,4)
a9(1) = Estratto(es,r,3)
a9(2) = Estratto(es,r,5)
a10(1) = Estratto(es,r,4)
a10(2) = Estratto(es,r,5)
sp(1) = SeriePrima(ex,fin,a1,ru,2)
sp(2) = SeriePrima(ex,fin,a2,ru,2)
sp(3) = SeriePrima(ex,fin,a3,ru,2)
sp(4) = SeriePrima(ex,fin,a4,ru,2)
sp(5) = SeriePrima(ex,fin,a5,ru,2)
sp(6) = SeriePrima(ex,fin,a6,ru,2)
sp(7) = SeriePrima(ex,fin,a7,ru,2)
sp(8) = SeriePrima(ex,fin,a8,ru,2)
sp(9) = SeriePrima(ex,fin,a9,ru,2)
sp(10) = SeriePrima(ex,fin,a10,ru,2)
OrdinaMatrice(sp),1
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
ru1(1) = r1
b1(1) = Estratto(es,r1,1)
If b1(1) > 0 Then
b1(2) = Estratto(es,r1,2)
b2(1) = Estratto(es,r1,1)
b2(2) = Estratto(es,r1,3)
b3(1) = Estratto(es,r1,1)
b3(2) = Estratto(es,r1,4)
b4(1) = Estratto(es,r1,1)
b4(2) = Estratto(es,r1,5)
b5(1) = Estratto(es,r1,2)
b5(2) = Estratto(es,r1,3)
b6(1) = Estratto(es,r1,2)
b6(2) = Estratto(es,r1,4)
b7(1) = Estratto(es,r1,2)
b7(2) = Estratto(es,r1,5)
b8(1) = Estratto(es,r1,3)
b8(2) = Estratto(es,r1,4)
b9(1) = Estratto(es,r1,3)
b9(2) = Estratto(es,r1,5)
b10(1) = Estratto(es,r1,4)
b10(2) = Estratto(es,r1,5)
sp1(1) = SeriePrima(ex,fin,b1,ru1,2)
sp1(2) = SeriePrima(ex,fin,b2,ru1,2)
sp1(3) = SeriePrima(ex,fin,b3,ru1,2)
sp1(4) = SeriePrima(ex,fin,b4,ru1,2)
sp1(5) = SeriePrima(ex,fin,b5,ru1,2)
sp1(6) = SeriePrima(ex,fin,b6,ru1,2)
sp1(7) = SeriePrima(ex,fin,b7,ru1,2)
sp1(8) = SeriePrima(ex,fin,b8,ru1,2)
sp1(9) = SeriePrima(ex,fin,b9,ru1,2)
sp1(10) = SeriePrima(ex,fin,b10,ru1,2)
OrdinaMatrice(sp1),1
If sp1(qq) = 0 And sp1(qq1) > 0 Then
If sp(qq) = 0 And sp(qq1) > 0 Then
If sp(10) = sp1(10) Then
Messaggio(DataEstrazione(es) & " " & es & " " & SiglaRuota(r) & " " & SiglaRuota(r1))
casi = casi + 1
rt1 = fin - sp(10)
ColoreTesto 1
Scrivi es & " ",0,0
Scrivi sp(10) & " " & SiglaRuota(r) & " ",0,0
For p = 1 To 4
For p1 = p + 1 To 5
n(1) = Estratto(es,r,p)
n(2) = Estratto(es,r,p1)
If SerieFreq(ex,fin,n,ru,2) = 0 Then
Scrivi StringaNumeri(n) & " ",0,0
End If
Next
Next
Scrivi SiglaRuota(r1) & " ",0,0
For pp = 1 To 4
For pp1 = pp + 1 To 5
n1(1) = Estratto(es,r1,pp)
n1(2) = Estratto(es,r1,pp1)
If SerieFreq(ex,fin,n1,ru1,2) = 0 Then
Scrivi StringaNumeri(n1) & " ",0,0
End If
Next
Next
Scrivi "rdla " & rt1
If rt1 > max Then max = rt1
ColoreTesto 0
End If
End If
End If
End If
Next
End If
Next
Next
ColoreTesto 1
Scrivi "Casi attuali " & casi
Scrivi " Massimo ritardo attuale " & max,1
End Sub
'Storico RSIL 5° Estratto : 90
'Casi 6665
'RSIL > 60 : 14
'RSIL > 50 : 34
'RSIL > 40 : 106
'RSIL > 30 : 422
'-----------------------------------------
' per l' archivio dinamico
'Storico RSIL 5° estratto : 93
'Casi 4169
'RSIL > 60 : 4
'RSIL > 50 : 22
'RSIL > 40 : 64
'RSIL > 30 : 250
'Storico RSIL 5° Estratto : 90
'Casi 6665
'RSIL > 60 : 14
'RSIL > 50 : 34
'RSIL > 40 : 106
'RSIL > 30 : 422
'---------------------------------------
'Storico AGG. RSIL 5° estratto : 90
'Casi 7426
'RSIL > 60 : 16
'RSIL > 50 : 36
'RSIL > 40 : 114
'RSIL > 30 : 456
'Storico AGG. RSIL 5° estratto posizioni= : 90
'Casi 1459
'RSIL >= 60 : 3
'RSIL >= 50 : 4
'RSIL >= 40 : 9
'RSIL >= 30 : 35
'RSIL >= 20 : 167
Scrivi "RSIL attuali 5° estratti 2 ruote(Cinzia)COPPIE DI AMBATE"&chr(10)
If EstrazioniArchivio>EstrazioneFin Then Scrivi " Uscite estrazione "&EstrazioneFin+1
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),ru(1),ru1(1)
Dim s(5),ss(5),nu(1),nu1(1)
fin=EstrazioneFin
ini=fin-100
If EstrazioniArchivio=EstrazioneFin Then Scrivi "Estrazione finale "&Fin
For es=ini To fin
Messaggio(es)
For r=1 To 10
ru(1)=r
For r1=r+1 To 11
If r1=11 Then r1=12
ru1(1)=r1
n1(1)=Estratto(es,r,1)
n2(1)=Estratto(es,r,2)
n3(1)=Estratto(es,r,3)
n4(1)=Estratto(es,r,4)
n5(1)=Estratto(es,r,5)
nn1(1)=Estratto(es,r1,1)
nn2(1)=Estratto(es,r1,2)
nn3(1)=Estratto(es,r1,3)
nn4(1)=Estratto(es,r1,4)
nn5(1)=Estratto(es,r1,5)
ex=es+1
If ex<=fin Then
s(1)=SeriePrima(ex,fin,n1,ru,1)
s(2)=SeriePrima(ex,fin,n2,ru,1)
s(3)=SeriePrima(ex,fin,n3,ru,1)
s(4)=SeriePrima(ex,fin,n4,ru,1)
s(5)=SeriePrima(ex,fin,n5,ru,1)
ss(1)=SeriePrima(ex,fin,nn1,ru1,1)
ss(2)=SeriePrima(ex,fin,nn2,ru1,1)
ss(3)=SeriePrima(ex,fin,nn3,ru1,1)
ss(4)=SeriePrima(ex,fin,nn4,ru1,1)
ss(5)=SeriePrima(ex,fin,nn5,ru1,1)
OrdinaMatrice s
OrdinaMatrice ss
If s(2)>0 And ss(2)>0 Then
If s(1)=0 And ss(1)=0 Then
If s(5)=ss(5) Then
rit=fin-s(5)
'If rit>5 Then 'qui metti il ritardo
For x=1 To 5
nu(1)=Estratto(es,r,x)
For x1=1 To 5
nu1(1)=Estratto(es,r1,x1)
If SerieFreq(ex,fin,nu,ru,1)=0 And SerieFreq(ex,fin,nu1,ru1,1)=0 Then
If SerieFreq(fin+1,fin+1,nu,ru,1)>0 Or SerieFreq(fin+1,fin+1,nu1,ru1,1)>0 Then
ColoreTesto 2
Scrivi es&" "&s(5)&" "&siglaruota(r)&" "&format2(nu(1))&" "&siglaruota(r1)& _
" "&format2(nu1(1))&" ",0,0
Scrivi" rdl "&formatspace(rit,4),1,0
Scrivi" rc "&formatspace(fin-es,4)&" "&formatnumber(rit/(fin-es),2)&" COPPIA SFALDATA ALL' ESTR. N. "&fin+1&" ",0,0
If x=x1 Then Scrivi "entrambi con posizione "&x Else Scrivi
Else
ColoreTesto 0
Scrivi es&" "&s(5)&" "&siglaruota(r)&" "&format2(nu(1))&" "&siglaruota(r1)& _
" "&format2(nu1(1))&" ",0,0
Scrivi" rdl "&formatspace(rit,4),1,0
Scrivi" rc "&formatspace(fin-es,4)&" "&formatnumber(rit/(fin-es),2)&" ",0,0
If x=x1 Then Scrivi "entrambi con posizione "&x Else Scrivi
End If
End If
Next
Next
End If
End If
End If
'End If
End If
Next
Next
Next
End Sub
|
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 |
====================== |
simimi , |
====================== |
perché non hanno lo stesso RDL = 20 |
Firenze ha un RDL= 13 |
Milano ha un RDL= 21 |
====================== |
Buon martedì a tutto il forum. |
====================== |
A presto |
Silop |