SOLO X INTENDITORI

[Roby]

Buona Pasqua a tutti
Oggi vi faccio un regalo
Rilevate in 2 ruote un ambo isotopo con la stessa distanza ciclometrica.
A rilevamento avvenuto,prendiamo il numero più piccolo e quello
più grande dei 4 numeri e facciamo la differenza numerica.
il risultato lo moltiplichiamo x2 e lo andiamo a sommare al numero
più grande.Questa sarà la nostra ambata,i 2 abbinamenti sono i medesimi delle
nostre operazioni.Poi metteremo in gioco una terzina col vertibile dell'ambata per pararsi il lato B.L'unica considerazione è quella che...le condizioni più favorevoli sono quelle tra:
Ruote consecutive
Ruote gemelle
Ruote diametrali
Ma vi assicuro che i risultati sono eccellenti in qualsiasi condizione[^]
Questa è la mia previsione:
L'ultima estrazione ci offre.
BA 17-41 3°-5° pos distanza ciclometrica 24
NA 08-74 3°-5° pos distanza ciclometrica 24
Numero più piccolo 8
Numero più grande 74
74-8=66--->66x2=132--->132-90=42
74+42=116---<116-90=26 ambata
BA-NA 26
26-8
26-74
62-8-74
Per chi a voglia di controllare,noterà che...
qualsiasi sia la vincita,avviene nei primi 5/6 colpi
quindi rendo valida la previsione in questi colpi


Parlar sensa pensar xè come sparar sensa mirar

 

[Farfallina50]

BUONA PASQUA MARCO, A TE E FAMIGLIA.
GRAZIE PER IL METODO

FARFALLINA50

 

[imported_n/a]

Grazie Farfallina,buona Pasqua anche a te
Forse la previsione si farà attendere perchè è sortita l'ambata
nelle 2 ruote nei 2 ultimi colpi e ve ne inserisco un'altra
BA-CA 8
8-35
8-86
80-35-86
Noterete che il numero 8 su BA converge quindi lo vedremo sortire a breve
Per chi può...unisca (solo su BA) i 5 numeri
BA 8-26-74-35-86


Parlar sensa pensar xè come sparar sensa mirar

 

[Zagor]

Ciao Marco , grazie per il metodo , è veramente OK.

Buona Pasqua a te e famiglia.

Bye bye.

Mauro
YES WE CAN

 

[imported_n/a]

quote:Originally posted by 2011

A Marchinooooooooooooo
sei una squisitezza unica

complimenti sei e per sempre resterai un grande

Buona Pasqua

Ciaoooo

A Gennà
buona Pasqua anche a te
Ho letto il tuo MP,purtroppo ho il PC scassato
e pieno di virus[V]
ci sentiamo appena posso
PS:
Leggo che....continui a battagliare con le tue favolose tavole


Parlar sensa pensar xè come sparar sensa mirar

 

[Zagor]

Ciao Marco , posso far fare uno script del metodo?

Bye bye.

Mauro
YES WE CAN

 

[imported_n/a]

quote:Originally posted by Zagor

Ciao Marco , posso far fare uno script del metodo?

Bye bye.

Mauro
YES WE CAN

Yes...you can


Parlar sensa pensar xè come sparar sensa mirar

 

[rocco63]

Ciao Marco BUONA PASQUA a te e famiglia.-
e vaaaaaaiiiiiiiiiiiii con questa previsione e grazie

rocco63

 

[romaroma]

Buona Pasqua Marco,grazie per il metodo
x zagor potresti postare lo script grazie

 

[violaviolaviola]

grazie marco
[:I]
lo giocooooo


viola
"La pace non è una vuota parola, ma una forma di comportamento"

 

[akita]

grazie Marco per il nuovo metodo e le previsioni..una bella sorpresa nell'uovo di Pasqua

akita

 

[Marcyl]

quote:Originally posted by Marco

Grazie Farfallina,buona Pasqua anche a te
Forse la previsione si farà attendere perchè è sortita l'ambata
nelle 2 ruote nei 2 ultimi colpi e ve ne inserisco un'altra
BA-CA 8
8-35
8-86
80-35-86
Noterete che il numero 8 su BA converge quindi lo vedremo sortire a breve
Per chi può...unisca (solo su BA) i 5 numeri
BA 8-26-74-35-86


Parlar sensa pensar xè come sparar sensa mirar

CIAO MARCO, INTANTO TANTISSIMI AUGURI DI BUONA PASQUA A TE E FAMIGLIA... POI TI VOLEVO CHIEDERE DA QUALE ESTRAZIONE HAI ESTRAPOLATO QUESTA PREVISIONE?

Marcyl

 

[bazar]

ciao Marco tanti auguri x il tuo onomastico

 

[imported_n/a]

quote:Originally posted by bazar

ciao Marco tanti auguri x il tuo onomastico

Grazie


Parlar sensa pensar xè come sparar sensa mirar

 

[imported_n/a]

Ciao Marçel,eccoti accontetato
Estrazione del 16/4
BA 82-35 3° e 5° pos distanza ciclometrica 43
CA 39-86 3° e 5° pos distanza ciclometrica 43

86-35=51--->51x2=102--->102-90=12
86+12=98--->98-90=8 ambata

BA-CA 8
8-35//8-86
80-35-86
Come ben vedi,domani siamo al 4° colpo
quindi la previsione è veramente HOT
L'ambata converge su BA anche con l'altra previsione
Non disdegnamo però CA,anche se....a me piace 8-86 su BA[)]



Parlar sensa pensar xè come sparar sensa mirar

 

[andrew84]

CIAO STRAFIGOOOOOOOO...BUON ONOMASTICO E BUONA PASQUETTA

GRAZIE DEL METODO SEMPRE GENTILE[:X]

 

[imported_n/a]

quote:Originally posted by andrew84


CIAO STRAFIGOOOOOOOO...BUON ONOMASTICO E BUONA PASQUETTA

GRAZIE DEL METODO SEMPRE GENTILE[:X]

Qualcosa mi dice che...
mi leggi da altre parti


Parlar sensa pensar xè come sparar sensa mirar

 

[akita]

akita

 

[Zagor]

Ciao a tutti , ecco lo script , gentilmente eseguito da Esselotto.

Sub Main()
Dim ruote(11)
Dim rt(2)
Dim n(4),nx(4),di(4)
Dim posta(1),poste(2),postet(3)
Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)
posta(1) = 1
poste(2) = 1
postet(2) = 1
postet(3) = 1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(15," ") & "SOLO per INTENDITORI autore Marco (richiesto da Zagor)",1
Scrivi String(15," ") & "su Lottoced ",1
ColoreTesto 1
Scrivi String(15," ") & "programmed by °°°esselotto°°° ",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro = False Then Exit Sub
clp = CInt(InputBox("Colpi di gioco?..","°°°esselotto°°°",9))
If clp = False Then Exit Sub
ruo = CInt(InputBox("Scelta Rilevamento 1)Ruote Consecutive 2)Diametrali 3)gemellari ?..","°°°esselotto°°°",2))
If ruo = False Then Exit Sub
co = 0
ini = EstrazioneFin - indietro
fin = EstrazioneFin
For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)
For r = 1 To 9
rt(1) = r
For p = 1 To 4
For pp = p + 1 To 5
n(1) = CInt(Estratto(es,r,p))
n(2) = CInt(Estratto(es,r,pp))
di(1) = Distanza(n(1),n(2))
gg = Array(0,10,9,8,7,6)
For rr = r + 1 To 10
rs1 = r + 1
rs2 = r + 5
If rs2 > 10 Then
rs2 = rs2 - 10
End If
If r < 6 Then
rs3 = gg(r)
End If
If(rr = rs1 And ruo = 1) Or(rr = rs2 And ruo = 2) Or(rr = rs3 And ruo = 3) Then
rt(2) = rr
tr = 0
n(3) = Estratto(es,rr,p)
n(4) = Estratto(es,rr,pp)
di(2) = Distanza(n(3),n(4))
If di(1) = di(2) And n(1) <> n(3) And n(1) <> n(4) And n(2) <> n(3)And n(2) <> n(4)Then ' se uguale distanza
For a = 1 To 4
nx(a) = n(a)
Next
Call OrdinaMatrice (nx,1)
dif = Abs(nx(1) - nx(4))
mol = Fuori90(dif*2)
am = Fuori90(nx(4) + mol)
am1 = Vert(am)
If ruo = 1 Then ruotax = " Rilevamento Ruote Consecutive"
If ruo = 2 Then ruotax = " Rilevamento Ruote Diametrali"
If ruo = 3 Then ruotax = " Rilevamento Ruote Gemellariààààààààààààààààààààààààààààààààààààààààààààààààààààààààààà"
co = co + 1
Scrivi String(75,"-") & " Caso " & co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione(es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti(es,r) & " ] " & _
"[ " & Format2(n(1)) & " " & Format2(n(2)) & " ] in pos. " & p & "^ " & pp & "^"
Scrivi DataEstrazione(es) & "( " & SiglaRuota(rr) & " ) - [ " & StringaEstratti(es,rr) & " ] " & _
"[ " & Format2(n(3)) & " " & Format2(n(4)) & " ] in pos. " & p & "^ " & pp & "^"
ColoreTesto 2
Scrivi Format2(di(1)) & " <--- Dis.uguale Rilevata..." & ruotax
ColoreTesto 0
Scrivi
Scrivi "Calcoli..."
Scrivi Format2(nx(1)) & " " & Format2(nx(2)) & " " & Format2(nx(3)) & " " & Format2(nx(4)) & " <--- Numeri ordinati"
Scrivi Format2(nx(1)) & " - " & Format2(nx(4)) & " = " & dif & " <--- Diff. tra il Maggiore e Minore "
Scrivi Format2(dif) & " x 02 = " & Format2(mol) & " <--- Raddopio Differenza "
Scrivi Format2(nx(4)) & " + " & Format2(mol) & " = " & Format2(am) & " <--- Ambata "
Scrivi String(10,".")
ruote(1) = 11
nu(1) = am
ImpostaGiocata 1,nu,rt,posta,clp,1
na(1) = am
na(2) = nx(1)
ImpostaGiocata 2,na,rt,poste,clp
na1(1) = am
na1(2) = nx(4)
ImpostaGiocata 3,na1,rt,poste,clp
na2(1) = am1
na2(2) = nx(1)
na2(3) = nx(4)
ImpostaGiocata 4,na2,rt,poste,clp
Gioca es
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
ScriviResoconto 1
ColoreTesto 1
Scrivi "programmed by °°°esselotto°°°",1
Scrivi"Metodo Solo per INTENDITORI",1
End Sub


Bye bye.

Mauro
YES WE CAN

 

[2011]

quote:Originally posted by Zagor

Ciao a tutti , ecco lo script , gentilmente eseguito da Esselotto.

Sub Main()
Dim ruote(11)
Dim rt(2)
Dim n(4),nx(4),di(4)
Dim posta(1),poste(2),postet(3)
Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)
posta(1) = 1
poste(2) = 1
postet(2) = 1
postet(3) = 1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(15," ") & "SOLO per INTENDITORI autore Marco (richiesto da Zagor)",1
Scrivi String(15," ") & "su Lottoced ",1
ColoreTesto 1
Scrivi String(15," ") & "programmed by °°°esselotto°°° ",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro = False Then Exit Sub
clp = CInt(InputBox("Colpi di gioco?..","°°°esselotto°°°",9))
If clp = False Then Exit Sub
ruo = CInt(InputBox("Scelta Rilevamento 1)Ruote Consecutive 2)Diametrali 3)gemellari ?..","°°°esselotto°°°",2))
If ruo = False Then Exit Sub
co = 0
ini = EstrazioneFin - indietro
fin = EstrazioneFin
For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)
For r = 1 To 9
rt(1) = r
For p = 1 To 4
For pp = p + 1 To 5
n(1) = CInt(Estratto(es,r,p))
n(2) = CInt(Estratto(es,r,pp))
di(1) = Distanza(n(1),n(2))
gg = Array(0,10,9,8,7,6)
For rr = r + 1 To 10
rs1 = r + 1
rs2 = r + 5
If rs2 > 10 Then
rs2 = rs2 - 10
End If
If r < 6 Then
rs3 = gg(r)
End If
If(rr = rs1 And ruo = 1) Or(rr = rs2 And ruo = 2) Or(rr = rs3 And ruo = 3) Then
rt(2) = rr
tr = 0
n(3) = Estratto(es,rr,p)
n(4) = Estratto(es,rr,pp)
di(2) = Distanza(n(3),n(4))
If di(1) = di(2) And n(1) <> n(3) And n(1) <> n(4) And n(2) <> n(3)And n(2) <> n(4)Then ' se uguale distanza
For a = 1 To 4
nx(a) = n(a)
Next
Call OrdinaMatrice (nx,1)
dif = Abs(nx(1) - nx(4))
mol = Fuori90(dif*2)
am = Fuori90(nx(4) + mol)
am1 = Vert(am)
If ruo = 1 Then ruotax = " Rilevamento Ruote Consecutive"
If ruo = 2 Then ruotax = " Rilevamento Ruote Diametrali"
If ruo = 3 Then ruotax = " Rilevamento Ruote Gemellariààààààààààààààààààààààààààààààààààààààààààààààààààààààààààà"
co = co + 1
Scrivi String(75,"-") & " Caso " & co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione(es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti(es,r) & " ] " & _
"[ " & Format2(n(1)) & " " & Format2(n(2)) & " ] in pos. " & p & "^ " & pp & "^"
Scrivi DataEstrazione(es) & "( " & SiglaRuota(rr) & " ) - [ " & StringaEstratti(es,rr) & " ] " & _
"[ " & Format2(n(3)) & " " & Format2(n(4)) & " ] in pos. " & p & "^ " & pp & "^"
ColoreTesto 2
Scrivi Format2(di(1)) & " <--- Dis.uguale Rilevata..." & ruotax
ColoreTesto 0
Scrivi
Scrivi "Calcoli..."
Scrivi Format2(nx(1)) & " " & Format2(nx(2)) & " " & Format2(nx(3)) & " " & Format2(nx(4)) & " <--- Numeri ordinati"
Scrivi Format2(nx(1)) & " - " & Format2(nx(4)) & " = " & dif & " <--- Diff. tra il Maggiore e Minore "
Scrivi Format2(dif) & " x 02 = " & Format2(mol) & " <--- Raddopio Differenza "
Scrivi Format2(nx(4)) & " + " & Format2(mol) & " = " & Format2(am) & " <--- Ambata "
Scrivi String(10,".")
ruote(1) = 11
nu(1) = am
ImpostaGiocata 1,nu,rt,posta,clp,1
na(1) = am
na(2) = nx(1)
ImpostaGiocata 2,na,rt,poste,clp
na1(1) = am
na1(2) = nx(4)
ImpostaGiocata 3,na1,rt,poste,clp
na2(1) = am1
na2(2) = nx(1)
na2(3) = nx(4)
ImpostaGiocata 4,na2,rt,poste,clp
Gioca es
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
ScriviResoconto 1
ColoreTesto 1
Sc