Decina 80

[password]

Saluti a tutti i partecipanti,ho ritrovato un supplemento di qualche anno fa,con svariati metodi di Angelo Medici,sarebbe curioso vedere i risultati con uno script,il metodo consiste in questo:
Ricava tre ambi da giocare su cinque ruote determinate e su tutte.
Rintracciare su qualunque ruota e in qualsiasi estrazione un ambo appartenente alla decina 80-89,trovata la condizione,per ricavare i tre ambi èsufficiente:
Ricavare il capogioco sommando i tre numeri estratti assieme ai due dell'ottantina,abbinare al capogioco i tre numeri sorteggiati assieme all'ambo dell'ottantina.

Esempio

3 gennaio 2000

Ruota di FIRENZE 17.80.11.59.81 come si può notare è presente ambo 80.81
Sommando i tre numeri restanti 17+11+59=87 futuro capogioco
per formare i tre ambi 87.17 - 87.11 - 87.59
da giocare su Cagliari,Firenze,Palermo,Roma,Venezia e Tutte

Esito 5° colpo ambo 87.17 su Palermo

 

[Mike58]

password, mi spiace ma è il solito specchio per le allodole.


ciao

Sub Main()
	'cerca ambi  In Decina 80
	Dim nu(90),ru(2),ma(10),poste(2),posta(1),num(5),nn(5),rtt(1)
	poste(2) = 1
	posta(1) = 1
	quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",100))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	colpi = 12
	Scrivi "Metodo By Angelo Medici   *** forum-lottoced *** Richiesta Password ",0,0
	Scrivi" Ricerca ambo in decina 80 ",0,0
	ColoreTesto 2
	Scrivi " Listed by Mike58 ",1
	ColoreTesto 0
	For es = Ini To fin
		Messaggio "Estrazioni esaminate " & es & "   --->  script by Mike58"
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p = 1 To 4
				For pp = p + 1 To 5
					nu(1) = Estratto(es,r1,p)
					nu(2) = Estratto(es,r1,pp)
					fg = Decina(nu(1))
					fg2 = Decina(nu(2))
					For p3 = 1 To 5
						nn(p3) = Estratto(es,r1,p3)
						If nn(p3) = nu(1) Then nn(p3) = 0
						If nn(p3) = nu(2) Then nn(p3) = 0
					Next
					If fg = fg2 And fg = 8 Then
						co = co + 1
						Scrivi String(100,"=")
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),0,0
						ColoreTesto 7
						Scrivi "  ( ambo in figura uguale  " & StringaNumeri(nu) & " )",0,0
						ColoreTesto 1
						Scrivi " - Decina... " & fg & "/" & fg2,0,0
						Scrivi" - Posiz. " & p & "/" & pp,1
						ColoreTesto 2
						Scrivi "Numeri Mancanti : " & StringaNumeri(nn),1
						ColoreTesto 0
						Scrivi String(90,"=") & " Caso n° " & co
						ru(1) = r1
						rtt(1) = 11
						Call OrdinaMatrice(nn,- 1,1)
						somma = Fuori90(nn(1) + nn(2) + nn(3))
						num(1) = somma
						ambo1 = Array(somma,nn(1))
						ambo2 = Array(somma,nn(2))
						ambo3 = Array(somma,nn(3))
						ColoreTesto 1
						Scrivi "Frequenza della decina per AMBO : " & Sf,0,0
						ColoreTesto 0
						Scrivi String(100,"-")
						
						ImpostaGiocata 1,ambo1,rtt,poste,colpi,2
						ImpostaGiocata 2,ambo2,rtt,poste,colpi,2
						ImpostaGiocata 3,ambo3,rtt,poste,colpi,2
						Gioca es
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub