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