Novità

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

F

filippo1963

Member
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
 
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 ......
 
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.
 
Rafh ha scritto:
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.
Clicca per espandere...
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....

Codice: 
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
 
Ultima modifica:
claudio8 ha scritto:
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....

Codice: 
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
Clicca per espandere...
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 ha scritto:
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....

Codice: 
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
Clicca per espandere...
Prova questa modifica
 
claudio8 ha scritto:
Prova questa modifica
Clicca per espandere...
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
 
Controlla la corretta elencazione dei casi.
Il resoconto che ho sulle mie versioni non mi pare sia corretto

Codice: 
Sub Main
     ' script by claudio8 per filippo1963 forum.lottoced.com/threads/ricerca-coppia-di-numeri-di-distanza-1.
     Dim Ini,fin,r,dist,es,pos,co,a,b,somm,colpi
     Dim aN(10)
     Dim aR(10)
     Dim aPosta(5)
     aPosta(1) = 1
     dist = 1
     colpi = 12
     Ini = EstrazioneFin - 20
     fin = EstrazioneFin
     Scrivi "   Ricerca dal " & GetInfoEstrazione(Ini) & " al " & GetInfoEstrazione(fin),1,,3,1
     Scrivi
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               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
                         aN(1) = Fuori90(a + b)
                         aR(1) = r
                         Scrivi "   -- Caso n° " & FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " su " & SiglaRuota(r) & " dist " & _
                         dist & " pos." & pos & "-" & pos + 1 & " -- Numeri trovati " & a & " e " & b & "   --->   Somma = " & aN(1),1,,,1
                      
                        
                         ImpostaGiocata 1,aN,aR,aPosta,colpi
                         Gioca es,True,False ,1
                        
                    End If
                    If ScriptInterrotto Then Exit For
               Next
          Next
     Next
     ScriviResoconto
End Sub
saluti
 
Premesso che il resoconto a mio parere non è del tutto veritiero e siceramente non lo uso mai nei miei script .
Ti lascio l'ultima variazione al costrutto, comprensiva del controllo nelle "Giocate" dell'esito in posiz determinata.
Buon controllo

Codice: 
Sub Main
     ' script by claudio8 per filippo1963 forum.lottoced.com/threads/ricerca-coppia-di-numeri-di-distanza-1.
     Dim Ini,fin,r,dist,es,pos,co,a,b,somm,colpi
     Dim aN(10)
     Dim aR(10)
     Dim aPos(2)
     Dim aPosta(5)
     Dim aPosteDet()
     aPosta(1) = 1
     dist = 1
     colpi = 12
     Ini = EstrazioneFin - 100 - colpi
     fin = EstrazioneFin
     Scrivi "   Ricerca dal " & GetInfoEstrazione(Ini) & " al " & GetInfoEstrazione(fin),1,,3,1
     Scrivi
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               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
                         aN(1) = Fuori90(a + b)
                         aR(1) = r
                         Scrivi "   -- Caso n° " & FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " posizioni " & pos & " e " & pos + 1 & " dist " & dist & _
                         " su " & SiglaRuota(r) & " -- Numeri trovati " & a & " e " & b & "   --->   Somma = " & aN(1),1,,,1
                         ReDim aPosteDet(10)
                         aPosteDet(pos + 5) = 1
                         aPosteDet(pos + 1 + 5) = 1
                        ' ImpostaGiocata 1,aN,aR,aPosta,colpi ' remmare x escludere
                         ImpostaGiocata 2,aN,aR,aPosteDet,colpi ' remmare x escludere

                         Gioca es,True,False,1
                        ' Gioca es,False,False,1 ' sostituire True con False  se si vuole visionare in elenco giocata tutte le estrazioni dei colpi considerati
                         Erase aPosteDet
                    End If
                    If ScriptInterrotto Then Exit For
               Next
          Next
     Next
     ScriviResoconto
End Sub
Ps: ti ho anche formattato il testo per un controllo visivo + immediato delle posizioni di rilevamento coppia e di gioco della Ambata
ti ho inserito
Gioca es,False,False,1 ' sostituire True con False se si vuole visionare in elenco giocata tutte le estrazioni dei colpi considerati, per dari la possibilità di ricercare migliorie di giocata.
 
Ultima modifica:
claudio8 ha scritto:
Premesso che il resoconto a mio parere non è del tutto veritiero e siceramente non lo uso mai nei miei script .
Ti lascio l'ultima variazione al costrutto, comprensiva del controllo nelle "Giocate" dell'esito in posiz determinata.
Buon controllo

Codice: 
Sub Main
     ' script by claudio8 per filippo1963 forum.lottoced.com/threads/ricerca-coppia-di-numeri-di-distanza-1.
     Dim Ini,fin,r,dist,es,pos,co,a,b,somm,colpi
     Dim aN(10)
     Dim aR(10)
     Dim aPos(2)
     Dim aPosta(5)
     Dim aPosteDet()
     aPosta(1) = 1
     dist = 1
     colpi = 12
     Ini = EstrazioneFin - 100 - colpi
     fin = EstrazioneFin
     Scrivi "   Ricerca dal " & GetInfoEstrazione(Ini) & " al " & GetInfoEstrazione(fin),1,,3,1
     Scrivi
     For es = Ini To fin
          For r = 1 To 11
               If r = 11 Then r = 12
               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
                         aN(1) = Fuori90(a + b)
                         aR(1) = r
                         Scrivi "   -- Caso n° " & FormatSpace(co,3,True) & ") " & DataEstrazione(es) & " posizioni " & pos & " e " & pos + 1 & " dist " & dist & _
                         " su " & SiglaRuota(r) & " -- Numeri trovati " & a & " e " & b & "   --->   Somma = " & aN(1),1,,,1
                         ReDim aPosteDet(10)
                         aPosteDet(pos + 5) = 1
                         aPosteDet(pos + 1 + 5) = 1
                        ' ImpostaGiocata 1,aN,aR,aPosta,colpi ' remmare x escludere
                         ImpostaGiocata 2,aN,aR,aPosteDet,colpi ' remmare x escludere

                         Gioca es,True,False,1
                        ' Gioca es,False,False,1 ' sostituire True con False  se si vuole visionare in elenco giocata tutte le estrazioni dei colpi considerati
                         Erase aPosteDet
                    End If
                    If ScriptInterrotto Then Exit For
               Next
          Next
     Next
     ScriviResoconto
End Sub
Ps: ti ho anche formattato il testo per un controllo visivo + immediato delle posizioni di rilevamento coppia e di gioco della Ambata
ti ho inserito
Gioca es,False,False,1 ' sostituire True con False se si vuole visionare in elenco giocata tutte le estrazioni dei colpi considerati, per dari la possibilità di ricercare migliorie di giocata.
Clicca per espandere...
Grazie, ho variato prima il calcolo fatto qui "aN(1)=Fuori90=a+b", per avere una previsione diversa, ma ho notato che non mi fà il controllo ed il report finale è vuoto sulle successive estrazioni, ma nell'output mi mette il risultato che io cerco
 
filippo1963 ha scritto:
Grazie, ho variato prima il calcolo fatto qui "aN(1)=Fuori90=a+b", per avere una previsione diversa, ma ho notato che non mi fà il controllo ed il report finale è vuoto sulle successive estrazioni, ma nell'output mi mette il risultato che io cerco
Clicca per espandere...
Domanda: lo script funziona senza variazione?
Se "si", vuol dire che la tua variazione ha qualcosa di errato.
Leggi con attenzione quello che ha scritto nella variazione e riconoscerai il tuo errore. ( Problemi di scuola media) 😉🙂
 
IF è traducibile in "SE" ed è un test condizionale al quale il Basic risponde con Vero o Falso.

Fuori90 è un "calcolo"

Quello che hai scritto potrebbe paragonarsi a: "Mi dici ... SE a+b è UGUALE a "moltiplicazione" / "divisione" / "somma" ... ecc.

Dunque ... è "logicamente" errato chiedere SE (a+b) = Fuori90

:)
 
joe ha scritto:
IF è traducibile in "SE" ed è un test condizionale al quale il Basic risponde con Vero o Falso.

Fuori90 è un "calcolo"

Quello che hai scritto potrebbe paragonarsi a: "Mi dici ... SE a+b è UGUALE a "moltiplicazione" / "divisione" / "somma" ... ecc.

Dunque ... è "logicamente" errato chiedere SE (a+b) = Fuori90

:)
Clicca per espandere...
io uso da un po Excel e lì uso molto il se (a>b;a-1;a) uso molto la funzione SE nei miei Calcoli
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 31 maggio 2025
    Bari
    72
    01
    07
    20
    16
    Cagliari
    39
    04
    81
    79
    09
    Firenze
    87
    73
    57
    72
    63
    Genova
    80
    81
    32
    30
    75
    Milano
    07
    63
    39
    57
    64
    Napoli
    47
    06
    11
    26
    66
    Palermo
    04
    81
    15
    76
    48
    Roma
    84
    15
    52
    56
    25
    Torino
    12
    34
    06
    54
    26
    Venezia
    44
    86
    74
    48
    80
    Nazionale
    44
    77
    11
    58
    62
    Estrazione Simbolotto
    Milano
    41
    25
    12
    08
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto