Prove tecniche di terno secco

[Roby]

ciao limone
vuoi lo script ?


-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Limone]

Rubino
puoi anche postarlo se tu sei d'accordo
così ne possono usufruire tutti.
Penso sia lo scopo di questo meraviglioso forum.

Grazie ancora
Limone.

 

[Roby]

questo è lo script

tieni conto che ha un difetto che non ho ancora corretto.

quando oltre all'ambo unito, nei numeri estratti vi sono più distanze multiple di 9 , lo script rileva due volte l'ambo unito, sebbene nella previsione tenga conto dei terni composti in modo diverso con numeri diversi.

comunque penso di sistemarlo, nei prossimi giorni.

Sub Main
	'''''Rileva ambo secco unito multiplo di 9 e 1 nr uguale su 2 ruote
	'''''rileva nr uguale anche nell'estrazione precedente

	Dim posta(5)
	posta(2) = 1
	posta(3) = 1
	storia = InputBox("Quante estrazioni indietro? ",,10)
	lis = InputBox("Vuoi Ambate,Ambi o Terni  1,2,3 ",,2)
	Ini = EstrazioneFin - storia
	Scrivi " Ricerca di un ambo unito con distanza multipla di 9"
	Scrivi " nella medesima estrazione su un'altra ruota deve essere presente un numero uguale dell'ambo unito"
	Scrivi " e nell'estrazione precedente deve essere uscito medesimo numero"
	Scrivi " Previsione 	Sottrarre 1 all'ambo unito, mantenendo fisso il nr uguale su 2 ruote"
	Scrivi " "
	Scrivi "______________________________________________________________________"
	For es = Ini To EstrazioneFin
		For r = 1 To 9
			'''''rileva ambo secco unito multiplo di 9
			''''''-------------------------------------------------------------------------------------------------
			For qq = 1 To 4
				qq2 = qq + 1
				If Estratto(es,r,qq) < Estratto(es,r,qq2) Then
					df = Estratto(es,r,qq2) - Estratto(es,r,qq)
					If df = 9 Or df = 18 Or df = 27 Or df = 36 Or df = 45 Or df = 54 Or df = 63 Or df = 72 Or df = 81 Then
						okey = 1
						ambounito = Format2(Estratto(es,r,qq)) & " " & Format2(Estratto(es,r,qq2))
					End If
				Else
					df = Estratto(es,r,qq) - Estratto(es,r,qq2)
					If df = 9 Or df = 18 Or df = 27 Or df = 36 Or df = 45 Or df = 54 Or df = 63 Or df = 72 Or df = 81 Then
						okey = 1
						ambounito = Format2(Estratto(es,r,qq2)) & " " & Format2(Estratto(es,r,qq))
					End If
				End If
				'''''--------------------------------------------------------------------------------------------
				If okey = 1 Then
				ReDim anum(3)
					aa = Left(ambounito,2)
					bb = Right(ambounito,2)
					For r2 = 1 To 10
						If Posizione(es,r2,aa) > 0 And r2 <> r Then
							If Posizione(es - 1,r,aa) > 0 Then
								casi = casi + 1
								Scrivi
								ColoreTesto 0:Scrivi "______________________________________________________________________"
								ColoreTesto 0
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...Ruota.." & NomeRuota(r) & "....ambounito.." & ambounito
								ColoreTesto 2
								Scrivi "--------Previsione..." & aa & " " & aa - 1 & " " & bb - 1
								ColoreTesto 1
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es,r2)
								ColoreTesto 1
								Scrivi "--------" & es - 1 & " " & DataEstrazione(es - 1) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es - 1,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es - 1,r2)
								Scrivi "Esiti:"
						anum(1) = aa - 1
						anum(2) = bb - 1
						anum(3) = aa
							End If
						End If
						If Posizione(es,r2,bb) > 0 And r2 <> r Then
							If Posizione(es - 1,r,bb) > 0 Then
								casi = casi + 1
								ColoreTesto 0:Scrivi "______________________________________________________________________"
								ColoreTesto 0
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & "....ambounito.." & ambounito
								ColoreTesto 2
								Scrivi "--------Previsione..." & bb & " " & bb - 1 & " " & aa - 1
								ColoreTesto 1
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es,r2)
								ColoreTesto 1
								Scrivi "--------" & es - 1 & " " & DataEstrazione(es - 1) & "...ruota.." & NomeRuo

 

[Limone]

Buongiorno

Mi sembra buono questo terno vediamo cosa succede

8334 01.02.2011 31.....Genova 74.36.31.04.53 ........ Milano 22.84.31.38.74
8334 29.01.2011 31.....Genova 03.48.15.06.17 ........ Milano 19.28.82.31.78

il 30 è uscito a Milano 2 volte nelle ultime 3 estrazioni

TERNO SECCO
3-30-31
ruota principale MILANO
ruota seconadria GENOVA

POI GIOCATA A TUTTE

Ciao by limone

 

[vecchione]

ciao limone!!! grazie per la previsione le auguro tantissima fortuna vincente anche a tutti gli amici di questo splendido forum.ciao!!!

vecchione antonio

 

[vecchione]

ciao limone!!! grazie per la previsione le auguro tantissima fortuna vincente anche a tutti gli amici di questo splendido forum.ciao!!!

vecchione antonio

 

[boati]

Complimenti Limone.....io lo gioco su ge e Mi ma mi raccomando se non dovesse uscire non mollare l'obiettivo è troppo importante.....grazie a te ea tutto il forum...incrociamo le dita

 

[Evelyn2009]

La seguirò anch'io. Incrocio le dita.

Il lotto dev'essere un piacere, non un problema!!!

 

[Limone]

Uscito 3-30 genova

il vertibile 13 nella ruota sopra e sotto

Niente terno , alla prossima.

Ciao da Limone

 

[boati]

limone non farci scherzi...aspettiamo i prossimi tre numeri.....

 

[mirning]

Scusami Limone ma . .
un'ambo e' sempre una gran bella prova della validita'
del tuo metodo . . .
Io lo ritengo Tale (VALIDISSIMO!!)
Quindi Grazie del tuo lavoro fatto per tutti noi!!
[^]

 

[Limone]

Buonasera

Questa volta provo a tentare con questo terno


8336 05.02.2011...ruota..Genova nr = su ruota..81.90.47.80.38..Cagliari....67.13.81.63.31
8335 03.02.2011...ruota..Genova nr = su ruota..35.44.32.41.81..Cagliari....12.61.85.75.55


Dopo
il TERNO 80-81-90 - 05 FEBBRAIO A GENOVA
.. L'AMBO 80-81... - 08 FEBBRAIO A ROMA
il TERNO 81-82-90 - 10 FEBBRAIO A CAGLIARI
.. L'AMBO 81-90... - 12 FEBBRAIO A NAPOLI
.. L'AMBO 82-89... - 26 FEBBRAIO A PALERMO
.. L'AMBO 80-82... - 01 MARZO... A CAGLIARI
.. L'AMBO 81-90... - 03 MARZO... A VENEZIA


Credo sia arrivato il momento del

TERNO SECCO
80-81-89
ruota principale CAGLIARI
ruota seconadria GENOVA
POI GIOCATA A TUTTE

Ciao by limone

 

[desperaux]

Buona sera Limone

voglio innanzi tutto complimentarmi per questa tua grandissima iniziativa e studio.

Ti chiedo scusa ma potresti spiegarmi meglio quello che hai scritto in pag 1 ossia:
Si cerca in una qualsiasi estrazione
un ambo unito distanza multipla di 9
(9,18,27 ecc)
Nella stessa estrazione si cerca in un'altra
ruota uno dei due numeri che compongono l'ambo

Cosa e' un ambo unito? di distanza multipla di 9?

grazie

p.s

ma lo script funziona ? ossia e' definitivo?

grazie

 

[Limone]

Buonasera Desperaux
confermo trattasi di ambo unito distanza multipla di 9
provo a spiegarti il metodo con un altro terno che ho in gioco
osserva nell'estrazioni seguenti i numeri in rosso

17.02.2011...ruota..Firenze nr = su ruota..80.18.30.13.44..Torino....62.50.34.85.24
19.02.2011...ruota..Firenze nr = su ruota..34.30.37.16.78..Torino....57.30.25.23.47

Hai l'ambo unito distanza 27 (30-57)
Hai uno dei due numeri dell'ambo in un'altra ruota (30 FI)
e nell'estrazione precedente (30 FI)
Ora il numero comune 30 formerà l'ambo consecutivo 29-30
il numero singolo 57 -1 = 56 terzo numero da unire all'ambo
che darà il terno da giocare sulle ruote di ricerca + tutte

29-30-56 FI TO TT

ti faccio notare quanto segue

22.02.2011 TO 30 MI 30-57
24.02.2011 FI 30 TO 56
26.02.2011 FI 29 MI 30-56 (IL TERNO A TUTTE NON ERA MALE!!!)
10.03.2011 FI 57 TO 56
12.03.2011 TO 56

La frequenza continua ...

Ciao da Limone

 

[Pino67]

Ciao Limone,volevo sapere se la previsione scaturita tra il 5 e 8 Febbraio è valida tra NA-GE con l'ambo unito 10-55 e il 10 ripetuto su Na l'estrazione prima in forma uguale.
La previsione in gioco è 9-10-54 su NA-GE e all'estrazione di ieri siamo arrivati al 15°colpo.
Ciao
Pino

 

[desperaux]

Ciao Limone

sei molto gentile

ti ringrazio ora e' piu' chiaro.

Per lo script invece cosa mi dici,va bene ,cioe' lo si puo' usare o aspettiamo?

ciao

 

[Limone]

Lo script lo ha cortesemente messo a disposizione Rubino,
non è completo ma è stato utile per estrarre tutti quei casi
che prima cercavo a mano.

Un lavoro manuale comunque lo faccio lo stesso.
Ho già detto che i casi sono molti e parecchi sono anche
gli esiti negativi , ma ogni caso utile lo valuto
estrazione dopo estrazione in base all'uscita dei numeri.

Valuto se continua la frequenza dei numeri in gioco
sia per la sortita dei numeri singoli a ruota sia per
gli ambi a tutte
Il fatto che un numero esca per tre volte in 7 estrazione
è probabile che in seguito esca ancora (è superfrequente)

Valuto la sortita dei numeri di previsione nella ruota
sopra e sotto rispetto alle ruote principali
esempio FI-TO Ruote di previsione, verifico i numeri
su CA-GE e RO-VE

Valuto gli scarti +1 -1 dei numeri di previsione
alle volte anche +2 -2
nell'esempio FI-TO 29-30-56
verifico se è sortito il 28-31-55-57

Sono molti gli elementi che mi aiutano a capire se
la previsione puo' convergere.

Se valutiamo la previsione in questo modo
guardate cosa troviamo a Firenze anche prima della previsione

13-01-2011 31-57
15-01-2011 27-32 in questo caso +2 -2
18-01-2011 55
25-01-2011 27-29-32 anche qui +2 -2 ma anche il 29
27-01-2011 28
03-02-2011 28
15-02-2011 28-57
17-02-2011 30
19-02-2011 30 (nasce la previsione 29-30-56 FI-TO)
22-02-2011 27
24-02-2011 30
26-02-2011 29
08-03-2011 28-55
10-03-2011 57
15-03-2011 31


Se dovessimo valutare queste estrazioni dal 25-01 ad oggi
il terno 28-29-30 ultrafrequente per ambata non ha mai dato
l'ambo e la frequenze per me non è finita.
Alla prossima
Saluti by limone

 

[Roby]

questo è aggiornato, rispetto al precedente:

Sub Main
	'''''Rileva ambo secco unito multiplo di 9 e 1 nr uguale su 2 ruote
	'''''rileva nr uguale anche nell'estrazione precedente

	Dim posta(5)
	posta(2) = 1
	posta(3) = 1
	Dim acolpi(999)
	storia = InputBox("Quante estrazioni indietro? ",,10)
	lis = InputBox("Vuoi Ambate,Ambi o Terni  1,2,3 ",,1)
	Ini = EstrazioneFin - storia
	Scrivi " Ricerca di un ambo unito con distanza multipla di 9"
	Scrivi " nella medesima estrazione su un'altra ruota deve essere presente un numero uguale dell'ambo unito"
	Scrivi " e nell'estrazione precedente deve essere uscito medesimo numero"
	Scrivi " Previsione 	Sottrarre 1 all'ambo unito, mantenendo fisso il nr uguale su 2 ruote"
	Scrivi " "
	Scrivi "______________________________________________________________________"
	For es = Ini To EstrazioneFin
		For r = 1 To 9
			'''''rileva ambo secco unito multiplo di 9
			''''''-------------------------------------------------------------------------------------------------
			For qq = 1 To 4
				qq2 = qq + 1
				If Estratto(es,r,qq) < Estratto(es,r,qq2) Then
					df = Estratto(es,r,qq2) - Estratto(es,r,qq)
					If df = 9 Or df = 18 Or df = 27 Or df = 36 Or df = 45 Or df = 54 Or df = 63 Or df = 72 Or df = 81 Then
						okey = 1
						ambounito = Format2(Estratto(es,r,qq)) & " " & Format2(Estratto(es,r,qq2))
					End If
				Else
					df = Estratto(es,r,qq) - Estratto(es,r,qq2)
					If df = 9 Or df = 18 Or df = 27 Or df = 36 Or df = 45 Or df = 54 Or df = 63 Or df = 72 Or df = 81 Then
						okey = 1
						ambounito = Format2(Estratto(es,r,qq2)) & " " & Format2(Estratto(es,r,qq))
					End If
				End If
				'''''--------------------------------------------------------------------------------------------
				If okey = 1 Then
				ReDim anum(3)
					aa = Left(ambounito,2)
					bb = Right(ambounito,2)
					For r2 = 1 To 10
						If Posizione(es,r2,aa) > 0 And r2 <> r Or Posizione(es,r2,bb) > 0 And r2 <> r Then
							If Posizione(es - 1,r,aa) > 0 Or Posizione(es - 1,r2,aa) > 0 Then
							casi = casi + 1
							Scrivi
							ColoreTesto 0:Scrivi "______________________________________________________________________"
							ColoreTesto 0
							Scrivi "--------" & es & " " & DataEstrazione(es) & "...Ruota.." & NomeRuota(r) & "\" & NomeRuota(r2) & "....ambounito.." & ambounito
						anum(1) = Fuori90(aa - 1)
						anum(2) = Fuori90(bb - 1)
						anum(3) = Fuori90(aa)
								ColoreTesto 2
								Scrivi "--------Previsione..." & anum(3) & " " & anum(1) & " " & anum(2)
								ColoreTesto 1
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es,r2)
								ColoreTesto 1
								Scrivi "--------" & es - 1 & " " & DataEstrazione(es - 1) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es - 1,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es - 1,r2)
								Scrivi "Esiti:"
							End If
						If Posizione(es - 1,r,bb) > 0 Or Posizione(es - 1,r2,bb) > 0 Then
							casi = casi + 1
							ColoreTesto 0:Scrivi "______________________________________________________________________"
							ColoreTesto 0
							Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & "\" & NomeRuota(r2) & "....ambounito.." & ambounito
							ColoreTesto 2
						anum(1) = Fuori90(aa - 1)
						anum(2) = Fuori90(bb - 1)
						anum(3) = Fuori90(bb)
								
								Scrivi "--------Previsione..." & anum(3) & " " & anum(1) & " " & anum(2)
								ColoreTesto 1
								Scrivi "--------" & es & " " & DataEstrazione(es) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es,r) & ".." & NomeRuota(r2) & "...." & StringaEstratti(es,r2)
								ColoreTesto 1
								Scrivi "--------" & es - 1 & " " & DataEstrazione(es - 1) & "...ruota.." & NomeRuota(r) & " nr = su ruota.." & StringaEstratti(es - 1,r) & ".." & NomeRuot

 

[Limone]

Grazie Rubino
il tuo aiuto informatico è sempre prezioso
Buona serata

Limone

 

[macignolo]

Ciao Limone,volevo chiederti è essenziale che uno dei numeri dell'ambo, sia presente anche nell'estrazione precedente? Grazie un saluto.

maci