Condizione particolare di ambo ripetuto

[herat]

Buongiorno a tutti!
Cortesemente chiedo se è possibile uno script su tale condizione di ambo ripetuto verificatasi sabato 12 agosto 2017

L'ambo ripetuto 35-23 presenta una distanza 12.
Sulla ruota di Firenze c'è anche l'ambo 59-71 di distanza 12.

La particolarità di questa condizione è la seguente: tra 35 e 59 intercorre la distanza 24 , doppia della 12.

Cerco di spiegare meglio: per quanto riguarda l'ambo ripetuto 23-35 di FI-MI ecco quali sono le coppie da trovare nella stessa estrazione e ruote:

DISTANZA AMBO RIPETUTO: 35-23=12
DOPPIA DISTANZA: 12X2=24

23-35--(+24)--59--(+12)--71 (59-71)
35-23--(-24)--89--(-12)--77 (89-77)

Le coppie da trovare (una delle due) in una delle ruote dell'ambo ripetuto (FI-MI) sono 59-71 o 77-89.

Essendo una super appassionata della matematica, da tempo inseguo certe condizioni particolari ma a carta e penna è davvero difficile tenerle sotto controllo.

È possibile creare uno script per vedere in passato quante volte si sono presentate condizioni matematiche simili??

Grazie di cuore per l'attenzione che mi riserverete!

 

[salvo50]

Ciao a Tutti!

Ci sto provando, tempo permettendo.

 

[salvo50]

23-35--(+24)--59--(+12)--71 (59-71)
35-23--(-24)--89--(-12)--77 (89-77)

Un chiarimento sulla seconda riga 35-23--(-24)--89--(-12)--77 (89-77)

Il 24 viene sottratto dal 23, perchè il 23 è il più piccolo o perche nella ruota di Milano è per secondo, cioè se invece di uscire 35-23 nella ruota di Milano, fosse uscito 23- 35, il 24 sarebbe stato sottratto sempre dal 23 o dal 35?

 

[herat]

Un chiarimento sulla seconda riga 35-23--(-24)--89--(-12)--77 (89-77)

Il 24 viene sottratto dal 23, perchè il 23 è il più piccolo o perche nella ruota di Milano è per secondo, cioè se invece di uscire 35-23 nella ruota di Milano, fosse uscito 23- 35, il 24 sarebbe stato sottratto sempre dal 23 o dal 35?

Caro salvo, ti ringrazio!
il 24 viene sottratto dal 23 perche il 23 è più piccolo di 35

un caro saluto

 

[salvo50]

Ciao a Tutti!

Di script ne ho fatti 2, perchè con la ricerca della coppia risultante, dopo il raddoppio della differenza i casi sono rarissimi, su 5000 estrazioni, dalla 4355 alla 9355, ho trovato solo 13 casi, quindi in uno calcolo solo le coppie da trovare e nell'altro le coppie effettivamente trovate, volevo fare un solo script e poi tramite inputbox decidere quale ricerca fare, ma non ci sono riuscito.





Primo script visualizzazione coppie da cercare

'Progetto - Condizione particolare di ambo ripetuto 1 - by Herat
'Script   - by Salvo50
Option Explicit
Sub Main
    TestoInBandaPassante "*****Progetto CONDIZIONI PARTICOLARI DI AMBO RIPRTUTO 1 - bY Herat , script by Salvo50 ***** ",1,3,0
    Dim fin,esq,col,esqcol,es,idestr
    Dim r1,r2,p1,p2,p3,p4,caso,casi
    Dim estr1,estr2,estr3,estr4
    Dim xestr1,xestr2,xestr3,xestr4
    Dim diffx2,diff1,diff2
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9355) '9355 estrazione dell'esempio
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,10))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    estr1 = Estratto(es,r1,p1)
                    estr2 = Estratto(es,r1,p2)
                    diff1 = Differenza(estr1,estr2)
                    For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5
                                estr3 = Estratto(es,r2,p3)
                                estr4 = Estratto(es,r2,p4)
                                diff2 = Differenza(estr3,estr4)
                                If diff1 = diff2 Then
                                    If estr1 = estr3 And estr2 = estr4 Or estr1 = estr4 And estr2 = estr3 Then
                                        diffx2 = Fuori90(diff1 * 2)
                                        If estr1 > estr2 Then
                                            xestr1 = Fuori90(estr1 + diffx2)
                                            xestr2 = Fuori90(xestr1 + diff1)
                                        End If
                                        If estr2 > estr1 Then
                                            xestr1 = Fuori90(estr2 + diffx2)
                                            xestr2 = Fuori90(xestr1 + diff1)
                                        End If
                                        '-------------------------------------
                                        If estr3 < estr4 Then
                                            xestr3 = Fuori90(90 +(estr3 - diffx2))
                                            xestr4 = Fuori90(90 +(xestr3 - diff1))
                                        End If
                                        If estr4 < estr3 Then
                                            xestr3 = Fuori90(estr4 - diffx2)
                                            xestr4 = Fuori90(xestr3 - diff1)
                                        End If
                                        casi = casi + 1
                                        caso = caso + 1
                                        ColoreTesto 1
                                        Scrivi String(74,"*") & " Casi Totali " & FormattaStringa(casi,"0000")
                                        Scrivi String(65,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
                                        ColoreTesto 0
                                        Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                                        Scrivi "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),2
                                        Scrivi Space(19) & " Seconda Ruota " & SiglaRuota(r2) & " " & StringaEstratti(es,r2),2
                                        Scrivi
                                        Scrivi Space(1) & "Ambi uguali" & Space(4) & "Differenza " & Space(4) & "Coppie da trov."
                                        Scrivi"  " & SiglaRuota(r1) & " " & Format2(estr1) & " " & Format2(estr2),0,0
                                        Scrivi Space(10) & Format2(diff1) & Space(13) & Format2(xestr1) & " " & Format2(xestr2)
                                        Scrivi"  " & SiglaRuota(r2) & " " & Format2(estr3) & " " & Format2(estr4),0,0
                                        Scrivi Space(10) & Format2(diff2) & Space(13) & Format2(xestr3) & " " & Format2(xestr4)
                                        Scrivi
                                    End If
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub

Secondo con ricerca coppia risultante

 'Progetto - Condizione particolare di ambo ripetuto 2 - by Herat
'Script   - by Salvo50
Option Explicit
Sub Main
    TestoInBandaPassante "**Progetto CONDIZIONI PARTICOLARI DI AMBO RIPETUTO 2 - bY Herat , script by Salvo50 ** ",1,4,0
    Dim fin,esq,col,esqcol,es,idestr
    Dim r1,r2,p1,p2,p3,p4,caso,casi
    Dim estr1,estr2,estr3,estr4
    Dim xestr1,xestr2,xestr3,xestr4
    Dim diffx2,diff1,diff2
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,8355) '9355 estrazione dell'esempio
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,5000))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    estr1 = Estratto(es,r1,p1)
                    estr2 = Estratto(es,r1,p2)
                    diff1 = Differenza(estr1,estr2)
                    For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5
                                estr3 = Estratto(es,r2,p3)
                                estr4 = Estratto(es,r2,p4)
                                diff2 = Differenza(estr3,estr4)
                                If diff1 = diff2 Then
                                    If estr1 = estr3 And estr2 = estr4 Or estr1 = estr4 And estr2 = estr3 Then
                                        diffx2 = Fuori90(diff1 * 2)
                                        If estr1 > estr2 Then
                                            xestr1 = Fuori90(estr1 + diffx2)
                                            xestr2 = Fuori90(xestr1 + diff1)
                                        End If
                                        If estr2 > estr1 Then
                                            xestr1 = Fuori90(estr2 + diffx2)
                                            xestr2 = Fuori90(xestr1 + diff1)
                                        End If
                                        '-------------------------------------
                                        If estr3 < estr4 Then
                                            xestr3 = Fuori90(90 +(estr3 - diffx2))
                                            xestr4 = Fuori90(90 +(xestr3 - diff1))
                                        End If
                                        If estr4 < estr3 Then
                                            xestr3 = Fuori90(estr4 - diffx2)
                                            xestr4 = Fuori90(xestr3 - diff1)
                                        End If
                                        If Posizione(es,r1,xestr1) > 0 And Posizione(es,r1,xestr2) > 0 Xor _
                                            Posizione(es,r1,xestr3) > 0 And Posizione(es,r1,xestr4) > 0 Xor _
                                            Posizione(es,r2,xestr1) > 0 And Posizione(es,r2,xestr2) > 0 Xor _
                                            Posizione(es,r2,xestr3) > 0 And Posizione(es,r2,xestr4) > 0 Then
                                            casi = casi + 1
                                            caso = caso + 1
                                            ColoreTesto 1
                                            Scrivi String(74,"*") & " Casi Totali " & FormattaStringa(casi,"0000")
                                            Scrivi String(65,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
                                            ColoreTesto 0
                                            Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                                            Scrivi "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),2
                                            Scrivi Space(19) & " Seconda Ruota " & SiglaRuota(r2) & " " & StringaEstratti(es,r2),2
                                            Scrivi
                                            Scrivi Space(1) & "Ambi uguali" & Space(4) & "Differenza " & Space(4) & "Coppie da trov."
                                            Scrivi"  " & SiglaRuota(r1) & " " & Format2(estr1) & " " & Format2(estr2),0,0
                                            Scrivi Space(10) & Format2(diff1) & Space(13) & Format2(xestr1) & " " & Format2(xestr2)
                                            Scrivi"  " & SiglaRuota(r2) & " " & Format2(estr3) & " " & Format2(estr4),0,0
                                            Scrivi Space(10) & Format2(diff2) & Space(13) & Format2(xestr3) & " " & Format2(xestr4)
                                            Scrivi
                                            ColoreTesto 2
                                            If Posizione(es,r1,xestr1) > 0 And Posizione(es,r1,xestr2) > 0 Then
                                                Scrivi " Coppia trovata nella ruota di " & SiglaRuota(r1) & "  " & Format2(xestr1) & " " & Format2(xestr2)
                                            End If
                                            Scrivi
                                            If Posizione(es,r1,xestr3) > 0 And Posizione(es,r1,xestr4) > 0 Then
                                                Scrivi " Coppia trovata nella ruota di " & SiglaRuota(r1) & "  " & Format2(xestr3) & " " & Format2(xestr4)
                                            End If
                                            Scrivi
                                            If Posizione(es,r2,xestr1) > 0 And Posizione(es,r2,xestr2) > 0 Then
                                                Scrivi " Coppia trovata nella ruota di " & SiglaRuota(r2) & "  " & Format2(xestr1) & " " & Format2(xestr2)
                                            End If
                                            Scrivi
                                            If Posizione(es,r2,xestr3) > 0 And Posizione(es,r2,xestr4) > 0 Then
                                                Scrivi " Coppia trovata nella ruota di " & SiglaRuota(r2) & "  " & Format2(xestr3) & " " & Format2(xestr4)
                                            End If
                                            ColoreTesto 0
                                        End If
                                    End If
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub

 

[herat]

Grazie di cuore, Salvo!