Ciao a tutti.
Posto questo mio script dal quale ho ricavato le coppie di ambi consecutivi mai usciti contemporaneamente
che ho pubblicato nel forum.
Ho omesso il filtro della consecutività per averli tutti e i tempi, già lunghi, sono diventati interminabili.
Qui vi sono molti bravi scripter. Qualcuno di loro ha voglia/tempo di ottimizzarlo per farlo arrivare alla conclusione ?
Grazie a chi vorrà rispondermi.
Posto questo mio script dal quale ho ricavato le coppie di ambi consecutivi mai usciti contemporaneamente
che ho pubblicato nel forum.
Ho omesso il filtro della consecutività per averli tutti e i tempi, già lunghi, sono diventati interminabili.
Qui vi sono molti bravi scripter. Qualcuno di loro ha voglia/tempo di ottimizzarlo per farlo arrivare alla conclusione ?
Grazie a chi vorrà rispondermi.
Codice:
'Coppie di ambi mai usciti contemporaneamente su tutte (Cinzia27)
Sub Main()
Dim ru(1),n(2),n1(2)
r=11
ru(1)=r
For i=84 To 88
For j=i+1 To 89
n(1)=i
n(2)=j
For i1=i+1 To 89
For j1=i1+1 To 90
n1(1)=i1
n1(2)=j1
'casi1=0
con=0
For es=1 To EstrazioneFin
fr=SerieFreqTurbo(es,es,n,ru,2)
If fr>0 Then
fr1=SerieFreqTurbo(es,es,n1,ru,2)
If fr1>0 Then
con=con+1
'casi1=casi1+1
'Scrivi FormatSpace(casi1,4,1)&") "& FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&StringaNumeri(n)&";"&StringaNumeri(n1)
End If
End If
Next
If con=0 Then
casi=casi+1
Messaggio FormatSpace(casi,4,1)&") "&FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "& _
StringaNumeri(n)&" "&StringaNumeri(n1)
rt=SerieRitardoTurbo(1,EstrazioneFin,n,ru,2)
rt1=SerieRitardoTurbo(1,EstrazioneFin,n1,ru,2)
m=Minimo(rt,rt1)
Scrivi "quantità "&con& " "&StringaNumeri(n)&";"&StringaNumeri(n1)& " rt "&FormatSpace(m,4,1),1
End If
Next
Next
Next
Next
End Sub