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 04 gennaio 2025
    Bari
    48
    55
    67
    87
    14
    Cagliari
    60
    78
    37
    36
    07
    Firenze
    04
    55
    45
    27
    42
    Genova
    46
    77
    47
    17
    33
    Milano
    17
    86
    14
    63
    55
    Napoli
    25
    71
    16
    48
    28
    Palermo
    65
    55
    31
    05
    25
    Roma
    80
    05
    74
    75
    28
    Torino
    28
    66
    20
    24
    87
    Venezia
    25
    29
    20
    70
    24
    Nazionale
    62
    71
    03
    28
    15
    Estrazione Simbolotto
    Bari
    42
    33
    18
    36
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto