BARI:Statistiche di rigo per ambo, sincrononi di livello 3

[FABIO60]

Script:

Sub Main()
Dim ruota(1)
Dim a1(1),a2(1),a3(1),a4(1),a5(1)
Dim max(90),rita(90),pres(90),esiti(90)
Dim num(5)
For rr = 1 To 1
Messaggio NomeRuota(rr)
ruota(1) = rr
eini =3950' EstrazioneFin - 1500
efin = EstrazioneFin
Scrivi
Scrivi
Scrivi NomeRuota(rr)
Scrivi "Statistiche di rigo per ambo dei sincrononi di livello 3(quando sono presenti TRE numeri "
Scrivi "dal" & DataEstrazione(eini) & " al " & DataEstrazione(efin)
x = 1
y = 55
Scrivi "da rigo " & x & " a rigo " & y
Scrivi
For ep = x To y
AvanzamentoElab x,y,ep
For i = eini To efin
For p = 1 To 5
num(p) = Estratto(i -(ep + 1),rr,p)
Next
a1(1) = Estratto(i -(ep + 1),rr,1)
a2(1) = Estratto(i -(ep + 1),rr,2)
a3(1) = Estratto(i -(ep + 1),rr,3)
a4(1) = Estratto(i -(ep + 1),rr,4)
a5(1) = Estratto(i -(ep + 1),rr,5)
If SerieFreq(i - ep,i - 1,a1,ruota,1) > 0 Then num(1) = - 1
If SerieFreq(i - ep,i - 1,a2,ruota,1) > 0 Then num(2) = - 1
If SerieFreq(i - ep,i - 1,a3,ruota,1) > 0 Then num(3) = - 1
If SerieFreq(i - ep,i - 1,a4,ruota,1) > 0 Then num(4) = - 1
If SerieFreq(i - ep,i - 1,a5,ruota,1) > 0 Then num(5) = - 1
OrdinaMatrice num,- 1
If num(3) > 0 And num(4) < 1 Then
pres(ep) = pres(ep) + 1
End If
If num(3) > 0 And num(4) < 1 And SerieFreq(i,i,num,ruota,2) > 0 Then
rita(ep) = 0
esiti(ep) = esiti(ep) + 1
Else
If num(3) > 0 And num(4) < 1 And SerieFreq(i,i,num,ruota,2) = 0 Then
rita(ep) = rita(ep) + 1
If max(ep) < rita(ep) Then max(ep) = rita(ep)
End If
End If
Next
Next
Scrivi "rigo" & Space(3),0,0
Scrivi " rit__sto__pres__sortite" & Space(5),0,0
Scrivi
For es = eFin - y To eFin
Scrivi "RC " & FormatSpace(efin - es,5) & " " & FormatSpace(rita(efin - es),4) & " "_
& FormatSpace(max(efin - es),4) & " " & FormatSpace(pres(efin - es),4) & " " & FormatSpace(esiti(efin - es),4)
Next
Erase rita
Erase max
Erase pres
Erase esiti
Next
End Sub


output:
Bari Statistiche di rigo per ambo dei sincrononi di livello 3(quando sono presenti TRE numeri dal14.09.1946 al 05.09.2017 da rigo 1 a rigo 55 ''''''''
RC 7 697 697 1800 16 '''''''
Saluti

 

[vincenzo4221]

grazie Fabio, un altro script veramente utile....