cortesemente chi riesce ad aiutarmi per questo listato?

[herat]

Buongiorno a tutti, è possibile eseguire un listato che evidenzia un numero che si trova nella stessa posizione di ritardo (prime 10 o 20) su due o piu ruote?
Per esempio, dopo l'estrazione dell'8 di agosto su RO-TO il secondo ritardatario su entrambe le ruote è 44 , su BA.FI il secondo ritardatario su entrambe le ruote è 11, su MI-NA il terzo ritardatario su entrambe le ruote è 58.

RO RITARDATARI (DAL + RITARDATO AL MENO) 32-44-15-14-75.....
TO RITARDATARI (DAL + RITARDATO AL MENO) 81-44-86-07-35....
Lo script dovrebbe intercettare queste condizioni di ritardo su singolo numero su stessa posizione di ritardo su due ruote e meglio ancora 2 numeri su 2 posizioni di ritardo su 2 ruote (esempio non reale BA-FI 57 secondo ritardatario su entrambe le ruote e BA-FI 85 quinto ritardatario su entrambe le ruote.
ESEMPIO NON REALE
BA RITARDATARI (DAL + RITARDATO AL MENO) 30-57-16-17-85.....
FI RITARDATARI (DAL + RITARDATO AL MENO) 81-57-76-08-85....

Infine lo script dovrebbe mettere in gioco i numeri trovati per la sorte di estratto (se singolo) e ambo (se 2 o piu) sulle due ruote per 18 estrazioni

Grazie mille anticipatamente agli utenti che riusciranno ad esaudire questa richiesta da appassionata fuori di testa del lotto

 

[herat]

Scusatemi ancora, facendo delle ricerche ho trovato questo script che in parte fa quello che cerco io

Sub main()
Dim nu(5)
ColoreTesto 1
Scrivi Space (30)&"NUMERI DISPOSTI SECONDO LA LORO POSIZIONE DI RITARDO",1,1
fin=EstrazioneFin
ini=fin-10
For es=ini To fin
For r=1 To 11:if r=11 Then r=12
ColoreTesto 2
Scrivi
Scrivi
Scrivi SiglaRuota (r)&" ",1,0
For i=1 To 90
re=NumeroPosRit (es-1 ,r,i)
ColoreTesto 0
Scrivi Format2(re),1,0
Scrivi "("&i&")",0,0
Next
Next
Next
End Sub


Per completare l'opera servirebbe una funzione che vada ad evidenziare i numeri uguali che si trovano nelle stesse posizioni dinamiche su due o piu ruote.
Sarebbe straordinario avere la funzione impostagiocata per vedere l'andamento nellr 18 estrazioni successive

 

[salvo50]

Ciao a Tutti.

Non sono riuscito a capire cos'è la posizione di ritardo, avevo pensato alle 5 posizioni di ogni estrazione, ma non è così, perche nello script le posizioni sono 90, quindi per poterti aiutare dovrei prima capire cos'è la posizione di ritardo, lo script postato da te è della BRAVISSIMA Cinzia, ti posto un altro script di Cinzia sempre sullo stesso tema

'POSIZIONI DI RITARDO(Cinzia)
Sub Main()
Dim nu(5)
Scrivi Space(15) & "EVIDENZIAZIONE POSIZIONI DI RITARDO NUMERI SORTITI",1,1
fin = EstrazioneFin
ini = fin - 10
   For es = ini To fin
    Scrivi
      Scrivi
        Scrivi
        ColoreTesto 1
        Scrivi "Estrazione n." & es & " ",1,1
           For r = 1 To 11:If r = 11 Then r = 12
             ColoreTesto 0
               Scrivi
                 Scrivi Space(2) & SiglaRuota(r) & " ",0,0
                  For i = 1 To 90
             re = NumeroPosRit(es - 1,r,i)
          For p = 1 To 5
  nu(p) = Estratto(es,r,p)
      If nu(p) = re Then
      x = 5
      If Decina(i) = x Then
ColoreTesto 2
Scrivi Format2(re) & "(" & FormatSpace(i,2,1) & ") ",0,0
   Else
 If i <> x Then
ColoreTesto 0
Scrivi Format2(re) & "(" & FormatSpace(i,2,1) & ") ",0,0
End If
  End If
   End If
     Next
       Next
         Next
           Next
              End Sub

 

[salvo50]

Ragionamento mio
Forse i numeri tra parentesi non sono le posizioni, ma il ritardo, ma allora perche se metto un numero superiore a 90 non lo calcola?

 

[herat]

Gentilissimo Salvo50, ti ringrazio per l'interesse,
Tutto parte dalle posizioni di ritardo ma per andare a cercare quello che mi interessa, e per rendere la cosa piu semplice, lo script dovrebbe:
1) ordinare dal piu grande al piu piccolo ritardo di ognuna delle 11 ruote (anche solo i primi 10/20 invece di tutti i 90 ritardi)
2) evidenziare se ci sono numeri uguali in posizioni uguali (su due o piu ruote)
3) mettere in gioco i numeri ricavati per 18 estrazioni come estratto

Faccio un esempio attuale dei primi 10 ritardatari di RO e TO

RO 32-44-15-14-81-38-85-62-36-11
TO 81-44-86-07-35-32-03-75-25-66

Lo script , se è possibile, deve andare a vedere se nelle stesse posizioni di ritardo su due o piu ruote ci sono numeri uguali, nel caso di RO-TO la seconda posizione di ritardo è occupata su entrambe le ruote dal 44 che si mette in gioco sulle stesse per 18 colpi

Grazie

 

[salvo50]

Ciao a Tutti

Mi dispiace, ma non sono in grado di aiutarti.

 

[herat]

grazie ugualmente carissimo Salvo50, spero nell'aiuto degli altri gentilissimi scripters

 

[i legend]

ciao a tutti
provate a vedere se fa quanto richiesto, altrimenti passo la palla
mi sono cimentato nello script , solo per mostrare una possibile strada a Salvo ,sicuramente si potrebbe fare di meglio ma la stanchezza fisica e mentale e la mancanza di tempo , mi impediscono di concentrarmi.
pertanto NON GARANTISCO LA CORRETTEZZA DEI DATI IN OUTPUT
ciao salvo

Option Explicit
' script richiesto da utente herat su lottoced forum
' lo script è da verificare , pertanto non si garantisce la correttezza DEI RISULTATI
'SALVO ERRORI ED OMISSIS ECCO LO SCRIPT
Sub Main
   Dim R,p,e,IdTro
   Dim Rit,piuRit
   Dim Fin:Fin = EstrazioneFin
   Dim nRit :nRit = CInt(InputBox("inserisci un numero compreso tra 1 e 90","Quanti ritardatari vuoi confrontare?",20))
   If isNumeroValidoLotto(nRit) = False Then Exit Sub
   ReDim aNum(12,nRit)
   Scrivi "Script richiesto da utente herat su lottoced forum"
   Scrivi "Lo script è da verificare , pertanto non si garantisce la correttezza DEI RISULTATI"
   Scrivi "SALVO ERRORI ED OMISSIS ECCO LO SCRIPT"
   Scrivi
   Scrivi "Situazione al : " & GetInfoEstrazione(Fin)
   Scrivi
   Call GeneraAnaliticoTurbo2(Fin)
   For R = 1 To 12
      If R = 11 Then R = 12
      piuRit = EstrattoRitardoTurbo(R,PiuRitardatarioTurbo(Fin,R))
      IdTro = 0
      For Rit = piuRit To 0 Step - 1
         For p = 1 To 5
            e = TabelloneAnaliticoTurbo(Rit,R,p)
            If e Then
               IdTro = IdTro + 1
               If IdTro > nRit Then Exit For
               aNum(R,IdTro) = e
            End If
         Next
      Next
   Next
   Dim aTab,i,aApp(1)
   Dim bRet,j
   Dim Tit:Tit = "  IdRit     BA   CA   FI   GE   MI   NA   PA   RO   TO   VE   NZ "
   Scrivi FormatSpace(" ",Len(Tit)),,,RGB(58,147,218)
   Scrivi Tit,1,,RGB(58,147,218),RGB(252,253,254)
   Scrivi FormatSpace(" ",Len(Tit)),,,RGB(58,147,218)
   For e = 1 To nRit
      Scrivi FormatSpace(e,5,1) & "  ",1,0,RGB(58,147,218),RGB(252,253,254)
      Scrivi " | ",,0,vbWhite,vbWhite,3
      aTab = Array(0,aNum(1,e),aNum(2,e),aNum(3,e),aNum(4,e),aNum(5,e),aNum(6,e),aNum(7,e),aNum(8,e),aNum(9,e),aNum(10,e),aNum(12,e))
      ReDim aN(0)
      If NumeriRipetutiRilevatiV(aTab,aN)Then
         For i = 1 To UBound(aTab)
            bRet = False
            For j = 1 To UBound(aN)
               If Int(aN(j)) = Int(aTab(i)) Then bRet = True: Exit For
            Next
            If bRet Then
               Scrivi " " & Format2(aTab(i)) & " ",1,0,RGB(171,241,107),RGB(67,129,12)
               Scrivi " ",,0
            Else
               Scrivi " " & Format2(aTab(i)) & " ",1,0,,RGB(140,140,140)
               Scrivi " ",,0
            End If
         Next
         Scrivi
      Else
         For i = 1 To UBound(aTab)
            Scrivi " " & Format2(aTab(i)) & " ",1,0,,RGB(140,140,140)
            Scrivi " ",,0
         Next
         Scrivi
      End If
   Next
End Sub

 

[herat]

GRAZIE MILLE gentilissimo i legend !
adesso lo provo!
grazie!

 

[herat]

Carissimo iLEGEND, i dati sono esatti, ti ringrazio tantissimo
.
Una domanda, lo script non si potrebbe modificare con una funzione impostagiocata per vedere l'andamento delle previsioni ricavte nei 18 colpi successivi?
Grazie mille

 

[salvo50]

Ciao ILegend,

Ti ringrazio, molto istruttivo lo script, finalmente dai tuoi commenti sono riuscito a capire cosa rappresenta il numero tra parentesi,
riguardo alla richiesta di Herat penso che lo script dovrebbe andare bene, evidenzia i ritardi uguali

 

[i legend]

Carissimo iLEGEND, i dati sono esatti, ti ringrazio tantissimo
.
Una domanda, lo script non si potrebbe modificare con una funzione impostagiocata per vedere l'andamento delle previsioni ricavte nei 18 colpi successivi?
Grazie mille

Ciò herat mi fa piacere che i dati siano esatti

Per quanto riguarda la tua domanda , non so se sia meglio modificare questo o ripensare uno nuovo.
ma ripeto ,mi sono cimentato solo per salvo visto la gentilezza e la disponibilità che dimostra verso gli utenti. Mi spiace non poterti accontentare.

X salvo
se hai bisogno di interpretare qualche passaggio chiedi pure.
ciao a tutti .

 

[herat]

grazie mille ad entrambi,

 

[i legend]

Buongiorno a tutti, è possibile eseguire un listato che evidenzia un numero che si trova nella stessa posizione di ritardo (prime 10 o 20) su due o piu ruote?
Per esempio, dopo l'estrazione dell'8 di agosto su RO-TO il secondo ritardatario su entrambe le ruote è 44 , su BA.FI il secondo ritardatario su entrambe le ruote è 11, su MI-NA il terzo ritardatario su entrambe le ruote è 58.

RO RITARDATARI (DAL + RITARDATO AL MENO) 32-44-15-14-75.....
TO RITARDATARI (DAL + RITARDATO AL MENO) 81-44-86-07-35....
Lo script dovrebbe intercettare queste condizioni di ritardo su singolo numero su stessa posizione di ritardo su due ruote e meglio ancora 2 numeri su 2 posizioni di ritardo su 2 ruote (esempio non reale BA-FI 57 secondo ritardatario su entrambe le ruote e BA-FI 85 quinto ritardatario su entrambe le ruote.
ESEMPIO NON REALE
BA RITARDATARI (DAL + RITARDATO AL MENO) 30-57-16-17-85.....
FI RITARDATARI (DAL + RITARDATO AL MENO) 81-57-76-08-85....

Infine lo script dovrebbe mettere in gioco i numeri trovati per la sorte di estratto (se singolo) e ambo (se 2 o piu) sulle due ruote per 18 estrazioni

Grazie mille anticipatamente agli utenti che riusciranno ad esaudire questa richiesta da appassionata fuori di testa del lotto

Herat non c e di che.
mi sono limitato solo ad evidenziare i dati per facilitare la ricerca .
Se dovessi riuscire a trovare il tempo ,( ma non prometto nulla) ,e non interviene nessun altro , proverò ad esaudire la tua richiesta .
ciao

 

[herat]

Herat non c e di che.
mi sono limitato solo ad evidenziare i dati per facilitare la ricerca .
Se dovessi riuscire a trovare il tempo ,( ma non prometto nulla) ,e non interviene nessun altro , proverò ad esaudire la tua richiesta .
ciao

GRAZIE ANCORA CARISSIMO!

Scusa la sfacciataggine di questa folle appassionata, potresti aiutarmi (quando puoi, senza impegno) nello script delle spie concatenate del quale ho aperto un topic?
Grazie

 

[jp4]

ciao,
come sviluppo dell'idea di Herat proporrei la creazione di un nuovo script

in output vedrei una tabella delle 90 posizioni
ma i calcoli devono essere fatti considerando solo una posizione per volta
e considerando valide per il conteggio del ritardo, solo le estrazioni in cui, nella suddetta singola posizione, è presente la condizione richiesta da Herat, cioè un qualsiasi numero ma presente in due o più ruote.
Sarebbe utile:
1) conteggiare la "frequenza di presenze di questi casi" nella posizione e
2) conteggiare il ritardo di sfaldamento nella posizione .(si conta il ritardo tra uno sfaldamento e l'altro di un numero presente in una coppia di ruote)

in pratica
Si potrà tentare il gioco quando il ritardo di sfaldamento (di una qualsiasi coppia di ruote nella posizione) è elevato. Si giocherà il numero uguale sulle due ruote interessate.
La previsione è rafforzata quando: anche il ritardo di sfaldamento della posizione a tutte è elevato (basterebbe ritardo 8)

 

[herat]

ciao,
come sviluppo dell'idea di Herat proporrei la creazione di un nuovo script

in output vedrei una tabella delle 90 posizioni
ma i calcoli devono essere fatti considerando solo una posizione per volta
e considerando valide per il conteggio del ritardo, solo le estrazioni in cui, nella suddetta singola posizione, è presente la condizione richiesta da Herat, cioè un qualsiasi numero ma presente in due o più ruote.
Sarebbe utile:
1) conteggiare la "frequenza di presenze di questi casi" nella posizione e
2) conteggiare il ritardo di sfaldamento nella posizione .(si conta il ritardo tra uno sfaldamento e l'altro di un numero presente in una coppia di ruote)

in pratica
Si potrà tentare il gioco quando il ritardo di sfaldamento (di una qualsiasi coppia di ruote nella posizione) è elevato. Si giocherà il numero uguale sulle due ruote interessate.
La previsione è rafforzata quando: anche il ritardo di sfaldamento della posizione a tutte è elevato (basterebbe ritardo 8)

Ottima proposta caro jp4, un caro saluto e buon ferragosto a tutti