Sub main()
Dim ru(2) : Dim ru1(10)
Dim n(90,2) : Dim ambi(4005,5) : Dim nn(2):Dim ambi1(4005,5) : Dim nn1(2)
r=CInt(InputBox("SU CHE RUOTA?",,1))
n1=CInt(InputBox("QUALE NUMERO?",,1))
p= CInt(InputBox("QUALE POSIZIONE?",,1))
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,1000))
c=CInt(InputBox("QUANTI COLPI?",,9))
casi=0
co=0
fin=EstrazioneFin
ini=EstrazioneFin-ee
For es=ini To fin
a=Estratto(es,r,p)
If a=n1 Then
casi=casi+1
ess=es+c
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
n(d,1)=d
n(d,2)=n(d,2)+1
cc=1
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y : ru1(1)=11
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi "NUMERO SPIA "&Cint(n1)&" su "& NomeRuota(r)&" in "&p&"° posizione",1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&c&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
ColoreTesto 1
Scrivi
Scrivi "Num.Ruota | Ambi a Ruota | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x=1 To 10
riga=" "&Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)
Scrivi riga
riga=""
Next
Scrivi "******************************************************************"
For cc=1 To 90
n(cc,1)=0
n(cc,2)=0
Next
End Sub