Novità

Un ambo tutto tuo... in cerca di listato per L8

kribio2

kribio2

Member
Vedi l'allegato 14485Vedi l'allegato 14486
uno.jpg
excel.jpg
nell'esempio di mercoledì 14 luglio 1999
sulla ruota di Napoli si ripetono le somme 74 (1° e 2° e poi 3° e 5°)...
fino a qui il metodo è esclusivamente visivo direi....
Bene, tra i numeri estratti sulla ruota di Napoli per i miei calcoli mi serve come base l'unico
numero non interessato alla somma che da 74 quindi il 4° numero che è il 49

cacolo primo numero dell'ambo:
- differenza tra 49 e il 1° (num.88) con il fuori 90 mi da 39
- differenza tra 49 e il 2° (num.76) con il fuori 90 mi da 27
la somma tra questi due (39 e 27) con il fuori 90 mi da 66 che è il mio primo numero da giocare...

calcolo secondo numero dell'ambo:
prima di procedere calcola a parte il complementare del numero base... cioè 90 meno 49 mi da 41
ora - differenza tra complementare 41 e il 3° (num.5) con il fuori 90 mi da 36
- differenza tra complementare 41 e il 5° (num.69) con il fuori 90 mi da 28
la somma tra questi due (36 e 28) con il fuori 90 mi da 64 che è il mio secondo numero da giocare...

Riepilogando il mio ambo secco sulla ruota di Napoli sarà 66 64
se vuoi avere più possibilità allora calcola la somma dei due numeri con il fuori 90 quindi (66+64)=40

Nell'esempio è uscito l'ambo secco su Napoli dopo 9 estrazioni...

Sono sicuro che le verifiche che farete vi stupiranno
Buona fortuna
Kribio2
 
Ultima modifica:
Ciao, il gioco è stato pensato per l'ambo secco... ovviamente l'abbinamento del terzo numero ti consente di avere maggiori probabilità per l'ambo e se vuoi la possibilità di giocare il terno
 
ambo na 66 64

ambo na 66 64

kribio2 ha scritto:
Ciao, il gioco è stato pensato per l'ambo secco... ovviamente l'abbinamento del terzo numero ti consente di avere maggiori probabilità per l'ambo e se vuoi la possibilità di giocare il terno
Clicca per espandere...

gentilmente potresti chiarirmi: l'ambo in gioco è veramente na 66 64 ?
Ho cercato di risalire alla data di estrazione per i conteggi, ma non ci
riesco. Se uoi confermarmi quanto sopra te ne sarò grata. Perdona la
mia ignoranza e possibilmente in quante estrazioni di attesa.
freenglish
 
Se ho ben capito l'ambo 66 - 64 è solo un esempio riferito al 14 luglio 1999. Io ho dato uno sguardo e oltre ad avere parecchi casi in gioco gli eventi positivi sono radi.
 
ciao kribio2 se ti fa picere ho fatto questo script controlla se va bene puoi cercare qualsiasi somma che interessi.

Sub Main()
ColoreTesto 1
Scrivi "METODO SOMMA 1 \ 90 PER ESTRATTO AMBO E TERNO di Kribio2",1
Scrivi " list Fermino"
ColoreTesto 0
Scrivi
Dim num(5)
Dim num1(6)
Dim ruota(10)
Dim ruote(10)
Dim poste(2)
Dim posta(5)
poste(2) = 1
posta(1) = 3
posta(2) = 1
posta(3) = 1
sp = CInt(InputBox("Q U A L E N U M E R O ? ",,0))

For es = 6828 To EstrazioneFin
AvanzamentoElab ini,fin,es

For r = 1 To 10
For p1 = 1 To 1
For p2 = p1 + 1 To 2
For p3 = p2 + 1 To 3
For p4 = p3 + 1 To 4
For p5 = p4 + 1 To 5
a = Estratto(es,r,1)
b = Estratto(es,r,p2)
If Fuori90(a + b) = sp Then
d = Estratto(es,r,p4)
i = 90 - d
f = a - d + 90
g = b - d + 90
h = Fuori90(f + g)
c = Estratto(es,r,p3)
e = Estratto(es,r,p5)
If Fuori90(c + e) = sp Then
l = i + 90 - c
m = e + 90 - i
n = Fuori90(l + m)
o = Fuori90(h + n)
k = 12

t = t + 1
ColoreTesto 2
Scrivi String(65,"•"),1
ColoreTesto 1
Scrivi " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & SiglaRuota(r) & " " & Format2(a) & "+" & Format2(b) & " = " & Fuori90(a + b) & " giocata n. " & Format2(t),1
Scrivi String(35,"•") & " " & SiglaRuota(r) & " " & Format2(c) & "+" & Format2(e) & " = " & Fuori90(c + e),1

ColoreTesto 2
Scrivi String(65,"•"),1
ColoreTesto 0
ruota(1) = r
ruote(1) = r
ruote(2) = 11
num(1) = h
num(2) = n
ImpostaGiocata 1,num,ruote,poste,k,0

num1(1) = h
num1(2) = n
num1(3) = o
ImpostaGiocata 2,num1,ruota,posta,k,0
Gioca es
casi = casi + 1
End If
End If
Next
Next
Next
Next
Next
Next
Next
ColoreTesto 2
Scrivi "=======================================",1
ColoreTesto 1
Scrivi " Totale giocate elaborate : " & CInt(casi),1
ColoreTesto 2
Scrivi "=======================================",1
ColoreTesto 0

ScriviResoconto
End Sub
 
Vedi l'allegato 14513Vedi l'allegato 14514Vedi l'allegato 14515
Ciao, ovviamente io non sono un mago... ho solo fatto delle riflessioni...
Come vedete posto un altro esempio (più recente nel tempo), vorrei solo far notare
che l'ambo secco è remunerativo anche se esce alla 200° estrazione e in questo esempio
è uscito alla 94°... parliamo pur sempre di un "ambo secco"
Un'altra osservazione... i casi da giocare possono essere diversi perchè in ogni estrazione
è frequesnte si verifichino i presupposti del metodo però considerate che le ruote sono 10
Consiglio allora di concentrasi su una ruota (quella preferita) e seguire il gioco su quella
(così sarà meno dispendioso giocare).
Ringrazio, infine, fermino per lo script però volevo dire che ho provato a lanciarlo con L8 e mi da degli errori...
purtroppo con la programmazione sono "zero assoluto" :confused:
Un saluto a tutti
 
uno.jpgdue.jpgtre.jpgquattro.jpg
Scusate per gli allegati... li riallego sperando si riescano a vedere...
i passsaggi vanno dalla figura uno alla quattro...
in questo esempio esce ambo secco alla 94°...
I passaggi sono semplicissimi... io uso il software L8 perchè mi fa vedere le estrazioni in questo modo cioè
a sx le ruote e a dx la somma delle combinazioni dei numeri... Bene, quando a dx sulla riga di una singola ruota
trovi due somme uguali allora si può procedere con i calcoli.
 
Ultima modifica:
Scusa per far girare gli script perchè non scarichi spaziometria visto che comunque è gratuito. Il seguente script dovrebbe essere fedele al tuo metodo.

Codice: 
Sub Main
	Scrivi"Listato Kribio2 " & "                  Listed by Gyo",1
	Dim k(10),q(5)
	Dim t(10)
	Dim ruota(1)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(2) = 3
	posta(3) = 1
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",13))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio(es)
		For r1 = 1 To 11
			If r1 = 11 Then r1 = 12
			For p = 1 To 5
				For p1 = p + 1 To 5
					For p2 = p + 1 To 5
						For p3 = p2 + 1 To 5
							For p4 = 1 To 5
								n1 = Estratto(es,r1,p)
								n2 = Estratto(es,r1,p1)
								n3 = Estratto(es,r1,p2)
								n4 = Estratto(es,r1,p3)
								n5 = Estratto(es,r1,p4)
								a = Fuori90(n1 + n2)
								b = Fuori90(n3 + n4)
								s = ComplAdX(n5,x = 90)
								If a = b And p >< p2 And p1 >< p3 And p4 >< p And p4 >< p1 And p4 >< p2 And p4 >< p3 Then 'ok = 1
									co = co + 1
									ColoreTesto 0
									ruota(1) = r1
									ruote(2) = 11
									'--------- Calcolo Numeri ma mettere in gioco-------------
									t(1) = Differenza(n5,n1)
									t(2) = Differenza(n5,n2)
									k(1) = Fuori90(t(1) + t(2))								
									t(3) = Differenza(s,n3)
									t(4) = Differenza(s,n4)
									k(2) = Fuori90(t(3) + t(4))
									k(3) = Fuori90(k(1) + k(2))
									'---------------------------------------------------------
									Scrivi String(100,"=")
									ColoreTesto 1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 1^ somma " & a & " - " & " Estratto " & n1 & " Posiz. " & p & " ed Estratto " & n2 & " Posiz. " & p1,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 2^ somma " & b & " - " & " Estratto " & n3 & " Posiz. " & p2 & " ed Estratto " & n4 & " Posiz. " & p3,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " Estratto " & n5 & " Posiz. " & p4 & " complemento 90 -----> " & s,1
									Scrivi"Numeri da giocare " & k(1) & " - " & k(2) & " - " & k(3)
									Scrivi String(100,"-") & " Caso n° " & co
									'Scrivi String(70,"-")
									ColoreTesto 0
									ImpostaGiocata 1,k,ruota,posta,clp
									ImpostaGiocata 2,k,ruote,posta,clp
									Gioca es,1,,1
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati n° " & CInt(co)
	ScriviResoconto
End Sub
 
Ultima modifica:
kribio2 ha scritto:
OK. Grazie, proverò subito ..;)
Clicca per espandere...
Bè le percentuali di vincita sono oltre ogni più rosea aspettativa...
Analizzando il resoconto finale il metodo non appare conveniente
perchè la Spesa totale è superiore alla vincita... credo però
che ciò sia dovuto al fatto che probabilmente nello script si avanza
di estrazione in estrazione senza fare una progressione di gioco...
cerco di spiegrmi meglio... nella realtà se io inizio a giocare un ambo
secco su ruota fissa cosa farei? fino alla 150 estrazione giocherei 1 euro
a bolletta poi inizierei a giocare 2 euro dalla 150 alla 200 estrazione e poi
dovrei aumentare almeno a 3 euro e così via...
credo che sulla base delle statistiche di vincita (esaminando con
attenzione i report dello script) è possibile stabilire la media di uscita di
un ambo e, conseguentemente, andare a fare uno script che contenga una
progressione di gioco...
Non so se sono riuscito a spiegarmi... rimango dell'avviso che il metodo sia molto
interessante...
Ciao a tutti
Kribio2
 
Grazie mille Vengio...

vengio ha scritto:
Scusa per far girare gli script perchè non scarichi spaziometria visto che comunque è gratuito. Il seguente script dovrebbe essere fedele al tuo metodo.

Codice: 
Sub Main
	Scrivi"Listato Kribio2 " & "                  Listed by Gyo",1
	Dim k(10),q(5)
	Dim t(10)
	Dim ruota(1)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(2) = 3
	posta(3) = 1
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",13))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio(es)
		For r1 = 1 To 11
			If r1 = 11 Then r1 = 12
			For p = 1 To 5
				For p1 = p + 1 To 5
					For p2 = p + 1 To 5
						For p3 = p2 + 1 To 5
							For p4 = 1 To 5
								n1 = Estratto(es,r1,p)
								n2 = Estratto(es,r1,p1)
								n3 = Estratto(es,r1,p2)
								n4 = Estratto(es,r1,p3)
								n5 = Estratto(es,r1,p4)
								a = Fuori90(n1 + n2)
								b = Fuori90(n3 + n4)
								s = ComplAdX(n5,x = 90)
								If a = b And p >< p2 And p1 >< p3 And p4 >< p And p4 >< p1 And p4 >< p2 And p4 >< p3 Then 'ok = 1
									co = co + 1
									ColoreTesto 0
									ruota(1) = r1
									ruote(2) = 11
									'--------- Calcolo Numeri ma mettere in gioco-------------
									t(1) = Differenza(n5,n1)
									t(2) = Differenza(n5,n2)
									k(1) = Fuori90(t(1) + t(2))								
									t(3) = Differenza(s,n3)
									t(4) = Differenza(s,n4)
									k(2) = Fuori90(t(3) + t(4))
									k(3) = Fuori90(k(1) + k(2))
									'---------------------------------------------------------
									Scrivi String(100,"=")
									ColoreTesto 1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 1^ somma " & a & " - " & " Estratto " & n1 & " Posiz. " & p & " ed Estratto " & n2 & " Posiz. " & p1,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 2^ somma " & b & " - " & " Estratto " & n3 & " Posiz. " & p2 & " ed Estratto " & n4 & " Posiz. " & p3,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " Estratto " & n5 & " Posiz. " & p4 & " complemento 90 -----> " & s,1
									Scrivi"Numeri da giocare " & k(1) & " - " & k(2) & " - " & k(3)
									Scrivi String(100,"-") & " Caso n° " & co
									'Scrivi String(70,"-")
									ColoreTesto 0
									ImpostaGiocata 1,k,ruota,posta,clp
									ImpostaGiocata 2,k,ruote,posta,clp
									Gioca es,1,,1
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati n° " & CInt(co)
	ScriviResoconto
End Sub
Clicca per espandere...
 
ciao cribio2 se puoi specificare l'errore che ti dà perchè io l'ho provato ma mi funziona bene grazie .
ciao Fermino:confused:
 
fermino ha scritto:
ciao cribio2 se puoi specificare l'errore che ti dà perchè io l'ho provato ma mi funziona bene grazie .
ciao Fermino:confused:
Clicca per espandere...

Ciao Fermino,
ti allego quello che mi appare a video quando lancio il tuo script con il software L8...
Cmq grazie... :)
Kribio2uno.jpgdue.jpg
quando esce scritto "quale numero" qualsiasi numero metta il report è sempre lo stesso...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto