Ambo a Tutte le Ruote

[PerdoLotto]

Salve ragazzi,

per chi è bravo con i listati di Spaziometria, è possibile creare un listato che mi cerchi gli ambi a tutte le ruote?

Mi spiego meglio...esempio 02-45 attualmente è l'ambo con maggiore ritardo a Tutte le Ruote con 343 estrazioni.
Volevo sapere se è possibile fare una ricerca anche di altri ambi passati e dei loro ritardi a Tutte le Ruote

 

[joe]

Ciao.

Per gli attuali ... giustamente ... il caso sceglie uno o pochi ambi con un ritardo elevato.

Nel passato ci sono 4005 Ambi diversi in 9 Mila e rotti estrazioni diverse.

Dunque ... estrazione per estrazione si può verificare ciò che si vuole,

MA ... per non avere milioni di dati e cioè tutti i dati di tutta la storia del lotto

si deve scegliere di ridurre molto.

Per ora questo codice conferma quanto hai scritto sul ritardo attuale:

Option Explicit
Sub Main
'Ritardo Attuale degli Ambi a Tutte.
'Script By Joe
  Dim A,B,R,Rit
  R = TT_
  For A = 1 To 89
    For B = A + 1 To 90
      Rit = AmboRitardo(R,A,B)
      If Rit > 250 Then
        Scrivi Format2(A) & "." & Format2(B),True,False
        Scrivi " Rit " & SiglaRuota(R) & FormatSpace(Rit,4,True)
      End If
    Next
  Next
End Sub

Una sua variante ... tenterà ... una risposta.

 

[joe]

Option Explicit
Sub Main
  'Ambi con Maggior Ritardo Storico a Tutte.
  'Script By Joe
  Dim A,B,R,Sto,Nu(2),Ru(1),Mx
  R = TT_ : Ru(1) = R
  For A = 1 To 89
    AvanzamentoElab 1,90,A
    For B = A + 1 To 90
      Nu(1) = A
      Nu(2) = B
      Sto = SerieStoricoTurbo(1,EstrazioneFin,Nu,Ru,2)
      If Sto > 500 Then
        Scrivi Format2(A) & "." & Format2(B),True,False
        Scrivi " Sto " & SiglaRuota(R) & FormatSpace(Sto,4,True)
      End If
    Next
  Next
End Sub

 

[PerdoLotto]

Ciao.

Per gli attuali ... giustamente ... il caso sceglie uno o pochi ambi con un ritardo elevato.

Nel passato ci sono 4005 Ambi diversi in 9 Mila e rotti estrazioni diverse.

Dunque ... estrazione per estrazione si può verificare ciò che si vuole,

MA ... per non avere milioni di dati e cioè tutti i dati di tutt al storia del lotto

si deve scegliere di ridurre molto.

Per ora questo codice conferma quanto hai scritto:

Option Explicit
Sub Main
'Ritardo Attuale degli Ambi a Tutte.
'Script By Joe
Dim A,B,R,Rit
R = TT_
For A = 1 To 89
For B = A + 1 To 90
Rit = AmboRitardo(R,A,B)
If Rit > 250 Then
Scrivi Format2(A) & "." & Format2(B),True,False
Scrivi " Rit " & SiglaRuota(R) & FormatSpace(Rit,4,True)
End If
Next
Next
End Sub

Una sua variante ... tenterà ... una risposta.

Grazie

 

[PerdoLotto]

Option Explicit
Sub Main
'Ambi con Maggior Ritardo Storico a Tutte.
'Script By Joe
Dim A,B,R,Sto,Nu(2),Ru(1),Mx
R = TT_ : Ru(1) = R
For A = 1 To 89
AvanzamentoElab 1,90,A
For B = A + 1 To 90
Nu(1) = A
Nu(2) = B
Sto = SerieStoricoTurbo(1,EstrazioneFin,Nu,Ru,2)
If Sto > 500 Then
Scrivi Format2(A) & "." & Format2(B),True,False
Scrivi " Sto " & SiglaRuota(R) & FormatSpace(Sto,4,True)
End If
Next
Next
End Sub

Grazie anche per quest'altro script, solo che incrociando i dati, non mi trovo.

Ora ti scrivo cosa mi ha tirato fuori il tuo script, con ritardo sopra le 500 estrazioni, così come lo hai impostato...

03.35 Sto TT 553 (256) 03.68 Sto TT 720 (236) 04.54 Sto TT 533 (OK) 05.31 Sto TT 525 (240) 07.19 Sto TT 508 (224) 10.50 Sto TT 567 (234) 11.34 Sto TT 583 (OK) 20.59 Sto TT 562 (194) 25.44 Sto TT 569 (230) 29.70 Sto TT 626 (205) 31.48 Sto TT 507 (OK) 32.69 Sto TT 519 (203) 34.51 Sto TT 554 (175) 35.36 Sto TT 514 (OK) 39.46 Sto TT 632 (229) 41.49 Sto TT 531 (252) 44.80 Sto TT 630 (OK) 52.78 Sto TT 555 (217) 53.59 Sto TT 513 (OK) 57.77 Sto TT 541 (234) 68.75 Sto TT 598 (185) 77.88 Sto TT 547 (195)
Mentre fra le parentesi ho scritto i dati facendo una ricerca manuale.

Conclusione lo script non fa il suo lavoro oppure dove mi sono ricavato i dati è un sistema obsoleto???

 

[joe]

Ciao Salvatore,

No ... il tuo (altro) programma a cui ti sei riferito,

probabilmente ha un archivio che parte dal 1945/1946.

Attualmente composto di circa 5500 estrazioni.

Ne sono sicuro al 99,99 %.

con questo archivio è naturale che non ci siano

livelli così elevati di ritardo.

 

[PerdoLotto]

Il mio archivio parte dal 05 gennaio 1945 (VL5)

 

[joe]

Il mio archivio parte dal 05 gennaio 1945 (VL5)

C.V.D.

se sostituisci con

DataEstrToIdEstr (05,01,1945)

al posto di "1" nella linea dove viene calcolato lo storico

Sto = SerieStorico ( DataEstrToIdEstr (05,01,1945),EstrazioneFin, ... ecc,

Otterrai gli stessi risultati che hai riportato.

 

[PerdoLotto]

Ciao Joe,

ho fatto in questo modo...

 Option Explicit Sub Main   'Ambi con Maggior Ritardo Storico a Tutte.   'Script By Joe   Dim A,B,R,Sto,Nu(2),Ru(1),Mx   R = TT_ : Ru(1) = R   For A = 1 To 89     AvanzamentoElab 1,90,A     For B = A + 1 To 90       Nu(1) = A       Nu(2) = B       Sto = SerieStoricoTurbo(05,01,1945,EstrazioneFin,Nu,Ru,2)       If Sto > 500 Then         Scrivi Format2(A) & "." & Format2(B),True,False         Scrivi " Sto " & SiglaRuota(R) & FormatSpace(Sto,4,True)       End If     Next   Next End Sub

Ci impiega un'infinità, poi mi esce scritto "Spaziometria (non risponde)" e di volta in volta mi esce anche questo banner...



Ho cliccato su "Continue" ogni volta che mi è comparso (già 3 volte), solo che ora in modo forzato chiudo il software.
Si è fatto tardi. Fammi sapere...

 

[joe]

Ciao Salvatore

quel messaggio ... permette ... di fermare l'elaborazione di uno script.

Specie quando è sbagliato e non si fermerebbe ... mai.

Ma non è necessaria nessuna conferma ad esso.

Dunque l'esecuzione continua regolarmente.

Lo script è un pò lento perchè è scritto senza particolari ottimizzazioni.

Ma (anche qui) in considerazioen del molto lavoro che deve fare ...

meno di 1 minuto per fornire i risultati ... è accettabile.

Sub Main
'Ambi con Maggior Ritardo Storico a Tutte dal 14/09/1946.
'Script By Joe
Dim Ini,Fin,A,B,R,Sto,Nu(2),Ru(1)
'Ini = 1 : Fin = EstrazioneFin
Ini = DataEstrToIdEstr (14,09,1946): Fin = EstrazioneFin
R = TT_ : Ru(1) = R
For A = 1 To 89 : Nu(1) = A
AvanzamentoElab 1,90,A
For B = A + 1 To 90 : Nu(2) = B
Sto = SerieStoricoTurbo(Ini,Fin,Nu,Ru,2)
If Sto > 400 Then
Scrivi Format2(A) & "." & Format2(B),True,False
Scrivi " Sto " & SiglaRuota(R) & FormatSpace(Sto,4,True)
End If
Next
Next
Scrivi TempoTrascorso
End Sub

 

[PerdoLotto]

Ciao Joe,

...grazie!