Option Explicit
Sub Main()
Dim ru(2) : Dim ru1(10) : Dim n(90) : Dim ambi(4005,5) : Dim nn(2)
Dim ini,fin,n1,cc,casi,co,es,r,rr,p,a,b,c,ess,x,p1,d,x,e,y,perc1,riga
ini = 3950 : fin = EstrazioneFin
For n1 = 1 To 90
For cc = 1 To 4005
ambi(cc,1) = 0:ambi(cc,2) = 0:ambi(cc,3) = 0:ambi(cc,4) = 0:ambi(cc,5) = 0
Next
casi = 0 : co = 0
For es = ini To fin
Messaggio " Numero Ripetuto : " & CInt(n1) & " Estr. " & es
For r = 1 To 9
rr = r + 1
For p = 1 To 5
a = Estratto(es,r,p) : b = Estratto(es,rr,p)
If(a = b And a = n1) Then
casi = casi + 1 : c = 12 : ess = es + 1 + c
If ess > fin Then ess = fin End If
For x = es + 1 To ess
For p1 = 1 To 5
d = Estratto(x,r,p1) : e = Estratto(x,rr,p1)
For y = 1 To 90
If d = y Or e = y Then n(y) = n(y) + 1 End If
Next
Next
Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1 : ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
nn(1) = x : nn(2) = y : ru(1) = r : ru(2) = rr : ru1(1) = 11
ambi(co,4) = ambi(co,4) + SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,5) = ambi(co,5) + SerieFreq(es + 1,ess,nn,ru1,2)
Next
Next
End If
Next
Next
Next
For y = 1 To 90
perc1 = Int(n(y)/(casi/100))
If perc1 > 199 Then
ColoreTesto 1 : Scrivi "Formazione Spia " & CInt(n1) & " Isotopi su ruote unite" : Scrivi : ColoreTesto 2
Scrivi "Casi: " & CInt(casi) & " N° " & CInt(y) & " Uscito n° " & CInt(n(y)) & " volte " & CInt(perc1) & "%"
ColoreTesto 1 : Scrivi "--------------------------------------------------------"
End If
Next
OrdinaMatrice ambi,- 1,4 : ColoreTesto 1 : Scrivi "Formazione Spia " & CInt(n1) & " Isotopi su ruote unite"
Scrivi : Scrivi "Ambi più frequenti nei " & c & " colpi su " & CInt(casi) & " casi" : Scrivi
Scrivi " Ambi a ruota" : ColoreTesto 2 : Scrivi String(10," ") & "Ambo Frequenza" : ColoreTesto 0
For x = 1 To 10
riga = Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " " & Format2(ambi(x,4))
Scrivi String(9," ") & riga : riga = ""
Next
OrdinaMatrice ambi,- 1,5 : ColoreTesto 1 : Scrivi " Ambi a Tutte"
ColoreTesto 2 : Scrivi String(10," ") & "Ambo Frequenza" : ColoreTesto 0
For x = 1 To 10
riga = Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " " & Format2(ambi(x,5))
Scrivi String(9," ") & riga : riga = ""
Next
Scrivi "********************************************************"
For cc = 1 To 90
n(cc) = 0
Next
Next
End Sub