Aiuto Perfezionamento Script

[fillotto]

Questo metodo come sotto riportato ha degli alti e bassi come qualsiasi metodo, facendo delle prove su le diverse ruote la migliore risulta NA come è nell'ordine delle cose succede che una ruota può essere più favorevole delle altre.
Così come sono riuscito ad impostarlo mi ricava 25 differenze che sono quelle spiegate nel corpo dello script se vi sono due differenze uguali allora imposto la giocata nel modo che si evince sempre leggendo le righe dello script.
Questo nel chiaro intento di sfruttare al massimo la frequenza che si crea tra una estrazione e la successiva , dopo le varie prove mi sono accorto che se si verificano tre differenze uguali (ora è sviluppato se si verificano 2 diferenze uguali) i risultati ancorchè rari sono + incoraggianti.
Allora chiedo come impostare l'if per tre diff uguali? Al fatto che le situazioni giocabili siano più rare si potrebbe ovviare facendo rapportare una ruota con tutte le altre JOE, MIKE mi potete dare una mano?

Sub Main
'Metodo 25 differenze
Dim rt(1) 'la ruota è una
Dim pta(2)'pta significa faccio la puntata "Ambo"(2)
Dim nr(5) ' i numeri che gioco in ciascuna bolletta sono 5
Dim nr2(5) ' i numeri che gioco in ciascuna bolletta sono 5
Dim nr3(5) ' i numeri che gioco in ciascuna bolletta sono 5
Dim nr4(5) ' i numeri che gioco in ciascuna bolletta sono 5
Dim nr5(5) ' i numeri che gioco in ciascuna bolletta sono 5
Dim diff(25)' devo ricavarmi 25 differenze
'
ex = InputBox("Quante estrazioni controllo?",,1000)'
r = InputBox("su quale ruota gioco?",,6)'ruota da giocà
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin - 1
Messaggio es
[B]rt(1) = r 'si può scegliere
pta(2) = 1 'la puntata(l'ambo)la faccio da 1 euro
colpi = 6'per 6 colpi
'di seguito tutte le differenze (crescite)che si generano fra un 'estrazione e la successiva , es: Nell'estraz X  di NA escono 5, 10, 20, 30, 40
'e nella estrazione successiva (X+1) sempre di NA escono 30.3.35.90.31 perciò diremo la diff(1)sarà = a 25 ovvero il primo estratto dell'estraz X (5)
'è "cresciuto" di 25 ed è diventato 30(il 1° estr dell'estr succ) analogamente la diff(2) sarà = a 88 ovvero il primo estratto dell'estraz X (5)
'è "cresciuto" di 88 ed è diventato 3(il 2° estr dell'estr succ)...e così via fino ad avere 25 differenze  o crescite dei 5 numeri rispetto ai
'5 numeri dell'estrazione successiva
diff(1) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,r,1))
diff(2) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,r,1))
diff(3) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,r,1))
diff(4) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,r,1))
diff(5) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,r,1))
diff(6) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,r,2))
diff(7) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,r,2))
diff(8) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,r,2))
diff(9) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,r,2))
diff(10) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,r,2))
diff(11) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,r,3))
diff(12) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,r,3))
diff(13) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,r,3))
diff(14) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,r,3))
diff(15) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,r,3))
diff(16) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,r,4))
diff(17) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,r,4))
diff(18) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,r,4))
diff(19) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,r,4))
diff(20) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,r,4))
diff(21) = Fuori90(Estratto(es,r,1) - Estratto(es - 1,r,5))
diff(22) = Fuori90(Estratto(es,r,2) - Estratto(es - 1,r,5))
diff(23) = Fuori90(Estratto(es,r,3) - Estratto(es - 1,r,5))
diff(24) = Fuori90(Estratto(es,r,4) - Estratto(es - 1,r,5))
diff(25) = Fuori90(Estratto(es,r,5) - Estratto(es - 1,r,5))[/B]
[B]nr(1) = Fuori90(Estratto(es,r,1) + diff(1))
nr(2) = Fuori90(Estratto(es,r,1) + diff(2))
nr(3) = Fuori90(Estratto(es,r,1) + diff(3))
nr(4) = Fuori90(Estratto(es,r,1) + diff(4))
nr(5) = Fuori90(Estratto(es,r,1) + diff(5))
nr2(1) = Fuori90(Estratto(es,r,2) + diff(6))
nr2(2) = Fuori90(Estratto(es,r,2) + diff(7))
nr2(3) = Fuori90(Estratto(es,r,2) + diff(8))
nr2(4) = Fuori90(Estratto(es,r,2) + diff(9))
nr2(5) = Fuori90(Estratto(es,r,2) + diff(10))
nr3(1) = Fuori90(Estratto(es,r,3) + diff(11))
nr3(2) = Fuori90(Estratto(es,r,3) + diff(12))
nr3(3) = Fuori90(Estratto(es,r,3) + diff(13))
nr3(4) = Fuori90(Estratto(es,r,3) + diff(14))
nr3(5) = Fuori90(Estratto(es,r,3) + diff(15))
nr4(1) = Fuori90(Estratto(es,r,4) + diff(16))
nr4(2) = Fuori90(Estratto(es,r,4) + diff(17))
nr4(3) = Fuori90(Estratto(es,r,4) + diff(18))
nr4(4) = Fuori90(Estratto(es,r,4) + diff(19))
nr4(5) = Fuori90(Estratto(es,r,4) + diff(20))
nr5(1) = Fuori90(Estratto(es,r,5) + diff(21))
nr5(2) = Fuori90(Estratto(es,r,5) + diff(22))
nr5(3) = Fuori90(Estratto(es,r,5) + diff(23))
nr5(4) = Fuori90(Estratto(es,r,5) + diff(24))
nr5(5) = Fuori90(Estratto(es,r,5) + diff(25))
If diff(1) = diff(7) Or diff(1) = diff(13)Or diff(1) = diff(19)Or diff(1) = diff(25) Then
ImpostaGiocata 1,nr,rt,pta,colpi,2'questultimo parametro(2) significa che stoppa sr esce l'ambo
End If
If diff(7) = diff(13)Or diff(7) = diff(19)Or diff(7) = diff(25) Then
ImpostaGiocata 2,nr2,rt,pta,colpi,2'questultimo parametro(2) significa che stoppa sr esce l'ambo
End If
If diff(13) = diff(19)Or diff(13) = diff(25) Then
ImpostaGiocata 3,nr3,rt,pta,colpi,2'questultimo parametro(2) significa che stoppa sr esce l'ambo
End If
If diff(19) = diff(25) Then
ImpostaGiocata 4,nr4,rt,pta,colpi,2'questultimo parametro(2) significa che stoppa sr esce l'ambo
End If
'ImpostaGiocata 5,nr5,rt,pta,colpi,2'questultimo parametro(2) significa che stoppa sr esce l'ambo[/B]
[B]casi = casi + 1
'comincia a scrivere a distanza di 70 spazi " Caso n° "
Scrivi String(70," = ") & " Caso n° " & casi,1[/B]

[B]Gioca es,,,1[/B]
[B]Next
Scrivi
Scrivi "Casi totali(" & casi & ")",1
ScriviResoconto[/B]
[B]End Sub[/B]

 

[Joe91]

Ciao Filotto,

Ho letto velocemente il testo, lo script, i tuoi (i suoi) commenti.

Non so se riesco ad occuparmi di questa cosa perchè mi richiederebbe moltissimo tempo,

per la ragione che provo ad esprimerti.

Ero rimasto al fatto che Claudio chiese a Luigi di modificare il Fuori90 ... (qui abbondantemente usato)

e che a seguito di questo il Fuori90 restituisce numeri giocabili sempre, anche se riceve input negativi ... maggiori di 179 ... Zero.

Dovrei dunque ricontrollare in prima istanza, cosa fa e cosa non fa il Fuori90 in Spaziometria, e tutti i casi uno ad uno,

ma a parer mio dalla tua dichiarazione di intenti al risultato dello script ci sia si mezzo come dal dire ... al fare.

In L8 le giocate, penso, (ma è solo una mia ipotesi) sarebbero completamente diverse.

Anche questo andrebbe verificato ... perche evidentemente l'affidabilità dei risultati prodotti

se vera la mia ipotesi, dipenderebbe dall'ambiente in cui viene elaborato il software e non dalle reali estrazioni del lotto.

Quindi, cosa può uscire da un "frullatore" simile manda, di matto ... cercare di capirlo.

Mi spiace, per me è no, non riesco.

 

[fillotto]

Ciao Joe, se ti riferisci al funzionamento del Fuori90 a me sembra di ricordare che Luigi lo abbia corretto , del resto io ho controllato gli sviluppi ed il risultato è quello atteso, questa è la prova :NA estraz n° 131 del 2006 09. 52. 75. 80. 61
" n° 132 65. 66. 89. 04. 40 siamo quindi in presenza della differenza 14
e abbiamo che il 52 è cresciuto di 14 diventando 66 il 75 è cresciuto di 14 diventando 89 l'80 è cresciuto di 14 diventando 04 il fuori 90 perciò funziona normalmente,lo sviluppo è quello auspicato infatti 65. 66. 89. 04. 40
aggiungiamo la differenza che è in frequenza.................. 14. 14. 14. 14. 14
NUMERI Da GIOCARE............................................. 79. 80. 13. 18. 54
Ecco Vorrei codificare situazioni come questa trovare nello strettissimo contingente una frequenza così elevata nella speranza che si riproponesse subito qui sotto l'output anzi era ragionevole giocare solo la terzina 80. 13. 18

[B][SIZE=2]Estrazione generatrice del pronostico 07669 [132 - 04/11/2006][/SIZE][/B]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0002[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 79.80.13.18.54 su NA per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]   N. [79.80.13.18.54                ] [NA]     [.. .. .. .. ..] C.   1            07670 [133 - 07/11/2006] [75.07.43.15.16][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]   N. [79.80.13.18.54                ] [NA]     [.. .. .. .. ..] C.   2            07671 [134 - 09/11/2006] [28.51.70.23.71][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]   N. [79.80.13.18.54                ] [NA]     [.. .. .. .. ..] C.   3            07672 [135 - 11/11/2006] [46.85.71.11.41][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]   N. [79.80.13.18.54                ] [NA]     [.. .. .. .. ..] C.   4            07673 [136 - 14/11/2006] [88.16.11.68.14][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]   N. [79.80.13.18.54                ] [NA]     [.. .. .. .. ..] C.   5            07674 [137 - 16/11/2006] [72.69.05.87.68][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [79.80.13.18.54                ] [NA]     [.. .. .. 18 13] C.   6 Ambo       07675 [138 - 18/11/2006] [55.86.24.18.13][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per esito verificato[/COLOR][/SIZE][/FONT]

 

[rosa962]

SCUSATE SE MI INTROMETTO
ma una materia del lotto che mi piace
molto è da qualche mese la studio anche io
con carte e penna cioè
le differenze tra una estrazione ed un'altra
con buoni risultati l'unica differenza è che se una estrazione
e l'altra tra le 25 differenze si evidenzia una doppia differenza
la gioco sia come numero che come differenza
esempio ammettiamo che tra le 25 differenze generate
vi sia una doppia differenza il numero 3 che si è formato doppio
tra il 1° estratto ed il 3° estratto tra le due estrazioni
bene continuo ad aggiungere il 3 nei numeri dell'ultima
estrazione ma sul 2°,4°,5° estratto più mi gioco anche il 3 capogioco
sperando a breve di una ripetività della differenza 3
nulla vieta di usare anche altre differenze anche non doppie
ma che si ripetino estrazione dopo estrazione ( in frequenza )
almeno che abbiano avuto una frequenza 3,4,5,6 ecc volte
tutto questo si deve fare solo un una,due,tre ruote perchè
impensabile fare a mano tutte le ruote
se riesci a fare un analitico delle differenze ( non numeri, ma delle differenze )
vedrai che i ritardati dei numeri in differenza non saranno alti ( lascio a te scroprirle )
se hai capito questo in seguito ti farò sapere altre mie
ma se fate uno script in tal senso vi prego di non tenermi fuori
perchè come hai ben capito sono molto interessate a questo studio

scusatemi ancora se sono fuori tema


a presto

 

[Joe91]

Vi chiedo, riferendomi all'esempio che avete postato:

5° estratto è 40. Il precedente ...
5° estratto è 61.

Qual'è la differenza ?

E per intanto ... Sinceri Auguri di Buona Pasqua.

 

[fillotto]

Vi chiedo, riferendomi all'esempio che avete postato:

5° estratto è 40. Il precedente ...
5° estratto è 61.

Qual'è la differenza ?

E per intanto ... Sinceri Auguri di Buona Pasqua.

Allora il 61 che è il 5° estratto dell'estrazione 131 del 2006 .......... ........................09. 52. 75. 80. 61
nell'estrazione successiva la n° 132 del 2006 è "cresciuto" rispettivamente........di... 04. 05. 28. 33. 69 (diff 21/22/23/24/25)
dando vita ai numeri dell'estrazione 132 (quella che nello script è indcata come generatrice)ai numeri. 65. 66. 89. 04. 40
per rispondere alla tua domanda 61 è "cresciuto" di 69 (diff(25)) ed è diventato 40
In sostanza ogni numero cresce per 5 diff e diventa l' estrazione successiva io vorrei Utilizzare le differenze che sono + frequenti nel caso specifico il 14
questa differenza o crescita o adattatore , come la vogliamo chiamare dato che è in frequenza la vado ad aggiungere all'estrazione 132 ed avremo :
65. 66. 89. 04. 40 estraz 132
14. 14. 14. 14. 14 differenza o crescita o adattatore in frequenza
79. 80. 13. 18. 54 numeri da giocare