Osvaldo manara

[andy881]

Buongiorno
Qualcuno ha metodi di Osvaldo manara ?

 

[Pandit]

Se ti possono interessare io ho :
Ambo ripetuto PARI O DISPARI di Osvaldo Manara
AmboImperiale-Osvaldo Manara
AmboRelativo-Osvaldo Manara
DOPPIA AMBATA e AMBO su VENEZIA di O.MANARA
Fulmine-Osvaldo Manara
LaTriade-Osvaldo Manara
lotto 4 facile di osvaldo manara l8+
Lotto facile 1 di osvaldo Manara L8+

 

[Gordon9]

AMBO DOPPIO
Es.: GE/RM 13 54 uscito 19 agosto
13+54=67 diametrale 22 ambata
54-13=41 diametrale 86 col suo vertibile 68 per 2 ambi secchi o terzina
Quindi: 22/86 68
Saluti

 

[andy881]

Se ti possono interessare io ho :
Ambo ripetuto PARI O DISPARI di Osvaldo Manara
AmboImperiale-Osvaldo Manara
AmboRelativo-Osvaldo Manara
DOPPIA AMBATA e AMBO su VENEZIA di O.MANARA
Fulmine-Osvaldo Manara
LaTriade-Osvaldo Manara
lotto 4 facile di osvaldo manara l8+
Lotto facile 1 di osvaldo Manara L8+

Riesci a mandarmeli o girarmi.la tecnica
Quello che secondo te il migliore

 

[margot]

AMBO DOPPIO
Es.: GE/RM 13 54 uscito 19 agosto
13+54=67 diametrale 22 ambata
54-13=41 diametrale 86 col suo vertibile 68 per 2 ambi secchi o terzina
Quindi: 22/86 68
Saluti

salve di questo metodo cè lo script?

 

[Pandit]

Per non sbagliare, lascio a Te la scelta :
L'Ambo ripetuto..

Anticipazione (Spoiler)

ColoreTesto 1
Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----"
Scrivi " List. DjNomade "
Scrivi
ColoreTesto 0
Sub Main()
Dim num(10)
Dim nu1(7)
Dim nu2(7)
Dim nu3(8)
Dim nu4(8)
Dim nu5(8)
Dim ruote(10)
Dim ruote2(10)
ruote2(10) = 11
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
fin = EstrazioneFin
ini = fin - 50
t = 0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k = 12
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
n1 = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For pp = 1 To 4
For qq = pp + 1 To 5
c = Estratto(es,r1,pp)
d = Estratto(es,r1,qq)
sm1 = Fuori90(n1 + b)
b2 = sm1/2
a2 = Fuori90(45 + b2)'58
a3 = Distanza(a2,n1)'58-24=34
a4 = Distanza(a2,b)'58-2=34'ambata
a5 = Abs(n1 - b)
If((c = n1 And d = b) Or(c = b And d = n1)) And pari(sm1) = True And a3 = a4 Then ' se i numeri sono uguali
t = t + 1
Scrivi String(44,"=") & " caso n° " &(t),1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(n1) & " " & Format2(b) & " * " & Left(NomeRuota(r1),3) & " " & _
Format2(c) & " " & Format2(d) & " Somma " & Format2(sm1)
Scrivi
ruote(1) = r
ruote(2) = r1
nu1(1) = a4
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a4
nu2(2) = n1
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = b
ImpostaGiocata 3,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = sm1
ImpostaGiocata 4,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = a5
ImpostaGiocata 5,nu2,ruote,poste,k
Gioca es,1
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto,0
ColoreTesto 1 :Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----",1
Scrivi " List. DjNomade "
Scrivi
End Sub

L'Ambo Imperiale...

Anticipazione (Spoiler)

Sub Main()
Scrivi "L'AMBO IMPERIALE di OSVALDO MANARA",1
Dim am(2),nr(2),n(1),aa(89),amb(89),ab(89)
Dim ruote(1),rt(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1

'--------------AMBI AURA--------------
aa(1) = 1 : amb(1) = 10 : ab(1) = 68
aa(2) = 2 : amb(2) = 34 : ab(2) = 71
aa(3) = 3 : amb(3) = 39 : ab(3) = 69
aa(4) = 4 : amb(4) = 56 : ab(4) = 64
aa(6) = 6 : amb(6) = 34 : ab(6) = 39
aa(7) = 7 : amb(7) = 5 : ab(7) = 60
aa(10) = 10 : amb(10) = 64 : ab(10) = 18
aa(11) = 11 : amb(11) = 13 : ab(11) = 46
aa(12) = 12 : amb(12) = 69 : ab(12) = 29
aa(13) = 13 : amb(13) = 79 : ab(13) = 60
aa(14) = 14 : amb(14) = 19 : ab(14) = 26
aa(17) = 17 : amb(17) = 77 : ab(17) = 12
aa(18) = 18 : amb(18) = 84 : ab(18) = 6
aa(19) = 19 : amb(19) = 58 : ab(19) = 41
aa(20) = 20 : amb(20) = 84 : ab(20) = 65
aa(21) = 21 : amb(21) = 83 : ab(21) = 42
aa(22) = 22 : amb(22) = 90 : ab(22) = 56
aa(23) = 23 : amb(23) = 33 : ab(23) = 41
aa(24) = 24 : amb(24) = 24 : ab(24) = 20
aa(25) = 25 : amb(25) = 67 : ab(25) = 74
aa(26) = 26 : amb(26) = 46 : ab(26) = 58
aa(27) = 27 : amb(27) = 79 : ab(27) = 23
aa(28) = 28 : amb(28) = 27 : ab(28) = 41
aa(29) = 29 : amb(29) = 61 : ab(29) = 51
aa(31) = 31 : amb(31) = 12 : ab(31) = 1
aa(32) = 32 : amb(32) = 65 : ab(32) = 61
aa(34) = 34 : amb(34) = 8 : ab(34) = 28
aa(35) = 35 : amb(35) = 86 : ab(35) = 57
aa(37) = 37 : amb(37) = 24 : ab(37) = 67
aa(38) = 38 : amb(38) = 62 : ab(38) = 76
aa(39) = 39 : amb(39) = 44 : ab(39) = 63
aa(40) = 40 : amb(40) = 89 : ab(40) = 14
aa(41) = 41 : amb(41) = 63 : ab(41) = 12
aa(43) = 43 : amb(43) = 68 : ab(43) = 35
aa(44) = 44 : amb(44) = 74 : ab(44) = 60
aa(45) = 45 : amb(45) = 88 : ab(45) = 81
aa(46) = 46 : amb(46) = 79 : ab(46) = 47
aa(47) = 47 : amb(47) = 69 : ab(47) = 40
aa(48) = 48 : amb(48) = 18 : ab(48) = 52
aa(49) = 49 : amb(49) = 73 : ab(49) = 32
aa(50) = 50 : amb(50) = 17 : ab(50) = 55
aa(51) = 51 : amb(51) = 44 : ab(51) = 2
aa(52) = 52 : amb(52) = 76 : ab(52) = 67
aa(53) = 53 : amb(53) = 83 : ab(53) = 22
aa(56) = 56 : amb(56) = 48 : ab(56) = 86
aa(57) = 57 : amb(57) = 11 : ab(57) = 18
aa(58) = 58 : amb(58) = 50 : ab(58) = 39
aa(61) = 61 : amb(61) = 74 : ab(61) = 11
aa(62) = 62 : amb(62) = 10 : ab(62) = 29
aa(63) = 63 : amb(63) = 63 : ab(63) = 85
aa(64) = 64 : amb(64) = 55 : ab(64) = 31
aa(66) = 66 : amb(66) = 83 : ab(66) = 28
aa(67) = 67 : amb(67) = 42 : ab(67) = 34
aa(68) = 68 : amb(68) = 58 : ab(68) = 30
aa(69) = 69 : amb(69) = 6 : ab(69) = 27
aa(70) = 70 : amb(70) = 52 : ab(70) = 82
aa(72) = 72 : amb(72) = 69 : ab(72) = 89
aa(73) = 73 : amb(73) = 5 : ab(73) = 1
aa(74) = 74 : amb(74) = 41 : ab(74) = 14
aa(75) = 75 : amb(75) = 13 : ab(75) = 20
aa(76) = 76 : amb(76) = 87 : ab(76) = 41
aa(77) = 77 : amb(77) = 49 : ab(77) = 72
aa(78) = 78 : amb(78) = 87 : ab(78) = 7
aa(79) = 79 : amb(79) = 75 : ab(79) = 38
aa(80) = 80 : amb(80) = 53 : ab(80) = 78
aa(81) = 81 : amb(81) = 73 : ab(81) = 46
aa(83) = 83 : amb(83) = 11 : ab(83) = 38
aa(84) = 84 : amb(84) = 1 : ab(84) = 66
aa(85) = 85 : amb(85) = 8 : ab(85) = 53
aa(88) = 88 : amb(88) = 16 : ab(88) = 9
aa(89) = 89 : amb(89) = 81 : ab(89) = 10
'-----------------------------------------
ca = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
fin = EstrazioneFin
ini = fin - rs
For es = ini To fin : For r = 1 To 10 : For p1 = 1 To 4 : p2 = p1 + 1
a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
ax = Fuori90(a*2) : bx = Fuori90(b*2)
x1 = Fuori90(180 - ax) : x2 = Fuori90(180 - bx)
If x1 = b Or x2 = a Then
nr(1) = a : nr(2) = b
rt(1) = 11
rt(2) = 12
'Controlla che l'ambo AURA sia unico su Tutte.
If SerieFreq(es,es,nr,rt,2) = 1 Then
If x1 = b Then n(1) = amb(a) : am(1) = amb(a) : am(2) = ab(a)
If x2 = a Then n(1) = amb(b) : am(1) = amb(b) : am(2) = ab(b)
'Controlla se l'elemento dell'ambata esiste.
If n(1) <> 0 Then
ruote(1) = r
'Controlla la non presenza sia dell'ambata che dell'ambo secco a Tutte.
If SerieFreq(es,es,n,ruote,1) = 0 And SerieFreq(es,es,am,rt,2) = 0 Then
ca = ca + 1
Scrivi "----------------------------------------------------"
rt1 = DataEstrazione(es) & " -- " & StringaEstratti(es,r)
Scrivi SiglaRuota(r) & " " & rt1 & " [" & Format2(a) & "]" & " [" & Format2(b) & "]"
Scrivi "----------------------------------------giocata n°" & ca
'ImpostaGiocata 1,n,ruote,posta,20
ImpostaGiocata 2,am,ruote,posta,20
ImpostaGiocata 3,am,rt,poste,20
Gioca es
End If
End If
End If
End If
Next : Next : Next
Scrivi
Scrivi
ScriviResoconto
End Sub

L'Ambo Relativo...

Anticipazione (Spoiler)

Sub Main()
Dim ruote(2)
Dim ruota(1)
Dim posta(2)
Dim poste(2)
Dim nn(2),nr1(2),nr2(2),nr3(2)
'Ambo relativo.di O. Manara & modificato da Florindi.
posta(1) = 1
posta(2) = 1
poste(2) = 1
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ") & "****** L'AMBO RELATIVO CON I SEGNI DISTANZIALI ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=") & "Listato da Patrik e Franco Florindi ",1
ColoreTesto 0
fin = EstrazioneFin
ini = fin - 20
t = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 9 : For p1 = 1 To 5 : p2 = p1 + 1
If p2 = 6 Then p2 = 1
a = Estratto(es - 5,r,p1) : b = Estratto(es - 5,r,p2)
do1 = Distanza(a,b)
For rr = r + 1 To 10 : For p3 = 1 To 5 : p4 = p3 + 1
If p4 = 6 Then p4 = 1
c = Estratto(es - 5,rr,p3) : d = Estratto(es - 5,rr,p4)
do2 = Distanza(c,d)
If do1 = do2 Then
'Distanza Verticale
dv1 = Distanza(a,c) : dv2 = Distanza(b,d)
If dv1 <> dv2 Then
nr1(1) = Diametrale(dv1): nr1(2) = Diametrale(dv2)
nr2(1) = Diametrale(a) : nr2(2) = Diametrale(c)
nr3(1) = Diametrale(b) : nr3(2) = Diametrale(d)
'Cerca gli ambi derivati entro 5 colpi.
ok = 0:co = 0
For ex = es - 4 To es
For r2 = 1 To 12
For p5 = 1 To 5 : p6 = p5 + 1
If p6 = 6 Then p6 = 1
x1 = Estratto(ex,r2,p5) : x2 = Estratto(ex,r2,p6)
If((x1 = nr1(1) And x2 = nr1(2)) Or(x1 = nr1(2) And x2 = nr1(1))) Or((x1 = nr2(1) And x2 = nr2(2)) Or(x1 = nr2(2) And x2 = nr2(1))) Or((x1 = nr3(1) And x2 = nr3(2)) Or(x1 = nr3(2) And x2 = nr3(1)))Then
If(x1 = nr1(1) And x2 = nr1(2)) Or(x1 = nr1(2) And x2 = nr1(1)) Then nn(1) = x1 : nn(2) = x2
If(x1 = nr2(1) And x2 = nr2(2)) Or(x1 = nr2(2) And x2 = nr2(1)) Then nn(1) = x1 : nn(2) = x2
If(x1 = nr3(1) And x2 = nr3(2)) Or(x1 = nr3(2) And x2 = nr3(1)) Then nn(1) = x1 : nn(2) = x2
'Controlla i segni distanziali
df1 = Abs(a - b) : df2 = Abs(c - d) : df3 = Abs(nn(1) - nn(2))
If df1 > 45 And a > b Then k1 = "+"
If df1 > 45 And a < b Then k1 = "-"
If df1 = < 45 And a > b Then k1 = "-"
If df1 = < 45 And a < b Then k1 = "+"
If df2 > 45 And c > d Then k2 = "+"
If df2 > 45 And c < d Then k2 = "-"
If df2 = < 45 And c > d Then k2 = "-"
If df2 = < 45 And c < d Then k2 = "+"
If df3 > 45 And nn(1) > nn(2) Then k3 = "+"
If df3 > 45 And nn(1) < nn(2) Then k3 = "-"
If df3 = < 45 And nn(1) > nn(2) Then K3 = "-"
If df3 = < 45 And nn(1) < nn(2) Then k3 = "+"
If k1 = "-" And K2 = "-" And K3 = "+" Or k1 = "-" And K2 = "+" And K3 = "+" Or k1 = "+" And K2 = "-" And K3 = "-" Or k1 = "+" And K2 = "+" And K3 = "-" Then
t = t + 1 : ok = 1 : co = co + 1
ruota(1) = r2
ruote(1) = 11
ruote(2) = 12
Scrivi "-------------------------------------------------------------------------"
Scrivi "Estrazione " & DataEstrazione(es - 5),1
Scrivi SiglaRuota(r) & " " & Format2(a) & "." & Format2(b) & " [Pos. " & p1 & "/" & p2 & "] Do1. " & Format2(do1) & " Dv1. " & Format2(dv1),1
Scrivi SiglaRuota(rr) & " " & Format2(c) & "." & Format2(d) & " [Pos. " & p3 & "/" & p4 & "] Do2. " & Format2(do2) & " Dv2. " & Format2(dv2),1
ColoreTesto 1
Scrivi
Scrivi "Ambi Derivati: " & StringaNumeri(nr1) & " / " & StringaNumeri(nr2) & " / " & StringaNumeri(nr3)
ColoreTesto 0
ColoreTesto 2
Scrivi "Ambo trovato su " & SiglaRuota(r2) & " il " & DataEstrazione(ex) & " Colpo " & co & "° " & StringaNumeri(nn) & " [Pos. " & p5 & "/" & p6 & "]",1
ColoreTesto 0
Scrivi
Scrivi "Ambi sortiti per determinare i segni distanziali: " & " " & Format2(a) & "." & Format2(b) & _
" / " & Format2(c) & "." & Format2(d) & " / " & Format2(nn(1)) & "." & Format2(nn(2)),1
Scrivi "Segni Distanziali : " & K1 & "/" & K2 & "/" & K3,1
Scrivi "----------------------------------------------------------------Giocata n°" & t
ImpostaGiocata 1,nn,ruota,posta,18,1
ImpostaGiocata 2,nn,ruote,poste,18,2
Gioca ex

End If
End If : Next : Next
co = co + 1
If ok = 1 Then Exit For
Next
End If
End If : Next : Next : Next : Next : Next
ScriviResoconto

End Sub

Doppia Ambata e Ambo su Venezia...

Anticipazione (Spoiler)

'DOPPIA AMBATA e AMBO su VENEZIA di O.MANARA
'script con le formule per la sottrazione (mettere apice)
Sub Main()
Dim num1(2),num2(2),num3(3),num4(8)
Dim ruota(1)
Dim posta(1),poste(2),post(3),pos(5)

posta(1) = 5oste(2) = 4
post(2) = 5ost(3) = 4
pos(2) = 5os(3) = 4os(4) = 1os(5) = 1

ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8300) '6712 caso metodo
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
Scrivi String(71,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
For es = ini To EstrazioneFin
If IndiceMensile(es) = 1 Then
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)

casi = casi + 1:Scrivi String(53,"=") & " script by maxma62",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(10) & " - " & StringaEstratti(es,10) & " ]"
Scrivi String(58,"-") & " caso n° " &(casi)
ruota(1) = 10:co = 0

n1 = Estratto(es,10,2)
n2 = n1*90
n3 = Fuori90(Int(Sqr(n2)))'ambata 1

'n4=Abs(n3-3)'ambata 2
n4 = Fuori90(90 +(n3 - 3)) 'ambata 2

'n5=Abs(Estratto(es,10,1)-11)'abb
n5 = Fuori90(90 +(Estratto(es,10,1) - 11))'abb

n6 = Fuori90(Estratto(es,10,2) + 31)'abb
n7 = Fuori90(Estratto(es,10,2) + 38)'abb
n8 = Fuori90(Estratto(es,10,3) + 42)'abb
n9 = Fuori90(Estratto(es,10,5) + 7)'abb

'n10=Abs(Estratto(es,10,5)-24)'abb
n10 = Fuori90(90 +(Estratto(es,10,5) - 24))'abb

num1(1) = n3:num1(2) = n4
co = co + 1
ImpostaGiocata co,num1,ruota,posta,k,1
num2(1) = n3:num2(2) = n4
co = co + 1
ImpostaGiocata co,num2,ruota,poste,k
num3(1) = n3:num3(2) = n4:num3(3) = n5
co = co + 1
ImpostaGiocata co,num3,ruota,post,k
num3(3) = n6
co = co + 1
ImpostaGiocata co,num3,ruota,post,k
num3(3) = n7
co = co + 1
ImpostaGiocata co,num3,ruota,post,k
num3(3) = n8
co = co + 1
ImpostaGiocata co,num3,ruota,post,k
num3(3) = n9
co = co + 1
ImpostaGiocata co,num3,ruota,post,k
num3(3) = n10
co = co + 1
ImpostaGiocata co,num3,ruota,post,k

num4(1) = n3:num4(2) = n4
num4(3) = n5:num4(4) = n6
num4(5) = n7:num4(6) = n8
num4(7) = n9:num4(8) = n10
co = co + 1
ImpostaGiocata co,num4,ruota,pos,k

Gioca es,1

End If
Next
Scrivi String(53,"=") & " script by maxma62",1
ScriviResoconto
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
End Sub

Fulmine....

Anticipazione (Spoiler)

Sub Main()
Scrivi "FULMINE di OSVALDO MANARA",1
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10),am(10),am1(10),am2(10)
Dim ruota(2),ruote(10),posta(5),poste(5),poste1(5)
poste1(1) = 1
posta(2) = 1.5
posta(3) = 0.4
posta(4) = 0.1
poste(2) = 1
For n = 8200 To EstrazioneFin
Messaggio DataEstrazione : t = 1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
x(1) = n1
x(2) = n2
x(3) = n3
x(4) = n4
If NumeriRipetuti(x) = False Then
OrdinaMatrice x,1
y1 = Fuori90(x(4) + x(1))
y2 = Fuori90(x(2) + x(3))
y3 = Distanza(x(4),x(3))
y4 = Distanza(x(1),x(2))
y5 = Distanza(x(4),x(2))
y6 = Distanza(x(1),x(3))
If y1 = y2 And y3 = y4 And y5 = y6 Then
Scrivi "----------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI Somma Oriz. D.V - D.D." : ColoreTesto 0
Scrivi FormatSpace(NomeRuota(r1),10) & " " & Format2(CInt(n1)) & " " & Format2(CInt(n2)) & " " & _
Format2(x(4)) & " " & Format2(x(1)) & " " & FormatSpace(y1,3) & " " & FormatSpace(y3,3) & " " & FormatSpace(y5,3),1

Scrivi FormatSpace(NomeRuota(r1 + 1),10) & " " & Format2(CInt(n3)) & " " & Format2(CInt(n4)) & " " & _
Format2(x(3)) & " " & Format2(x(2)) & " " & FormatSpace(y2,3) & " " & FormatSpace(y4,3) & " " & FormatSpace(y6,3),1
Scrivi
am(1) = x(4)
ImpostaGiocata 1,am,ruota,poste1,16
am1(1) = x(4)
am1(2) = x(1)
ImpostaGiocata 2,am1,ruote,poste,16
am1(2) = x(2)
ImpostaGiocata 3,am1,ruote,poste,16
am1(2) = x(3)
ImpostaGiocata 4,am1,ruote,poste,16
am2(1) = x(1)
am2(2) = x(2)
am2(3) = x(3)
am2(4) = x(4)
'ImpostaGiocata 5,am2,ruote,posta,16
Gioca n
End If
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 '* 1a
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
c1 = Cadenza(a)
c2 = Cadenza(b)
d1 = Figura(a)
d2 = Figura(b)
For rr = r + 1 To 10
aa = Estratto(estrazione,rr,i)
bb = Estratto(estrazione,rr,j)
cc1 = Cadenza(aa)
cc2 = Cadenza(bb)
dd1 = Figura(aa)
dd2 = Figura(bb)
If(c1 = c2 And cc1 = cc2 And c1 = cc1) Or(d1 = d2 And dd1 = dd2 And d1 = dd1) 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 '* 2a
DISAMBO = False
End Function

La Triade...

Anticipazione (Spoiler)

Sub Main()
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=") & "** LA TRiADE DI SOMMA - FABARRI E MANARA **",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"-") & "listato by F.F. ",1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),lg1(5)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1) = 1
poste1(2) = 1
poste(2) = 3.50 : poste(3) = 1 : poste(4) = .40 : poste(5) = .10
rs = InputBox(" Quante estrazioni vuoi controllare?","Florindi",20)
ini = EstrazioneFin - rs : fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
For r1 = 1 To 10 : For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
For p3 = 1 To 5
If p3 <> p1 And p3 <> p2 Then
c = Estratto(es,r1,p3)
If Fuori90(a + b) = c And c <> 90 Then
nu(1) = 90 - a : nu(2) = 90 - b : nu(3) = 90 - c
'Controlla la presenza dell'ambo in terzina su un'altra ruota.
For r2 = 1 To 10
If r2 <> r1 Then
ru(1) = r2
sf = SerieFreq(es,es,nu,ru,2)
If sf > 0 Then
'Trova l'ambo, che deve essere unico.
g = 0
For q = 1 To 5
nx = Estratto(es,r2,q)
For i = 1 To 3
If nx = nu(i) Then g = g + 1 : nr(g) = nx
Next
Next
If g = 2 Then
'Cerca il numero mancante(cg)della terzina derivata.
ok = 0
For y = 1 To 3
If nu <> nr(1) And nu <> nr(2) Then cg = nu : ok = 1
If ok = 1 Then Exit For
Next
amb(1) = cg
ambo1(1) = cg : ambo1(2) = a
ambo2(1) = cg : ambo2(2) = b
ambo3(1) = cg : ambo3(2) = c
ambo4(1) = cg : ambo4(2) = nr(1)
ambo5(1) = cg : ambo5(2) = nr(2)
lg1(1) = a : lg1(2) = b : lg1(3) = c : lg1(4) = nr(1) : lg1(5) = nr(2)

ruote(1) = r1:ruote(2) = r2

casi = casi + 1:Scrivi String(70,"="),1
ColoreTesto 2
Scrivi Space(30) & "Caso " & casi
ColoreTesto 0
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ]" & _
" Terna di somma: " & Format2(a) & "." & Format2(b) & "." & Format2(c) & Chr(10) & _
Space(37) & "Terno Derivato: " & StringaNumeri(nu),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ]" & Chr(10) & _
"Ambo trovato " & StringaNumeri(nr) & " su " & SiglaRuota(r2) & Chr(10) & _
"Num. mancante - CAPOGIOCO: " &(amb(1)),1
Scrivi String(70,"-")

ImpostaGiocata 1,amb,ruote,posta,14
ImpostaGiocata 2,ambo1,ruote,poste1,14
ImpostaGiocata 3,ambo2,ruote,poste1,14
ImpostaGiocata 4,ambo3,ruote,poste1,14
ImpostaGiocata 5,ambo4,ruote,poste1,14
ImpostaGiocata 6,ambo5,ruote,poste1,14
ImpostaGiocata 7,lg1,ruote,poste,14
Gioca es,1
End If
End If
End If
Next
End If
End If
Next:Next : Next:Next:Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"-") & "listato by F.Florindi. ",1
ColoreTesto 0
End Sub

Metodo di Manara, ma non so esattamente quale, l'ho trovato così...

Anticipazione (Spoiler)

Sub Main()
Dim am(1),ab(3),ambo(2),ru(2),posta(1),poste(2)
posta(1) = 1 : poste(2) = 1
fin = EstrazioneFin : ini = fin - 104
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
d1 = Distanza(a,b)
If d1 = 45 Then
For r2 = r1 + 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
d2 = Distanza(c,d)
If d2 = d1 Then
so1 = Fuori90(a + b)
so2 = Fuori90(c + d)
df1 = Abs(a - c) : df2 = Abs(b - d)
If df1 = df2 Then
Scrivi DataEstrazione(es) & " " & _
Left(NomeRuota(r1),2) & " " & Format2(a) & "-" & Format2(b) & " " & _
Left(NomeRuota(r2),2) & " " & Format2(c) & "-" & Format2(d),1
ru(1) = r1
ru(2) = r2
ab(1) = df1
ab(2) = Fuori90(so1 + so2)
ab(3) = d
am(1) = Fuori90(ab(2) + 45)
co = 1
ImpostaGiocata co,am,ru,posta,3,1
ambo(1) = am(1)
For x = 1 To 3
co = co + 1
ambo(2) = ab(x)
ImpostaGiocata co,ambo,ru,poste,3,2
Next
Gioca es
Scrivi
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

I due seguenti sono per il programma L8..
Lotto Facile 01...

Anticipazione (Spoiler)

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 = 7600 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

Lotto Facile 04..

Anticipazione (Spoiler)

Sub Main()

Dim am(1)
Dim ter(3)
Dim ruota(1)
Dim ruote(2)
Dim posta(1)
Dim poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1

ca = 0
fin = EstrazioneFin
ini = fin - 5
For es = ini To fin
AvanzamentoElab ini,fin,es

For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)

For r1 = r + 1 To 12
If r1 <> 11 Then
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r1,p1)
d = Estratto(es,r1,q1)

d1 = Distanza(a,b)
d2 = Distanza(c,d)
d3 = Distanza(a,c)
d4 = Distanza(b,d)
d5 = Distanza(a,d)
d6 = Distanza(b,c)

If d1 = 30 And d2 = d1 Xor d3 = 30 And d4 = d3 Xor d5 = 30 And d6 = d5 Then

If p1 = p And q1 = q Then
Scrivi
Scrivi
Scrivi
Scrivi
ca = ca + 1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)

n1 = Fuori90(a + b + c + d)
n2 = Fuori90(n1*2)
n3 = Diametrale(n2)
n4 = Fuori90(n3 + 30)
n5 = Fuori90(n3 + 60)

ruote(1) = r
ruote(2) = r1
ruota(1) = 11

am(1) = n3
ter(1) = n2
ter(2) = n4
ter(3) = n5

ImpostaGiocata 1,am,ruote,posta,9,1
ImpostaGiocata 2,ter,ruota,poste,9,2

Gioca es

End If
End If
Next
Next
End If
Next
Next
Next
Next
Next
ColoreTesto 2
Scrivi "============================================================================="
Scrivi " casi giocabili: " & ca,1
Scrivi "============================================================================="
ColoreTesto 0
ScriviResoconto
End Sub

 

[andy881]

Io non uso codici non hai il testo del sistema
Grazie

 

[lallina]

Io non uso codici non hai il testo del sistema
Grazie

Cercasi sul web che li trovi

 

[Gordon9]

No non ho lo script. Il metodo l'ho preso da un giornale del lotto.

 

[Pandit]

Se cerchi su Google " script e metodi di Osvaldo Manara", trovi anche le spiegazioni scritte, non ce ne sono molti, ma ci sono...

 

[Gordon9]

AMBO DOPPIO
Es.: GE/RM 13 54 uscito 19 agosto
13+54=67 diametrale 22 ambata
54-13=41 diametrale 86 col suo vertibile 68 per 2 ambi secchi o terzina
Quindi: 22/86 68
Saluti

Ambata GE 22 e ambetto 22 87 alla 2^