Coppia di ambi residui di due cinquine sincrone isocrone

Cinzia27 · 9 Settembre 2018

Ciao a tutti.
Posto anche questo script . Penso sia gradito.
Cinzia

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)
qu = 700:qu1 = 600:qu2 = 500:qu3 = 400

fin = EstrazioneFin
ini = 8297
Scrivi "dal " & DataEstrazione(ini) & " estr. n. " & ini & " al " & DataEstrazione(fin) & " estr. n. " & fin
Scrivi
qq = 1:qq1 = 2
For es = ini To 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(es + 1,fin,a1,ru,2)
sp(2) = SeriePrima(es + 1,fin,a2,ru,2)
sp(3) = SeriePrima(es + 1,fin,a3,ru,2)
sp(4) = SeriePrima(es + 1,fin,a4,ru,2)
sp(5) = SeriePrima(es + 1,fin,a5,ru,2)
sp(6) = SeriePrima(es + 1,fin,a6,ru,2)
sp(7) = SeriePrima(es + 1,fin,a7,ru,2)
sp(8) = SeriePrima(es + 1,fin,a8,ru,2)
sp(9) = SeriePrima(es + 1,fin,a9,ru,2)
sp(10) = SeriePrima(es + 1,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(es + 1,fin,b1,ru1,2)
sp1(2) = SeriePrima(es + 1,fin,b2,ru1,2)
sp1(3) = SeriePrima(es + 1,fin,b3,ru1,2)
sp1(4) = SeriePrima(es + 1,fin,b4,ru1,2)
sp1(5) = SeriePrima(es + 1,fin,b5,ru1,2)
sp1(6) = SeriePrima(es + 1,fin,b6,ru1,2)
sp1(7) = SeriePrima(es + 1,fin,b7,ru1,2)
sp1(8) = SeriePrima(es + 1,fin,b8,ru1,2)
sp1(9) = SeriePrima(es + 1,fin,b9,ru1,2)
sp1(10) = SeriePrima(es + 1,fin,b10,ru1,2)
OrdinaMatrice(sp1),1
If sp1(qq) = 0 And sp1(qq1) > 0 And sp(qq) = 0 And sp(qq1) > 0 And sp(10) = sp1(10) Then
Messaggio(DataEstrazione(es) & " " & es & " " & SiglaRuota(r) & " " & SiglaRuota(r1))
casi = casi + 1
rt1 = fin - sp(10)

ColoreTesto 1
Scrivi es & " " & SiglaRuota(r) & " " & SiglaRuota(r1) & " ",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(es + 1,fin,n,ru,2) = 0 Then
Scrivi StringaNumeri

& " ",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(es + 1,fin,n1,ru1,2) = 0 Then
Scrivi StringaNumeri(n1) & " ",0,0
End If
Next
Next
Scrivi "rdla " & rt1
If rt1 > max Then max = rt1
Else

If sp1(1) > 0 And sp(1) > 0 And sp(10 - qq) = sp1(10 - qq) And sp(10 - qq) < sp(10 - qq + 1) And sp1(10 - qq) < sp1(10 - qq + 1) Then
Messaggio es
casi1 = casi1 + 1
ColoreTesto 0
Scrivi es & " " & sp(10 - qq) & " " & sp(10 - qq + 1) & " " & SiglaRuota(r) & " ",0,0
For k = 1 To 4
For k1 = k + 1 To 5
nn(1) = Estratto(es,r,k)
nn(2) = Estratto(es,r,k1)
If SerieFreq(es + 1,sp(10 - qq + 1) - 1,nn,ru,2) = 0 Then
ss = SeriePrima(es + 1,fin,nn,ru,2)
If ss = sp(10 - qq + 1) Then rdls = sp(10 - qq + 1) - sp(10 - qq):Scrivi StringaNumeri(nn) & " ",1,0 Else Scrivi StringaNumeri(nn) & " ",0,0
End If
'End if
Next
Next
Scrivi "rdls " & FormatSpace(rdls,4,1)
casi1 = casi1 + 1
Scrivi es & " " & sp1(10 - qq) & " " & sp1(10 - qq + 1) & " " & SiglaRuota(r1) & " ",0,0

For x = 1 To 4
For x1 = x + 1 To 5
nn1(1) = Estratto(es,r1,x)
nn1(2) = Estratto(es,r1,x1)
If SerieFreq(es + 1,sp1(10 - qq + 1) - 1,nn1,ru1,2) = 0 Then
ss1 = SeriePrima(es + 1,fin,nn1,ru1,2)
If ss1 = sp1(10 - qq + 1) Then rdls1 = sp1(10 - qq + 1) - sp1(10 - qq):Scrivi StringaNumeri(nn1) & " ",1,0 Else Scrivi StringaNumeri(nn1) & " ",0,0
End If
'End if
Next
Next
Scrivi "rdls " & FormatSpace(rdls1,4,1)
m = Minimo(rdls,rdls1)
Scrivi "RDLS MINIMO " & FormatSpace(m,4,1)
If m > mx Then mx = m
If m >= qu Then con = con + 1
If m >= qu1 Then con1 = con1 + 1
If m >= qu2 Then con2 = con2 + 1
If m >= qu3 Then con3 = con3 + 1
ColoreTesto 0
End If
End If
End If
Next

End If

Next
Next
ColoreTesto 1
Scrivi "Casi attuali " & casi
Scrivi " Massimo ritardo attuale " & max,1
Scrivi
ColoreTesto 0
Scrivi "Casi storici " & casi1
Scrivi " Massimo ritardo storico " & mx
Scrivi "st>= " & qu & " " & con
Scrivi "st>= " & qu1 & " " & con1
Scrivi "st>= " & qu2 & " " & con2
Scrivi "st>= " & qu3 & " " & con3

End Sub

Mike58 · 10 Settembre 2018

Cinzia devi postarlo in modo corretto negli appositi code # altrimenti si sformatta tutto e come vedi alcuni caratteri quali > o < vengano cambiati in & e quindi non eseguibile, pena errori vari.

Ciao prova a rimetterlo in modo corretto

Cinzia27 · 10 Settembre 2018

Scusa Mike non vedo i code #

joe · 10 Settembre 2018

L'editor avanzato si attiva cliccando sulla A sottolineata in alto sulla destra.

Se il testo ha formattazioni (html e quant'altro) è meglio usare elimina formato

che ha icona di un foglio con i segni di minore e maggiore.

Questa icona è nell'editor avanzato in alto a sinistra.

Buona serata.

Cinzia27 · 10 Settembre 2018

Grazie, Joe.
Ci provo.

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)
qu = 700:qu1 = 600:qu2 = 500:qu3 = 400

fin = EstrazioneFin
ini = 8297
Scrivi "dal " & DataEstrazione(ini) & " estr. n. " & ini & " al " & DataEstrazione(fin) & " estr. n. " & fin
Scrivi
qq = 1:qq1 = 2
For es = ini To 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(es + 1,fin,a1,ru,2)
sp(2) = SeriePrima(es + 1,fin,a2,ru,2)
sp(3) = SeriePrima(es + 1,fin,a3,ru,2)
sp(4) = SeriePrima(es + 1,fin,a4,ru,2)
sp(5) = SeriePrima(es + 1,fin,a5,ru,2)
sp(6) = SeriePrima(es + 1,fin,a6,ru,2)
sp(7) = SeriePrima(es + 1,fin,a7,ru,2)
sp(8) = SeriePrima(es + 1,fin,a8,ru,2)
sp(9) = SeriePrima(es + 1,fin,a9,ru,2)
sp(10) = SeriePrima(es + 1,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(es + 1,fin,b1,ru1,2)
sp1(2) = SeriePrima(es + 1,fin,b2,ru1,2)
sp1(3) = SeriePrima(es + 1,fin,b3,ru1,2)
sp1(4) = SeriePrima(es + 1,fin,b4,ru1,2)
sp1(5) = SeriePrima(es + 1,fin,b5,ru1,2)
sp1(6) = SeriePrima(es + 1,fin,b6,ru1,2)
sp1(7) = SeriePrima(es + 1,fin,b7,ru1,2)
sp1(8) = SeriePrima(es + 1,fin,b8,ru1,2)
sp1(9) = SeriePrima(es + 1,fin,b9,ru1,2)
sp1(10) = SeriePrima(es + 1,fin,b10,ru1,2)
OrdinaMatrice(sp1),1
If sp1(qq) = 0 And sp1(qq1) > 0 And sp(qq) = 0 And sp(qq1) > 0 And sp(10) = sp1(10) Then
Messaggio(DataEstrazione(es) & " " & es & " " & SiglaRuota(r) & " " & SiglaRuota(r1))
casi = casi + 1
rt1 = fin - sp(10)

ColoreTesto 1
Scrivi es & " " & SiglaRuota(r) & " " & SiglaRuota(r1) & " ",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(es + 1,fin,n,ru,2) = 0 Then
Scrivi StringaNumeri

& " ",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(es + 1,fin,n1,ru1,2) = 0 Then
Scrivi StringaNumeri(n1) & " ",0,0
End If
Next
Next
Scrivi "rdla " & rt1
If rt1 > max Then max = rt1
Else

If sp1(1) > 0 And sp(1) > 0 And sp(10 - qq) = sp1(10 - qq) And sp(10 - qq) < sp(10 - qq + 1) And sp1(10 - qq) < sp1(10 - qq + 1) Then
Messaggio es
casi1 = casi1 + 1
ColoreTesto 0
Scrivi es & " " & sp(10 - qq) & " " & sp(10 - qq + 1) & " " & SiglaRuota(r) & " ",0,0
For k = 1 To 4
For k1 = k + 1 To 5
nn(1) = Estratto(es,r,k)
nn(2) = Estratto(es,r,k1)
If SerieFreq(es + 1,sp(10 - qq + 1) - 1,nn,ru,2) = 0 Then
ss = SeriePrima(es + 1,fin,nn,ru,2)
If ss = sp(10 - qq + 1) Then rdls = sp(10 - qq + 1) - sp(10 - qq):Scrivi StringaNumeri(nn) & " ",1,0 Else Scrivi StringaNumeri(nn) & " ",0,0
End If
'End if
Next
Next
Scrivi "rdls " & FormatSpace(rdls,4,1)
casi1 = casi1 + 1
Scrivi es & " " & sp1(10 - qq) & " " & sp1(10 - qq + 1) & " " & SiglaRuota(r1) & " ",0,0

For x = 1 To 4
For x1 = x + 1 To 5
nn1(1) = Estratto(es,r1,x)
nn1(2) = Estratto(es,r1,x1)
If SerieFreq(es + 1,sp1(10 - qq + 1) - 1,nn1,ru1,2) = 0 Then
ss1 = SeriePrima(es + 1,fin,nn1,ru1,2)
If ss1 = sp1(10 - qq + 1) Then rdls1 = sp1(10 - qq + 1) - sp1(10 - qq):Scrivi StringaNumeri(nn1) & " ",1,0 Else Scrivi StringaNumeri(nn1) & " ",0,0
End If
'End if
Next
Next
Scrivi "rdls " & FormatSpace(rdls1,4,1)
m = Minimo(rdls,rdls1)
Scrivi "RDLS MINIMO " & FormatSpace(m,4,1)
If m > mx Then mx = m
If m >= qu Then con = con + 1
If m >= qu1 Then con1 = con1 + 1
If m >= qu2 Then con2 = con2 + 1
If m >= qu3 Then con3 = con3 + 1
ColoreTesto 0
End If
End If
End If
Next

End If

Next
Next
ColoreTesto 1
Scrivi "Casi attuali " & casi
Scrivi " Massimo ritardo attuale " & max,1
Scrivi
ColoreTesto 0
Scrivi "Casi storici " & casi1
Scrivi " Massimo ritardo storico " & mx
Scrivi "st>= " & qu & " " & con
Scrivi "st>= " & qu1 & " " & con1
Scrivi "st>= " & qu2 & " " & con2
Scrivi "st>= " & qu3 & " " & con3

End Sub

Cinzia27 · 10 Settembre 2018

Codice:

    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)
    qu = 700:qu1 = 600:qu2 = 500:qu3 = 400

    fin = EstrazioneFin
    ini = 8297
    Scrivi "dal " & DataEstrazione(ini) & " estr. n. " & ini & " al " & DataEstrazione(fin) & " estr. n. " & fin
    Scrivi
    qq = 1:qq1 = 2
    For es = ini To 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(es + 1,fin,a1,ru,2)
    sp(2) = SeriePrima(es + 1,fin,a2,ru,2)
    sp(3) = SeriePrima(es + 1,fin,a3,ru,2)
    sp(4) = SeriePrima(es + 1,fin,a4,ru,2)
    sp(5) = SeriePrima(es + 1,fin,a5,ru,2)
    sp(6) = SeriePrima(es + 1,fin,a6,ru,2)
    sp(7) = SeriePrima(es + 1,fin,a7,ru,2)
    sp(8) = SeriePrima(es + 1,fin,a8,ru,2)
    sp(9) = SeriePrima(es + 1,fin,a9,ru,2)
    sp(10) = SeriePrima(es + 1,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(es + 1,fin,b1,ru1,2)
    sp1(2) = SeriePrima(es + 1,fin,b2,ru1,2)
    sp1(3) = SeriePrima(es + 1,fin,b3,ru1,2)
    sp1(4) = SeriePrima(es + 1,fin,b4,ru1,2)
    sp1(5) = SeriePrima(es + 1,fin,b5,ru1,2)
    sp1(6) = SeriePrima(es + 1,fin,b6,ru1,2)
    sp1(7) = SeriePrima(es + 1,fin,b7,ru1,2)
    sp1(8) = SeriePrima(es + 1,fin,b8,ru1,2)
    sp1(9) = SeriePrima(es + 1,fin,b9,ru1,2)
    sp1(10) = SeriePrima(es + 1,fin,b10,ru1,2)
    OrdinaMatrice(sp1),1
    If sp1(qq) = 0 And sp1(qq1) > 0 And sp(qq) = 0 And sp(qq1) > 0 And sp(10) = sp1(10) Then
    Messaggio(DataEstrazione(es) & " " & es & " " & SiglaRuota(r) & " " & SiglaRuota(r1))
    casi = casi + 1
    rt1 = fin - sp(10)

    ColoreTesto 1
    Scrivi es & " " & SiglaRuota(r) & " " & SiglaRuota(r1) & " ",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(es + 1,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(es + 1,fin,n1,ru1,2) = 0 Then
    Scrivi StringaNumeri(n1) & " ",0,0
    End If
    Next
    Next
    Scrivi "rdla " & rt1
    If rt1 > max Then max = rt1
    Else

    If sp1(1) > 0 And sp(1) > 0 And sp(10 - qq) = sp1(10 - qq) And sp(10 - qq) < sp(10 - qq + 1) And sp1(10 - qq) < sp1(10 - qq + 1) Then
    Messaggio es
    casi1 = casi1 + 1
    ColoreTesto 0
    Scrivi es & " " & sp(10 - qq) & " " & sp(10 - qq + 1) & " " & SiglaRuota(r) & " ",0,0
    For k = 1 To 4
    For k1 = k + 1 To 5
    nn(1) = Estratto(es,r,k)
    nn(2) = Estratto(es,r,k1)
    If SerieFreq(es + 1,sp(10 - qq + 1) - 1,nn,ru,2) = 0 Then
    ss = SeriePrima(es + 1,fin,nn,ru,2)
    If ss = sp(10 - qq + 1) Then rdls = sp(10 - qq + 1) - sp(10 - qq):Scrivi StringaNumeri(nn) & " ",1,0 Else Scrivi StringaNumeri(nn) & " ",0,0
    End If
    'End if
    Next
    Next
    Scrivi "rdls " & FormatSpace(rdls,4,1)
    casi1 = casi1 + 1
    Scrivi es & " " & sp1(10 - qq) & " " & sp1(10 - qq + 1) & " " & SiglaRuota(r1) & " ",0,0

    For x = 1 To 4
    For x1 = x + 1 To 5
    nn1(1) = Estratto(es,r1,x)
    nn1(2) = Estratto(es,r1,x1)
    If SerieFreq(es + 1,sp1(10 - qq + 1) - 1,nn1,ru1,2) = 0 Then
    ss1 = SeriePrima(es + 1,fin,nn1,ru1,2)
    If ss1 = sp1(10 - qq + 1) Then rdls1 = sp1(10 - qq + 1) - sp1(10 - qq):Scrivi StringaNumeri(nn1) & " ",1,0 Else Scrivi StringaNumeri(nn1) & " ",0,0
    End If
    'End if
    Next
    Next
    Scrivi "rdls " & FormatSpace(rdls1,4,1)
    m = Minimo(rdls,rdls1)
    Scrivi "RDLS MINIMO " & FormatSpace(m,4,1)
    If m > mx Then mx = m
    If m >= qu Then con = con + 1
    If m >= qu1 Then con1 = con1 + 1
    If m >= qu2 Then con2 = con2 + 1
    If m >= qu3 Then con3 = con3 + 1
    ColoreTesto 0
    End If
    End If
    End If
    Next

    End If

    Next
    Next
    ColoreTesto 1
    Scrivi "Casi attuali " & casi
    Scrivi " Massimo ritardo attuale " & max,1
    Scrivi
    ColoreTesto 0
    Scrivi "Casi storici " & casi1
    Scrivi " Massimo ritardo storico " & mx
    Scrivi "st>= " & qu & " " & con
    Scrivi "st>= " & qu1 & " " & con1
    Scrivi "st>= " & qu2 & " " & con2
    Scrivi "st>= " & qu3 & " " & con3


    End Sub

Fatemi sapere se è copiabile.
Cinzia

Nikor · 10 Settembre 2018

Ciao Cinzia…. non ho avuto modo di testare a fondo il listato per mancanza di tempo.

Da una prima analisi mi pare ( correggimi se sbaglio ) che l’algoritmo tiene in considerazione solo il primo caso che trova , ovvero trovata una condizione sulle prime 2 ruote delle 55 combinazioni possibili salti alla prossima estrazione.

Potrebbe essere una mia errata interpretazione ed appena trovato del tempo valuterò con più attenzione!

Come sappiamo al momento attuale ci sono 2 ambi residui al di sopra delle 3.000 estrazioni…… che derivano dal tuo interessante concetto!

Comunque tanto di cappello , un listato molto ma molto interessante !!!

Domani farò altre prove…

Nikor.

Mike58 · 10 Settembre 2018

Si Cinzia così è eseguibile anche se i tempi di elaborazione sono abbastanza pesanti.
Anche se per onestà debbo dire che non ho ben compreso lo scopo e la raccolta dati.

ok comunque.

Mat · 11 Settembre 2018

Un saluto a tutto il forum dopo una mia lunga assenza,
ora però leggendo questo post non potevo far mancare i miei complimenti ed apprezzamenti per Cinzia per questo script, semplicemente perfetto.
Qualche volta in passato ho segnalato questi ambi, ma anche i biambi ed i triambi con queste caratteristiche, ma ora a memoria non mi sembra di essere riuscito a ricavare gli storici.
Con questo tuo script ora è possibile e sappiamo che il massimo storico per la sortita di uno dei due ambi è stata di solo 986 estraz.
Peccato che la casistica sia solo di 444 biambi dal 1939 e quindi non dia molto affidamento, però si possono ipotizzare più coppie di ambi o anche tutte le attuali per la sortita di un ambo.
Confermo per certo l'esattezza dei casi attuali, mentre per gli storici ho controllato alcuni miei casi del passato e sono giusti.
Vi allego il risultato dello script dal 1939 con il resoconto finale ( ho evidenziato i casi attuali), grazie per l'ottimo lavoro ( quante volte ti avrò detto grazie in questi anni non lo so) ciao a tutti

Matteo

RSIL ATTUALI ULTIMA COPPIA DI AMBI DI 2 CSI (Cinzia)

dal 08.07.1939 estr. n. 3575 al 08.09.2018 estr. n. 9523

3586 4158 4723 Ba 54.29 rdls 565
3586 4158 4287 Pa 42.48 rdls 129
RDLS MINIMO 129
3597 4477 5283 Pa 10.38 rdls 806
3597 4477 5288 Ro 14.82 rdls 811
RDLS MINIMO 806
3603 4210 5550 Mi 72.62 rdls 1340
3603 4210 4300 Ve 46.80 rdls 90
RDLS MINIMO 90
3616 4652 6328 Ba 57.51 rdls 1676
3616 4652 5542 Ro 72.34 rdls 890
RDLS MINIMO 890
3630 4495 5037 Ca 76.33 rdls 542
3630 4495 4694 Pa 55.35 rdls 199
RDLS MINIMO 199
3635 4203 4839 Fi 21.71 rdls 636
3635 4203 4484 Ro 09.02 rdls 281
RDLS MINIMO 281
3641 4627 4965 Na 62.41 rdls 338
3641 4627 4980 Ve 12.14 rdls 353
RDLS MINIMO 338
3665 4157 4479 Fi 38.09 rdls 322
3665 4157 4316 Pa 29.85 rdls 159
RDLS MINIMO 159
3679 4393 5006 Ro 43.20 rdls 613
3679 4393 5027 Ve 63.53 rdls 634
RDLS MINIMO 613
3688 4440 4630 Ca 60.85 rdls 190
3688 4440 5010 Pa 22.36 rdls 570
RDLS MINIMO 190
3702 4466 5121 Ba 80.54 rdls 655
3702 4466 4522 Ve 18.33 rdls 56
RDLS MINIMO 56
3722 4398 4460 Ba 23.16 rdls 62
3722 4398 4762 Ca 53.74 rdls 364
RDLS MINIMO 62
3876 4226 4777 Ca 12.88 rdls 551
3876 4226 4498 Mi 33.23 rdls 272
RDLS MINIMO 272
3885 4472 4854 Na 43.57 rdls 382
3885 4472 4629 Ro 83.80 rdls 157
RDLS MINIMO 157
3887 4806 5341 Ba 33.17 rdls 535
3887 4806 5007 Na 42.06 rdls 201
RDLS MINIMO 201
3942 4623 4647 Ba 20.46 rdls 24
3942 4623 5002 To 09.27 rdls 379
RDLS MINIMO 24
3998 4810 5070 Ba 79.45 rdls 260
3998 4810 4960 Ro 09.72 rdls 150
RDLS MINIMO 150
4021 4678 5064 Ge 62.33 rdls 386
4021 4678 4905 Na 67.02 rdls 227
RDLS MINIMO 227
4024 4556 4725 Ge 38.73 rdls 169
4024 4556 5382 Ve 56.74 rdls 826
RDLS MINIMO 169
4054 4825 4899 Ba 26.03 rdls 74
4054 4825 5016 Ve 09.71 rdls 191
RDLS MINIMO 74
4055 5095 5474 Pa 14.81 rdls 379
4055 5095 5320 To 16.74 rdls 225
RDLS MINIMO 225
4099 4915 4948 Pa 73.12 rdls 33
4099 4915 5030 Ve 30.85 rdls 115
RDLS MINIMO 33
4155 5381 7382 Ba 19.29 rdls 2001
4155 5381 5939 Ro 86.57 rdls 558
RDLS MINIMO 558
4181 4862 5099 Fi 90.36 rdls 237
4181 4862 4922 Ro 82.62 rdls 60
RDLS MINIMO 60
4184 4983 5093 Mi 59.36 rdls 110
4184 4983 5714 To 52.34 rdls 731
RDLS MINIMO 110
4250 5326 5740 Ca 18.87 rdls 414
4250 5326 5737 Ro 37.28 rdls 411
RDLS MINIMO 411
4261 5307 5970 Na 60.79 rdls 663
4261 5307 5518 To 59.78 rdls 211
RDLS MINIMO 211
4265 4906 5800 Ge 54.89 rdls 894
4265 4906 5169 To 06.40 rdls 263
RDLS MINIMO 263
4313 5447 5708 Ba 38.16 rdls 261
4313 5447 5678 To 21.43 rdls 231
RDLS MINIMO 231
4336 4843 5348 Na 52.75 rdls 505
4336 4843 5144 To 18.71 rdls 301
RDLS MINIMO 301
4376 5163 5625 Fi 13.62 rdls 462
4376 5163 5389 Na 66.53 rdls 226
RDLS MINIMO 226
4413 5319 5514 Mi 40.50 rdls 195
4413 5319 5392 Ve 52.21 rdls 73
RDLS MINIMO 73
4433 5188 5303 Ca 82.59 rdls 115
4433 5188 5269 Mi 77.07 rdls 81
RDLS MINIMO 81
4463 5177 5267 Fi 01.39 rdls 90
4463 5177 5864 Mi 38.37 rdls 687
RDLS MINIMO 90
4466 5160 5241 Ge 50.54 rdls 81
4466 5160 5448 Ve 49.38 rdls 288
RDLS MINIMO 81
4467 5178 5860 Fi 75.16 rdls 682
4467 5178 5190 Na 73.27 rdls 12
RDLS MINIMO 12
4493 5172 5743 Fi 53.36 rdls 571
4493 5172 5228 Pa 35.76 rdls 56
RDLS MINIMO 56
4585 5043 5382 Pa 81.63 rdls 339
4585 5043 5270 To 77.43 rdls 227
RDLS MINIMO 227
4591 5325 5420 Ca 62.87 rdls 95
4591 5325 5572 Ro 77.07 rdls 247
RDLS MINIMO 95
4592 5356 5579 Fi 18.89 rdls 223
4592 5356 5456 Ve 07.52 rdls 100
RDLS MINIMO 100
4617 5243 5331 Fi 77.12 rdls 88
4617 5243 6111 Mi 27.41 rdls 868
RDLS MINIMO 88
4645 4940 5402 Ca 61.02 rdls 462
4645 4940 5144 Pa 17.31 rdls 204
RDLS MINIMO 204
4657 5258 5282 Ba 35.82 rdls 24
4657 5258 5271 Na 24.03 rdls 13
RDLS MINIMO 13
4671 5222 5554 Fi 26.84 rdls 332
4671 5222 6149 To 83.79 rdls 927
RDLS MINIMO 332
4700 5475 5606 Fi 39.27 rdls 131
4700 5475 5909 Pa 88.02 rdls 434
RDLS MINIMO 131
4714 5279 5583 Fi 34.06 rdls 304
4714 5279 6650 Ge 34.46 rdls 1371
RDLS MINIMO 304
4752 5959 5976 Ro 55.51 rdls 17
4752 5959 6300 To 75.34 rdls 341
RDLS MINIMO 17
4757 5384 5556 Ba 68.19 rdls 172
4757 5384 5406 Ca 66.42 rdls 22
RDLS MINIMO 22
4767 5203 5358 Ca 43.81 rdls 155
4767 5203 5441 Ro 09.59 rdls 238
RDLS MINIMO 155
4812 5492 6685 Ca 53.05 rdls 1193
4812 5492 5575 Pa 39.84 rdls 83
RDLS MINIMO 83
4818 5254 5513 Pa 05.66 rdls 259
4818 5254 5631 To 48.36 rdls 377
RDLS MINIMO 259
4821 5207 6193 Ge 18.30 rdls 986
4821 5207 6535 Ro 07.35 rdls 1328
RDLS MINIMO 986
4863 5525 6190 To 86.82 rdls 665
4863 5525 6092 Ve 84.87 rdls 567
RDLS MINIMO 567
4871 5674 5921 Fi 79.17 rdls 247
4871 5674 6243 Mi 58.46 rdls 569
RDLS MINIMO 247
4877 5760 6666 Mi 65.64 rdls 906
4877 5760 6157 Na 17.65 rdls 397
RDLS MINIMO 397
4888 5433 6159 Mi 81.83 rdls 726
4888 5433 6403 To 88.13 rdls 970
RDLS MINIMO 726
4896 5927 6076 Na 69.84 rdls 149
4896 5927 6501 Ro 20.49 rdls 574
RDLS MINIMO 149
4919 6324 6477 Mi 26.86 rdls 153
4919 6324 7057 Pa 70.48 rdls 733
RDLS MINIMO 153
4959 5742 5757 Ge 44.88 rdls 15
4959 5742 5774 To 27.84 rdls 32
RDLS MINIMO 15
5052 5864 5997 Fi 48.57 rdls 133
5052 5864 5897 Ve 41.06 rdls 33
RDLS MINIMO 33
5059 5619 5946 Fi 59.45 rdls 327
5059 5619 7419 Ro 12.08 rdls 1800
RDLS MINIMO 327
5074 5695 5844 Ca 85.38 rdls 149
5074 5695 5800 Mi 18.17 rdls 105
RDLS MINIMO 105
5089 5751 6385 Mi 05.60 rdls 634
5089 5751 6087 Ro 75.63 rdls 336
RDLS MINIMO 336
5090 5854 6072 Na 89.14 rdls 218
5090 5854 6205 Ve 82.07 rdls 351
RDLS MINIMO 218
5142 5982 6662 Fi 82.65 rdls 680
5142 5982 6175 Na 15.67 rdls 193
RDLS MINIMO 193
5183 5933 6869 Ge 21.36 rdls 936
5183 5933 6225 Na 56.52 rdls 292
RDLS MINIMO 292
5194 5742 5912 Ba 75.50 rdls 170
5194 5742 5793 Ro 43.59 rdls 51
RDLS MINIMO 51
5205 5948 5995 Ca 64.58 rdls 47
5205 5948 6317 Mi 10.70 rdls 369
RDLS MINIMO 47
5239 6087 6340 Ca 89.68 rdls 253
5239 6087 6425 Na 76.56 rdls 338
RDLS MINIMO 253
5240 5805 5835 Na 37.34 rdls 30
5240 5805 5859 Ro 22.43 rdls 54
RDLS MINIMO 30
5285 5898 6020 Ge 87.21 rdls 122
5285 5898 6200 Ve 23.41 rdls 302
RDLS MINIMO 122
5343 5999 6102 Fi 73.67 rdls 103
5343 5999 6323 Ve 26.41 rdls 324
RDLS MINIMO 103
5357 5760 5835 Ge 16.10 rdls 75
5357 5760 6509 Ro 88.19 rdls 749
RDLS MINIMO 75
5464 6148 6370 Ca 45.78 rdls 222
5464 6148 6494 To 47.35 rdls 346
RDLS MINIMO 222
5480 5994 6075 To 46.27 rdls 81
5480 5994 6089 Ve 44.77 rdls 95
RDLS MINIMO 81
5489 6524 7101 Ge 08.01 rdls 577
5489 6524 7318 Pa 84.25 rdls 794
RDLS MINIMO 577
5494 6412 6987 Ge 60.61 rdls 575
5494 6412 6428 To 78.19 rdls 16
RDLS MINIMO 16
5507 6206 6609 Ge 71.30 rdls 403
5507 6206 6613 Pa 85.34 rdls 407
RDLS MINIMO 403
5527 6318 6569 Ba 02.46 rdls 251
5527 6318 6735 Pa 68.18 rdls 417
RDLS MINIMO 251
5532 6804 8162 Na 64.60 rdls 1358
5532 6804 6968 Ro 71.01 rdls 164
RDLS MINIMO 164
5533 6076 6542 Ge 07.67 rdls 466
5533 6076 7308 Ro 64.54 rdls 1232
RDLS MINIMO 466
5574 6435 6905 Ge 47.60 rdls 470
5574 6435 6533 Ro 34.64 rdls 98
RDLS MINIMO 98
5601 6952 7504 Ba 21.10 rdls 552
5601 6952 7362 Mi 67.90 rdls 410
RDLS MINIMO 410
5602 6478 7778 Ca 35.03 rdls 1300
5602 6478 6706 Ge 31.16 rdls 228
RDLS MINIMO 228
5646 6340 6745 Fi 31.54 rdls 405
5646 6340 6643 Ge 74.30 rdls 303
RDLS MINIMO 303
5652 6020 6195 Mi 53.44 rdls 175
5652 6020 6408 Pa 54.60 rdls 388
RDLS MINIMO 175
5658 6403 6903 Ge 35.12 rdls 500
5658 6403 6418 Mi 01.79 rdls 15
RDLS MINIMO 15
5662 6245 6600 Mi 72.29 rdls 355
5662 6245 6803 Ve 34.64 rdls 558
RDLS MINIMO 355
5694 6352 6735 Fi 36.48 rdls 383
5694 6352 6814 Ro 13.90 rdls 462
RDLS MINIMO 383
5704 6774 6825 Ba 20.90 rdls 51
5704 6774 6875 Ro 24.20 rdls 101
RDLS MINIMO 51
5768 6380 6615 Ba 59.21 rdls 235
5768 6380 6804 Mi 40.74 rdls 424
RDLS MINIMO 235
5782 6541 6790 Ge 58.12 rdls 249
5782 6541 6703 Mi 08.69 rdls 162
RDLS MINIMO 162
5790 6777 7121 Fi 83.78 rdls 344
5790 6777 6793 Mi 88.06 rdls 16
RDLS MINIMO 16
5818 6504 6610 Ba 86.71 rdls 106
5818 6504 7518 Fi 05.19 rdls 1014
RDLS MINIMO 106
5845 6900 7103 Fi 87.04 rdls 203
5845 6900 7284 Ge 35.52 rdls 384
RDLS MINIMO 203
5847 6511 6646 Ge 03.06 rdls 135
5847 6511 6566 Ve 90.77 rdls 55
RDLS MINIMO 55
5855 6592 6720 Fi 79.09 rdls 128
5855 6592 7319 Mi 17.10 rdls 727
RDLS MINIMO 128
5896 6411 7112 Mi 31.48 rdls 701
5896 6411 6492 To 31.86 rdls 81
RDLS MINIMO 81
5922 6567 7341 Na 24.05 rdls 774
5922 6567 7227 Ro 69.65 rdls 660
RDLS MINIMO 660
5946 6474 6642 Fi 16.45 rdls 168
5946 6474 6487 To 80.28 rdls 13
RDLS MINIMO 13
5960 6557 7830 Na 37.30 rdls 1273
5960 6557 6610 Pa 66.80 rdls 53
RDLS MINIMO 53
5974 6919 7054 Ca 52.22 rdls 135
5974 6919 7721 Ge 21.34 rdls 802
RDLS MINIMO 135
5981 6658 6731 Ca 49.70 rdls 73
5981 6658 6889 Fi 67.66 rdls 231
RDLS MINIMO 73
5996 6562 6668 Na 73.17 rdls 106
5996 6562 6916 Ro 14.05 rdls 354
RDLS MINIMO 106
6016 6642 6664 Ba 13.65 rdls 22
6016 6642 6768 Pa 15.67 rdls 126
RDLS MINIMO 22
6026 6488 6756 Ba 04.01 rdls 268
6026 6488 7177 Ge 05.26 rdls 689
RDLS MINIMO 268
6029 6789 7021 Na 06.43 rdls 232
6029 6789 6880 To 36.46 rdls 91
RDLS MINIMO 91
6032 7087 7904 Ca 45.26 rdls 817
6032 7087 8860 Ve 71.45 rdls 1773
RDLS MINIMO 817
6033 6518 6957 Ba 01.27 rdls 439
6033 6518 6567 Na 86.34 rdls 49
RDLS MINIMO 49
6097 6769 6928 Mi 41.03 rdls 159
6097 6769 7210 Na 12.59 rdls 441
RDLS MINIMO 159
6149 6725 7030 Mi 58.25 rdls 305
6149 6725 6771 Ve 59.39 rdls 46
RDLS MINIMO 46
6190 6875 7210 Ba 58.25 rdls 335
6190 6875 7223 To 41.82 rdls 348
RDLS MINIMO 335
6212 6867 7019 Mi 43.57 rdls 152
6212 6867 7562 To 61.41 rdls 695
RDLS MINIMO 152
6241 6779 6908 Mi 83.18 rdls 129
6241 6779 7401 Ro 53.43 rdls 622
RDLS MINIMO 129
6250 6927 6965 Ba 41.15 rdls 38
6250 6927 7670 Mi 27.30 rdls 743
RDLS MINIMO 38
6280 6925 7556 Fi 90.02 rdls 631
6280 6925 7106 To 19.77 rdls 181
RDLS MINIMO 181
6291 7060 7067 Mi 49.03 rdls 7
6291 7060 7389 Ve 16.33 rdls 329
RDLS MINIMO 7
6312 7003 7359 Mi 11.27 rdls 356
6312 7003 7356 Ro 75.90 rdls 353
RDLS MINIMO 353
6313 6894 7106 Ba 03.48 rdls 212
6313 6894 7151 To 24.45 rdls 257
RDLS MINIMO 212
6317 7021 7656 Ba 89.55 rdls 635
6317 7021 7600 Fi 05.41 rdls 579
RDLS MINIMO 579
6360 7109 7722 Ge 17.74 rdls 613
6360 7109 7703 Pa 10.63 rdls 594
RDLS MINIMO 594
6361 7192 7722 Ba 50.32 rdls 530
6361 7192 7313 Ca 43.51 rdls 121
RDLS MINIMO 121
6366 6856 7588 Fi 14.67 rdls 732
6366 6856 7230 Ge 29.32 rdls 374
RDLS MINIMO 374
6402 6898 8625 Ro 30.15 rdls 1727
6402 6898 7653 Ve 35.53 rdls 755
RDLS MINIMO 755
6408 7056 7086 Mi 36.20 rdls 30
6408 7056 7336 Ro 57.06 rdls 280
RDLS MINIMO 30
6434 7011 7878 Ge 57.39 rdls 867
6434 7011 7466 Mi 76.77 rdls 455
RDLS MINIMO 455
6444 7183 7716 To 57.58 rdls 533
6444 7183 7593 Ve 76.47 rdls 410
RDLS MINIMO 410
6457 7532 8281 Ca 77.63 rdls 749
6457 7532 7677 Mi 26.61 rdls 145
RDLS MINIMO 145
6500 6923 7322 Ba 79.15 rdls 399
6500 6923 7863 Na 77.26 rdls 940
RDLS MINIMO 399
6509 7274 7473 Ca 46.64 rdls 199
6509 7274 8291 Fi 36.26 rdls 1017
RDLS MINIMO 199
6526 7602 8648 Ge 18.06 rdls 1046
6526 7602 7701 Ve 03.78 rdls 99
RDLS MINIMO 99
6586 7454 8079 Mi 13.66 rdls 625
6586 7454 7508 To 09.59 rdls 54
RDLS MINIMO 54
6588 7434 8584 Mi 55.25 rdls 1150
6588 7434 8070 Na 79.34 rdls 636
RDLS MINIMO 636
6589 7353 8294 Mi 28.80 rdls 941
6589 7353 7763 Ro 81.75 rdls 410
RDLS MINIMO 410
6594 7286 8133 Ge 17.48 rdls 847
6594 7286 7695 Ve 85.77 rdls 409
RDLS MINIMO 409
6619 7043 7290 Fi 66.43 rdls 247
6619 7043 7179 Pa 24.43 rdls 136
RDLS MINIMO 136
6639 7078 7896 Ro 14.65 rdls 818
6639 7078 7122 To 66.17 rdls 44
RDLS MINIMO 44
6645 7270 7287 Mi 60.81 rdls 17
6645 7270 7599 Ve 12.58 rdls 329
RDLS MINIMO 17
6660 7388 7991 Ca 71.90 rdls 603
6660 7388 7500 Na 34.45 rdls 112
RDLS MINIMO 112
6663 7544 7914 Ba 40.50 rdls 370
6663 7544 8853 Mi 43.60 rdls 1309
RDLS MINIMO 370
6720 7178 7222 Na 15.27 rdls 44
6720 7178 7208 To 90.70 rdls 30
RDLS MINIMO 30
6744 7523 8463 Mi 59.27 rdls 940
6744 7523 7685 Pa 20.60 rdls 162
RDLS MINIMO 162
6744 7523 8463 Mi 59.27 rdls 940
6744 7523 8974 To 71.02 rdls 1451
RDLS MINIMO 940
6744 7523 7685 Pa 20.60 rdls 162
6744 7523 8974 To 71.02 rdls 1451
RDLS MINIMO 162
6773 7465 8175 Pa 54.36 rdls 710
6773 7465 8080 Ve 23.79 rdls 615
RDLS MINIMO 615
6790 7505 7954 Ba 51.33 rdls 449
6790 7505 7687 Ro 04.40 rdls 182
RDLS MINIMO 182
6796 7876 8177 Mi 81.38 rdls 301
6796 7876 8276 To 33.52 rdls 400
RDLS MINIMO 301
6800 7396 7850 Ba 40.33 rdls 454
6800 7396 7529 Fi 59.77 rdls 133
RDLS MINIMO 133
6831 7292 7432 Ge 57.72 rdls 140
6831 7292 7461 Ro 05.55 rdls 169
RDLS MINIMO 140
6846 7534 8036 Ge 48.87 rdls 502
6846 7534 8116 To 30.60 rdls 582
RDLS MINIMO 502
6864 7537 8165 Ge 85.29 rdls 628
6864 7537 7960 Na 73.51 rdls 423
RDLS MINIMO 423
6868 7438 7466 Fi 32.39 rdls 28
6868 7438 8076 Mi 83.80 rdls 638
RDLS MINIMO 28
6890 8002 8663 Ge 71.60 rdls 661
6890 8002 8834 Na 25.53 rdls 832
RDLS MINIMO 661
6903 8256 9085 Fi 09.27 rdls 829
6903 8256 9033 Ge 33.35 rdls 777
RDLS MINIMO 777
6914 7427 8802 Ca 18.19 rdls 1375
6914 7427 7478 Mi 19.33 rdls 51
RDLS MINIMO 51
6997 7855 7944 Mi 75.83 rdls 89
6997 7855 9181 Pa 87.80 rdls 1326
RDLS MINIMO 89
7034 7639 8043 Fi 32.55 rdls 404
7034 7639 8677 To 51.40 rdls 1038
RDLS MINIMO 404
7042 8041 8042 Fi 14.76 rdls 1
7042 8041 8563 Ge 88.61 rdls 522
RDLS MINIMO 1
7058 7900 8240 Ba 62.16 rdls 340
7058 7900 8225 Ge 88.28 rdls 325
RDLS MINIMO 325
7097 7452 8034 Pa 85.14 rdls 582
7097 7452 7866 Ve 67.86 rdls 414
RDLS MINIMO 414
7104 7575 7636 Ba 86.23 rdls 61
7104 7575 7906 Pa 89.74 rdls 331
RDLS MINIMO 61
7105 8106 9315 Ba 06.55 rdls 1209
7105 8106 8289 Mi 85.16 rdls 183
RDLS MINIMO 183
7118 7560 7629 Ge 26.86 rdls 69
7118 7560 7687 Mi 90.02 rdls 127
RDLS MINIMO 69
7136 7734 8050 Ca 59.24 rdls 316
7136 7734 7814 Na 16.86 rdls 80
RDLS MINIMO 80
7140 7668 8646 Fi 83.48 rdls 978
7140 7668 8086 Ve 56.29 rdls 418
RDLS MINIMO 418
7157 7889 8036 Ba 57.01 rdls 147
7157 7889 8528 Pa 57.63 rdls 639
RDLS MINIMO 147
7158 7704 7962 Ba 21.27 rdls 258
7158 7704 8479 Mi 14.77 rdls 775
RDLS MINIMO 258
7183 7938 8637 Mi 54.28 rdls 699
7183 7938 8398 Ve 75.56 rdls 460
RDLS MINIMO 460
7208 7913 8045 Mi 42.16 rdls 132
7208 7913 8144 Pa 34.62 rdls 231
RDLS MINIMO 132
7216 7839 7972 Ba 14.68 rdls 133
7216 7839 8061 Fi 12.63 rdls 222
RDLS MINIMO 133
7225 7696 8222 Ge 02.08 rdls 526
7225 7696 8037 Na 63.57 rdls 341
RDLS MINIMO 341
7253 7806 8556 Pa 42.65 rdls 750
7253 7806 7935 Ve 03.71 rdls 129
RDLS MINIMO 129
7256 7913 8113 Mi 75.84 rdls 200
7256 7913 7988 Ve 09.34 rdls 75
RDLS MINIMO 75
7258 7828 8287 Mi 73.52 rdls 459
7258 7828 8377 Ro 24.10 rdls 549
RDLS MINIMO 459
7266 8030 8275 Ba 68.86 rdls 245
7266 8030 8838 Ve 52.13 rdls 808
RDLS MINIMO 245
7296 7954 8112 Na 53.88 rdls 158
7296 7954 8084 Ro 06.24 rdls 130
RDLS MINIMO 130
7326 7986 8185 Ba 76.61 rdls 199
7326 7986 8440 Pa 71.41 rdls 454
RDLS MINIMO 199
7358 8179 8439 Ca 42.80 rdls 260
7358 8179 8295 Na 31.86 rdls 116
RDLS MINIMO 116
7405 8315 8906 Ro 19.84 rdls 591
7405 8315 8825 To 02.03 rdls 510
RDLS MINIMO 510
7407 8047 8261 Ge 80.05 rdls 214
7407 8047 8536 Ve 59.88 rdls 489
RDLS MINIMO 214
7426 8244 8757 Ca 68.03 rdls 513
7426 8244 8265 Mi 76.29 rdls 21
RDLS MINIMO 21
7428 8031 8063 Ca 43.76 rdls 32
7428 8031 8119 Na 17.05 rdls 88
RDLS MINIMO 32
7429 7951 8587 Ca 14.48 rdls 636
7429 7951 8136 Ve 77.66 rdls 185
RDLS MINIMO 185
7515 8175 8634 Ge 47.59 rdls 459
7515 8175 8431 Ve 49.36 rdls 256
RDLS MINIMO 256
7552 8326 8539 Ge 01.77 rdls 213
7552 8326 8633 Nz 26.09 rdls 307
RDLS MINIMO 213
7588 8358 9177 Fi 12.24 rdls 819
7588 8358 8920 To 69.83 rdls 562
RDLS MINIMO 562
7597 7948 8576 Ba 89.88 rdls 628
7597 7948 8038 Fi 39.90 rdls 90
RDLS MINIMO 90
7600 8550 9236 Fi 33.41 rdls 686
7600 8550 8944 Nz 01.19 rdls 394
RDLS MINIMO 394
7653 8494 8665 Ca 40.07 rdls 171
7653 8494 8931 Ge 14.36 rdls 437
RDLS MINIMO 171
7663 8652 8765 Ba 36.33 rdls 113
7663 8652 9464 Ve 13.64 rdls 812
RDLS MINIMO 113
7670 8764 9088 Ve 44.64 rdls 324
7670 8764 8856 Nz 87.63 rdls 92
RDLS MINIMO 92
7699 8419 8762 Ro 49.29 rdls 343
7699 8419 8432 Nz 02.82 rdls 13
RDLS MINIMO 13
7737 8571 8840 Na 34.26 rdls 269
7737 8571 8767 To 54.45 rdls 196
RDLS MINIMO 196
7758 8351 8642 Ca 14.45 rdls 291
7758 8351 8806 Fi 36.77 rdls 455
RDLS MINIMO 291
7772 8331 8390 Ve 58.76 rdls 59
7772 8331 8552 Nz 70.09 rdls 221
RDLS MINIMO 59
7800 8599 8818 To 49.44 rdls 219
7800 8599 8763 Nz 57.19 rdls 164
RDLS MINIMO 164
7882 8419 8464 Mi 80.52 rdls 45
7882 8419 8440 Pa 09.71 rdls 21
RDLS MINIMO 21
7928 8806 9073 Fi 38.24 rdls 267
7928 8806 9062 Ve 29.82 rdls 256
RDLS MINIMO 256
7945 8763 9106 Ca 61.14 rdls 343
7945 8763 8904 Nz 42.66 rdls 141
RDLS MINIMO 141
7945 8795 9201 Fi 56.81 rdls 406
7945 8795 8818 Ve 72.80 rdls 23
RDLS MINIMO 23
7979 8830 9014 Ca 33.83 rdls 184
7979 8830 9100 Ve 51.19 rdls 270
RDLS MINIMO 184
8029 8658 9403 Mi 32.26 rdls 745
8029 8658 9081 Ve 02.75 rdls 423
RDLS MINIMO 423
8034 8779 9171 Ro 26.23 rdls 392
8034 8779 8790 To 46.26 rdls 11
RDLS MINIMO 11
8096 8770 9187 Fi 85.73 rdls 417
8096 8770 9467 Ge 87.33 rdls 697
RDLS MINIMO 417
8124 8815 9320 Pa 08.81 rdls 505
8124 8815 8878 To 17.29 rdls 63
RDLS MINIMO 63
8135 9062 9126 Ca 74.13 rdls 64
8135 9062 9372 Pa 86.82 rdls 310
RDLS MINIMO 64
8190 9013 9124 Fi 86.05 rdls 111
8190 9013 9286 Ve 61.07 rdls 273
RDLS MINIMO 111
8231 9005 9092 Ba 68.83 rdls 87
8231 9005 9032 Fi 68.34 rdls 27
RDLS MINIMO 27
8233 8959 9027 Na 84.17 rdls 68
8233 8959 9132 Ve 01.80 rdls 173
RDLS MINIMO 68
8235 8786 9069 Ge 62.26 rdls 283
8235 8786 8806 Ve 36.07 rdls 20
RDLS MINIMO 20
8240 8594 8643 Ca 70.13 rdls 49
8240 8594 8715 Ve 43.32 rdls 121
RDLS MINIMO 49
8252 8780 8844 Ge 33.04 rdls 64
8252 8780 8900 Nz 09.27 rdls 120
RDLS MINIMO 64
8275 8859 8927 Fi 65.08 rdls 68
8275 8859 9197 Nz 63.73 rdls 338
RDLS MINIMO 68
8278 8763 9458 Ro 12.31 rdls 695
8278 8763 8779 Nz 29.40 rdls 16
RDLS MINIMO 16
8297 Ba Fi 9296 Ba 51.85 Fi 82.11 rdla 227
8304 8711 8718 Ge 24.12 rdls 7
8304 8711 8811 Pa 07.53 rdls 100
RDLS MINIMO 7
8318 8622 9198 Mi 85.24 rdls 576
8318 8622 8676 Ve 77.82 rdls 54
RDLS MINIMO 54
8418 8913 9001 Fi 69.38 rdls 88
8418 8913 9292 Na 67.26 rdls 379
RDLS MINIMO 88
8438 Fi Ro 9255 Fi 63.09 Ro 88.28 rdla 268
8452 To Ve 9267 To 02.80 Ve 41.27 rdla 256
8455 8976 9155 Ba 16.56 rdls 179
8455 8976 9217 Pa 46.53 rdls 241
RDLS MINIMO 179
8497 9071 9197 Ca 81.17 rdls 126
8497 9071 9462 Na 73.65 rdls 391
RDLS MINIMO 126
8515 9165 9366 To 13.31 rdls 201
8515 9165 9320 Nz 62.35 rdls 155
RDLS MINIMO 155
8523 Mi Nz 9091 Mi 30.80 Nz 14.06 rdla 432
8527 9137 9251 Fi 49.43 rdls 114
8527 9137 9326 Pa 35.02 rdls 189
RDLS MINIMO 114
8747 Mi Ve 9365 Mi 48.09 Ve 04.60 rdla 158
8748 Ge Nz 9483 Ge 59.86 Nz 70.60 rdla 40
8767 9264 9286 Pa 11.51 rdls 22
8767 9264 9304 Nz 66.01 rdls 40
RDLS MINIMO 22
Casi attuali 6
Massimo ritardo attuale 432

Casi storici 444
Massimo ritardo storico 986
st>= 700 8
st>= 600 13
st>= 500 21
st>= 400 37

Cinzia27 · 11 Settembre 2018

Ciao a tutti, ringrazio Matteo per le parole di apprezzamento. Ringrazio anch' io che mi ha aperto un mondo insegnandomi tante cose sulle categorie statistiche dei numeri.Pensate che il mio approccio personale era esclusivamente di tipo sistemistico.
Ringrazio Nikor e Mike per l' interesse verso l' argomento. Ho postato questo script anche qui su gentile richiesta di un amico del forum e mi appresto a dare una sintetica spiegazione di cosa ricava lo script.
Al verificarsi della sortita contemporanea del 9° ambo di 2 cinquine nate nello stesso momento su 2 ruote, quindi sincrone-isocrone ( gli altri 8 ambi di entrambe devono essere usciti quando e come non ci interessa) si verifica quanto segue : la coppia degli ambi residui, cioè i "decimi" ambi di entrambi si trovano soli dallo stesso momento, perciò oltre ad avere lo stesso ritardo cronologico, cominciano la loro corsa con lo stesso ritardo relativo attuale RDLA, che è il ritardo creato dal momento della sortita contemporanea dei 2 "noni" ambi delle 2 cinquine . Supponiamo di mettere in gioco questa coppia, ogni ambo nella sua ruota d' origine, quando uno dei due uscirà la coppia sarà sfaldata e il gioco avrà termine.Le estrazioni che intercorrono tra l' l' uscita contemporanea dei "noni" ambi e lo sfaldamento della coppia costituirà il ritardo storico di livello RDLS.
I tempi di elaborazione sono un pò lunghi, io di solito lo faccio girare interamente e po metto a mò di commento a inizio script questa parte
Casi storici 444
Massimo ritardo storico 986
st>= 700 8
st>= 600 13
st>= 500 21
st>= 400 37

Un saluto a tutti.
Cinzia

Cinzia27 · 31 Agosto 2021

Ciao a tutti.
Ripropongo questa bellissima ricerca.
Ho controllato le coppie attuali che ha segnalato il bravissimo Matteo. Tutte sfaldate.

Cinzia27 · 11 Settembre 2021

Casi attuali

8539 Ba Mi 9788 Ba 25.55 Mi 80.12 rdla 187
8695 Ca Ge 9766 Ca 10.82 Ge 70.38 rdla 209
8868 Mi To 9727 Mi 36.87 To 45.76 rdla 248
8926 Fi Na 9853 Fi 03.61 Na 35.59 rdla 122
8939 Fi Ve 9975 Fi 83.37 Ve 54.18 rdla 0
8953 Mi To 9679 Mi 20.12 To 17.86 rdla 296
8978 Na Ve 9727 Na 69.86 Ve 87.20 rdla 248
8995 Ba Ve 9969 Ba 15.32 Ve 20.23 rdla 6
9128 Ge Ro 9871 Ge 83.51 Ro 15.68 rdla 104
9309 Fi Nz 9914 Fi 10.34 Nz 81.57 rdla 61
9378 Ge Ve 9948 Ge 21.84 Ve 50.44 rdla 27

Cinzia27 · 2 Ottobre 2021

Stasera sfaldata queta coppia di ambi
8995 Ba Ve 9969 Ba 15.32 Ve 20.23 rdla 6

Cinzia27 · 2 Ottobre 2021

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

joe · 3 Ottobre 2021

Cinzia27 ha scritto:
Stasera sfaldata queta coppia di ambi
8995 Ba Ve 9969 Ba 15.32 Ve 20.23 rdla 6

Brava Cinzia.

E' un buon risultato.

Cinzia27 · 3 Ottobre 2021

Grazie, Joe.
Ma il merito di questa ricerca è anche di Matteo, Gam e di altri appassionati di statistica che mi hanno fatto scoprire il ritardo relativo.

solare · 3 Ottobre 2021

Complimenti Cinzia !

Cinzia27 · 3 Ottobre 2021

Grazie, Solare.
Lasciamole lì. Vedremo che faranno.

solare · 3 Ottobre 2021

A quale listato fai riferimento, per questa ricerca.
Grazie

Cinzia27 · 3 Ottobre 2021

Prova quello del post 5 del 10 settembre più sopra.
Guarda se corrispondono i risultati altrimenti te lo posto.

Coppia di ambi residui di due cinquine sincrone isocrone

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member