VENUS: PRIMA E DOPO 14.09.2009

Ciao Mike,
con gli script molto spesso svolgo ricerche di ogni tipo, ma di solito dal punto di vista statistico.

Comunque con il tuo script non ho fatto nessuna fatica, ho solo impostato la ricerca per ritardi correnti maggiori di 250, il resto l'ho lasciato uguale.
Ho aspettato circa 6 minuti e poi il tuo script ha regalato la tabella complessiva, l'ho esportata in excel ed ho selezionato dalla colonna "Verifica Ruota Venus" le celle vuote, cioè le uniche terzine in attesa ancora su tutte le ruote di ciascuna sede.

Di script purtroppo non sono in grado di farne neanche un rigo, però se devo fare pochi ritocchi alle date, alle ruote, ai valori dei ritardi riesco anch'io, aiutato soprattutto dall'abitudine a leggere i dati che gli script mi danno.

Anche questo secondo tuo script ha ottimi pregi, soprattutto per la velocità con cui ricava gli attuali e quindi avere il quadro complessivo sotto controllo.

Del primo script però ho notato una cosa strana: se lo utilizzo con fine archivio ad esempio al concorso 9000 con gli stessi criteri di rpima con ritardi correnti maggiori di 280 non riesce a darmi nulla e mi esce questo messaggio:

dsTableHtmLd.AddRiga

7-Memoria esaurita

Poi devo troncare Spaziometria e farlo ripartire, ma la ricerca non la fa.

Era mia intenzione fare alcuni saggi a ritroso, ma non sono riuscito a trovare nello script la soluzione che mi permetta di farlo: sarà qualche piccola cosa, che io non vedo.

Mentre stavo scrivendo questo messaggio ho fatto al riguardo altri tentativi con periodi diversi dell'archivio e mi capita che alcune volte fa quello che deve altre volte no: mistero per me.

Infine ho già detto in Bacheca, rispondendo a Gam, che magicamente ho risolto il problema spoiler, senza capire come sia successo.

Ti ringrazio per l'ottimo lavoro che hai svolto ed auguro a tutti una buona serata, ciao
Matteo

Ciao Mike,
tutto vero quello che dici.
Vorrei sottoporre alla tua attenzione uno dei tentativi che ho fatto con il tuo primo script.
Le impostazioni sono:

fin = EstrazioneFin - 1
fine = EstrazioneFin
Classe = CInt(3)
sorte = CInt(2)
ritmaxx = CInt(400)
nClasse = Classe
ResetTimer
T = Array(T,"kk","Terne","Rit Corr","Rit Max","IncrMax","Fre","verifica 1","Verifica Ruota Venus","Colpo")
Call InitTabella(T)
For r = 6 To 7

In pratica ho cambiato solo il Cint e le ruote scelte.

Lo script mi ha dato tra tutte le altre questa formazione

1549 17.25.82 477 540 0 28 PA 25 .. .. 17 82 BA .. .. 17 .. 82 677

Come vedi c'è un max storico di 677 che mi ha fatto sobbalzare dalla sedia.

Con Spaziometria ho trovato queste due sortite

165 07654 - 30/09/2006 Palermo 47.17.82.41.80 17 Ambo 17 82
166 08331 - 27/01/2011 Bari 15.12.17.05.82 676 Ambo 17 82

Come vedi si tratta di due sortite successive di solo ambo, nell'estrazione precedente non era sortito il terno, quindi non si tratta di un ritardo della terzina sincrona, perchè non lo era.

Ieri ne avevo trovato un altro caso simile, ma poi non sono più riuscito a ritrovarla e mi è sfuggita.

Sono contento per il fatto che quel ritardo non c'è stato, però forse nelle estrazioni a ritroso c'è qualcosa che non va.

Continuerò ad indagare per capire dove possa esserci l'errore.
Sempre grazie di tutto e ciao a tutti,
Matteo

Ciao Mike,
qui è cascato l'asino, il mio scopo era di limitare i campi di ricerca in modo che lo script mi desse tutti i dati, però non sapevo nulla di quello che hai detto tu e sono cascato.
Ora non compare più quella formazione.
A questo punto io vorrei utilizzare il tuo script uno per ogni compartimento per cercare di ricavare più formazioni possibili:

1) uno script per BA-NA-PA
2) uno script per CA-FI-RO-NZ
3) uno script per GE-MI-TO-VE

Come dovrei cambiare le impostazioni?
Sempre perfetto!
Grazie e ciao a tutti,
Matteo

Ciao Mike,
grazie ancora per il tuo impegno e la tua disponibilità.
Lo scopo di questi miei tentativi è quello di arrivare ad individuare il massimo storico per la sortita dell'ambo con una terzina sincrona sortita su una delle ruote del compartimento per la risortita su una delle stesse ruote.
A me non interessa la singola ruota, ma la risortita su una qualsiasi delle ruote dello stesso compartimento.

A questo scopo mi basterebbe il tuo primo script spezzettando l'archivio dal 14-09-2009 andando avanti a pezzetti d'archivio fino ad oggi.
Il problema però è nel fatto che essendo troppe le formazioni lo script ha difficoltà a darmi la situazione di tutte le terzine di tutte le 10 ruote dicendomi che la memoria è esaurita
Per questo avevo pensato a dividere la ricerca ad un compartimento per volta, così come è possibile fare con il tuo secondo script, che mi permette di scegliere le ruote di volta in volta.

Credo che quella giusta dovrebbe essere la prima soluzione che tu hai prospettato.
Vediamo come va, ciao e grazie
Matteo

Ciao Mike,
l'hai detto troppo presto che m'intendo di script.
Per non sbagliare ho preso il tuo script originale dal tuo post

Ho incollato la tua riga subito dopo 'estrapola ruota venus ' in questo modo, però mi dà errore alla linea 57 errore 1038 'loop' senza 'do'

Imbranato, non c'è che dire, scusami e grazie ancora,
Matteo

Sub Main
Dim Ru(1),Terne(3),aN(90),aCol,T,V
Dim nClasse
Ini = 3950'EstrazioneIni
fin = EstrazioneFin - 1
fine = EstrazioneFin
Classe = CInt(3)
sorte = CInt(2)
ritmaxx = CInt(1000)
nClasse = Classe
ResetTimer
T = Array(T,"kk","Terne","Rit Corr","Rit Max","IncrMax","Fre","verifica 1","Verifica Ruota Venus","Colpo")
Call InitTabella(T)
For r = 1 To 10
Ru(1) = r
For k = 1 To 90
aN(k) = k
Next
nCol = InitSviluppoIntegrale(aN,nClasse)
k = 0
Do While GetCombSviluppo(aCol)
k = k + 1
Terne(1) = aCol(1)
Terne(2) = aCol(2)
Terne(3) = aCol(3)
If Terne(1) <> Terne(2) And Terne(2) <> Terne(3) Then
sf = SerieRitardoTurbo(Ini,fin,Terne,Ru,sorte)
If sf > ritmaxx Then
kk = kk + 1
Call Messaggio("Elaboro Terne per Ambo " & TempoTrascorso)
Call AvanzamentoElab(1,90,kk)
Call StatisticaFormazioneTurbo(Terne,Ru,sorte,rit,max,Incr,fre,Ini,fin)
'If rit > ritmaxx Then
Call VerificaEsitoTurbo(Terne,Ru,fin - rit,3,,,esito,,esa,ida)
Call VerificaEsitoTurbo(Terne,Ru,fine,sorte,,,,,esb,idb)
If esito <> "" Then
kkk = kkk + 1
'------------estrapola ruota venus ---------------------
If R = 1 Or R = 6 Or R = 7 Then
If r = 2 Then rr = Array(0,2,3,8,12)
If r = 3 Then rr = Array(0,2,3,8,12)
If r = 4 Then rr = Array(0,4,5,9,10)
If r = 5 Then rr = Array(0,4,5,9,10)
If r = 6 Then rr = Array(0,1,6,7)
If r = 7 Then rr = Array(0,1,6,7)
If r = 8 Then rr = Array(0,2,3,8,12)
If r = 9 Then rr = Array(0,4,5,9,10)
If r = 10 Then rr = Array(0,4,5,9,10)
'spp = SeriePrima(fin-rit+1,fin,Terne,rr,2)
Call VerificaEsitoTurbo(Terne,rr,fin - rit + 1,2,,,,clp,essa,idss)
V = Array(V,kkk,StringaNumeri(Terne),rit + 1,max + 1,Incr,fre,esa,essa,clp)
Call AddRigaTabella(V)
End If
End If
'Loop
End If
Loop
Next
Call CreaTabella(3)
Scrivi TempoTrascorso
End Sub

Ciao Mike,
dopo quest'altra lezione il mio conto da pagare sale ancora; grazie ancora, non ci sarei mai arrivato.
Poi seguiranno i commenti, ciao a tutti
Matteo

Grande Mike,
era quello che cercavo, un mix tra il tuo primo script e la versatilità del secondo script, come ti avevo accennato prima con la scelta delle ruote.
Se i dati sono giusti è perfetto per tutto ed anche per i tempi ridottissimi, che cercavo.
Ho fatto un paio di controlli e mi sembra completissimo, ci hai messo anche gli indici id: veramente ottimo, un lavoro eccellente.
Un grazie di cuore Mike, ciao e buona serata,
Matteo

Adesso andiamo a vedere le estrazioni di questa sera.

Ciao a tutti,
ieri avevo detto di sperare di fare contento qualcuno postando le terzine più ritardate sulle ruote di BA-NA-PA.

Questa sera ambo 84-85 a PA con la seconda terzina più ritardata.

Chissà se qualcuno ne ha approfittato, purtroppo io no.
Ciao e buona serata a tutti,
Matteo