Diametrale e Simmetrico

[lottomoney]

Sempre alla ricerca di un metodo valido, vorrei sottoporre per la trasformazione in script questo:

Cercare su una singola ruota la presenza di un terno che dovrà essere composto da un ambo
diametrale e dal simmetrico di uno dei due numeri dello stesso (saranno validi i terni del tipo 1-31-46
dove 1 e 46 costituiscono l’ambo diametrale ed 1-31 l’ambo simmetrico);
- il terno non dovrà essere ripetuto, cioè sarà stato estratto solo una volta in tutte le 11 ruote
(compreso quindi anche la Ruota Nazionale);
- Non saranno considerati validi come condizione di ricerca i tre ambi simmetrici 1-30 / 30-60 / 60-90 /
(c’è un preciso motivo matematico che ne sconsiglia l’utilizzo).
- Non si metteranno in gioco le previsioni che presenteranno il numero ambata già uscito nelle 12
estrazioni precedenti sulla ruota interessata dal gioco;
- Non si metteranno in gioco le previsioni che presenteranno come numero ambata un numero che
ritardi da più di 50 estrazioni.
- Il gioco va seguito, per ambata, al limite delle 9 estrazioni, pari al 50% del ciclo teorico di sortita di un
numero (18 estrazioni);

Ricavate queste condizioni, il calcolo per la previsione è questo (esempio pratico):
TERNO: 17 - 32 - 62
SOMMA 17+62 = 79
SOMMA 32+62 = 4
SOMMA 17+32 = 49
somma 49 + 4 + 79 = 42
90 + 42 = 132 / 2 = 66
90 - 66 = 24

Quindi le ambate da mettere in gioco saranno il 24 ed il 66

Per gli abbinamenti prendiamo le due ambate faremo il + 45 della prima ambata e - 45 della seconda ambata.
Poi + 30 e - 30 di ogni singola ambata
Infine + 15 e -15 di ogni singola ambata

Grazie anticipate per l'impegno profuso.
lottomoney

[Master]

Ciao lottomoney

Se non ci sono errori...credo sia così

Codice: Seleziona tutto

 Sub Main()
ColoreTesto 2
Scrivi "** Metodo del terno diametrale-simmetrico  Lottomoney  **  [Forum Lottopassion ]",1
ColoreTesto 0
Scrivi
ColoreTesto 1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2)
Dim ambo7(2),ambo8(2),ambo9(2),ambo10(2),n1(1),n2(1)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1) = 1
poste1(2) = 1
poste(2) = 3.50 : poste(3) = 1 : poste(4) = .40 : poste(5) = .10
rs = InputBox(" Quante estrazioni vuoi controllare?","ESTRAZIONI",625)
clp = InputBox(" Quante colpi ?","COLPI",9)
ini = EstrazioneFin - rs : fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
For r1 = 1 To 12 : For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
If Distanza(a,b) = 45 Then
For p3 = 1 To 5
If p3 <> p1 And p3 <> p2 Then
c = Estratto(es,r1,p3)
If Distanza(a,c) = 30 Or Distanza(b,c) = 30 Then
aq = Fuori90(a + b) : at = Fuori90(c + a) : aa = Fuori90(c + b) : st = Fuori90(aq + at + aa)
n1(1) =((90 + st)/2) : n2(1) =(90 -(n1(1)))
ruote(1) = r1
rit = SerieRitardo(es - 250,es,n1,ruote,1) : rit1 = SerieRitardo(es - 250,es,n2,ruote,1)
If(rit > 12 And rit < 50) Then
If(rit1 > 12 And rit1 < 50) Then
casi = casi + 1:Scrivi String(60,"=") & "  Caso " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ]" & _
"   Terno trovato: " & Format2(a) & "." & Format2(b) & "." & Format2(c),1
ColoreTesto 0
Scrivi String(60,"-")
ColoreTesto 2: ColoreTesto 0:Scrivi"L'Ambata ( " & Format2(n1(1)) & " )  è sortita su " & SiglaRuota(r1) & " " & rit & " colpi fà ",1
Scrivi"L'Ambata ( " & Format2(n2(1)) & " )  è sortita su " & SiglaRuota(r1) & " " & rit1 & " colpi fà ",1
ColoreTesto 0:Scrivi String(45,"-"),1
amb(1) = n1(1) : amb(2) = n2(1):ImpostaGiocata 1,amb,ruote,posta,clp
ambo1(1) = amb(1) : ambo1(2) = Fuori90(amb(1) + 45):ImpostaGiocata 2,ambo1,ruote,poste1,clp
ambo2(1) = amb(2) : ambo2(2) = Fuori90(90 + amb(2) - 45):ImpostaGiocata 3,ambo2,ruote,poste1,clp
ambo3(1) = amb(1) : ambo3(2) = Fuori90(amb(1) + 30):ImpostaGiocata 4,ambo3,ruote,poste1,clp
ambo4(1) = amb(1) : ambo4(2) = Fuori90(90 + amb(1) - 30):ImpostaGiocata 5,ambo4,ruote,poste1,clp
ambo5(1) = amb(1) : ambo5(2) = Fuori90(amb(1) + 15):ImpostaGiocata 6,ambo5,ruote,poste1,clp
ambo6(1) = amb(1) : ambo6(2) = Fuori90(90 + amb(1) - 15):ImpostaGiocata 7,ambo6,ruote,poste1,clp
ambo7(1) = amb(2) : ambo7(2) = Fuori90(amb(2) + 30):ImpostaGiocata 8,ambo7,ruote,poste1,clp
ambo8(1) = amb(2) : ambo8(2) = Fuori90(90 + amb(2) - 30):ImpostaGiocata 9,ambo8,ruote,poste1,clp
ambo9(1) = amb(2) : ambo9(2) = Fuori90(amb(2) + 15):ImpostaGiocata 10,ambo9,ruote,poste1,clp
ambo10(1) = amb(2) : ambo10(2) = Fuori90(90 + amb(2) - 15):ImpostaGiocata 11,ambo10,ruote,poste1,clp
Gioca es
End If
End If
End If
End If
Next
End If
Next
Next : Next:Next
ScriviResoconto
End Sub


Corretto errore di calcolo

[lottomoney]

Buonasera Master, sei veramente fantastico a prenderti in carico le mie richieste. GRAZIE!!

[lottomoney]

Buonasera Master,
Ho notato delle uscite di terni che non risultano tra quelli ricavati dallo script e in particolare in data 9.04.2015 sulla ruota di Cagliari è uscito il terno 56 - 41 - 11 (cioè 11+45=56 e 11+30=41) che soddisferebbe la ricerca, mentre nello script non è presente, così come sempre nella stessa estrazione troviamo il terno 73 - 28 - 13 e questo è presente.
In data 26.03.2015 è uscito il terno 79 - 34 - 49 che non è presente nello script. (i due casi appena descritti non sono presenti nelle 12 estrazioni precedenti l'uscita).
Infine se fosse possibile una lunghetta per il gioco di terno e quaterna.
Non finirò mai di ringraziarti!
lottomoney

[Master]

Ciao lottomoney

Ho notato delle uscite di terni che non risultano tra quelli ricavati dallo script e in particolare in data 9.04.2015 sulla ruota di Cagliari è uscito il terno 56 - 41 - 11 (cioè 11+45=56 e 11+30=41) che soddisferebbe la ricerca, mentre nello script non è presente, così come sempre nella stessa estrazione troviamo il terno 73 - 28 - 13 e questo è presente.
In data 26.03.2015 è uscito il terno 79 - 34 - 49 che non è presente nello script. (i due casi appena descritti non sono presenti nelle 12 estrazioni precedenti l'uscita).

Il motivo che non trovi i 2 terni è il seguente:

- Non si metteranno in gioco le previsioni che presenteranno il numero ambata già uscito nelle 12
estrazioni precedenti sulla ruota interessata dal gioco;
- Non si metteranno in gioco le previsioni che presenteranno come numero ambata un numero che
ritardi da più di 50 estrazioni.

Come puoi notare una delle 2 ambate è presente nelle 12 estrazioni precedenti, quindi seguendo tue indicazioni non vanno messe in gioco messe in gioco. (a meno che... non ho frainteso)

============================================================
09.04.2015 [ CA 20.56.28.11.41 ] Terno trovato: 56.11.41
------------------------------------------------------------
L'Ambata ( 63 ) è sortita su CA 11 colpi fà
L'Ambata ( 27 ) è sortita su CA 18 colpi fà
-----------------------------------------------------------
Estrazione calcolo giovedì, apr 9 2015 20.56.28.11.41
Estrazione meno 1 martedì, apr 7 2015 06.77.42.89.73
Estrazione meno 2 sabato, apr 4 2015 45.35.40.23.64
Estrazione meno 3 giovedì, apr 2 2015 70.17.71.56.11
Estrazione meno 4 martedì, mar 31 2015 58.54.46.38.74
Estrazione meno 5 sabato, mar 28 2015 72.34.14.13.09
Estrazione meno 6 giovedì, mar 26 2015 20.79.34.49.42
Estrazione meno 7 martedì, mar 24 2015 09.45.68.88.03
Estrazione meno 8 sabato, mar 21 2015 41.88.06.07.61
Estrazione meno 9 giovedì, mar 19 2015 72.46.37.50.16
Estrazione meno 10 martedì, mar 17 2015 11.52.09.15.14
Estrazione meno 11 sabato, mar 14 2015 09.63.31.52.04
Estrazione meno 12 giovedì, mar 12 2015 54.90.70.87.77

============================================================
26.03.2015 [ CA 20.79.34.49.42 ] Terno trovato: 79.34.49
------------------------------------------------------------
L'Ambata ( 27 ) è sortita su CA 12 colpi fà
L'Ambata ( 63 ) è sortita su CA 5 colpi fà
---------------------------------------------
Estrazione calcolo giovedì, mar 26 2015 20.79.34.49.42
Estrazione meno 1 martedì, mar 24 2015 09.45.68.88.03
Estrazione meno 2 sabato, mar 21 2015 41.88.06.07.61
Estrazione meno 3 giovedì, mar 19 2015 72.46.37.50.16
Estrazione meno 4 martedì, mar 17 2015 11.52.09.15.14
Estrazione meno 5 sabato, mar 14 2015 09.63.31.52.04
Estrazione meno 6 giovedì, mar 12 2015 54.90.70.87.77
Estrazione meno 7 martedì, mar 10 2015 52.88.75.05.19
Estrazione meno 8 sabato, mar 7 2015 13.42.76.49.77
Estrazione meno 9 giovedì, mar 5 2015 42.75.79.49.17
Estrazione meno 10 martedì, mar 3 2015 47.26.56.39.50
Estrazione meno 11 sabato, feb 28 2015 11.55.47.03.34
Estrazione meno 12 giovedì, feb 26 2015 22.27.34.32.23

L'unica condizione che non ho tenuto conto nella ricerca sono i tre ambi simmetrici 1-30 / 30-60 / 60-90 / perché non ho trovato casi.

[lottomoney]

buonasera Master,
certamente le condizioni sono state rispettate nei casi che mi hai esposto, ma non nel caso che ti ho esposto io del terno
in data 9.04.2015 sulla ruota di Cagliari 56 - 41 - 11 (cioè 11+45=56 e 11+30=41) e in data 26.03.2015 è uscito il terno 79 - 34 - 49.
Grazie. lottomoney

[Master]

ciao lottomoney
I casi che hai esposto tu in data 9.04.2015 sulla ruota di Cagliari e in data 26.03.2015 sono quelli che ti ho evidenziato sopra.... mmmhhh c'è qualcosa che non va...
fammi i conti delle ambate del terno del 29.04.2015
e delle ambate del terno del 26.03.2015

[lottomoney]

Scusami Master,
avevo in mente solo il terno e non ricordavo l'ambata delle precedenti estrazioni. Scusami per il tempo che ti ho fatto perdere e grazie ancora molto!!
lottomoney