Lottostudio.NET

Estrazione del 13 Agosto 42 su Genova e Firenze Ambo con terzina di recupero
14 1
14 8
14 3
14 6


41 6 8

41 1 3

14 41 42

Come da tue istruzioni

Grazie Val ... Unico rammarico che non ci ho creduto perchè lo stesso ambo era uscito a Firenze nella estrazione precedente e ho dato più credito ad altre previsioni. ma cpme dico sempre prima ho poi gli facciamo male

bravo! ti faccio i complimenti per la tua costanza nel seguire le varie "situazioni di gioco" che si presentano
ci stai girando intorno ... ti auguro presto di centrare una vincita di fascia superiore!


visto che è stato chiesto riporto la descrizione del metodo
è un po' macchinoso ma
nella sezione download del sito www.lottostudio.net
c'è un foglio excel realizzato da un amico del forum che fa il calcolo in automatico

ricercare su 2 ruote 2 numeri uguali
(è preferibile che siano isotopi, cioè nella stessa posizione)

primo passo:

fare la somma dei 2 numeri (con il fuori 90, cioè se la somma supera 90, sottrarre 90 alla somma)

Mi 11
na 11

somma = 22


secondo passo

sottrarre a 91 (fisso) il numero genarato dalla somma
es.

91-22= 69 NUMERO DI CALCOLO


primi 2 numeri di abbinamento:

NUMERO DI CALCOLO + 1

NUMERO DI CALCOLO - 1

es.

69+1= 70
69-1= 68

quarto passo

somma dei due numeri trovati

es.
70 + 68 = 158 = 48 (fuori 90)


quinto passo
ambata numero 1= somma trovata
ambata numero 2= vertibile somma trova

es.
ambate: 48 e il suo vertibile 84


ultimi 2 numeri di abbinamento
ricercare il diametrale in decina
dei primi 2 numeri di abbinamento:
es.
68 diametrale in decina 63
70 diametrale in decina 75


PREVISIONE TOTALE

ambi secchi da giocare sulle 2 ruote di ricerca:

prima ambata trovata con ogni numero di abbinamento

es.
48-63
48-70
48-75
48-68


terzine di recupero:

seconda ambata trovata + 4 abbinamenti

es.

84-68-70
84-63-75

si può aggiungere per recupero la terzina:
2 ambate + numero uguale sulle 2 ruote usato per la ricerca

48-84-11


per max 9 colpi di gioco (generalmente vincente nei primi colpi di gioco)

ciao Val ho scaricato il foglio exel per vedere di fare il calcolo in automatico ma qualcosa mi sfugge non riesco ad inserire estrazioni ho provato a fare calcolo manuale mi puoi confermare se hai tempo se è esatto?

estraz. 18/8 BA - NAZ. isotopo 57

previsione
BA/NZ 48-23/48-25/48-28/48-20
terzine
84-23-25
84-28-20
48-84-57

GRAZIE

princess82 ha scritto:


il foglio excel calcola la previsione in modo ridotto nel senso che genera gli ambi e una lunghetta
per il calcolo basta inserire i 2 numeri uguali nelle caselle senza mettere tutta l'estrazione


nel caso del 57 facendo i vari calcoli si ottiene una somma 44 di cui fare il vertibile
in questo caso andrebbe sconsigliato generare la previsione
perchè il vertibile "puro" non si trova ma si potrebbe fare un compromesso usando sempre il 44 (o anche il 49 come vertibile "inventato")
e la previsione sarebbe diversa...


ambata principale 44
ambata secondaria vertibile del 44

ambi

44 68
44 66
44 63
44 61

(oppure lunghetta per ambo: vertibile del 44 + 44 68 66 63 61)
e terzine


vertibile del 44 con 68 66
vertibile del 44 con 63 61

al primo colpo esce sulla nazionale il 44 e purtroppo l'abbinamento 68 su bari

grazie Val ora ho capito dove ho sbagliato

Per chi usa L8 Ecco il listato del metodo

Sub main()
Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
posta(2)=1:poste(1)=1
dis=9
k=9
ce=50
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
If r2=11 Then r2=11
For p2=1 To 5
If p2=p1 And r1+1=r2 Then 'isot
b=Estratto(es,r2,p2)
If a=b Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11
a1=Fuori90(a+b)
a2=91-a1
a3=Fuori90(a2+1)'1 Abbinamento
a4=Abs(a2-1)'2 Abbinamento
a5=Fuori90(a3+a4)'1 Ambata
a6=Vert(a5)'2 Ambata
a7=DiametraleD(a3)
a8=DiametraleD(a4)
nu2(1)=a5
nu2(2)=a6
nu2(3)=a
ImpostaGiocata 1,nu2,ruote,posta,k
nu1(1)=a5:nu1(2)=a6:nu1(3)=a7:nu1(4)=a8
ImpostaGiocata 2,nu1,ruote,posta,k
nu3(1)=a5:nu3(2)=a6:nu3(3)=a3:nu3(4)=a4
ImpostaGiocata 3,nu3,ruota,posta,k
Gioca es
End If
End If
Next:Next:Next:Next:next
ScriviResoconto
End Sub

Ciao Drago... lo script si blocca qui!!!

Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_

ciao Spillos ho modificato il listato di Drago anche perchè prevedeva solo numeri isotopo su ruote consecutive....ora dovrebbe girare e grazie a Drago cosi si ha possibilità di tenere controllato gli esiti

Sub main()
Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
posta(2)=1:poste(1)=1
dis=9
k=9
ce=50
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
If r2=11 Then r2=11
For p2=1 To 5
If p2=p1 Then
b=Estratto(es,r2,p2)
If a=b Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(p2)&"^ pos."


Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11
a1=Fuori90(a+b)
a2=91-a1
a3=Fuori90(a2+1)'1 Abbinamento
a4=Abs(a2-1)'2 Abbinamento
a5=Fuori90(a3+a4)'1 Ambata
a6=Vert(a5)'2 Ambata
a7=DiametraleD(a3)
a8=DiametraleD(a4)
nu2(1)=a5
nu2(2)=a6
nu2(3)=a
ImpostaGiocata 1,nu2,ruote,posta,k
nu1(1)=a5:nu1(2)=a6:nu1(3)=a7:nu1(4)=a8
ImpostaGiocata 2,nu1,ruote,posta,k
nu3(1)=a5:nu3(2)=a6:nu3(3)=a3:nu3(4)=a4
ImpostaGiocata 3,nu3,ruota,posta,k
Gioca es
End If
End If
Next:Next:Next:Next:next
ScriviResoconto
End Sub

grazie per il listato, sicuramente utilissimo a chi ha il programma L8

Putroppo da sempre lo stesso errore!!!!

hai provato a controllare se è un problema di versione del programma???

Spilloss ha scritto:



dove c'è il carattere _ puoi scrivere tutto sulla stessar riga eliminando il carattere _


Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&format2(a)&" ] in "&(p1)&"^ pos."