Novità

Distanza 9 provare per credere

P

pigi

Advanced Member >PLATINUM<
Salve a tutti

dopo essermi quasi fuso il cervello sullo studio delle distanze finalmente ho trovato un metodo niente male
che voglio condividere con tutti voi, saranno ben accettate modifiche e soprattutto abbinamenti per ambo.
IN QUALSIASI ESTRAZIONE SI VERIFICHI CHE IN DUE RUOTE CONSECUTIVE VI SIANO DUE ESTRATTI ISOTOPI
DI DISTANZA 9 , PER ESTRAPOLARE LA PREVISIONE SI DEVE SOTTRARRE 9 AL NUMERO PIU' PICCOLO , MENTRE
AL NUMERO PIU' GRANDE SI DEVE SOMMARE 9 , IL RISULTATO SONO LE DUE AMBATE DA GIOCARE NELLE RUOTE
OVE SI E' RISCONTRATA LA DISTANZA 9, FACCIO DEGLI ESEMPI:

ESTRAZIONE DEL 15/11/12 PALERMO 70-71-54-59-32
ROMA 25-35-82-68-44
IL 59 E 68 SONO DI DISTANZA 9 QUINDI ANDIAMO A FARE I CALCOLI : 59-9 = 50 68+9 = 77 AL 3° COLPO ESCE IL 50 A PALERMO

ESTRAZIONE DEL 15/11/12 TORINO 76-81-21-69-48
VENEZIA 72-53-12-49-78
IL 21 E 12 SONO DI DISTANZA 9 , QUINDI ANDIAMO A FARE I CALCOLI : 12-9 = 3 21+9 = 30 AL 2° COLPO ESCE IL 3 A TORINO

ULTIMO ESEMPIO PER FAR CAPIRE COME OPERARE QUANDO CI SONO NUMERI PIU' BASSI DEL 9

ESTRAZIONE DEL 06/11/12 FIRENZE 6-89-85-8-35
GENOVA 62-84-6-17-81
IL 17 E 8 SONO DI DISTANZA 9 , PROCEDIAMO : 8+90= 98 98-9 = 89 17+9 = 26 AL 3° COLPO ESCE IL 26 A FIRENZE

PRATICAMENTE QUANDO TROVIAMO UN NUMERO INFERIORE AL 9 , SI SOMMA 90 E POI SI TOGLIE 9.

FATE TUTTE LE PROVE CHE VOLETE E VEDRETE CHE SONO RARISSIMI I CASI NEGATIVI ( io per ora non nè ho trovati)
SPERO DI ESSERE STATO CHIARO NELLA SPIEGAZIONE E SONO A DISPOSIZIONE DI EVENTUALI CHIARIMENTI , MA
STUDIATECI PURE PER FARE DEGLI ABBINAMENTI PER AMBO.
SALUTI A TUTTI

Giorgio
 
carissimo pigi,in data 23-10- 2012 sulle ruote GE-MI in 5°posizione, isotopi sono:GE 17 MI 8 quindi rispettiamo la regola dist. 9.

fatto i conti , mi risulta 25-89 .A me non sembra siano usciti.
 
Salve Venesian
se controlli uno degli esempi trovi che con i numeri 17-8 isotopi...si ricavano il 26-89 e nel caso che dici tu usciti in data 23.10 su ge e mi...il 26 è uscito su Milano l' 8.11
ciaociao
Gin el venexian:cool:
 
CIAO A TUTTI
PORTO SU IL MIO METODO PERCHE' MI SEMBRA BUONO MA VORREI TESTARLO PIU' A LUNGO E SICCOME E' STATO REALIZZATO
A MANO CHIEDO A CHI SA' FARE GLI SCRIPT DI FARE UN CODICE PER POTERLO TESTARE E VEDERE LA VERA POTENZIALITA'.

GRAZIE
Giorgio
 
Vedi se è ok
Ciao

Codice: 
Sub main() 
Dim num(2)
Dim poste(2)
Dim ruote(10)
poste(1)=1
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?",,50) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
r1=r+1 
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r1,p)
If Distanza(a,b)=9 Then
If a>b Then
a1=Fuori90(a+9)
a2=b-9
End If
If a2<1 Then a2=(b+90)-9
If a<b Then
a1=a-9
a2=Fuori90(b+9)
End If
If a1<1 Then a1=(a+90)-9
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "& Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" ---> "& Format2(b)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=a2
ImpostaGiocata 1,num,ruote,poste,10,1
Gioca es
Scrivi"************************************************************" 
End If
Next 
Next
Next 
ScriviResoconto
End Sub
 
Ciao Pigi,controlla se ti va bene

Codice: 
Sub Main()    ColoreTesto 2    Scrivi" METODO DISTANZA 9 IN FORMA ISOTOPA DI PIGI ",1
    Scrivi" LISTED by STEEL ",1
    ColoreTesto 0
    Dim ruote(2)
    Dim n(2)
    Dim poste(2)
    poste(1) = 2
    poste(2) = 1
    esp = CInt(InputBox("Estrazione di Partenza ?",,8524))
    klp = InputBox("Colpi di gioco ?",,10)
    co = 0
    casi = 0
    ini = esp
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio es
        Call AvanzamentoElab(Ini,Fin,es)
        For r1 = 1 To 9
            For r2 = r1 + 1 To 10
                For p = 1 To 5
                    For p1 = 1 To 5
                        If p = p1 Then
                            a = Estratto(es,r1,p)
                            b = Estratto(es,r2,p1)
                            If r2 = r1 + 1 Then
                                If Distanza(a,b) = 9 Then
                                    ok = 0
                                    If a < b Then
                                        n1 = Fuori90(90 +(a - 9))
                                        n2 = Fuori90(b + 9)
                                        ok = 1
                                    End If
                                    If a > b Then
                                        n1 = Fuori90(90 +(b - 9))
                                        n2 = Fuori90(a + 9)
                                        ok = 1
                                    End If
                                    If ok = 1 Then
                                        co = co + 1
                                        casi = casi + 1
                                        ruote(1) = r1
                                        ruote(2) = r2
                                        ColoreTesto 1
                                        Scrivi String(95,"°") & " Caso n° " & casi,1
                                        ColoreTesto 0
                                        ColoreTesto 2
                                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ----> " & Format2(Estratto(es,r1,p)) & " ISOTOPO IN DISTANZA 9 "
                                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ----> " & Format2(Estratto(es,r2,p)) & " ISOTOPO IN DISTANZA 9 "
                                        ColoreTesto 0
                                        n(1) = n1
                                        n(2) = n2
                                        ImpostaGiocata 2,n,ruote,poste,klp,2
                                        Gioca es
                                    End If
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
 
Ultima modifica:
daniel ha scritto:
Vedi se è ok
Ciao

Codice: 
Sub main() 
Dim num(2)
Dim poste(2)
Dim ruote(10)
poste(1)=1
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?",,50) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
r1=r+1 
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r1,p)
If Distanza(a,b)=9 Then
If a>b Then
a1=Fuori90(a+9)
a2=b-9
End If
If a2<1 Then a2=(b+90)-9
If a<b Then
a1=a-9
a2=Fuori90(b+9)
End If
If a1<1 Then a1=(a+90)-9
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "& Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" ---> "& Format2(b)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=a2
ImpostaGiocata 1,num,ruote,poste,10,1
Gioca es
Scrivi"************************************************************" 
End If
Next 
Next
Next 
ScriviResoconto
End Sub
Clicca per espandere...

Mi ha preceduto,complimenti per la sua bravura e velocità
 
ciao pigi ho notato che la distanza 9 anche se non isotopa da gli stessi risultati, ringrazio gli amici che hanno fatto gli script, e vorrei chiedere a loro se possono fare un'altro script con questa nuova informazione "semplice distanza 9 su 2 ruote contigue" x vedere se e' vero quello che ho notato.

Grazie.;)
 
rosce14 ha scritto:
ciao pigi ho notato che la distanza 9 anche se non isotopa da gli stessi risultati, ringrazio gli amici che hanno fatto gli script, e vorrei chiedere a loro se possono fare un'altro script con questa nuova informazione "semplice distanza 9 su 2 ruote contigue" x vedere se e' vero quello che ho notato.

Grazie.;)
Clicca per espandere...

Codice: 
Sub main() 
Dim num(2)
Dim poste(2)
Dim ruote(10)
poste(1)=1
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?",,50) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
r1=r+1 
If r1=11 Then r1=12
For p=1 To 5
For p1=1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r1,p1)
If Distanza(a,b)=9 Then
If a>b Then
a1=Fuori90(a+9)
a2=b-9
End If
If a2<1 Then a2=(b+90)-9
If a<b Then
a1=a-9
a2=Fuori90(b+9)
End If
If a1<1 Then a1=(a+90)-9
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "& Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" ---> "& Format2(b)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=a2
ImpostaGiocata 1,num,ruote,poste,10,1
Gioca es
Scrivi"************************************************************" 
End If
Next
Next 
Next
Next 
ScriviResoconto
End Sub
 
Questo listato,esaudisce la richiesta di Rosce14,ricercando la distanza 9 contigua ma non isotopa
Cmq controlla se ci sono eventuali errori,la ruota Nazionale è esclusa:)

Codice: 
Sub Main() ColoreTesto 2	Scrivi" METODO DISTANZA 9 IN FORMA NON  ISOTOPA DI PIGI ",1
	Scrivi" LISTED by STEEL ",1
	ColoreTesto 0
	Dim ruote(2)
	Dim n(2)
	Dim poste(2)
	poste(1) = 2
	poste(2) = 1
	esp = CInt(InputBox("Estrazione di Partenza ?",,8524))
	klp = InputBox("Colpi di gioco ?",,10)
	co = 0
	casi = 0
	ini = esp
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio es
		Call AvanzamentoElab(Ini,Fin,es)
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p = 1 To 5
					For p1 = 1 To 5
						'If p = p1 Then
						a = Estratto(es,r1,p)
						b = Estratto(es,r2,p1)
						If r2 = r1 + 1 Then
							If Distanza(a,b) = 9 Then
								ok = 0
								If a < b Then
									n1 = Fuori90(90 +(a - 9))
									n2 = Fuori90(b + 9)
									ok = 1
								End If
								If a > b Then
									n1 = Fuori90(90 +(b - 9))
									n2 = Fuori90(a + 9)
									ok = 1
								End If
								If ok = 1 Then
									co = co + 1
									casi = casi + 1
									ruote(1) = r1
									ruote(2) = r2
									ColoreTesto 1
									Scrivi String(95,"°") & " Caso n° " & casi,1
									ColoreTesto 0
									ColoreTesto 2
									Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ----> " & Format2(Estratto(es,r1,p)) & " ESTRATTO IN DISTANZA 9 "
									Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ----> " & Format2(Estratto(es,r2,p1)) & " ESTRATTO IN DISTANZA 9 "
									ColoreTesto 0
									n(1) = n1
									n(2) = n2
									ImpostaGiocata 2,n,ruote,poste,klp,2
									Gioca es
									'End If
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub
 
SALVE A TUTTI
finalmente vedo che il metodo vi è piaciuto , infatti ha delle buone potenzialità ,RINGRAZIO GLI AMICI CHE HANNO FATTO GLI SCRIPT,
purtroppo in questi giorni ho un grandissimo mal di schiena e mi avvicino al computer con gran dolore, ma appena starò meglio testerò
gli script che sicuramente andranno bene.
DI NUOVO UN GRAZIE A TUTTI E A RISENTIRCI PRESTO.

Giorgio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto