SoLillo
Super member
Salve se prendiamo lo script lotto facile uno di Osvaldo Manara
e ci aggiungiamo esito per ambetto secondo me questo metodo torna a brillare
e ci aggiungiamo esito per ambetto secondo me questo metodo torna a brillare
'posto un nuovo metodo di cui non so proprio il resoconto di questi ultimi anni..l'avevo 'messo da parte da un po' di anni...vediamo se qualcuno ne fa il listato cosa ne esce 'fuori....
'PRIMA CONDIZIONE : rintracciare nel quadro estrazionale 2 AMBI aventi la stessa somma 'comune ed isotopi ( PER TROVARLI BISOGNA FARE UN LISTATO) su due ruote diverse, meglio 'se ruote consecutive o diametrali.
'Una volta rintracciati gli ambi si procede così:
'1) Calcolare la differenza aritmetica in diagonale. Le due differenze in diagonale 'devono essere uguali tra loro. In caso contrario non si procede al rilevamento della 'previsione....
'2) Analogamente si procede per le differenze verticali. Anche queste devono essere 'ugauli tra loro. In caso contrario non si procede al rilevamento della previsione....
'3) Sottrarre tra loro le differenze diagonali e verticali. Anche queste devono essere 'uguali tra loro. In caso contrario non si procede al rilevamento della previsione....
'4) Il risultato ottenuto rappresenta l'ambata secca da giocare sulle ruote di 'rilevamento dove si sono rintracciate le due coppie iniziali.
'5)Per la formazione dell'ambo secco principale faremo il complemento a 90 della somma 'comune dei due ambi rintracciati. Quel numero lo abbineremo all'ambata ed avremo così 'formato l'ambo principale.
'6)Per la formazione dell'ambo secco secondario abbineremo all'ambata il numero vertibile 'del numero ricavato dal complemento a 90.
'7) La terzina per ambo e terno sarà così formata dall'ambata principale e dai numeri 'abbinati all'ambata per la formazione dell'ambo principale e secondario.
'esempio: data un po' vecchiotta
'03 05 1993
'cagliari 41 13 (3° e 5° estratto)
'firenze 33 21 ( 3° e 5° estratto)
'somma comune 54 come si vede.... le ruote sono consecutive quindi la previsione prende 'più potenza
'Utilizzando il programma L8+ si vede esaminado le coppie di numeri 41 13 e 33 21 che nel 'cerchio ciclometrico esse formano un perfetto trapezio isoscele.
'Ora bisogna calcolare le differenze in diagonale e verticale che come abbiamo detto 'devono essere uguali
'diagonale : 41-21= 20 e anche 33-13= 20
'verticale: 41-33=8 ed anche 21-13= 8
'facendo la differenze delle due differenze appena effettuate avremo come ELEMENTO A il 'numero 12 che sommato alla somma comune( prima condizione, ricordate??) dei due ambi 'rintracciati darà:
'12 + 54= 66 che sarà la nostra ambata secca da porre in gioco su cagliari e firenze...
'Ora passiamo alla formazione dei due ambi e quindi alla terzina per ambo e terno:
'Complemento a 90:
'90 - 54 ( somma comune degli ambi rintracciati)= 36
'quindi come Ambo principale avremo 66 - 36
'per l'ambo secondario si sceglio il vertibile del complemento a 90 precedentemente 'fatto, ovvero il numero 63:
'AMBO SECONDARIO : 66 -63
'Per la formazionde del terno per ambo e terno:
'66 - 36 - 63
'ESITO
'2° COLPO SULLA RUOTA DI FIRENZE:
'AMBATA 66
'AMBI SECCHI: 66-36 e 66-63
'TERNO SECCO: 66-36-6
' Ciao, ecco il listato del metodo LOTTO FACILE UNO di Osvaldo Manara,
'già fatto alcuni anni fà e presente nella raccolta dei miei listati
'ciao danilo
Sub Main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10),am2(10),am3(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1) = 1
poste(2) = 1
poste1(2) = 1.5
poste1(3) = 0.5
For n = 9000 To EstrazioneFin
Messaggio DataEstrazione
t = 1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True
ruota(1) = 11
ruote(1) = r1
ruote(2) = r2
s1 = Fuori90(n1 + n2)
If n1 > n4 Then
d1 = n1 - n4
Else
d1 = n4 - n1
End If
If d1 = 0 Then d1 = 90 End If
If n3 > n2 Then
d2 = n3 - n2
Else
d2 = n2 - n3
End If
If d2 = 0 Then d2 = 90 End If
If n1 > n3 Then
v1 = Fuori90(n1 - n3)
Else
v1 = Fuori90(n3 - n1)
End If
If v1 = 0 Then v1 = 90 End If
If n2 > n4 Then
v2 = Fuori90(n2 - n4)
Else
v2 = Fuori90(n4 - n2)
End If
If v2 = 0 Then v2 = 90 End If
If d1 = d2 And v1 = v2 Then
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1) & " " & CInt(n1) & " + " & CInt(n2) & " =" & CInt(s1) & " " & NomeRuota(r2) & " " & CInt(n3) & " + " & CInt(n4) & " =" & CInt(s1)
If d1 > v1 Then
A = d1 - v1
Else
A = v1 - d1
End If
am(1) = Fuori90(s1 + A)
ImpostaGiocata 1,am,ruote,posta,9,1
z1 = 90 - s1
If z1 = 0 Then z1 = 90 End If
am1(1) = am(1)
am1(2) = z1
ImpostaGiocata 2,am1,ruote,poste,9,2
am2(1) = am(1)
am2(2) = Vert(z1)
ImpostaGiocata 3,am2,ruote,poste,9,2
am3(1) = am(1)
am3(2) = am1(2)
am3(3) = am2(2)
ImpostaGiocata 4,am3,ruote,poste1,9,2
For x1 = 2 To 4
For x2 = 2 To 4
ImpostaInterruzioni x1,x2,2
ImpostaInterruzioni 1,x1,2
ImpostaInterruzioni x1,1,1
Next
Next
Gioca n
End If
t = t + 1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati = 0
For r = 1 To 9
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
c = Fuori90(a + b)
For rr = r + 1 To 10
aa = Estratto(estrazione,rr,i)
bb = Estratto(estrazione,rr,j)
cc = Fuori90(aa + bb)
If c = cc And(rr = r + 1 Or((rr - r) = 5)) Then
trovati = trovati + 1
If trovati = tentativo Then
numero1 = a
numero2 = b
numero3 = aa
numero4 = bb
ruota1 = r
ruota2 = rr
DISAMBO = True
Exit Function
End If
End If
Next
Next
Next
Next
DISAMBO = False
End Function
'PRIMA CONDIZIONE : rintracciare nel quadro estrazionale 2 AMBI aventi la stessa somma 'comune ed isotopi ( PER TROVARLI BISOGNA FARE UN LISTATO) su due ruote diverse, meglio 'se ruote consecutive o diametrali.
'Una volta rintracciati gli ambi si procede così:
'1) Calcolare la differenza aritmetica in diagonale. Le due differenze in diagonale 'devono essere uguali tra loro. In caso contrario non si procede al rilevamento della 'previsione....
'2) Analogamente si procede per le differenze verticali. Anche queste devono essere 'ugauli tra loro. In caso contrario non si procede al rilevamento della previsione....
'3) Sottrarre tra loro le differenze diagonali e verticali. Anche queste devono essere 'uguali tra loro. In caso contrario non si procede al rilevamento della previsione....
'4) Il risultato ottenuto rappresenta l'ambata secca da giocare sulle ruote di 'rilevamento dove si sono rintracciate le due coppie iniziali.
'5)Per la formazione dell'ambo secco principale faremo il complemento a 90 della somma 'comune dei due ambi rintracciati. Quel numero lo abbineremo all'ambata ed avremo così 'formato l'ambo principale.
'6)Per la formazione dell'ambo secco secondario abbineremo all'ambata il numero vertibile 'del numero ricavato dal complemento a 90.
'7) La terzina per ambo e terno sarà così formata dall'ambata principale e dai numeri 'abbinati all'ambata per la formazione dell'ambo principale e secondario.
'esempio: data un po' vecchiotta
'03 05 1993
'cagliari 41 13 (3° e 5° estratto)
'firenze 33 21 ( 3° e 5° estratto)
'somma comune 54 come si vede.... le ruote sono consecutive quindi la previsione prende 'più potenza
'Utilizzando il programma L8+ si vede esaminado le coppie di numeri 41 13 e 33 21 che nel 'cerchio ciclometrico esse formano un perfetto trapezio isoscele.
'Ora bisogna calcolare le differenze in diagonale e verticale che come abbiamo detto 'devono essere uguali
'diagonale : 41-21= 20 e anche 33-13= 20
'verticale: 41-33=8 ed anche 21-13= 8
'facendo la differenze delle due differenze appena effettuate avremo come ELEMENTO A il 'numero 12 che sommato alla somma comune( prima condizione, ricordate??) dei due ambi 'rintracciati darà:
'12 + 54= 66 che sarà la nostra ambata secca da porre in gioco su cagliari e firenze...
'Ora passiamo alla formazione dei due ambi e quindi alla terzina per ambo e terno:
'Complemento a 90:
'90 - 54 ( somma comune degli ambi rintracciati)= 36
'quindi come Ambo principale avremo 66 - 36
'per l'ambo secondario si sceglio il vertibile del complemento a 90 precedentemente 'fatto, ovvero il numero 63:
'AMBO SECONDARIO : 66 -63
'Per la formazionde del terno per ambo e terno:
'66 - 36 - 63
'ESITO
'2° COLPO SULLA RUOTA DI FIRENZE:
'AMBATA 66
'AMBI SECCHI: 66-36 e 66-63
'TERNO SECCO: 66-36-6
' Ciao, ecco il listato del metodo LOTTO FACILE UNO di Osvaldo Manara,
'già fatto alcuni anni fà e presente nella raccolta dei miei listati
'ciao danilo
Sub Main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10),am2(10),am3(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1) = 1
poste(2) = 1
poste1(2) = 1.5
poste1(3) = 0.5
For n = 9000 To EstrazioneFin
Messaggio DataEstrazione
t = 1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True
ruota(1) = 11
ruote(1) = r1
ruote(2) = r2
s1 = Fuori90(n1 + n2)
If n1 > n4 Then
d1 = n1 - n4
Else
d1 = n4 - n1
End If
If d1 = 0 Then d1 = 90 End If
If n3 > n2 Then
d2 = n3 - n2
Else
d2 = n2 - n3
End If
If d2 = 0 Then d2 = 90 End If
If n1 > n3 Then
v1 = Fuori90(n1 - n3)
Else
v1 = Fuori90(n3 - n1)
End If
If v1 = 0 Then v1 = 90 End If
If n2 > n4 Then
v2 = Fuori90(n2 - n4)
Else
v2 = Fuori90(n4 - n2)
End If
If v2 = 0 Then v2 = 90 End If
If d1 = d2 And v1 = v2 Then
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1) & " " & CInt(n1) & " + " & CInt(n2) & " =" & CInt(s1) & " " & NomeRuota(r2) & " " & CInt(n3) & " + " & CInt(n4) & " =" & CInt(s1)
If d1 > v1 Then
A = d1 - v1
Else
A = v1 - d1
End If
am(1) = Fuori90(s1 + A)
ImpostaGiocata 1,am,ruote,posta,9,1
z1 = 90 - s1
If z1 = 0 Then z1 = 90 End If
am1(1) = am(1)
am1(2) = z1
ImpostaGiocata 2,am1,ruote,poste,9,2
am2(1) = am(1)
am2(2) = Vert(z1)
ImpostaGiocata 3,am2,ruote,poste,9,2
am3(1) = am(1)
am3(2) = am1(2)
am3(3) = am2(2)
ImpostaGiocata 4,am3,ruote,poste1,9,2
For x1 = 2 To 4
For x2 = 2 To 4
ImpostaInterruzioni x1,x2,2
ImpostaInterruzioni 1,x1,2
ImpostaInterruzioni x1,1,1
Next
Next
Gioca n
End If
t = t + 1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati = 0
For r = 1 To 9
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
c = Fuori90(a + b)
For rr = r + 1 To 10
aa = Estratto(estrazione,rr,i)
bb = Estratto(estrazione,rr,j)
cc = Fuori90(aa + bb)
If c = cc And(rr = r + 1 Or((rr - r) = 5)) Then
trovati = trovati + 1
If trovati = tentativo Then
numero1 = a
numero2 = b
numero3 = aa
numero4 = bb
ruota1 = r
ruota2 = rr
DISAMBO = True
Exit Function
End If
End If
Next
Next
Next
Next
DISAMBO = False
End Function
