Ricerca Script che mi ricerchi nella singola estrazioni su tutte le ruote una coppia di numeri di Distanza 1

[filippo1963]

Salve
Volevo sapere se esiste uno script per Spaziometria che mi ricerchi sulla singola estrazione di ognuna delle 11 ruote una coppia di numeri con distanza 1, con posizioni unite cioè 1-2, 2-3, 3-4, e 4-5, qualcuno mi può aiutare, ho cercato qui sul forum o nel Web ma non ho trovato niente
Grazie

 

[claudio8]

Apri sptm in sez script e scrivi.
dist =1
Ini = estrazionefin _ 100
Fin= estrazionefin

For es = Ini to Fin
For r = 1 to 11
If r =11 then r = 12
For pos = 1 to 4
If ......

 

[Rafh]

Buonasera, in spaziometria per vedere le distanze non c'è bisogno di fare script perché nella sezione Quadro Somme e Distanze è possibile vedere tutte le distanze/somme volute in orizzontale, verticale e in obliquo.

 

[claudio8]

Buonasera, in spaziometria per vedere le distanze non c'è bisogno di fare script perché nella sezione TABELLONI Quadro Somme e Distanze è possibile vedere tutte le distanze/somme volute in orizzontale, verticale e in obliquo.

Buonasera mi sembra si possa vedere solo la singola estrazione
Aspettiamo che @filippo1963 lo legga e ci dica se gli è sufficente.
Completo lo script nell'attesa....

Sub Main
     Dim Ini,fin,r,dist,es,pos,co,a,b
     dist = 1
     Ini = EstrazioneFin - 10
     fin = EstrazioneFin
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               co = 0
               For pos = 1 To 4
                    a = Estratto(es,r,pos)
                    b = Estratto(es,r,pos + 1)
                    If Distanza(a,b) = 1 Then
                         co = co + 1
                         Scrivi FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " su " & SiglaRuota(r) & " dist " & dist & " in pos." & pos & " e " & pos + 1
                    End If
               Next
          Next
     Next
End Sub

 

[filippo1963]

Buonasera mi sembra si possa vedere solo la singola estrazione
Aspettiamo che @filippo1963 lo legga e ci dica se gli è sufficente.
Completo lo script nell'attesa....

Sub Main
     Dim Ini,fin,r,dist,es,pos,co,a,b
     dist = 1
     Ini = EstrazioneFin - 10
     fin = EstrazioneFin
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               co = 0
               For pos = 1 To 4
                    a = Estratto(es,r,pos)
                    b = Estratto(es,r,pos + 1)
                    If Distanza(a,b) = 1 Then
                         co = co + 1
                         Scrivi FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " su " & SiglaRuota(r) & " dist " & dist & " in pos." & pos & " e " & pos + 1
                    End If
               Next
          Next
     Next
End Sub

Grazie claudio8, ma nell'output non vedo scritta la coppia di numeri di distanza1 vedo solo la data, ruota e le posizioni dei numeri

 

[claudio8]

Buonasera mi sembra si possa vedere solo la singola estrazione
Aspettiamo che @filippo1963 lo legga e ci dica se gli è sufficente.
Completo lo script nell'attesa....

Sub Main
     Dim Ini,fin,r,dist,es,pos,co,a,b
     dist = 1
     Ini = EstrazioneFin - 10
     fin = EstrazioneFin
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               co = 0
               For pos = 1 To 4
                    a = Estratto(es,r,pos)
                    b = Estratto(es,r,pos + 1)
                    If Distanza(a,b) = 1 Then
                         co = co + 1
                         Scrivi FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " su " & SiglaRuota(r) & " dist " & dist & " in pos." & pos & " e " & pos + 1 & "  con i numeri " &  a  &" e "  & b
                    End If
               Next
          Next
     Next
End Sub

Prova questa modifica

 

[filippo1963]

Prova questa modifica

Grazie un ultima cosa se io ad esempio voglio fare la somma dei due numeri di distanza 1 trovati e poi con il numero ottenuto controllare se nelle successive 12 estrazioni quel numero si è ripetuto sulla stessa ruota dove ho trovato la coppia di numeri di distanza 1, come si dovrebbe fare con anche un resoconto di quante volte il numero ottenuto con la somma si è trovato nelle successive dodici estrazioni