Novità

Metodo ambi triplicati..

  • Creatore Discussione Creatore Discussione Zetrix
  • Data di inizio Data di inizio
si ,ma Zetrix ci sono troppi ambi triplicati...poi per Enplein ...di quei tre numeri puoi far si che li controlli come ambo e terno su tutte ?
'
 
Enplein puoi spiegarmi passo , passo cosa fa questo pezzo ::


For r1 = 1 To 10
For p1 = 1 To 4
a1 = Estratto(es,r1,p1)
For p2 = p1 + 1 To 5
a2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
OrdinaMatrice x,1
ruote(1) = r1 : ruote(2) = r2



GRAZIE.
 
...partiamo da questo esempio:
05.03.2015 GE 54.03.48.51.19 [a1 = 54 51 = a2 ] Pos. 1^ 4^ Ambo Triplicato : 17 51
05.03.2015 TO 17.34.69.56.15 [a3 = 17 56 = a4 ] Pos. 1^ 4^ Somma Diagonale : (54+56)=20

For r1 = 1 To 10 ' Ciclo per r1 = sulle 10 ruote

For p1 = 1 To 4 ' Ciclo per p1 = posizione degli estratti

a1 = Estratto(es,r1,p1)' come da esempio, a1= 54 su r1=GE in p1=1a posizione

For p2 = p1 + 1 To 5' Ciclo per p2 = posizione degli estratti

a2 = Estratto(es,r1,p2)' come da esempio, a2= 51 su r1=GE in p2=4a posizione

For r2 = r1 + 1 To 11' Ciclo per r2 = r1+1

If r2 = 11 Then r2 = 12'Salta l'11 per andare sulla Nazionale

a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)'a3=17 su r2=TO in 1a posizione e a4=56 su r2=TO in 4a posizione

If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then' Controlla in diagonale se a1 è il trplo di a4 o a2 è triplo di a3 e viceversa

If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
se la condizione corrisponde alla diagonale a1 - a4 l'ambata è data dalla somma della diagonale a2+a3 Altrimenti l'ambata è data dalla
somma della diagonale a1+a4

OrdinaMatrice x,1 ' ordina l'ambo triplicato in ordine crescente

ruote(1) = r1 : ruote(2) = r2 'Indica le ruote che presentano la condizione di ricerca

Nella speranza di essere stato chiaro, saluto.

Ciao, Enplein.
 
xEnplein ho controllato lo script va benissimo grazie.. a volte ho notato che anche se l'ambata e retroattiva riesce di nuovo dopo la condz di gioco...

xAlien lo so che si verificano molti sul quadro gli ambi triplicati e per questo che bisogna scegliere quelli che nn hanno numeri ripetuti sull'ambo triplicato.. meglio se presente solo l'ambo triplicato senza doppioni .. ho messo gli esempi apposta ...perche se ci sono doppioni allora si dovra giocare piu ambate .. poi dopo ognuno predilige la sua ricerca, nn so faccio un esempio... su ruote diam oppure su ruote simm ..o su ruote unite ..oppure su ruote miste...poi infine conta anche l'esperienza e anche un po di fortuna ...

ultim est ...su mi.na... ce una condz ..che pero nn e valida .. metto l'esempio ..

mi--55-26
|
na--78-85---- l'ambata e il 50 (presente nell est di calcolo)
l'ambo triplicato e 26.78 ..

la condz sembrerebbe ottima perche nn ci sono doppioni sul quadro dell ambo triplicato..
le ruote sono unite e gemelle .. ce solo un ma ,, che l'ambata50 e gia presente su (na)
ora potrebbe pure essere buona pero si rischia ..potrebbe anche nn uscire...
e chi gioca una ambata se vede che e gia uscita ..nell'est di calcolo ..diciamo che se sfaldata subito..
 
Ultima modifica:
FTkMt9H.png
 
ckcaFxD.png


xAlien vedi questo esempio quando ci sono i num doppioni ...le ambate in gioco si moltiplicano ..
ora proviamo a fare un riassunto di questo prospetto .l'ambata43 e sortita a (ba) al 2colpo..
sono rimasti in gioco il42 su na-to e il60 su to.nz ...sottolineo che il gioco va seguito per 6colpi nn andare oltre dopo il gioco si chiude..
se l'ambata si trova nel suo ciclo esce nei 6colpi stabiliti per questo mettete i paletti 6colpi e nn di piu ...
anche perche di condz di gioco ce ne sono molti ..se paga ..paga nei primi 6colpi di gioco.

p.s xAlien se vuoi prova su (to) il terno 8.42.60 .. per due colpi ..e poi chiudi il gioco..
 
Ultima modifica:
...partiamo da questo esempio:
05.03.2015 GE 54.03.48.51.19 [a1 = 54 51 = a2 ] Pos. 1^ 4^ Ambo Triplicato : 17 51
05.03.2015 TO 17.34.69.56.15 [a3 = 17 56 = a4 ] Pos. 1^ 4^ Somma Diagonale : (54+56)=20

For r1 = 1 To 10 ' Ciclo per r1 = sulle 10 ruote

For p1 = 1 To 4 ' Ciclo per p1 = posizione degli estratti

a1 = Estratto(es,r1,p1)' come da esempio, a1= 54 su r1=GE in p1=1a posizione

For p2 = p1 + 1 To 5' Ciclo per p2 = posizione degli estratti

a2 = Estratto(es,r1,p2)' come da esempio, a2= 51 su r1=GE in p2=4a posizione

For r2 = r1 + 1 To 11' Ciclo per r2 = r1+1

If r2 = 11 Then r2 = 12'Salta l'11 per andare sulla Nazionale

a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)'a3=17 su r2=TO in 1a posizione e a4=56 su r2=TO in 4a posizione

If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then' Controlla in diagonale se a1 è il trplo di a4 o a2 è triplo di a3 e viceversa

If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
se la condizione corrisponde alla diagonale a1 - a4 l'ambata è data dalla somma della diagonale a2+a3 Altrimenti l'ambata è data dalla
somma della diagonale a1+a4

OrdinaMatrice x,1 ' ordina l'ambo triplicato in ordine crescente

ruote(1) = r1 : ruote(2) = r2 'Indica le ruote che presentano la condizione di ricerca

Nella speranza di essere stato chiaro, saluto.

Ciao, Enplein.




grazie......acc...non mi ricordo molto prima facevo il basic......si può sommare i 4 numeri le due coppie diagonali e le due verticali ? da darmi 4 numeri da giocare su tutte? grazie-










'
 
WaFikKq.png



altro esempio ..(ve) ambata78... 1colpo ...e rimasto il57 su ca-to l'ultimo colpo ..perche i colpi in gioco sono 6colpi..

p.s dal seguente prospetto su ca-ve si nota che su (ve) oltre l'ambata78 a colpo e uscito anche il terno a colpo con la seguente modalita di calcolo...diff.. 84.28=(56) ..e diff..72.6=(66)...
E con quasi certezza vi posso dire che il terno 78-56-66 sortito su (ve) viene dal seguente quadrato.
diff= dis matem..
dis= dis ciclom..
in teoria quanto ci si trova su determinate condz(num doppioni su amb tripl) e preferibile scegliere le ruote con la seguente modalita,
il primo estr num84(ca).. e l'ultimo num est28(ve) del quadrato..
 
Ultima modifica:
Bel metodo...ora me lo studio...non gioco le ambate quindi devo trovare il modo di farci ambi terni e quaterne a volontà... :) ....grazie
 
Ultima modifica:
ciao ananda piacere di leggerti su quest post .. davvero bel metodo lo trovato cosi per gioco..
 
K2szgqK.png


altro esempio su ba.ve .. prendiamo in gioco il primo est29(ba) e l'ultim num est87(ve)..
ora l'ambata era il39 ma nn e sortito su entrambe le ruote ..ma vediamo l'ambo37.58 su (ba)
al primo colpo ..sono la diff dei due ambi in diag.. piu avanti si vede pure il51 sortito su (ve) il compl39 a90
e bene sottolineare che quando l'ambata39 nn esca puo essere sost dal compl90...39.(51)..
questa condz di gioco e chiusa perche trascorsi i6colpi digioco.
 
Ultima modifica:
nuZxgfu.png



questa condz su ba-ve ce l'ambata90 in corso ...chi e interessato puo seguire la quartina x ambo e terno
sulle due ruote ba-ve.... durata del gioco 6colpi dalla data di rilievo condz gioco.
 
Ultima modifica:
...ecco lo script "Ambi Triplicati in diagonale su due ruote"

N.B. Le ambate che hanno la presenza retroattiva di 9 estrazioni, vengono eliminate
come previsione.

Ciao, Enplein.

Codice:
Sub Main()
Scrivi "Forum LottoCed - Ambi Triplicati in diagonale di Zetrix_by Enplein",1
Dim ruote(2),x(2),amb(2),posta(1)
posta(1) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
cl = InputBox("Quanti colpi?",,14)
For es = EstrazioneFin - rs To EstrazioneFin
	For r1 = 1 To 10
		For p1 = 1 To 4
		a1 = Estratto(es,r1,p1)
			For p2 = p1 + 1 To 5
			a2 = Estratto(es,r1,p2)
				For r2 = r1 + 1 To 11
				If r2 = 11 Then r2 = 12
				a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
						If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
OrdinaMatrice x,1
ruote(1) = r1 : ruote(2) = r2
		
					
'Previsione
amb(1) = sa
'Controlla la presenza dell'ambata
If SerieFreq(es - 8,es,amb,ruote,1) = 0 Then
t = t + 1
ColoreTesto 1
Scrivi "------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & _
"  [ " & Format2(a1) & " " & Format2(a2) & " ]  Pos. " & p1 & "^ " & p2 & "^  Ambo Triplicato : " & Format2(x(1)) & " " & Format2(x(2)) & Chr(10) & _
DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & _
"  [ " & Format2(a3) & " " & Format2(a4) & " ]  Pos. " & p1 & "^ " & p2 & "^  Somma Diagonale : " & Format2(sa),1
Scrivi "------------------------------------------------------------------------------",1
ColoreTesto 0
ImpostaGiocata 1,amb,ruote,posta,cl,1

Gioca es
End If

									
					End If
				Next
			Next
		Next
	Next
Next
ScriviResoconto
End Sub

Ciao Enplein ti faccio i complimenti per il listato ..e fatto molto bene ..devi essere bravo ..nn e facile realizzare uno script del genere,
ti chiedo se e possibile includere nel listato come opzione una stringa che fa questo lavoro.. esclude le condz di gioco dove sono presenti num doppioni nel quadrato dell ambo triplicato .. voglio provare a fare una selezione piu ristretta e vedere i risultati ..grazie
 
Ultima modifica:
Per me gli ambi possibili sono:

90-3___90-8___90-39___90-34

Io li ricavo unendo le figure dell'ambo triplicato e poi calcolando anche il diametrale in decina del risultato.

In questo caso, l'ambo triplicato è 63 (fig 9) e 21 (fig 3)

Partendo dal 63 e unendo le cifre delle figure, otteniamo 93 - 90 = 3
partendo dal 21, invece, otteniamo 39

I rispettivi diametrali in decina sono 8 e 34

Provate a controllare a ritroso.... quando va male, esce l'ambetto.
NON è applicabile quando l'ambo triplicato o i i numeri che generano l'ambata appartengo alla stessa figura
 
Ultima modifica:
Ciao rainbow ,grazie per il tuo interesse su ambi triplicati.. poi controllerò il tuo prospetto con il90 su ba-ve...
 
Ultima modifica:
nuZxgfu.png



questa condz su ba-ve ce l'ambata90 in corso ...chi e interessato puo seguire la quartina x ambo e terno
sulle due ruote ba-ve.... durata del gioco 6colpi dalla data di rilievo condz gioco.


aggiorn, su venezia e sortito il num84 ... ora si puo seguire 26-42-55-90 su venezia ...
 
Ultima modifica:
...ecco lo script "Ambi Triplicati in diagonale su due ruote senza elementi ripetuti"

Ciao, Enplein.

Codice:
Sub Main()
Scrivi "Forum LottoCed - Ambi Triplicati in diagonale con elementi non ripetuti di Zetrix_by Enplein",1
Dim ruote(2),rtt(1),rt(1),x(2),amb(2),posta(1)
posta(1) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
cl = InputBox("Quanti colpi?",,14)
For es = EstrazioneFin - rs To EstrazioneFin
	For r1 = 1 To 10
		For p1 = 1 To 4
		a1 = Estratto(es,r1,p1)
			For p2 = p1 + 1 To 5
			a2 = Estratto(es,r1,p2)
				For r2 = r1 + 1 To 11
				If r2 = 11 Then r2 = 12
				a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
						If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
OrdinaMatrice x,1
ruote(1) = r1 : ruote(2) = r2 : rtt(1)=11 :rt(1)=12
		
					
'Previsione
amb(1) = sa
'Controlla la presenza dell'ambata e dei numeri dell'ambo triplicato su TUTTE LE RUOTE
sf1=SerieFreq (es,es,x,rtt,1) : sf2=SerieFreq (es,es,x,rt,1)
If (sf1=2 And sf2=0) Or (sf1=1 And sf2=1) Then 
If SerieFreq(es - 8,es,amb,ruote,1) = 0 Then
t = t + 1
ColoreTesto 1
Scrivi "------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & _
"  [ " & Format2(a1) & " " & Format2(a2) & " ]  Pos. " & p1 & "^ " & p2 & "^  Ambo Triplicato : " & Format2(x(1)) & " " & Format2(x(2)) & Chr(10) & _
DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & _
"  [ " & Format2(a3) & " " & Format2(a4) & " ]  Pos. " & p1 & "^ " & p2 & "^  Somma Diagonale : " & Format2(sa),1
Scrivi "------------------------------------------------------------------------------",1
ColoreTesto 0
ImpostaGiocata 1,amb,ruote,posta,cl,1

Gioca es
End If
End If 
									
					End If
				Next
			Next
		Next
	Next
Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 03 maggio 2025
    Bari
    31
    33
    53
    57
    73
    Cagliari
    40
    20
    72
    19
    16
    Firenze
    71
    44
    61
    70
    46
    Genova
    50
    36
    59
    25
    46
    Milano
    70
    85
    38
    83
    01
    Napoli
    28
    55
    58
    48
    24
    Palermo
    14
    62
    40
    12
    53
    Roma
    65
    36
    39
    57
    25
    Torino
    27
    43
    66
    22
    34
    Venezia
    09
    45
    58
    90
    66
    Nazionale
    68
    89
    14
    39
    25
    Estrazione Simbolotto
    Milano
    34
    02
    32
    09
    07
Indietro
Alto