i vertibili di fabio felici

Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

i vertibili di fabio felici

Messaggio da tomlotto » 06/11/2011, 10:33

c'e' un vecchio metodo di fabio felici anche questo scopiazzato da molti che dice:

quando su una ruota ci sono due vertibili o sono isotopi su due ruote ,sommarli e avremo l'ambata ,per gli abbinamenti restano i vertibili stessi.

esempio:estrazione del 3 novembre milano 14-41

14+41= ambata principale 55,la secondaria e' il vertibile 59

ambo secco 55-14/55-41/59-14/59-41

sarei grato a Enplein ,DjNomade di ricavarne uno script per l8 in modo la constatarne la percentuale di vincita.

grazie,saluti

tom
Ultima modifica di tomlotto il 28/01/2012, 9:19, modificato 1 volta in totale.
Chi gioca per bisogno, Perde per necessità. .

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: i vertibili di fabio felici

Messaggio da Enplein » 06/11/2011, 13:02

Ciao tom, prova questa soluzione...
N.B. Cerca le coppie dei vertibili unite.

Ciao, Enplein.

Codice: Seleziona tutto

Scrivi 
Scrivi 
ColoreTesto 2
Scrivi String(40," ")&"****** I VERTIBILI ****** ",1 
ColoreTesto 0
Scrivi 
Scrivi 
ColoreTesto 1
Scrivi String(70,"=")&"metodo di Fabio Felice ",1 
ColoreTesto 0 

Sub main()
Dim ruota(1)
Dim amb(2),ab1(2),ab2(2),ab3(2),ab4(2)
Dim posta(1),poste(2)

posta(1)=1
poste(2)=1

t=0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin=EstrazioneFin
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1 
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fin)
ColoreTesto 1
Scrivi String(70,"=")&"listato by franco florindi",1 
ColoreTesto 0


For es = ini To fin 
	For r=1 To 11
	If r=11 Then r=12
		For p1=1 To 4 : For p2=p1+1 To 5
			If p2=p1+1 Then ' X Isotopia
			a1=Estratto(es,r,p1): b1=Estratto(es,r,p2)
				If a1=Vert (b1) Then 
				n1=Fuori90(a1+b1):n2=Vert(n1):n3=Fuori90 (180-a1) :n4=Fuori90 (180-b1)
				amb(1)=n1:amb(2)=n2 
				ab1(1)=amb(1) : ab1(2)=n3
				ab2(1)=amb(1) : ab2(2)=n4
				ab3(1)=amb(2) : ab3(2)=n3
				ab4(1)=amb(2) : ab4(2)=n4
				ruota(1)=r
				t=t+1
Scrivi
Scrivi "-----------------------------------------"
Scrivi " "& DataEstrazione(es)& "  ["& StringaEstratti (es,r)&"]   "& SiglaRuota (r)& " "& Format2(a1)&" "& Format2(b1),1
Scrivi  "-----------------------------------------"&"Giocata n° "& Format2(t)
'Controllo della presenza dell'ambata sulla ruota di ricerca
sf1=SerieFreq(es-9,es,amb,ruota,1)
ColoreTesto 2
If sf1>0 Then  Scrivi "Previsione non ottimale per presenza AMBATA!!!"
ColoreTesto 0

ImpostaGiocata 1,amb,ruota,posta,12,1
ImpostaGiocata 2,ab1,ruota,poste,12,2
ImpostaGiocata 3,ab2,ruota,poste,12,2
ImpostaGiocata 4,ab3,ruota,poste,12,2
ImpostaGiocata 5,ab4,ruota,poste,12,2
 
Gioca es 
				End If 
			End If 
		Next : Next 
	Next 
Next
ScriviResoconto 1
ScriviResoconto
End Sub
Modificato in base alla richiesta di tatoo, i vertibili con i relativi complementari a 90.
Ultima modifica di Enplein il 06/11/2011, 16:32, modificato 1 volta in totale.

Avatar utente
Tatoo64
Site Admin
Messaggi: 3890
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: i vertibili di fabio felici

Messaggio da Tatoo64 » 06/11/2011, 14:28

Sembra non dia molti risultati :(

enplein prova a fare una modifica una volta sommati i vertibili, per abbinamento metti il complemento a 90 dei due vertibili.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

Re: i vertibili di fabio felici

Messaggio da tomlotto » 06/11/2011, 15:03

Tatoo64 ha scritto:Sembra non dia molti risultati :(

enplein prova a fare una modifica una volta sommati i vertibili, per abbinamento metti il complemento a 90 dei due vertibili.
infatti e' ottimo solo per l'ambata ,grazie enplein sei un grande.
Chi gioca per bisogno, Perde per necessità. .

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: i vertibili di fabio felici

Messaggio da Enplein » 07/11/2011, 10:24

Ciao tom, ciao tatoo, ecco una mia personale soluzione:

Iter Operativo
Trovare su ruota un ambo vertibile unito, cioè in posizione 1° 2°, 2° 3°, 3° 4°, 4° 5°;
una volta trovata la condizione si determinano le ambate formate dalla relativa somma
e dal suo complementare a 91, gli abbinamenti saranno i vertibili dell'ambate che genera
una quartina da giocare per Ambo e Terno anche su TUTTE.
Esempio:
1/10/2011 GE 33.39 Pos. 4° 5°

Ambate 72.19
A.T. 72.19.27.11 anche su Tutte

Esito:

Ambata 19 al 3°
A.T. 11.27.72 su (TO) TUTTE al 1°


Ciao, Enplein.

Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

Re: i vertibili di fabio felici

Messaggio da tomlotto » 07/11/2011, 11:40

grazie Enplein,molto interessante.
Chi gioca per bisogno, Perde per necessità. .

Avatar utente
Tatoo64
Site Admin
Messaggi: 3890
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: i vertibili di fabio felici

Messaggio da Tatoo64 » 07/11/2011, 17:04

Ah però, il complementare a 91 non ci avevo pensato, inoltre se l'ambo vertibile è unito effettivamente rende di più...

GRANDE ENPLEIN.......... hai gia il listato??? :)
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: i vertibili di fabio felici

Messaggio da Enplein » 07/11/2011, 17:16

Ciao tatoo, ecco il listato...

Ciao, Enplein.

Codice: Seleziona tutto

Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** I VERTIBILI ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=")&"metodo di F. Florindi ",1
ColoreTesto 0

Sub main()
Dim ruota(1),ruote(2)
Dim amb(2),lg1(4)
Dim posta(1),poste(2),poste1(3)

posta(1)=1:poste(2)=1:poste1(2)=1.50:poste1(3)=.50

t=0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
ini= EstrazioneFin -rs
fin=EstrazioneFin
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fin)
ColoreTesto 1
Scrivi String(70,"=")&"listato by Enplein",1
ColoreTesto 0
For es = ini To fin
       For r=1 To 11
       If r=11 Then r=12
               For p1=1 To 4 : For p2=p1+1 To 5
                       If p2=p1+1 Then ' X ambi uniti
                       a1=Estratto(es,r,p1): b1=Estratto(es,r,p2)
                               If a1=Vert (b1) Then
                               n1=Fuori90(a1+b1):n2=(91-n1):n3=Vert (n1) :n4=Vert (n2)
                               amb(1)=n1 : amb(2)=n2
                               lg1(1)=n1:lg1(2)=n2:lg1(3)=n3:lg1(4)=n4
                               ruota(1)=r : ruote(1)=r:ruote(2)=11
                               t=t+1
Scrivi
Scrivi "-----------------------------------------"
Scrivi " "& DataEstrazione(es)& "  ["& StringaEstratti (es,r)&"]   "& SiglaRuota (r)& " "& Format2(a1)&" "& Format2(b1),1
Scrivi  "-----------------------------------------"&"Giocata n° "& Format2(t)
ImpostaGiocata 1,amb,ruota,posta,12,1
ImpostaGiocata 2,lg1,ruote,poste1,12,3
Gioca es
                               End If
                       End If
               Next : Next
       Next
Next
ScriviResoconto 1
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato da Enplein",1
ColoreTesto 0

End Sub

Avatar utente
ciccio
Messaggi: 1096
Iscritto il: 24/10/2011, 20:59

Re: i vertibili di fabio felici

Messaggio da ciccio » 07/11/2011, 20:21

Immagine

Immagine
chi di spada ferisce..di spada perisce...

Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

Re: i vertibili di fabio felici

Messaggio da tomlotto » 13/11/2011, 18:28

tomlotto ha scritto:c'e' un vecchio metodo di fabio felici anche questo scopiazzato da molti che dice:

quando su una ruota ci sono due vertibili sommarli e avremo l'ambata ,per gli abbinamenti restano i vertibili stessi.

esempio:estrazione del 3 novembre milano 14-41

14+41= ambata principale 55,la secondaria e' il vertibile 59

ambo secco 55-14/55-41/59-14/59-41

sarei grato a Enplein ,DjNomade di ricavarne uno script per l8 in modo la constatarne la percentuale di vincita.

grazie,saluti

tom

solo per mettere in evidenza la coppia dei vertibili su genova in data 1/nov 37-73

applicando il metodo avevamo ambata 20/2 abbinamenti 37-73

ieri sera ambo secco al 5nto colpo su genova 2-37


:o :) :o :)
Chi gioca per bisogno, Perde per necessità. .

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti