ci proviamo insieme?

[pippopippo]

6^ estrazione del mese a napoli

1° genova meno 1° palermo + 24
4° milano meno 5° torino + 89
4° palermo meno 1° roma + 1
5° bari meno 1° firenze + 31
1° genova meno 4° napoli + 30
4° napoli meno 4° palermo + 74

con carta e penna
esiti

14.01.2014 30 32 16 90 7 87 1° colpo ambo 16 87
13.02.2014 57 34 44 3 30 1° colpo ambo (previsione di 5 numeri in quanto uno era ripetuto)
13.03.2014 37 5 38 19 49 64 2° colpo quaterna 5 37 38 49
12.04.2014 75 39 14 2 36 71 sembra negativa

 

[vengio]

Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Estratto(Es,4,1) - Estratto(Es,7,1)) + 24) 
			n(2) = Fuori90((Estratto(Es,5,4) - Estratto(Es,9,5)) + 89)
			n(3) = Fuori90(Estratto(Es,7,4) - Estratto(Es,8,1) + 1)
			n(4) = Fuori90(Estratto(Es,1,5) - Estratto(Es,3,1) + 31)
			n(5) = Fuori90(Estratto(Es,4,1) - Estratto(Es,6,4) + 30)
			n(6) = Fuori90(Estratto(Es,6,4) - Estratto(Es,7,4) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Meglio Venezia o Palermo

 

[pippopippo]

Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Estratto(Es,4,1) - Estratto(Es,7,1)) + 24) 
			n(2) = Fuori90((Estratto(Es,5,4) - Estratto(Es,9,5)) + 89)
			n(3) = Fuori90(Estratto(Es,7,4) - Estratto(Es,8,1) + 1)
			n(4) = Fuori90(Estratto(Es,1,5) - Estratto(Es,3,1) + 31)
			n(5) = Fuori90(Estratto(Es,4,1) - Estratto(Es,6,4) + 30)
			n(6) = Fuori90(Estratto(Es,6,4) - Estratto(Es,7,4) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Meglio Venezia o Palermo

Sicuramente non ho ben spiegato il metodo e me ne scuso

dal tuo script (tra l'altro molte grazie) risulta
Estrazione generatrice del pronostico 08820 [ 31 - 13/03/2014]
G 0001 Numeri in gioco : 11.83.54.11.16.46 su NA per Ambo,Terno,Quaterna
Interrotta per raggiunta durata

Facendo conti carta e penna mi trovo una quaterna
13.03.2014 37 5 38 19 49 64 2° colpo quaterna 5 37 38 49

voglio precisare che eseguo le sottrazioni dal numero più grande al più grande al numero più piccolo
esempio 13.03.2014 1° genova (67) meno 1° palermo (80) + 24

80 meno 67 + 24 = 37 primo numero della sestina
e così a seguire
grazie

 

[vengio]

Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,7,1))) + 24)
			n(2) = Fuori90((Differenza(Estratto(Es,5,4),Estratto(Es,9,5))) + 89)
			n(3) = Fuori90((Differenza(Estratto(Es,7,4),Estratto(Es,8,1))) + 1)
			n(4) = Fuori90((Differenza(Estratto(Es,1,5),Estratto(Es,3,1))) + 31)
			n(5) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,6,4))) + 30)
			n(6) = Fuori90((Differenza(Estratto(Es,6,4),Estratto(Es,7,4))) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

dovrebbe essere così ma comunque non si trovano gli ultimi tre numeri, dai un'occhiata anche tu

 

[pippopippo]

gentilissimo vengio scusa se ti faccio impazzire

ma in mezzo a tutta la robaccia che avevo in cantina (fatto pulizia totale) ho trovato una mia agenda di molti anni fa dove annotavo varie metodologie per il lotto. Alcune le ricordo (sono ancora un ragazzino di 51 anni) altre buio totale
Mi ha allora fatto sovvenire che gli ultimi tre numeri non sono altro che i vertibili di quelli trovati
puoi provare se è così?

ti inserisco la previsione del 14 gennaio 2014 per avere ulteriore conferma

14 gennaio 2014 30 22 16 90 7 87

grazieeeeee vengio

 

[vengio]

Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,7,1))) + 24)
			n(2) = Fuori90((Differenza(Estratto(Es,5,4),Estratto(Es,9,5))) + 89)
			n(3) = Fuori90((Differenza(Estratto(Es,7,4),Estratto(Es,8,1))) + 1)
			n(4) = Fuori90(Vert((Differenza(Estratto(Es,1,5),Estratto(Es,3,1))) + 31))
			n(5) = Fuori90(Vert((Differenza(Estratto(Es,4,1),Estratto(Es,6,4))) + 30))
			n(6) = Fuori90(Vert((Differenza(Estratto(Es,6,4),Estratto(Es,7,4))) + 74))
			EliminaRipetuti n
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Adesso è ok.

 

[DEAEBE]

scusa ma a me risultano diversi i tuoi numeri i primi tre vanno bene ma gli altri 3 sono: 72-63-17. Che mi rispondi? A me vengono questi 6 numeri: 75-39-14-72-63-17- Tu che ne pensi?

 

[max67]

ciao deaebe come o capito io i ultimi 3 numeri devi fare i vertibili che sono 27|36|71 buona giornata a tutti