|
|
| |
Salve,questo Listato L8+ e' molto utile in quanto calcola,quando si verificano 2 numeri isotopi su 2 ruote:
1)Le estrazioni in cui si e' verificata la condizione isotopa ricercata
2)Le Ambate piu' Frequenti sortite su quelle 2 ruote
3)Gli Ambi a Ruota e su Tutte piu' Frequenti sortiti su quelle 2 ruote
Esempio,vogliamo cercare su 2 ruote i numeri isotopi 14 e 15 nelle ultime 100 estrazioni,ecco una schermata di quello che fa' il Listato:
Tutti i valori del listato possono essere cambiati in base alle proprie esigenze,basta seguire gli imput a video:
 Qui inserire i numeri isotopi
 Qui' inserire i colpi da eleborare
 Qui' inserire le estrazioni da esaminare
durante l'elaborazione del listato sembrera' che il tutto sia bloccato,vedrete questo messaggio per un po' di tempo:
non preoccupatevi,lasciatelo lavorare,e' normale..
Ecco il Listato:
CODICE 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","14.15")
aa="0."&aa
s=Split(aa,".")
n(1)=CInt(s(1))
n(2)=CInt(s(2))
ww=InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
tmp=InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",100)
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)
For p=1 To 5
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
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
Nel caso vogliamo giocarne di meno di Ambi,basta mettere apice (') prima dell'ambo(o degli ambi) che non vogliamo giocare..
Nell'esempio sotto,metto in gioco solo 4 Ambi,ho messo l'apice(') davanti agli ambi che non volevo giocare(quelli segnati in rosso):
Se avete qualche buona ricerca trovata con questo listato,non esitate a pubblicarla su questo sito,tutto e' ben accetto...
Un saluto a tutti voi,Sean69!!
P.S.= un Grazie al sito di Ramcolotto per la realizzazione di questo splendido Listato:
http://ramcolotto.puntoforum.it/ramcolotto.html
Edited by sean69 - 4/10/2019, 10:23
|
|
.
Offline
Web