ho letto sul post di black che vi è l'intenzione da parte dei big
(programmatori)del lotto di poter ampliare il programma
spaziometria con una nuova utility,quella dei metodi sommativi,se vi fa piacere, ho qualche drittina da dare.Ecco il mio modo di creare
metodi di qualsiasi natura (spia,somma ,indice mensile ,distanza....)
i listati son piu di uno e sono reperibili in rete all'occorrenza
se servono saranno ripostati sono di Ramco e Danilo. Per prima cosa
la scelta del metodo ,per semplificare salto tutti gli altri passaggi inseti nei listati,scelta: indice mensile,periodo ricerca,colpi,ruota/e, a questo punto faccio eseguire al listato la ricerca ottenendo le ambate (cerca ambate).Scelgo le prime dieci ambate con una percentuale maggiore di sortita
e con un secondo listato calcolo la coppia o la terzina con maggiore esito di sortita.Individuate la coppia o la terzina con esito maggiore inserisco singolarmente in un altro listato i componenti della terzina,che cercheranno algoritmi con esiti per ambo.Spero di aver reso l'idea ecco un piccolo esempio
da questa ricerca bisogna ricavare la coppia o la terzina con esiti
maggiori. inseriti nel listato ottengo che le giocate con esiti positivi
sono : 17/17 = 01-02-09
cioè:1°Ba + 55 :1°Ba + 61 :2°Ca + 31
ora singolarmente con gli algoritmi di sopra inseriti nel listato
cercheranno esiti per ambo.
e ottengo l'abbinamento per ambo che è il
2°Ro + 77 su Bari è uscito 5 su 17 casi
reimposto la nuova ricerca
ottenendo gli abbinamenti per ambo
1°Ba + 67 su Bari è uscito 5 su 17 casi - TOTALI: 5
5°Ba + 50 su Bari è uscito 5 su 17 casi - TOTALI: 5
5°Ca + 74 su Bari è uscito 5 su 17 casi - TOTALI: 5
2°Ve + 06 su Bari è uscito 5 su 17 casi - TOTALI: 5
a questo punto faccio la ricerca con :2°Ca + 31
per ottenere gli abbinamenti per ambo.
(programmatori)del lotto di poter ampliare il programma
spaziometria con una nuova utility,quella dei metodi sommativi,se vi fa piacere, ho qualche drittina da dare.Ecco il mio modo di creare
metodi di qualsiasi natura (spia,somma ,indice mensile ,distanza....)
i listati son piu di uno e sono reperibili in rete all'occorrenza
se servono saranno ripostati sono di Ramco e Danilo. Per prima cosa
la scelta del metodo ,per semplificare salto tutti gli altri passaggi inseti nei listati,scelta: indice mensile,periodo ricerca,colpi,ruota/e, a questo punto faccio eseguire al listato la ricerca ottenendo le ambate (cerca ambate).Scelgo le prime dieci ambate con una percentuale maggiore di sortita
e con un secondo listato calcolo la coppia o la terzina con maggiore esito di sortita.Individuate la coppia o la terzina con esito maggiore inserisco singolarmente in un altro listato i componenti della terzina,che cercheranno algoritmi con esiti per ambo.Spero di aver reso l'idea ecco un piccolo esempio
Codice:
Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru=InputBox("Su quale ruota, ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
ne=InputBox("Numero estrazioni:",,220)
perc=InputBox("Percentuale minima (60-90%):",,80)
ncg=InputBox("Numero colpi di gioco",,12)
ruota(1)=eval(nru)
casi=0
Codice:
ANALISI Dal 27.05.2010 al 22.10.2011
ESTRAZIONE DI CALCOLO : Ultima del mese
RUOTA DI GIOCO : Bari
COLPI DI GIOCO : 12
CASI ANALIZZATI : 17
1°Ba + 55 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 16
1°Ba + 61 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 18
1°Ba + 72 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 18
3°Ba + 46 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 15
4°Ba + 29 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 18
4°Ba + 86 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 17
5°Ba + 26 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 17
5°Ba + 82 su Bari è uscito 15 su 17 casi - AMBATE TOTALI: 24
2°Ca + 31 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 18
2°Ca + 49 su Bari è uscito 13 su 17 casi - AMBATE TOTALI: 18
maggiori. inseriti nel listato ottengo che le giocate con esiti positivi
sono : 17/17 = 01-02-09
cioè:1°Ba + 55 :1°Ba + 61 :2°Ca + 31
ora singolarmente con gli algoritmi di sopra inseriti nel listato
cercheranno esiti per ambo.
Codice:
Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru=InputBox("Su quale ruota, ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
ne=InputBox("Numero estrazioni:",,220)
perc=InputBox("Percentuale minima (60-90%):",,30)
ncg=InputBox("Numero colpi di gioco",,12)
'nn(2)=Fuori90(Estratto(es,1,1)+55)'capogioco x la ricerca degli abbinamenti
ruota(1)=eval(nru)
2°Ro + 77 su Bari è uscito 5 su 17 casi
reimposto la nuova ricerca
Codice:
Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru=InputBox("Su quale ruota, ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
ne=InputBox("Numero estrazioni:",,220)
perc=InputBox("Percentuale minima (60-90%):",,30)
ncg=InputBox("Numero colpi di gioco",,12)
'nn(2)=Fuori90(Estratto(es,1,1)+61)'capogioco x la ricerca degli abbinamenti
ruota(1)=eval(nru)
1°Ba + 67 su Bari è uscito 5 su 17 casi - TOTALI: 5
5°Ba + 50 su Bari è uscito 5 su 17 casi - TOTALI: 5
5°Ca + 74 su Bari è uscito 5 su 17 casi - TOTALI: 5
2°Ve + 06 su Bari è uscito 5 su 17 casi - TOTALI: 5
a questo punto faccio la ricerca con :2°Ca + 31
per ottenere gli abbinamenti per ambo.
Codice:
1°Ba + 72 su Bari è uscito 5 su 17 casi - TOTALI: 5
2°Fi + 63 su Bari è us