ambo uguale su due ruote isotopo

[giuseppe42]

un caro saluto a tutti, cortesemente qualcuno può fare il listato dell'amico fortunato90? grazie
[h=2]ambo uguale su due ruote isotopo[/h] 06-08-2016, 23:33



esempio pratico reale

estrazione del 2 agosto 2016
BARI 23.69.48.76.25
NZ 31.77.84.85.34

ESAMINIAMO LA DIFFERENZA TRA IL PRIMO E SECONDO ESTRATTO DI BARI 23-69= 46/TRA IL SECONDO E TERZO ESTRATTO DELLA MEDESIMA RUOTA 69-48= 21/ TRA IL TERZO ESTRATTO E IL QUARTO ESTRATTO 48.-76= 28/ TRA IL QUARTO ESTRATTO E IL QUINTO ESTRATTO 76-25= 51 / TRA IL QUINTO ESTRATTO E IL PRIMO ESTRATTO SEMPRE DELLA STESSA RUOTA 23-25= DIFFERENZA 2

I NOSTRI NUMERI DA PORRE IN GIOCO SU BARI SONO 46.21.28.51.02 EFFETTUANDO LO STESSO CALCOLO SULLA RUOTA NAZIONALE
VENGONO FUORI I PREDETTI NUMERI 46.7.1.51.3

46.21.28.51.02 BARI
46.07.01.51.03 NAZIONALE

COME SI NOTA VIENE FUORI UN AMBO UGUALE ISOTOPO 46.51 ESTRATTO QUESTA SERA
CONVIENE GIOCARE PER AMBATA E PER AMBO
IL CALCOLO PER ESSERE PRECISI SI DEVE EFFETTUARE SU TUTTE LE 11 RUOTE (NAZIONALE COMPRESA) LA COMBINAZIONE SI DEVE PRESENTARE APPUNTO COME AMBO UGUALE IN POSIZIONE ISOTOPA SE INVECE SI PRESENTA UN AMBO UGUALE SU DUE RUOTE NON ISOTOPO SI GIOCANO SOLO LE AMBATE. E SE QUALCUNO VUOLE RISCHIARE ANCHE PER AMBO
IL CALCOLO VIENE EFFETTUATO AD OGNI ESTRAZIONE E QUANDO SI INDIVIDUA L'AMBO NELLE CONDIZIONI CHE HO CITATO SI GIOCA PER UN PO PER ESTRATTI E PER AMBO

 

[Joe91]

Ciao Giuseppe,

con la speranza di fare cosa gradita unisco il codice richiesto:

Option Explicit
Sub Main
'Metodo x Ambo_Isotopo_Virtuale V.1.0
'Richiesta di Fortunato90 / Giuseppe42. Script By Joe
'http://forum.lottoced.com/forum/lottoced/area-download/1995990-ambo-uguale-su-due-ruote-isotopo#post1996140
'NB: NON è calcolata/giocata l' Ambata in caso di AMBO NON ISOTOPO 
'perchè essa sarebbe relativa ad un metodo differente sia nella ricerca che nella giocata.

	Dim Ini,Fin,Es
	Dim E(12,5)
	Dim R,S,A,B,K
	Dim NU(2),Ru(2),Pe(1),Po(2),Ce,Co
	Pe(1) = 1 : Po(2) = 1 : Ce = 4 : Co = 15
	Ini = EstrazioneFin - 156 : Fin = EstrazioneFin
	For Es = Ini To Fin
	AvanzamentoElab Ini,Fin,Es
	'Virtualizzatore
		For R = 1 To 12
			If R <> 11 Then
				For A = 1 To 5
					B = FuoriX(A + 1,5)
					E(R,A) = Abs(Estratto(Es,R,A) - Estratto(Es,R,B)) 
				Next
			End If
		Next
		For A = 1 To 4
			For B = A + 1 To 5
				For R = 1 To 10
					For S = R + 1 To 12 : If S = 11 Then S = 12
						If(E(R,A) = E(S,A) And E(R,B) = E(S,B)) Or (E(R,B) = E(S,A) And E(R,A) = E(S,B)) Then 'isotopo OR crociato
							If E(R,A) <> E(R,B) Then
								K = K + 1 : Scrivi String(100,"=") & FormatSpace(K,6,True),True
								'Scrivi DataEstrazione(Es) & " ",0,0
								'Scrivi SiglaRuota(R) & " " & SiglaRuota(S) & " " & Format2(E(R,A)) & "." & Format2(E(R,B))
								'ScriviMatrice E
								NU(1) = E(R,A) :NU(2) = E(R,B)
								Ru(1) = R : Ru(2) = S
								ImpostaGiocata 1,NU,Ru,Pe,Ce,1
								ImpostaGiocata 2,NU,Ru,Po,Co,2
								Gioca Es,True
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ColoreTesto 1 : Scrivi :  Scrivi "Script By Joe",True : ColoreTesto 0 : Scrivi   
	ScriviResoconto
End Sub

Cordiali saluti.

 

[giuseppe42]

Grazie Joe!!!