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

filippo1963 · Giovedì alle 15:38

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 · Giovedì alle 16:20

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 · Giovedì alle 17:30

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 · Giovedì alle 17:53

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.

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

filippo1963 · Giovedì alle 18:37

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

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 · Giovedì alle 19:04

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

Prova questa modifica

filippo1963 · Giovedì alle 23:22

claudio8 ha scritto:
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

claudio8 · Ieri alle 08:40

L' appetito vien mangiando ...
Ora sono da cellulare .
Te lo modifico appena posso

filippo1963 · Ieri alle 09:11

claudio8 ha scritto:
L' appetito vien mangiando ...
Ora sono da cellulare .
Te lo modifico appena posso

ok, grazie ancora

claudio8 · Ieri alle 10:04

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

filippo1963 · Ieri alle 10:29

Grazie, Clauido8 con il tuo permesso mi piacerebbe fare qualche piccola modifica

claudio8 · Ieri alle 10:53

filippo1963 ha scritto:
Grazie, Clauido8 con il tuo permesso mi piacerebbe fare qualche piccola modifica

sei libero di modificarltelo.

filippo1963 · Ieri alle 14:36

claudio8 ha scritto:
sei libero di modificarltelo.

Un Ultima cosa se io oltre all'estratto vorrei verificare se esce in una delle due posizioni che indico come faccio a farlo controllare

claudio8 · Oggi alle 10:40

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.

filippo1963 · Oggi alle 12:18

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.

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

claudio8 · Oggi alle 12:26

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

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) 😉🙂

filippo1963 · Oggi alle 12:35

claudio8 ha scritto:
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) 😉🙂

Grazie del consiglio casomai se posso posto lo script qui

claudio8 · Oggi alle 12:56

filippo1963 ha scritto:
Grazie del consiglio casomai se posso posto lo script qui

No dei usare la tua testa e correggere l'errore altrimenti non impari a modificare gli script.
È un consiglio

joe · Oggi alle 13:00

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

filippo1963 · 54 minuti fa

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

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

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

Junior Member

Premium Member

Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Junior Member

Premium Member

Advanced Member >PLATINUM PLUS<

Junior Member