Distanza 45 verticale

[Roby]

Chi può fare un listato x trovare in verticale 2 numeri a distanza 45 isotopi (esclusa la coppia 45-90) e su ruote consecutive?

------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

 

[maxma62]

Questo listato ti trova una distanza in verticale, da te scelta.
Le giocate inserite sono messe a caso, naturalmente poi cambiarle secondo i tuoi numeri o pronostici

Sub main
Dim ruota(10)
Dim posta(5)
Dim n(10)

posta(2)=2
posta(3)=1
posta(4)=0.5
posta(5)=0.5

d=CInt(InputBox("Qual'è la distanza da trovare? ","Distanza",44))
k=InputBox("Per quanti colpi vuoi giocare? ","Durata gioco",12)

fin=EstrazioneFin
ini=fin-100
For es=ini To fin

For p=1 To 5
For r=4 To 9
a=Estratto(es,r,p)
For rr=r+1 To 10
b=Estratto(es,rr,p)
If Distanza(a,b)=d Then

ruota(1)=r
ruota(2)=rr

Scrivi
Scrivi
Scrivi String(65,"*")
Scrivi DataEstrazione(es,1),1
ColoreTesto 1 : Scrivi "< "&""&NomeRuota(r)&" "& StringaEstratti(es,r) &" > 1°numero = "&format2(a),1
Scrivi "< "&""&NomeRuota(rr)&" "& StringaEstratti(es,rr)&" > 2°numero = "&format2(b),1
ColoreTesto 2 : Scrivi "distanza"&" tra "&Format2(a)&" e "&format2(b)& " = "&""&format2(d),1
Scrivi String(65,"-")
Scrivi

n(1)=72
n(2)=76
n(3)=17
n(4)=87
n(5)=32
ImpostaGiocata 1,n,ruota,posta,k,2

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

spero ti vada bene.
Ciao, max

 

[imported_n/a]

Grazie Max. L'ho provato e va bene.

------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

 

[imported_n/a]

Non so di chi sia la metodologia, ma vi spiego egualmente la tecnica.
Trovare in 2 ruote consecutive,2 numeri isotopi a distanza 45.
Trovati i 2 numeri non bisogna far altro che moltiplicarli x 2
Es..ruota X 1°e.55
ruota Y 1°e. 10
Distanza 55-10=45
Moltiplicare x 2 i n° trovati:
55 x 2= 110-90= 20
10 x 2= 20
Si metterà in gioco il risultato (20) ed il suo vertibile sulle 2 ruote di elaborazione.
E' essenziale che le ruote siano consecutive

Esempi reali

mar 07.03.2006
< Roma 07.20.51.79.81 > 1°numero = 79
< Torino 29.02.01.34.11 > 2°numero = 34
distanza tra 79 e 34 = 45
79x2=68 34x2=68 <Ambate 68-86... 1°c. Rm 68

gio 09.03.2006
< Palermo 66.75.43.61.35 > 1°numero = 61
< Roma 68.36.32.16.55 > 2°numero = 16
distanza tra 61 e 16 = 45
61x2=32 16x2=32 <Ambate 32-23... 2°c. Pa 32

mar 21.03.2006
< Palermo 52.34.14.44.42 > 1°numero = 52
< Roma 07.08.67.49.54 > 2°numero = 07
distanza tra 52 e 07 = 45
52x2=14 7x2=14 < Ambate 14-41 ...4°c. Rm 14-41



------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

 

[franca46]

ciao etr500

questa metodologia è di Pasquale Zannella

Sub main()

Dim ruote(2)
ruote(1)=r
ruote(2)=rr
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
For p=1 To 5
a=Estratto (es,r,p)

For rr=r+1 To 12
If rr<>11 Then
For q=1 To 5
b=Estratto (es,rr,q)
If Distanza (a,b)=45 Then
If p=q Then
Scrivi
Scrivi
Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3) & " " & Format2(a)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rr),3) & " " & Format2(b)

End If
End If
Next
End If
Next
Next
Next
Next
End Sub

e questo è il listato che te li cerca .i calcoli puoi farli tu.nel listato non ci sono

funziona anche se le ruote non sono consecutive e con la nazionale

Franca46

 

[imported_n/a]

Thanks Franca. Ci sono altri metodi, non so di chi sono, forse dello stesso autore e li metterò a disposizione di tutti.

------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

 

[maxma62]

Questo è il listato come vuoi tu (con l'aiuto di ramco)

Sub main
Dim ruota(10)
Dim posta(5)
Dim n(10)
posta(1)=2
posta(2)=2
'posta(3)=1
'posta(4)=0.5
'posta(5)=0.5
co=0

d=CInt(InputBox("Qual'è la distanza da trovare? ","Distanza",45))
k=InputBox("Per quanti colpi vuoi giocare? ","Durata gioco",12)

fin=EstrazioneFin
ini=fin-100
For es=ini To fin

For p=1 To 5
For r=1 To 9
a=Estratto(es,r,p)
rr=r+1
b=Estratto(es,rr,p)
If Distanza(a,b)=d Then

co=co+1
ruota(1)=r
ruota(2)=rr

Scrivi
Scrivi
Scrivi String(65,"*")
Scrivi "< Distanza 45 verticale - 2 numeri isotopi - ruote consecutive >",1
Scrivi DataEstrazione(es,1),1
ColoreTesto 1 : Scrivi "< "&""&NomeRuota(r)&" "& StringaEstratti(es,r) &" > 1°numero = "&format2(a),1
Scrivi "< "&""&NomeRuota(rr)&" "& StringaEstratti(es,rr)&" > 2°numero = "&format2(b),1
ColoreTesto 2 : Scrivi "distanza"&" tra "&Format2(a)&" e "&format2(b)& " = "&""&format2(d),1
Scrivi String(65,"-")
Scrivi

n(1)=Fuori90(a*2)
n(2)=Vert(n(1))
ImpostaGiocata 1,n,ruota,posta,k,2

'n(1)=72
'n(2)=76
'n(3)=17
'n(4)=87
'n(5)=32
'ImpostaGiocata 1,n,ruota,posta,k,2

Gioca es
End If

Next
Next
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
ColoreTesto 1
ColoreTesto 1 : Scrivi "New Distanza 45",1
End Sub

Ciao, max

 

[franca46]

ciao etr500

questo metodo di zannella io lo uso anche con ruote non consecutive ed i risultati ci sono lo stesso.

appena lo trovo ti posto quello della distanza 18 ,buono pure.

io unendoli tutti e due ho fatto l'ambo 8 - 80 sulla nazionale.





Franca46

 

[imported_n/a]

è brava franca!.....zitta ,zitta e muta ,muta
si fà l'ambettino
ciao franca eiii visto che sono smemorato ti faccio gli auguri di buon compleanno anticipatamente
un baciotto da can de lotto

 

[imported_n/a]

Thanks Franca. Metodi di distanza 18-36-11-15, se non erro di Manara, ce li ho. Se i tuoi appartengono ad altri autori mettili lo stesso e se non hanno la stessa metodologia posterò quelli che ho io.


------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

 

[franca46]

quote:Originally posted by can_de_lotto

è brava franca!.....zitta ,zitta e muta ,muta
si fà l'ambettino
ciao franca eiii visto che sono smemorato ti faccio gli auguri di buon compleanno anticipatamente
un baciotto da can de lotto

ciao Marco grazie
un caro saluto e....

ancora aspetto quello che mi hai promesso come ci si dimentica ehhhhhh

[:X]

Franca46

 

[franca46]

quote:Originally posted by etr500

Thanks Franca. Metodi di distanza 18-36-11-15, se non erro di Manara, ce li ho. Se i tuoi appartengono ad altri autori mettili lo stesso e se non hanno la stessa metodologia posterò quelli che ho io.


------------------------------------------------------------------------------------------------
Il possibile lo faccio. L'impossibile è nelle mie facoltà. Per i miracoli mi sto attrezzando
------------------------------------------------------------------------------------------------

ciao etr500
di Zannella ne ho tantissimi li metterò senz'altro.
Di manara ho solo il lottofacile 1 - 2 - 3 - 4 ed altri che ho trovato qui.

a rileggerti


Franca46

 

[franca46]

quote:Originally posted by can_de_lotto

è brava franca!.....zitta ,zitta e muta ,muta
si fà l'ambettino
ciao franca eiii visto che sono smemorato ti faccio gli auguri di buon compleanno anticipatamente
un baciotto da can de lotto

ciao Marco grazie mille ed un caro saluto !!!

un saluto a casa[:X]

Franca46