chiedo

[solare]

Se qualcuno del forum ha un script che faccia questa ricerca:
dopo due numeri uguali in due ruote conoscere quali sono i numeri più frequenti per ambata
ed eventualmente gli abbinamenti migliori per ambo nelle due ruote di ritrovamento.
Grazie e buona domenica.-

 

[Roby]

Questo è quello che ho....
Ciao

Sub main() 
Dim ruote(2) 
Dim n(90)
Dim uscito(90)
casi=0
fin=EstrazioneFin 
ini=8000 
For cc=1 To 90
n(cc)=0
Next
For es=ini To fin 
Messaggio " Estrazione : "& DataEstrazione(es)
	For r=1 To 9
		For p=1 To 5
			a=Estratto(es,r,p)			
            For rr = r+1 To 10
               	b=Estratto(es,rr,p)			             
            	If a=b Then 
					casi=casi+1
            		c=10
					ess=es+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)
							n(d)=n(d)+1
							e=Estratto(x,rr,p1)
							n(e)=n(e)+1
						Next
					Next
				End If 
			Next
		Next
	Next
Next
For y=1 To 90
perc1=Int(n(y)/(casi/100))
If perc1 > 100 Then
Scrivi "Numero Isotopo Su due ruote giocando per "&Cint(c)&" colpi"
Scrivi
Scrivi "Casi: "&Cint(casi)&"     N° "&Cint(y)&"  Uscito n° "&Cint(n(y))&" volte       "&Cint(perc1)&"%"
Scrivi "********************************************************"
End If
Next
End Sub

 

[Roby]

Sub main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
aa=InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","47.47")'cambiare le spie a proprio piacimento 
aa="0."&aa
s=Split(aa,".")
n(1)=CInt(s(1))
n(2)=CInt(s(2))
ww=InputBox("Quanti colpi successivi da esaminare?","COLPI",10)
tmp=InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",100)
pos=InputBox("In quale  posizione?","posizione",5)
rtt(1)=11
Erase nu1 : Erase nu2 : Erase nu3 : Erase nu4 : Erase mat
fin=EstrazioneFin
ini=EstrazioneFin -tmp
For es=ini To fin
Messaggio " Numeri Spia "& StringaNumeri(n)&" Data "& DataEstrazione(es)
For r=1 To 10
x(1)=n(1) : x(2)=n(2)
 p=pos  ' Mettere Apice Per la ricerca in tutte le posizioni
'For p=1 To 5 'Togliere Apice Per la ricerca in tutte le posizioni
a=Estratto (es,r,p)
If a=n(1) Or a=n(2) Then
If a=n(1) Then x(1)=0 Else x(2)=0
For r1=r+1 To 11
If r1=11 Then r1=12
b=Estratto(es,r1,p)
If b=x(1) Or b=x(2) Then
Call informa(es,r,a,r1,b)
casi=casi+1
ess=es+ww
If ess>fin Then ess=fin End If
co=0
For x1=1 To 89
For y1=x1+1 To 90
co=co+1
nu1(co,1)=co : nu1(co,2)=x1 : nu1(co,3)=y1
nn(1)=x1 : nn(2)=y1 : ru(1)=r : ru(2)=r1
k1=SerieFreq (es+1,ess,nn,ru,2)
nu1(co,4)=nu1(co,4)+ k1
nu2(co,1)=co : nu2(co,2)=x1 : nu2(co,3)=y1
nn1(1)=x1 : nn1(2)=y1
k2=SerieFreq (es+1,ess,nn1,ru,2)
If k2>1 Then k2=1
nu2(co,4)=nu2(co,4)+ k2
mat(co,1)=co : mat(co,2)=x1 : mat(co,3)=y1
ne(1)=x1 : ne(2)=y1
xf=SerieFreq(es+1,ess,ne,rtt,2)
mat(co,4)=mat(co,4)+xf
Next
Next
co=0
For xx=1 To 90
co=co+1
nu3(co,1)=co : nu3(co,2)=xx
nn2(1)=xx : ru(1)=r : ru(2)=r1
k3=SerieFreq (es+1,ess,nn2,ru,1)
If k3>1 Then k3=1
nu3(co,3)=nu3(co,3)+ k3
nu4(co,1)=co : nu4(co,2)=xx
nn2(1)=xx
k4=SerieFreq (es+1,ess,nn2,ru,1)
nu4(co,3)=nu4(co,3)+ k4
Next
End If
Next
End If
Next
Next
'Next ' per la ricerca in tutte le posizini
OrdinaMatrice mat,-1,4
OrdinaMatrice nu1,-1,4
OrdinaMatrice nu2,-1,4
OrdinaMatrice nu3,-1,3
OrdinaMatrice nu4,-1,3
ColoreTesto 2
Scrivi "Formazione Spia Cercata ISOTOPA su due ruote "& StringaNumeri(n)&" dal "&_
DataEstrazione(ini)&" al "& DataEstrazione(fin)&""
ColoreTesto 1
Scrivi "Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "&ww&_
" estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti"&_
"+presenti nei c. / Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(6)&"Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
ColoreTesto 0
For wx=1 To 20
riga= Format2(nu1(wx,2))&"-"& Format2(nu1(wx,3))&" tot "& Format2(nu1(wx,4))& Space (4)&_
Format2 (nu2(wx,2))&"-"& Format2(nu2(wx,3))&" tot "& Format2 (nu2(wx,4))& Space (5)&_
Format2(nu3(wx,2))&" tot "& Format2 (nu3(wx,3))& Space (6)& Format2(nu4(wx,2))&" tot "&_
Format2 (nu4(wx,3))
Scrivi Space(7)& riga,1
riga=""
Next
Scrivi String(90,"*")
Scrivi : ColoreTesto 1 : Scrivi Space (4)& "Ambi + frequenti a TUTTE",1 : ColoreTesto 0
For wx=1 To 20
riga= Format2(mat(wx,2))&"-"& Format2(mat(wx,3))&" tot. "& Format2(mat(wx,4))
Scrivi Space(8)& riga,1
riga=""
Next
End Sub
Function informa (es,r,a,r1,b)
Scrivi DataEstrazione(es)&" "& SiglaRuota(r)&" "& Format2(a)&" e "& SiglaRuota(r1)&" "& Format2(b),1
End Function

 

[solare]

Grazie blackmore gentilissimo