Novità

Ritardo del ritardo

simimi

Member
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

Advanced Member >PLATINUM<
Non so se è quello che hai chiesto.

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

Codice:
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

Member
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

Advanced Member >PLATINUM<
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

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

joe

Advanced Member >PLATINUM<
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

Member
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

Advanced Member >PLATINUM<
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

Member
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

Advanced Member >PLATINUM<
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.

:)
 

joe

Advanced Member >PLATINUM<
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

Member
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

Advanced Member >PLATINUM<
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

Member
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
 

Cinzia27

Advanced Member >PLATINUM<
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

Member
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

Advanced Member >PLATINUM<
Ciao, Simimi.
Spero che vada bene.

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 settembre 2021
    Bari
    54
    80
    62
    28
    21
    Cagliari
    43
    07
    21
    17
    48
    Firenze
    60
    25
    36
    55
    59
    Genova
    06
    22
    12
    88
    85
    Milano
    71
    16
    28
    60
    32
    Napoli
    54
    06
    85
    28
    20
    Palermo
    87
    42
    51
    15
    41
    Roma
    37
    45
    40
    78
    83
    Torino
    29
    08
    81
    23
    61
    Venezia
    01
    32
    17
    86
    67
    Nazionale
    64
    52
    24
    47
    11
    Estrazione Simbolotto
    Palermo
    31
    37
    26
    38
    12

Ultimi Messaggi

Alto