Ritardo del ritardo

[simimi]

Buonasera a tutto il forum, ho ritrovato questo script
Ritardo del Ritardo (Cinzia - Joe)
chiedevo se fosse possibile ottimizzarlo e renderlo più flessibile
in quanto si riesce a farlo girare solo per ogni ritardo.
Attendo che qualcuno o gli stessi autori intervengano per ottimizzarlo.
Ringrazio quanti si cimenteranno e vi saluto.

Sub Main()
'Ritardo del Ritardo (Cinzia - Joe)
Dim a(2),b(2),ru(1)
rt = InputBox("quale ritardo vuoi controllare?",,10)
Scrivi " Ritardo del Ritardo " & rt:Scrivi
ColoreTesto 0 :Scrivi "1°Estr Ruota Rit ambi 2°Estr",1:Scrivi
fin = EstrazioneFin
ini = fin - 1150
For r = 1 To 11
If r = 11 Then r = 12
ru(1) = r :Messaggio(SiglaRuota(r))
For es = fin - 1 To ini Step - 1
For p = 1 To 4
For pp = p + 1 To 5
a(1) = Estratto(es,r,p)
a(2) = Estratto(es,r,pp)
For q = 1 To 4
For qq = q + 1 To 5
b(1) = Estratto(es + rt,r,q)
b(2) = Estratto(es + rt,r,qq)
If es + rt <= fin Then
If a(1) = b(1) And a(2) = b(2) Or a(1) = b(2) And a(2) = b(1) Then
ColoreTesto 1 : If pari(r) = True And r <> 12 Then : ColoreTesto 2
Scrivi es & " " & SiglaRuota(r) & " " & FormatSpace(fin -(es + rt),3,True),0,0
Scrivi " " & FormatSpace(StringaNumeri(a),2,True) & " " & es + rt
es = ini 'Riempie la variabile -es- facendo 'saltare' il controllo nelle estrazioni successive.
End If
End If
Next 'qq
Next 'q
Next 'pp
Next 'p
Next 'es
Next 'r
End Sub

 

[joe]

Non so se è quello che hai chiesto.

Queste modifiche dovrebbero darti indicazioni più generali che potrai controllare con lo script precedente.

Option Explicit
Sub Main()
  'Ritardo del Ritardo (Cinzia - Joe)
  Dim Ini,Fin,Es,Rt,R,p,pp,q,qq
  Dim a(2),b(2),ru(1)
  'rt = InputBox("quale ritardo vuoi controllare?",,10)
  Scrivi "Ritardo del Ritardo ",True  : Scrivi
  ColoreTesto 0 :Scrivi "R/R Ru Rit",1:Scrivi
  Fin = EstrazioneFin
  For Rt = 1 To 20 : AvanzamentoElab 1,20,Rt
    ColoreTesto 0 : Scrivi FormatSpace(Rt,3),True,False
    Ini = 7440
    For R = 1 To 11
      If R = 11 Then R = 12
      ru(1) = R : Messaggio(Rt)
      For Es = Fin - 1 To Ini Step - 1
        For p = 1 To 4
          For pp = p + 1 To 5
            a(1) = Estratto(Es,R,p)
            a(2) = Estratto(Es,R,pp)
            For q = 1 To 4
              For qq = q + 1 To 5
                b(1) = Estratto(Es + Rt,R,q)
                b(2) = Estratto(Es + Rt,R,qq)
                If Es + Rt <= Fin Then
                  If a(1) = b(1) And a(2) = b(2) Or a(1) = b(2) And a(2) = b(1) Then
                    ColoreTesto 1 : If pari(R) = True And R <> 12 Then : ColoreTesto 2
                    Scrivi SiglaRuota(R) & FormatSpace(Fin -(Es + Rt),4,True) & Space(3),0,0
                    ' Scrivi " " & FormatSpace(StringaNumeri(a),2,True) & " " & es + rt
                    Es = Ini 'Riempie la variabile -es- facendo 'saltare' il controllo nelle estrazioni successive.
                  End If
                End If
              Next 'qq
            Next 'q
          Next 'pp
        Next 'p
      Next 'es
    Next 'r
    Scrivi
  Next 'rt
End Sub

 

[simimi]

Grazie di cuore Joe, sei sempre così gentile nell'aiutare noi poveri sognatori.
Se ho altro da chiederti posso usufruire del tuo aiuto?
Grazie nuovamente

 

[joe]

Ciao,

Non so.

Senza descrizione, non è possibile sapere se è possibile o no.

Poi può dipendere da molti fattori non ponderabili in astratto e fuori da un contesto di spazio-tempo.

 

[simimi]

Buongiorno Joe,
ti chiedo se a quel listato si possono aggiungere le frequenze, per avere un dato completo.
Grazie

 

[joe]

Non ho capito la richiesta.

Nello script precedente ho lasciato solo un dato per ogni casella.

Questo dato è riferito ad un evento specifico (l'ultimo) dei 4 mila possibili,

di cui si conosce il ritardo ATTUALE.

Esso NON E' LO STORICO (secondo i Lottoamatori) o all'Estrazione come io preferisco definirlo.

Un "numero corrente" che non può (meglio non dovrebbe) essere confrontato con altri "numeri fissi".

Dunque se non spieghi BENE quello che vuoi, non so cosa (eventualmente si possa) fare.

 

[simimi]

Ciao Joe,
cerco di spiegarmi meglio.
Io questo script l'ho intendo nel seguente modo:
ogni estrazione ha una uscita di 5 numeri di volta in volta che creano il tabellone analitico.
Se noi prendiamo come esempio la ruota di Bari vediamo che la riga 16 ha un ritardo di 143 estrazioni, questo significa che
la cinquina che passa sulla riga 16 (e ogni estrazione cambia) non da un ambo da 143 estrazioni. Quindi io se lo ritengo opportuno comincerò a giocare la cinquina completa (72.6.63.79.86) che si trova a stazionare in quella riga ad ambo. Quindi anche se dal tabellone analitico quella riga è vuota io giocherò la cinquina intera ad ambo.
Fammi sapere se lo script è come lo intendo io.
In seguito aggiungiamo gli ulteriori sviluppi

 

[joe]

Ok ...

La procedura è descritta bene e sono sicuro che si possa ragionarci su.

Ora sarebbe importante sapere se qualcuno ha dei dati di riferimento,

Oppure ci sono programmi che eseguono questi calcoli.

Ed avere dei dati che potrebbero essere:

R_R 16
Ruo BA_
Rit 143
Max 260
Fre 234

Tu hai possibilità di avere riscontri ?

 

[simimi]

Buongiorno Joe,
ho visto che sei d'accordo con quello che ho scritto, per quanto riguarda i dati tempo fa avevo fatto delle tabelle in excel
solo che aggiornarle ad ogni estrazione era diventato molto laborioso, e quindi li avevo accantonate.
Se mi dai del temo, ritrovo i file e vedo come poterti aiutare.
Resto a tua completa disposizione per qualsiasi prova.

 

[joe]

Ho creato un nuovo script che ha prodotto la piccola tabella del mio messaggio precedente.

Sono piuttosto sicuro che funzioni e sia giusta.

La parte dei risultati comuni all'altro script lo è.

Però prima di lavorarci attorno a lungo, con il rischio di avere una grossa quantità di dati tutti sbagliati,

preferirei poter avere qualche altro risultato per poter controllare di più e meglio.

Per il tempo non c'è problema.

Però riprendere e ricordare tutto quanto c'è dietro uno script o un ragionamento vecchio

e/o dimenticato, non sempre mi è facile.

A volte mi è addirittura impossibile risalire al perché di certe scelte e soluzioni,

anche perché le cose cambiano con il tempo.

 

[simimi]

Ciao Joe, sarebbe possibile adattare lo script anche per l'ambata?
Grazie

 

[simimi]

Ciao Joe, non riesci ad accontentarmi circa lo script ad ambata?

 

[joe]

Ciao,

Gli script, spesso, non si prestano a troppe manipolazioni successive.

In quella direzione poi, si rinuncia anche ai pochi riferimenti utili

che si avevano per poter controllare se i risultati presenti erano giusti.

La ricerca per estratto è completamente diversa e in questi giorni non ho utilizzato il computer.

Dunque oltre quanto sopra, c'è stata, anche dell'impossibilità materiale.

Ma il problema più grosso e che non so se avrò voglia di rifare tutto diversamente ed ex-novo.

 

[simimi]

Ok ti ringrazio per quello che hai fatto.
Se avrai voglia di cimentarti nel nuovo progetto te ne sarò grato.
Con grande stima.
A presto

 

[Cinzia27]

Ciao Joe,
cerco di spiegarmi meglio.
Io questo script l'ho intendo nel seguente modo:
ogni estrazione ha una uscita di 5 numeri di volta in volta che creano il tabellone analitico.
Se noi prendiamo come esempio la ruota di Bari vediamo che la riga 16 ha un ritardo di 143 estrazioni, questo significa che
la cinquina che passa sulla riga 16 (e ogni estrazione cambia) non da un ambo da 143 estrazioni. Quindi io se lo ritengo opportuno comincerò a giocare la cinquina completa (72.6.63.79.86) che si trova a stazionare in quella riga ad ambo. Quindi anche se dal tabellone analitico quella riga è vuota io giocherò la cinquina intera ad ambo.
Fammi sapere se lo script è come lo intendo io.
In seguito aggiungiamo gli ulteriori sviluppi

Ciao, Simimi. La spiegazione è chiarissima. Non capisco però la riga che ho evidenziato in grassetto,

 

[simimi]

Ciao Cinzia,
per me il ritardo del ritardo significa giocare la cinquina che risulta più papabile dai dati estrapolati, quindi tenendo fede del tabellone analitico io andrò a giocare la cinquina che in quel momento occupa o ha occupato la riga. Quindi non gioco i numeri più frequenti o i più ritardatari ma quelli che hanno occupato ad esempio la riga più papabile. La curiosità è data dal fatto che uno vedendo il tabellone analitico lo trova privo di quei numeri che nel tempo sono usciti, mentre noi giochiamo la riga completa.
Fammi sapere se sono stato chiaro altrimenti ti posto qualche esempio.
Ciao

 

[simimi]

Ciao Cinzia ,
non mi hai fatto sapere più niente circa la spiegazione.
Attendo un tuo riscontro

 

[Cinzia27]

Ciao, Simimi. Non so se ho capito.
Mettiamo vi sia una cinquina intatta per ambo, questa va avanti come ritardo per ambo. Nel frattempo vi sono cinquine successive che escono o non escono per ambo, la riga più papabile qual' è ?

 

[simimi]

Ciao Cinzia,
il ritardo per cinquina è legato al rigo, quindi se quel rigo ha un ritardo di x estrazioni e la cinquina integra è 1.2.3.4.5, l'estrazione successiva il rigo avrà ritardo x + 1 e la cinquina sarà una nuova e così nelle estrazioni successive.
Quindi se io ho una riga con ritardo 100 e voglio cominciare a giocare quella riga ad ogni estrazione dovrò cambiare cinquina, perché ogni estrazione le righe si implementano di una nuova estrazione.

 

[Cinzia27]

Ciao, Simimi.
Spero che vada bene.

Sub main()
' Per Simimi
'Attuali cs passo da 1 a ...
'si ricerca da quante estrazioni non esce una cs per ambata con un certo ritardo
'Si considera, infatti, non  il rc ma il periodo di assenza del ritardo all' estrazione (Cinzia27)
Dim ru(1),nu(1)
fin=EstrazioneFin
ini=fin-2000
For i=0 To 200
co=0
For r=5 To 5
If r=11 Then r=12
ru(1)=r
co=0
For es=fin To ini step-1
For p=1 To 5
re=RitEstrazione (es,r,p)
If re=i Then
co=co+1
If co=1 Then
at=fin-es
ri= FormatSpace(es,4,1)&" "&SiglaRuota(r) &" rit all' estr. "&formatspace(re,4,1)&" manca da "& _
FormatSpace(at,4,1)
Scrivi ri&" n ",0,0
For x=1 To 90
nu(1)=x
rit=SerieRitardo(1,EstrazioneFin ,nu,ru,1)
If rit=re Then
 ColoreTesto 2
Scrivi  Format2(nu(1))&" ",0,0
If at>mx Then mx=at
End If
Next
ColoreTesto 0
Scrivi
End If
End If
Next
Next
Next
Next
Scrivi mx
End Sub