'
' elenca ambate e ambi più frequenti su ruota e tutte coestratti con la spia anche su posizione specifica
Sub Main()
Dim p
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))
ambata = CInt(InputBox("QUALE NUMERO ?",,90))
'p = CInt(InputBox("QUALE POSIZIONE ?",,1)) '* escludere questa riga per operare su tutte le posizioni di estratto
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,150))
eescluse = CInt(InputBox("QUANTE ESTRAZIONI ESCLUDO DAL CONTROLLO?",,0))
'c = CInt(InputBox("QUANTI COLPI?",,1))
lista = CInt(InputBox("QUANTE RIGHE IN ELENCO AMBATE ? ",,10))
el_TUTTE = CInt(InputBox("QUANTE RIGHE IN ELENCO AMBI A TUTTE ?",,10))
casi = 0 ' contatore casi
co = 0 ' contatore
fin = EstrazioneFin - eescluse
ini = EstrazioneFin - ee
For es = ini To fin
Messaggio " Cosetratti del :" & ambata & " a " & FormatSpace(NomeRuota(r),4,- 1) & " Estrazione : " & es
For p = 1 To 5 '* escludere questa riga per operare su specifica posizioni di estratto
a = Estratto(es,r,p)
If a = ambata Then 'se a = numero Impostato allora
casi = casi + 1 ' conta casi
Scrivi CInt(casi) & ") " & GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " - " & FormatSpace((EstrazioneFin - es),4,1)
If ess > fin Then ess = fin End If 'ess = es + c ' estrazione in analisi + colpi
'If ess > fin Then ess = fin End If ' se ess (estrazione selezionata)> fin (EstrazioneFin) allora ess= fin
For x = es To es ' mantiene la ricerca nell'estrazione selezionata
'For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
n(d,1) = d ' crea la matrice
n(d,2) = n(d,2) + 1
cc = 1
Next
Next
co = 0
For x = 1 To 89 '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,es,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,es,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 '* escludere questa riga per operare su specifica posizioni di estratto
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(Fin) & " - " & CInt(ee) & " estrazioni",1,1
Scrivi "NUMERO SPIA " & CInt(ambata) & " su " & NomeRuota(r) & " in tutte le posizioni",1
'Scrivi "NUMERO SPIA " & CInt(ambata) & " su " & NomeRuota(r) & " al " & p-1 & "° estratto",1
Scrivi "-----------------------------------"
Scrivi "Coestratti nei " & casi & " casi esaminati",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
ColoreTesto 2
Scrivi GetInfoEstrazione(fin) & " " & SiglaRuota(r) & " " & StringaEstratti(fin,r) & " | estrazione di controllo esito"
ColoreTesto 1
Scrivi
Scrivi "Nu.Ruota | Ambi Ruota | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x = 1 To lista
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 "*****| Coestratti abbinabili a Ruota |*****"
ColoreTesto 0
For x = 1 To lista ' coestratti in elenco
ReDim nz(90)
ReDim ruote(1)
ruote(1) = r
nz(1) = n(x,1)
If VerificaEsito(nz,ruote,(fin + 1),1,,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
rige = "" & Format2(n(x,1)) & "......" & Format2(n(x,2)) & " | " & FormatSpace(CInt(n(x,2)/casi*100),4,1) & "% |" & _
FormatSpace((RetColpi),2,1) & "° colpo| " & RetEstratti & " |" & StringaEstratti(RetIdEstr,r) & "|"
Scrivi rige
Else
ColoreTesto 0
rige = "" & Format2(n(x,1)) & "......" & Format2(n(x,2)) & " | " & FormatSpace(CInt(n(x,2)/casi*100),4,1) & "% | - - - | "
Scrivi rige
End If
rige = ""
Next
Scrivi "**********| Ambi a Tutte |************************"
ColoreTesto 0
For x = 1 To el_TUTTE
ReDim nz(90)
ReDim ruote(10)
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
nz(1) = ambi1(x,2)
nz(2) = ambi1(x,3)
If VerificaEsito(nz,ruote,(fin + 1),2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
rige = "" & Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & Format2(ambi1(x,5)) & " | " & FormatSpace(CInt(ambi1(x,5)/casi*100),4,1) & "% |" & _
FormatSpace((RetColpi),2,1) & "° colpo| " & RetEstratti '& " |"& StringaEstratti(retidEstr,ruote,".")& "|"
Scrivi rige
Else
ColoreTesto 0
rige = "" & Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & Format2(ambi1(x,5)) & " | " & _
FormatSpace(CInt(ambi1(x,5)/casi*100),4,1) & "% | - - - | "
Scrivi rige
End If
rige = ""
Next
Scrivi String(44,"*")
Exit Sub
End Sub
