Ciao a tutti, si può fare ? con questo script invece di trovare i ambi normali , trovarle ambi in terzine............
Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE"
Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",4))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",65))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",12))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",1180))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",3))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es,es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
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)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
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
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
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 30
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)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub
Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE"
Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",4))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",65))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",12))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",1180))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",3))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es,es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
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)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
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
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
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 30
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)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub
