quote:Originally posted by Manuel
Ciao a tutti,
Vi propongo un buon metodo trovato su ........ per centrare in 10 colpi un 4,5,5+1 o adirittura il 6.
Per chi non ha L8+, di seguito i calcoli sommativi da fare con carta e penna:
Capogioco: 2° Estratto di Bari + 3° Estratto di Cagliari
Abbinamento N° 01: 5° Estratto di Firenze + 7
Abbinamento N° 02: 1° Estratto di Genova + 3° Estratto di Venezia
Abbinamento N° 03: 1° Estratto di Milano + 39
Abbinamento N° 04: 5° Estratto di Venezia + 61
Abbinamento N° 05: 3° Estratto di Bari + 13
Abbinamento N° 06: 5° Estratto di Bari + 13
Abbinamento N° 07: 2° Estratto di Cagliari + 28
Abbinamento N° 08: 3° Estratto di Genova + 5° Estratto di Roma
Abbinamento N° 09: 2° Estratto di Napoli + 3° Estratto di Roma
Abbinamento N° 10: 4° Estratto di Napoli + 35
Abbinamento N° 11: 2° Estratto di Palermo + 83
Abbinamento N° 12: 3° Estratto di Palermo + 33
Abbinamento N° 13: 5° Estratto di Bari + 23
Abbinamento N° 14: 4° Estratto di Cagliari + 52
---------------------------------------------------------------------
Listato in L8+
Dim numeri(15)
Dim q
q=15
Sub main()
Dim r(6)
Dim r1(6)
Dim r2(6)
Dim r3(6)
Dim r4(6)
Dim r5(6)
Dim r6(6)
Dim r7(6)
Dim r8(6)
Dim r9(6)
Dim es(6)
Dim qg(10)
m="SuperEnalotto"
ri = InputBox ("Scrivi quì sotto il numero di estrazioni da controllare.",m,"01/01/2006")
a0=0
b0=0
c0=0
d0=0
For n=PrimaSuccessiva(ri) To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri(1)=Fuori90(Estratto(n,1,2)+Estratto(n,2,3))
numeri(2)=Fuori90(Estratto(n,3,5)+7)
numeri(3)=Fuori90(Estratto(n,4,1)+Estratto(n,10,3))
numeri(4)=Fuori90(Estratto(n,5,1)+39)
numeri(5)=Fuori90(Estratto(n,10,5)+61)
numeri(6)=Fuori90(Estratto(n,1,3)+13)
numeri(7)=Fuori90(Estratto(n,1,5)+13)
numeri(8)=Fuori90(Estratto(n,2,2)+28)
numeri(9)=Fuori90(Estratto(n,4,3)+Estratto(n,8,5))
numeri(10)=Fuori90(Estratto(n,6,2)+Estratto(n,8,3))
numeri(11)=Fuori90(Estratto(n,6,4)+35)
numeri(12)=Fuori90(Estratto(n,7,2)+83)
numeri(13)=Fuori90(Estratto(n,7,3)+33)
numeri(14)=Fuori90(Estratto(n,1,5)+23)
numeri(15)=Fuori90(Estratto(n,2,4)+52)
OrdinaMatrice numeri,1
'--------------------------------------
EliminaRipetuti numeri
'==========================
r(1)= EstrattoSuper (n+1,1)
r(2)= EstrattoSuper (n+1,2)
r(3)= EstrattoSuper (n+1,3)
r(4)= EstrattoSuper (n+1,4)
r(5)= EstrattoSuper (n+1,5)
r(6)= EstrattoSuper (n+1,6)
'==========================
r1(1)= EstrattoSuper (n+2,1)
r1(2)= EstrattoSuper (n+2,2)
r1(3)= EstrattoSuper (n+2,3)
r1(4)= EstrattoSuper (n+2,4)
r1(5)= EstrattoSuper (n+2,5)
r1(6)= EstrattoSuper (n+2,6)
'==========================
r2(1)= EstrattoSuper (n+3,1)
r2(2)= EstrattoSuper (n+3,2)
r2(3)= EstrattoSuper (n+3,3)
r2(4)= EstrattoSuper (n+3,4)
r2(5)= EstrattoSuper (n+3,5)
r2(6)= EstrattoSuper (n+3,6)
'==========================
r3(1)= EstrattoSuper (n+4,1)
r3(2)= EstrattoSuper (n+4,2)
r3(3)= EstrattoSuper (n+4,3)
r3(4)= EstrattoSuper (n+4,4)
r3(5)= EstrattoSuper (n+4,5)
r3(6)= EstrattoSuper (n+4,6)
'==========================
r4(1)= EstrattoSuper (n+5,1)
r4(2)= EstrattoSuper (n+5,2)
r4(3)= EstrattoSuper (n+5,3)
r4(4)= EstrattoSuper (n+5,4)
r4(5)= EstrattoSuper (n+5,5)
r4(6)= EstrattoSuper (n+5,6)
'==========================
r5(1)= EstrattoSuper (n+6,1)
r5(2)= EstrattoSuper (n+6,2)
r5(3)= EstrattoSuper (n+6,3)
r5(4)= EstrattoSuper (n+6,4)
r5(5)= EstrattoSuper (n+6,5)
r5(6)= EstrattoSuper (n+6,6)
'==========================
r6(1)= EstrattoSuper (n+7,1)
r6(2)= EstrattoSuper (n+7,2)
r6(3)= EstrattoSuper (n+7,3)
r6(4)= EstrattoSuper (n+7,4)
r6(5)= EstrattoSuper (n+7,5)
r6(6)= EstrattoSuper (n+7,6)
'==========================
r7(1)= EstrattoSuper (n+8,1)
r7(2)= EstrattoSuper (n+8,2)
r7(3)= EstrattoSuper (n+8,3)
r7(4)= EstrattoSuper (n+8,4)
r7(5)= EstrattoSuper (n+8,5)
r7(6)= EstrattoSuper (n+8,6)
'==========================
r8(1)= EstrattoSup