fillotto
Advanced Member >PLATINUM<
Da una correzione x Joe Lotto fatta da DJNomade .......chiedo un ulteriore correzione questo è il listato in questione vedi in fondo
La richiesta di 2 num non ci dovrebbe stare le due ruote dovrebbero essere consecutive al posto dei 2 num la condizione che il primo num = al secondo e le posizioni sulla 1^ruota= quinta posiz sulla 2^ ruota= prima posiz in modo da relevare situazioni come questa
Codice:
'Da Lottoced [URL]http://forum.lottoced.com/newreply.php?do=postreply&t=92396[/URL] Listato modificato da
DjNomade X joi_lotto
'Ambate-Ambi Freq dopo due Spie ISOTOPE su 2 ruote
'Ambate-Ambi Freq dopo due Spie ISOTOPE su 2 ruote
'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 di output
'13.08.2011 Ge 15 e Ve 14
'01.12.2011 Ge 14 e Ve 15
'Formazione Spia Cercata ISOTOPA su due ruote 14.15 dal 10.04.2010 al 10.03.2012
'Casi riscontrati 2 - Analisi effettuata sulle 9estrazioni sucessive
'CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE
'Ambi+frequenti / Ambi+presenti nei cicli / Estratti+presenti nei c. / Estratti+frequenti
' Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE
' 08-79 tot 02 09-44 tot 02 03 tot 02 68 tot 06
' 09-44 tot 02 22-68 tot 02 04 tot 02 09 tot 05
' 14-18 tot 02 25-68 tot 02 09 tot 02 86 tot 05
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))
r = InputBox("1° Ruota di ricerca?",,4)
r1 = InputBox("2° Ruota di ricerca?",,10)
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)
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
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
End If
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 10
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 10
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
Codice:
07.02.2012 MI 36 e NA 36
Formazione Spia Cercata :STESSO NUMERO (36) MI 5^ pos NA 1^ pos dal 21.07.2011 al 10.03.2012
Casi riscontrati 1 - Analisi effettuata sulle 9estrazioni sucessive
CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE
Ambi+frequenti / Ambi+presenti nei cicli / Estratti+presenti nei c. / Estratti+frequenti
Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE
03-73 tot 02 25-85 tot 01 53 tot 01 65 tot 05
65-71 tot 02 60-65 tot 01 54 tot 01 20 tot 03
50-73 tot 02 21-39 tot 01 51 tot 01 25 tot 03
20-23 tot 02 48-51 tot 01 52 tot 01 16 tot 03
25-85 tot 01 09-65 tot 01 59 tot 01 73 tot 03
15-50 tot 01 52-79 tot 01 60 tot 01 54 tot 03
52-79 tot 01 15-50 tot 01 57 tot 01 50 tot 03
54-80 tot 01 54-80 tot 01 58 tot 01 22 tot 02
60-65 tot 01 38-47 tot 01 50 tot 01 52 tot 02
21-39 tot 01 21-38 tot 01 41 tot 01 51 tot 02
******************************************************************************************
Ambi + frequenti a TUTTE
65-73 tot. 03
62-90 tot. 03
32-77 tot. 03
60-65 tot. 03
13-53 tot. 03
50-73 tot. 03
15-33 tot. 03
35-52 tot. 03
53-76 tot. 03
11-46 tot. 03
Ultima modifica:
se si può vedere questo script...
