trovarle ambi in terzine

[korokoro]

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