POSSO AIUTARTI?



NON STARE A GUARDARE!
ENTRA E SCRIVI QUALCOSA!


HAI PERSO I DATI? TI AIUTO.

SE RICORDI IL NOME UTENTE

E LA MAIL DI REGISTRAZIONE
> RECUPERA TU LA PASSWORD <

NON RICORDI IL NOME UTENTE?
SCRIVI UNA MAIL ALL'ADMIN:
FABRIZIO.LAFERLA[@]GMAIL.COM

IN ALTERNATIVA PROVA A
ISCRIVERTI NUOVAMENTE!

Chi è in linea
In totale ci sono 84 utenti in linea: 0 Registrati, 0 Nascosti e 84 Ospiti

Nessuno

Il numero massimo di utenti online contemporaneamente è stato 634 il Sab 22 Dic 2012 - 20:45
Ultimi argomenti
» accendo la lampadina...è arrivato il momento.........
Oggi alle 6:29 Da aimada

» AMICI MIEI CAGLIARI CHIAMA IL 76!
Oggi alle 6:20 Da aimada

» ROMA E' IN ATTESA DEL 90!
Oggi alle 6:19 Da aimada

»  LOTTO AMICO news
Oggi alle 6:15 Da aimada

» SUPERENALOTTO = IL TERZO SENSO
Ieri alle 23:48 Da peppelotto

» IL NUMERETTO FIORENTINO!
Ieri alle 23:46 Da peppelotto

» SUPERENALOTTO = "IL SESTO SENSO"
Ieri alle 23:45 Da peppelotto

» IL QUADRATO VERTIBILE BILATERALE!
Ieri alle 23:41 Da peppelotto

» Chi no vol ben a le bestie, no vol ben a le persone.
Ieri alle 20:46 Da marvik

»  genova 68...prev.aggiornata
Ieri alle 19:30 Da lucionelli

» A Roma pe’ fa fortuna ce vonno tre d, donne, denari e diavolo.
Ieri alle 18:43 Da lucionelli

» a roma le cinquine sono troppe come si faaa....roma 13 semplice e ambo 13-67
Ieri alle 18:41 Da lucionelli

» GIOVEDì 19 OTTOBRE SALUTI
Ieri alle 18:25 Da pescia

» IL NUMERETTO 6 E I SUOI AMBI SECCHI.. ancora altro ambo secco 6-33 a cagliari
Gio 19 Ott 2017 - 23:51 Da lucky72

» 1 ambo e 2 terni plausibili.
Gio 19 Ott 2017 - 21:01 Da Ipotesi

» AMBATE A CAGLIARI
Gio 19 Ott 2017 - 16:38 Da giumal

» a venezia l'ambata la butto giù.....72 det. in 1°posizione + ambone 72-62
Mer 18 Ott 2017 - 21:23 Da lucionelli

» Roma ambata 90
Mer 18 Ott 2017 - 21:23 Da lulu67

» Prestu et bene, non andanta mai bei Presto e bene, non vanno mai insieme
Mer 18 Ott 2017 - 21:22 Da lucionelli

» Opportunità da analisi statistiche (10eLotto serale)
Mer 18 Ott 2017 - 20:39 Da DamBu82

» la mia bella madunina...la sbanchiamo...ci provo ambata 30det.4 e ambone 30-20
Mer 18 Ott 2017 - 20:21 Da lucionelli

» SPECIALE RUOTA UNICA
Mer 18 Ott 2017 - 15:37 Da lucky72

» MERCOLEDI 18 OTTOBRE SALUTI
Mer 18 Ott 2017 - 14:05 Da rita marras

» ** ANNO 2017 - I SUOI CENTENARI ** a voi che entrate qui lasciate ogni speranza di ritornare indietro...
Mer 18 Ott 2017 - 11:04 Da lotto_amico

» ** METODO 09.90 **4 TERNI DI CUI UNO A RUOTA
Mer 18 Ott 2017 - 10:40 Da lotto_amico

» °° X TUTTO OTTOBRE 2017**
Mer 18 Ott 2017 - 10:38 Da lotto_amico

» °°° SENZA REGOLE °° RECORD... 1 QUATERNA IN C E IN S PIU DIVERSI TERNI A TUTTE - SUPERATO UN'ALTRO RECORD
Mer 18 Ott 2017 - 10:36 Da lotto_amico

» ** I 5 MOSCHETTIERI ** ROMA TERNO IN C 08.89.90
Mer 18 Ott 2017 - 10:34 Da lotto_amico

» ** VI REGALO UN METODO°° ANCORA UN'ALTRO AMBO E QUESTA VOLTA A TORINO CON 77.82
Mer 18 Ott 2017 - 10:31 Da lotto_amico

» ** E.A.G.C ** by Lotto©Amico
Mer 18 Ott 2017 - 10:28 Da lotto_amico

FABRIZIO LA FERLA


CLICCA SU #FLF PER
SEGUIRMI SU FACEBOOK!


TERNO IN CINQUINA!
76-10-36 FI


AMBO MILIONARIO!
15-81 MI


SUPER AMBETTI!
27-49 NZ
33-85 RO
31-75 GE

HAI VINTO ANCHE TU?

FAX VINCITE 178.27.43.003
fabrizio.laferla[@]gmail.com

GIUSEPPE CHIARAMIDA


CLICCA SU #GC PER
SEGUIRMI SU FACEBOOK!


AMBO SECCO 1°C!

60-64 NA

CENTENARIO KO!

80-70-23 CA

TERNO IN QUARTINA!
12-19-61 RO

HAI VINTO ANCHE TU?
FAX VINCITE 178.27.42.674
chiaramidalottoelotto[@]gmail.com


I postatori più attivi del mese
lotto_amico
 
marvik
 
lucionelli
 
rita marras
 
peppelotto
 
aimada
 
ace
 
glosilv
 
DamBu82
 
cris77
 

Statistiche
Abbiamo 8320 membri registrati
L'ultimo utente registrato è pescia

I nostri membri hanno inviato un totale di 899678 messaggi in 22031 argomenti

Listato L8 della serie bivalente di fabrizio La Ferla

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

Listato L8 della serie bivalente di fabrizio La Ferla

Messaggio Da drago2940 il Mer 10 Giu 2015 - 11:43

Listato in L8 della tabella bivalente

Sub main()
Dim nu1(10),nu2(10),nu3(10),b(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5)
poste(2)=1
posta(1)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
n1=Estratto(es,r1,p1)
For p2=p1+1 To 5
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If n1=DiametraleD(n2) Or n2=DiametraleD(n1) Or ds1=30 Or ds1=15 Or ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
x=Estratto(es,r2,p3)
If (p3=p1 And x=n1) Or (p3=p2 And x=n2)Then
If x=n1 Or x=n2 Then
b(1)=0:b(2)=0:b(3)=0:b(4)=0:b(5)=0
If x=1 Then b(1)=2:b(2)=4:b(3)=8:b(4)=7:b(5)=5
If x=2 Then b(1)=4:b(2)=8:b(3)=7:b(4)=5:b(5)=1
If x=4 Then b(1)=8:b(2)=7:b(3)=5:b(4)=1:b(5)=2
If x=5 Then b(1)=1:b(2)=2:b(3)=4:b(4)=8:b(5)=7
If x=7 Then b(1)=5:b(2)=1:b(3)=2:b(4)=4:b(5)=8
If x=8 Then b(1)=7:b(2)=5:b(3)=1:b(4)=2:b(5)=4
If x=10 Then b(1)=20:b(2)=40:b(3)=80:b(4)=70:b(5)=50
If x=11 Then b(1)=22:b(2)=44:b(3)=88:b(4)=77:b(5)=55
If x=12 Then b(1)=24:b(2)=48:b(3)=87:b(4)=75:b(5)=51
If x=13 Then b(1)=26:b(2)=43:b(3)=86:b(4)=73:b(5)=56
If x=14 Then b(1)=28:b(2)=47:b(3)=85:b(4)=71:b(5)=52
If x=15 Then b(1)=21:b(2)=42:b(3)=84:b(4)=78:b(5)=57
If x=16 Then b(1)=23:b(2)=46:b(3)=83:b(4)=76:b(5)=53
If x=17 Then b(1)=25:b(2)=41:b(3)=82:b(4)=74:b(5)=58
If x=18 Then b(1)=27:b(2)=45:b(3)=81:b(4)=72:b(5)=54
If x=19 Then b(1)=29:b(2)=49:b(3)=89:b(4)=79:b(5)=59
If x=20 Then b(1)=40:b(2)=80:b(3)=70:b(4)=50:b(5)=10
If x=21 Then b(1)=42:b(2)=84:b(3)=78:b(4)=57:b(5)=15
If x=22 Then b(1)=44:b(2)=88:b(3)=77:b(4)=55:b(5)=11
If x=23 Then b(1)=46:b(2)=83:b(3)=76:b(4)=53:b(5)=16
If x=24 Then b(1)=48:b(2)=87:b(3)=75:b(4)=51:b(5)=12
If x=25 Then b(1)=41:b(2)=82:b(3)=74:b(4)=58:b(5)=17
If x=26 Then b(1)=43:b(2)=86:b(3)=73:b(4)=53:b(5)=13
If x=27 Then b(1)=45:b(2)=81:b(3)=72:b(4)=54:b(5)=18
If x=28 Then b(1)=47:b(2)=85:b(3)=71:b(4)=52:b(5)=14
If x=29 Then b(1)=49:b(2)=89:b(3)=79:b(4)=59:b(5)=19
If x=31 Then b(1)=62:b(2)=34:b(3)=68:b(4)=37:b(5)=65
If x=32 Then b(1)=64:b(2)=38:b(3)=67:b(4)=35:b(5)=61
If x=34 Then b(1)=68:b(2)=37:b(3)=65:b(4)=31:b(5)=62
If x=35 Then b(1)=61:b(2)=32:b(3)=34:b(4)=68:b(5)=37
If x=37 Then b(1)=65:b(2)=31:b(3)=62:b(4)=34:b(5)=68
If x=38 Then b(1)=67:b(2)=35:b(3)=61:b(4)=32:b(5)=64
If x=40 Then b(1)=80:b(2)=70:b(3)=50:b(4)=10:b(5)=20
If x=41 Then b(1)=82:b(2)=74:b(3)=58:b(4)=17:b(5)=25
If x=42 Then b(1)=84:b(2)=78:b(3)=57:b(4)=15:b(5)=21
If x=43 Then b(1)=86:b(2)=73:b(3)=56:b(4)=13:b(5)=26
If x=44 Then b(1)=88:b(2)=77:b(3)=55:b(4)=11:b(5)=22
If x=45 Then b(1)=81:b(2)=72:b(3)=54:b(4)=18:b(5)=27
If x=46 Then b(1)=83:b(2)=76:b(3)=53:b(4)=16:b(5)=23
If x=47 Then b(1)=85:b(2)=71:b(3)=52:b(4)=14:b(5)=28
If x=48 Then b(1)=87:b(2)=75:b(3)=51:b(4)=12:b(5)=24
If x=49 Then b(1)=89:b(2)=79:b(3)=59:b(4)=19:b(5)=29
If x=50 Then b(1)=10:b(2)=20:b(3)=40:b(4)=80:b(5)=70
If x=51 Then b(1)=12:b(2)=24:b(3)=48:b(4)=87:b(5)=75
If x=52 Then b(1)=14:b(2)=28:b(3)=47:b(4)=85:b(5)=71
If x=53 Then b(1)=16:b(2)=23:b(3)=46:b(4)=83:b(5)=76
If x=54 Then b(1)=18:b(2)=27:b(3)=45:b(4)=81:b(5)=72
If x=55 Then b(1)=11:b(2)=22:b(3)=44:b(4)=88:b(5)=77
If x=56 Then b(1)=13:b(2)=26:b(3)=43:b(4)=86:b(5)=73
If x=57 Then b(1)=15:b(2)=21:b(3)=42:b(4)=84:b(5)=78
If x=58 Then b(1)=17:b(2)=25:b(3)=41:b(4)=82:b(5)=74
If x=59 Then b(1)=19:b(2)=29:b(3)=49:b(4)=89:b(5)=79
If x=61 Then b(1)=32:b(2)=64:b(3)=38:b(4)=67:b(5)=35
If x=62 Then b(1)=34:b(2)=68:b(3)=37:b(4)=65:b(5)=31
If x=64 Then b(1)=38:b(2)=67:b(3)=35:b(4)=61:b(5)=32
If x=65 Then b(1)=31:b(2)=62:b(3)=34:b(4)=68:b(5)=37
If x=67 Then b(1)=35:b(2)=61:b(3)=32:b(4)=64:b(5)=38
If x=68 Then b(1)=37:b(2)=65:b(3)=31:b(4)=62:b(5)=34
If x=70 Then b(1)=50:b(2)=10:b(3)=20:b(4)=40:b(5)=80
If x=71 Then b(1)=52:b(2)=14:b(3)=28:b(4)=47:b(5)=85
If x=72 Then b(1)=54:b(2)=18:b(3)=27:b(4)=45:b(5)=81
If x=73 Then b(1)=56:b(2)=13:b(3)=26:b(4)=43:b(5)=86
If x=74 Then b(1)=58:b(2)=17:b(3)=25:b(4)=41:b(5)=82
If x=75 Then b(1)=51:b(2)=12:b(3)=24:b(4)=48:b(5)=87
If x=76 Then b(1)=53:b(2)=16:b(3)=23:b(4)=46:b(5)=83
If x=77 Then b(1)=55:b(2)=11:b(3)=22:b(4)=44:b(5)=88
If x=78 Then b(1)=57:b(2)=15:b(3)=21:b(4)=42:b(5)=84
If x=79 Then b(1)=59:b(2)=19:b(3)=29:b(4)=49:b(5)=89
If x=80 Then b(1)=70:b(2)=50:b(3)=10:b(4)=20:b(5)=40
If x=81 Then b(1)=72:b(2)=54:b(3)=18:b(4)=27:b(5)=45
If x=82 Then b(1)=74:b(2)=58:b(3)=17:b(4)=25:b(5)=41
If x=83 Then b(1)=76:b(2)=53:b(3)=16:b(4)=23:b(5)=46
If x=84 Then b(1)=78:b(2)=57:b(3)=15:b(4)=21:b(5)=42
If x=85 Then b(1)=71:b(2)=52:b(3)=14:b(4)=28:b(5)=47
If x=86 Then b(1)=73:b(2)=56:b(3)=13:b(4)=26:b(5)=43
If x=87 Then b(1)=75:b(2)=51:b(3)=12:b(4)=24:b(5)=48
If x=88 Then b(1)=77:b(2)=57:b(3)=11:b(4)=22:b(5)=44
If x=89 Then b(1)=79:b(2)=59:b(3)=19:b(4)=29:b(5)=49
If x=n1 Then kk=p1
If x=n2 Then kk=p2
For r3=1 To 11
If r3=11 Then r3=12
For p4=1 To 5
If p4=kk Then
j=Estratto(es,r3,p4)
If j=b(kk) Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Anbo Distanza < "&Format2 (ds1)&" > "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero uguale..........."&Format2(x)&" . "
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r3)& " "& StringaEstratti(es,r3)&_
" > Numero bivalente........"&Format2(j)&" . "&Format2(kk)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0
If r1<>r3 And r2<>r3 Then a1=Fuori90((90+n1)-j):a2=Fuori90((90+n2)-j)
If r1<>r3 And r2=r3 Then a1=Fuori90((90+n1)-j):a2=Fuori90(n2-j)
If r1=r3 And r2<>r3 Then a1=Fuori90(n1+j):a2=Fuori90((90+n2)-j)
If r1=r3 Or r2=r3 Or (r1=r3 And r2=r3) Then a1=Fuori90(n1+j):a2=Fuori90(n2+j)
a3=Diametrale(a1)
a4=Diametrale(a2)
nu3(1)=a1
nu3(2)=a2
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
nu1(1)=a1
nu1(2)=a2
nu1(3)=a3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=a2
nu1(2)=a1
nu1(3)=a4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=a1
nu2(2)=a2
nu2(3)=a3
nu2(4)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
End If
End If
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
avatar
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschile
Numero di messaggi : 244
Età : 66
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Tornare in alto Andare in basso

Re: Listato L8 della serie bivalente di fabrizio La Ferla

Messaggio Da anacond78 il Lun 15 Giu 2015 - 17:12

BRAVO Gianni !!
Sempre un piacere leggerti.
wink

anacond78
Onorario del Complotto
Onorario del Complotto

Sesso : Maschile
Numero di messaggi : 1483
Scrivo da : prov. di Treviso
Il mio vero nome : maurizio
Data d'iscrizione : 21.04.10

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum