x Cinzia o chiunque vuole intervenire, da solo bivalenti a tutti gli ambi

Circa un anno fa grazie all'aiuto di Cinzia ho potuto provare questo listato che mi fa la ricerca sugli ambi bivalenti con un minimo di 600 estrazioni di ritardo e mi ricava il ritardo di ogni uscita più il ritardo fra un'uscita e l'altra


Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = InputBox("inizio",,8000)
For es = 8000 To EstrazioneFin
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)

If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then

For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub

Ora la mia richiesta è: come posso cambiarlo per fare la ricerca su tutti gli ambi ( al posto degli ambi bivalenti ) e magari scegliere su quali ruote?
Grazie

Ciao Cinzia27, la ricerca è su tutti gli ambi non su quelli isocroni.
Con l8+ c'è gia la sezione che fa questa ricerca,(statistica,ambi,tabella ambi) ma non mi dice a che estrazione sono usciti e sopratutto il ritardo fra un'uscita e l'altra.
Poi devo poter scegliere quali e quante ruote impostare per la ricerca.

ES: BARI-CAGLIARI
RITARDO MINIMO 1000 ESTRAZIONI
SU TUTTI I 4005 AMBI

Grazie.

Ciao Cinzia27, l'ordine rimane lo stesso dello script sopra ,( cioè per estrazione ) deve cambiare solo il tipo di ambi da ricercare(cioè tutti) e poter scegliere su quale e quante ruote.

Santani

Ciao Cinzia27, lo script che mi hai preparato è molto interessante, però non è come mi servirebbe.
Questo script ricerca 2 ambi usciti alla stessa estrazione su 2 ruote diverse, ne ricava il ritardo raggiunto prima dello sfaldamento e calcola il ritardo fra un'uscita e l'altra.
Questo è un esempio di come esce:

7757 Ba ambo 38.68-Ca ambo 18.90 sortito alla 9002 con rit 1244 3
7674 Ba ambo 41.79-Ca ambo 08.29 sortito alla 9006 con rit 1331 4
7347 Ba ambo 22.52-Ca ambo 49.63 sortito alla 9008 con rit 1660 2
7694 Ba ambo 22.48-Ca ambo 15.40 sortito alla 9010 con rit 1315 2
7430 Ba ambo 13.55-Ca ambo 28.58 sortito alla 9011 con rit 1580 1
7807 Ba ambo 69.85-Ca ambo 09.66 sortito alla 9012 con rit 1204 1
7807 Ba ambo 69.85-Ca ambo 66.78 sortito alla 9012 con rit 1204 0
7379 Ba ambo 18.37-Ca ambo 47.49 sortito alla 9017 con rit 1637 5
7802 Ba ambo 08.83-Ca ambo 56.81 sortito alla 9017 con rit 1214 0
7340 Ba ambo 17.47-Ca ambo 35.80 sortito alla 9019 con rit 1678 2

A me però servirebbe che la ricerca fosse con un ambo su una o più ruote (in questo esempio è su una ruota)
( potendo comunque scegliere il ritardo minimo )

ES:

7287 BA ambo 88.90 è sortito alla 8005 nella ruota di BA con rit 717
7367 BA ambo 42.77 è sortito alla 8018 nella ruota di BA con rit 650 ----13
7133 BA ambo 39.71 è sortito alla 8025 nella ruota di BA con rit 891-----7
7422 BA ambo 9.68 è sortito alla 8052 nella ruota di BA con rit 629 ------27
6816 BA ambo 16.58 è sortito alla 8072 nella ruota di BA con rit 1255 ---20
7466 BA ambo 9.73 è sortito alla 8077 nella ruota di BA con rit 610 ------5
7445 BA ambo 61.79 è sortito alla 8106 nella ruota di BA con rit 660 ----29
(esempio non reale, solo per rendere meglio l'idea)

La differenza è che l'ambo è uno solo su una o più ruote invece di due ambi
Spero di non aver fatto confusione
Saluti
Santani

Edited by santani - 14/12/2018, 20:06

Ciao G73 , se ho ben capito nel tuo esempio bisogna specificare quale ambo mettere in gioco.
Se invece si può mettere in gioco tutti quelli con un minimo di ritardo programmabile ( circa maggiore di 1000, poi vedrò ) ,
allora va bene!

L'ideale sarebbe poter mettere in gioco solamente i 10 ambi migliori cioè più ritardatari al posto del ritardo minimo di 1000 di cui accennato prima.
Il tutto su una ruota a scelta oppure due tre ruote a scelta

Tutto questo lo userei per verificare se quello che mi risulta dalle relativamente poche analisi fatte a "mano" , dopo un certo tipo di ritardo "minimo" fra uno sfaldamento e l'altro, la probabilità di un'altra uscita in tempi molto brevi aumenta notevolmente.

Ciao a tutti.
X Cinzia 27 mi sembra vada bene.

Ciao Cinzia27, purtroppo mi da errore riga 33

Scrivi " "&FormatSpace(cc,4,1)&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&siglaruota(r1)&" "&_

Cosa posso fare?

Purtroppo non va da me.
Io uso L8+ , mi da errore 450