Novità

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

F

filippo1963

Junior 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 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto