UN REGALO X TUTTI VOI...

[Roby]

X TUTTI VOI...amici ed AMICHE del forum...


LA FAVOLOSA SOMMA 48...

è un’idea LOTTOMIMMO

Questa tecnica di origine ciclometrica ha dato, nei casi analizzati, sempre delle
ottime vincite entro i primi 5/6 colpi di gioco, ogni volta che si è presentata la
condizione richiesta.
Pertanto, conviene aspettare che le estrazioni forniscano un caso giocabile per mettere in atto questo piccolo gioiello ludologico.


ITER OPERATIVO


Rintracciare su 2 ruote qualsiasi 2 ambi di somma 48.

Fare la differenza tra i 2 ambi;

Fare la differenza dei risultati ottenuti = AMBATA


ABBINAMENTI


I diametrali in decina degli estratti che costituiscono i 2 ambi di partenza;

La radice quadrata dei 2 ambi rintracciati.

Col tempo vi renderete conto di che gioiello vi ho messo a disposizione...
Non posso "dilungarmi" troppo per alcuni criteri che sono costretto a rispettare...
In ogni caso mettoa Vostra completa disposizione...la mia privacy:




Mandate al Forum ed al sottoscritto...le copie di eventuali scontrini vincenti!!!
In bocca al lupo a tutti...

A beneficio di tutti gli utenti, vi prego di tenere su questo post...

 

[caligo]

Ciao,ottimo metodo...potresti fare un'esempio per capire meglio il metodo...grazie ancora attendo ciaooooooo Diego


caligo

 

[lottomimmo]

Ciao caligo...
Un esempio reale di gioco lo trovi nella sezione LottoCed Forum...
Ciao...

 

[caligo]

Si grazie per avermi risposto,l'ho trovato prima ciaoo...........

caligo

 

[Ben8]

Grazie per aver postato questo metodo.
Spero che mi aiuti a recuperare qualcosina.[8)]

Ben[8] </u>

 

[Abitte]

Nell'estrazione di questa sera c'è una nuova condizione su PALERMO e ROMA....quando avrò fatto i calcoli proverò a postarli nella sezione
Forum: Mi ci date un'occhiata per controllare che siano giusti[?][:I]

Abitte
___________________

«Faber quisque fortunae suae»

 

[Ben8]

Salve!
Sono riuscito a fare il listato di questo metodo.
Lo metto a disposizione di tutti, sperando di fare cosa gradita.

Sub main()
Dim num(10)
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim num4(5)
Dim num5(5)
Dim num6(5)
Dim num7(5)
Dim ruote(10)
Dim ruota1(10)
Dim po(5)
Dim pa(5)

co=16
'k2=2
pa(1)=1
po(2)=1

For es=7604 To EstrazioneFin
Messaggio CStr (EstrazioneFin - es)

For r=1 To 12
If r=11 Then r=12
For r1=r+1 To 12
If r1=11 Then r1=12
For p=1 To 4
For p1=p+1 To 5
For pp=1 To 4
For pp1=pp+1 To 5
a=Estratto (es,r,p) 
b=Estratto (es,r,p1) 
c=Estratto (es,r1,pp) 
d=Estratto (es,r1,pp1) 
a1=Fuori90(a+b)
a2=Fuori90(c+d)
If a1=48 And a1=a2 Then

ColoreTesto 2
'Scrivi "Data"&" --> "&DataEstrazione(es)
Scrivi "Estrazione"&" --> "&StringaEstratti(es,r)&"  Ambo"&" -->"&" ["&Format2(a)&_
"]["&Format2(b)&"] Somma --> "&"["&Format2(a1)&"]"&"  "&"Ruota "&"--> "&NomeRuota(r)
Scrivi "Estrazione"&" --> "&StringaEstratti(es,r1)&"  Ambo"&" -->"&" ["&Format2(c)&_
"]["&Format2(d)&"] Somma --> "&"["&Format2(a1)&"]"&"  "&"Ruota "&"--> "&NomeRuota(r1)
ColoreTesto 0

m1=Fuori90(((b)-a)+90)
If a>b Then m1=Fuori90(((a)-b)+90)
m2=Fuori90(((d)-c)+90)
If c>d Then m2=Fuori90(((c)-d)+90)
m3=Fuori90(((m1)-m2)+90)
If m2>m1 Then m3=Fuori90(((m2)-m1)+90)

b1=(a*100)+b
b2=(c*100)+d

c1=Fuori90(Int(Sqr(b1)))
c2=Fuori90(Int(Sqr(b2)))

d1=DiametraleD(a)
d2=DiametraleD(b)
d3=DiametraleD(c)
d4=DiametraleD(d)

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

num(1)=m3
ImpostaGiocata 1,num,ruote,pa,co,k1
num1(1)=m3
num1(2)=c1
If num1(2)=num1(1) Then num1(2)=Fuori90(num1(2)+1)
ImpostaGiocata 2,num1,ruote,po,co,k2

num2(1)=m3
num2(2)=c2
If num2(2)=num2(1) Then num2(2)=Fuori90(num2(2)+1)
ImpostaGiocata 3,num2,ruote,po,co,k2

num3(1)=m3
num3(2)=d1
If num3(2)=num3(1) Then num3(2)=Fuori90(num3(2)+1)
ImpostaGiocata 4,num3,ruote,po,co,k2

num4(1)=m3
num4(2)=d2
If num4(2)=num4(1) Then num4(2)=Fuori90(num4(2)+1)
ImpostaGiocata 5,num4,ruote,po,co,k2

num5(1)=m3
num5(2)=d3
If num5(2)=num5(1) Then num5(2)=Fuori90(num5(2)+1)
ImpostaGiocata 6,num5,ruote,po,co,k2

num6(1)=m3
num6(2)=d4
If num6(2)=num6(1) Then num6(2)=Fuori90(num6(2)+1)
ImpostaGiocata 7,num6,ruote,po,co,k2

'For ax=1 To 6
'For bx=1 To 6
'ImpostaInterruzioni ax,bx,2
'Next
'Next

Gioca es
Scrivi"____________________________________________________________________________________" 

End If
Next
Next
Next
Next
Next
Next
Next
'ScriviResoconto 
End Sub








Estrazione --> 41.79.40.59.30  Ambo --> [79][59] Somma --> [48]  Ruota --> Napoli
Estrazione --> 64.01.03.68.45  Ambo --> [03][45] Somma --> [48]  Ruota --> Roma
mar 06.06.2006  [7604]
  G  1:  M    22         16/16    
     M  22               su Tu (Ro)    1° colpo   [7605/08.06.2006]
     M  22               su Tu (Ve)    1° colpo   [7605/08.06.2006]
     M  22               su Tu (Na)    6° colpo   [7610/20.06.2006]
     M  22               su Tu (Ro)    7° colpo   [7611/22.06.2006]
     M  22               su Tu (Ca)   11° colpo   [7615/01.07.2006]
     M  22               su Tu (Fi)   11° colpo   [7615/01.07.2006]
     M  22               su Tu (Pa)   13° colpo   [7617/06.07.2006]
     M  22               su Tu (Ba)   14° colpo   [7618/08.07.2006]

  G  2:  A    22.89      16/16    
     negativo
  G  3:  A    22.18      16/16    
     negativo
  G  4:  A    22.74      16/16    
     A  74.22            su Tu (Ro)    1° colpo   [7605/08.06.2006]

  G  5:  A    22.54      16/16    
     negativo
  G  6:  A    22.08      16/16    
     A  22.08            su Tu (Na)    6° colpo   [7610/20.06.2006]

  G  7:  A    22.40      16/16    
     A  40.22            su Tu (Fi)   11° colpo   [7615/01.07.2006]

____________________________________________________________________________________
Estrazion

 

[franca46]

buon giorno

grazie Ben8

 

[imported_n/a]

Franca cosa si devono giocare le combinazioni con il 26?
premetto che mi sono uscite le ambate 73-62 e vertibili m-n
Come ti ho detto telefonicamente io i listati ancora non li comprendo.
ciao

P.S

 

[j76biban]

GRANDE Ben ciao e grazie

 

[jo058]

se csi è allora mi scuso e faccio mille complimenti all'autore o agli autori di qt metodo .

 

[imported_n/a]

Perdonatemi,ma dal listato di Ben8,si evince che ecluso il mese di giugno,il metodo non ha dato grandi risultati o sbaglio? Voi cosa ne pensate?
Pio

 

[franca46]

quote:Originally posted by n.n.

Franca cosa si devono giocare le combinazioni con il 26?
premetto che mi sono uscite le ambate 73-62 e vertibili m-n
Come ti ho detto telefonicamente io i listati ancora non li comprendo.
ciao

P.S

Estrazione --> 76.10.38.70.40 Ambo --> [10][38] Somma --> [48] Ruota --> Milano
Estrazione --> 25.45.18.23.89 Ambo --> [25][23] Somma --> [48] Ruota --> Palermo
mar 11.07.2006 [7618]
G 1: M 26 2/16
in corso (2° su 16)
G 2: A 26.32 2/16
in corso (2° su 16)
G 3: A 26.50 2/16
in corso (2° su 16)
G 4: A 26.15 2/16
in corso (2° su 16)
G 5: A 26.33 2/16
in corso (2° su 16)
G 6: A 26.20 2/16
in corso (2° su 16)
G 7: A 26.28 2/16
in corso (2° su 16)

queste sono quelle con il 26

ciao

 

[aldo73]

un aitutino mi spiegate con esempi partici come si ricavano le previsioni in questo metodo ? grazie mille

ALDO

 

[Enplein]

X Aldo73

In data --> 15.07.2006, si presentano due ambi di somma 48 su due ruote.
Estrazione --> 09.47.63.80.75  Ambo --> [63][75] Somma --> [48]  Dif. Matem. ----> [12] Ruota --> Genova
Estrazione --> 78.12.15.33.62  Ambo --> [15][33] Somma --> [48] 
Dif. Matem. ----> [18] Ruota --> Nazionale

L'ambata è data dalla differenza matematica delle differenze degli ambi base: 18-12=6

x Ambo :
1° Abbinamento Radice Quadrata di 6375 = 79
2°      "        "        "    di 1533 = 39
3°      "      Diametrale in Decina di 63+5= 68 
4°      "          "            "      75-5= 70
5°      "          "            "      15-5= 10
6°      "          "            "      33+5= 38  

PREVISIONE:
sab 15.07.2006  [7621]
  G  1:  M    06      Ge Nz    0/16    
     n.i. (16 colpi)
  G  2:  A    06.79   Ge Nz    0/16    
     n.i. (16 colpi)
  G  3:  A    06.39   Ge Nz    0/16    
     n.i. (16 colpi)
  G  4:  A    06.68   Ge Nz    0/16    
     n.i. (16 colpi)
  G  5:  A    06.70   Ge Nz    0/16    
     n.i. (16 colpi)
  G  6:  A    06.10   Ge Nz    0/16    
     n.i. (16 colpi)
  G  7:  A    06.38   Ge Nz    0/16    
     n.i. (16 colpi)

X Ben8

Mi complimento per l'impegno manifestato nel realizzare lo scritp, e per questo suggerisco un modo più semplice nel calcolo delle differenze matematiche....usando la funzione Abs, e un For....Next per per le giocate dell'ambo.

Ciao, Enplein.

Allego interamente il listato per coloro che non ne sono capaci.

Sub main()
Dim num(2),amb(1),n(6)
Dim ruote(2)
Dim ruota(1)
Dim posta(1)
Dim poste(2)
co=16
posta(1)=1
poste(2)=1
For es=7604 To EstrazioneFin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
For r1=r+1 To 12
If r1<>11 Then 
For p=1 To 4
For p1=p+1 To 5
For pp=1 To 4
For pp1=pp+1 To 5
a=Estratto (es,r,p) 
b=Estratto (es,r,p1) 
c=Estratto (es,r1,pp) 
d=Estratto (es,r1,pp1) 
a1=Fuori90(a+b)
a2=Fuori90(c+d)
If a1=48 And a1=a2 Then
d1=Abs (a-b)
d2=Abs (c-d)
amb(1)=Abs (d1-d2)
If amb(1)<>0 Then 
ab=(a*100)+b
cd=(c*100)+d
n(1)=Fuori90(Int(Sqr(ab)))
n(2)=Fuori90(Int(Sqr(cd)))
n(3)=DiametraleD(a)
n(4)=DiametraleD(b)
n(5)=DiametraleD(c)
n(6)=DiametraleD(d)
ruote(1)=r
ruota(1)=11
ruote(2)=r1
ColoreTesto 1
Scrivi "Data"&" --> "&DataEstrazione(es)
Scrivi "Estrazione"&" --> "&StringaEstratti(es,r)&"  Ambo"&" -->"&" ["&Format2(a)&_
"]["&Format2(b)&"] Somma --> "&"["&Format2(a1)&"]  Diff. Matem. ---> "&"["& Format2(d1)&"]"&"  "&"Ruota "&"--> "&NomeRuota(r)
Scrivi "Estrazione"&" --> "&StringaEstratti(es,r1)&"  Ambo"&" -->"&" ["&Format2(c)&_
"]["&Format2(d)&"] Somma --> "&"["&Format2(a1)&"]  Diff. Matem. ---> "&"["& Format2(d2)&"]"&"  "&"Ruota "&"--> "&NomeRuota(r1)
ColoreTesto 0
ImpostaGiocata 1,amb,ruote,posta,co,1
st=1
num(1)=amb(1)
For i=1 To 6
st=st+1
num(2)=n(i)
If num(2)=num(1) Then num(2)=Fuori90(num(2)+1)
ImpostaGiocata st,num,ruote,poste,co,2
Next 
For x=1 To 7
For z=2 To 7
ImpostaInterruzioni x,1,1
ImpostaInterruzioni x,z,2
Next
Next
Gioca es
Scrivi"_________________________________________________________________________________________________________" 
End If 
End If
Next
Next
Next
Next
End If 
Next
Next
Next
ScriviResoconto

 

[aldo73]

GRAZIE MILLE PER L'AIUTO

ALDO

 

[aldo73]

X ANPLEIN - L'AMBATA 6 SI ABBINA CON I NUMERI IN BASSO ?

ALDO

 

[Ben8]

Grazie Enplein per i complimenti ed il suggerimento che mi sarà molto utile.
Come sai le mie nozioni sul lottoscript sono ancora limitate.
Spero col tempo di migliorare.
Cordiali saluti a tutti.

Ben[8] </u>

 

[pietro37]

QUALCUNO PUO' FARE UN PROGRAMMA CON EXCEL?
GRAZIE.