per il nostro scripter(esselotto)

[Roby]

ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao

 

[JackMan]

con il permesso di esselotto

ambi simmetrici x arcor

=======================================================
sab 30.05.2009 [ Mi -  41.11 in 3/5 ^ pos. ]
sab 30.05.2009 [ Na -  57.14 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
sab 11.07.2009 [ Pa -  29.59 in 3/2 ^ pos. ]
sab 11.07.2009 [ Ro -  85.26 in 3/2 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
mar 28.07.2009 [ To -  87.57 in 4/2 ^ pos. ]
mar 28.07.2009 [ Ve -  06.48 in 4/2 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
gio 20.08.2009 [ Ro -  47.77 in 2/5 ^ pos. ]
gio 20.08.2009 [ To -  31.71 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
sab 19.09.2009 [ Na -  35.05 in 3/1 ^ pos. ]
sab 19.09.2009 [ Pa -  03.47 in 3/1 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
sab 19.09.2009 [ Pa -  70.10 in 2/5 ^ pos. ]
sab 19.09.2009 [ Ro -  07.14 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
sab 31.10.2009 [ Mi -  22.52 in 5/3 ^ pos. ]
sab 31.10.2009 [ Na -  66.29 in 5/3 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
mar 15.12.2009 [ To -  82.52 in 5/1 ^ pos. ]
mar 15.12.2009 [ Ve -  47.72 in 5/1 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
mar 26.01.2010 [ To -  21.81 in 5/2 ^ pos. ]
mar 26.01.2010 [ Ve -  81.22 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 06.03.2010 [ To -  31.01 in 2/4 ^ pos. ]
sab 06.03.2010 [ Ve -  54.21 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
sab 13.03.2010 [ To -  90.30 in 4/3 ^ pos. ]
sab 13.03.2010 [ Ve -  50.11 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
gio 25.03.2010 [ Na -  80.20 in 4/3 ^ pos. ]
gio 25.03.2010 [ Pa -  53.24 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 12
=======================================================
sab 08.05.2010 [ To -  21.81 in 2/5 ^ pos. ]
sab 08.05.2010 [ Ve -  71.40 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 13
=======================================================
sab 26.06.2010 [ Mi -  81.21 in 2/4 ^ pos. ]
sab 26.06.2010 [ Na -  28.83 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 14
=======================================================
gio 29.07.2010 [ Ca -  47.77 in 1/4 ^ pos. ]
gio 29.07.2010 [ Fi -  48.15 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 15
 Casi totali (15)
 Ambi simmetrici ISO by JakMan x Arcor Lottoced

scripter:

Sub main()
Dim ruota(2)

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
casi=0
fin=EstrazioneFin 
ini=fin-ee 

For es=ini To fin 
   Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by JackMan ]"

  For r1=1 To 9 : r2=r1+1 
      For p1=1 To 5 : For p2=1 To 5 
        a=Estratto(es-1,r1,p1) :b=Estratto(es-1,r1,p2)
        ds1=Distanza(a,b) : ds2=Distanza(c,d)
        c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2)
        If ds1=ds2 And ds1=30 Then
          casi=casi+1:Scrivi String(55,"="),1 
          Scrivi DataEstrazione(es-1,1)&" [ "&SiglaRuota(r1)&" -  "&Format2(a)&_
	    "."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ]"
          Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" -  "&Format2(c)&_
	    "."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ]"
          Scrivi String(44,"-")&" caso n° "

 

[arcor]

ciao jackman non mi sono spiegato un ambo deve esere presente in una estrazione poi in quella immediatamente successiva deve essrci un altro ambo simmetrico in un altra ruota con i due numeri in posizione isotopa del primo ambo rinvenuto nell'estrazione prima
occorre correggere
ciao e grazie

 

[JackMan]

quote:Originally posted by arcor

ciao jackman non mi sono spiegato un ambo deve esere presente in una estrazione poi in quella immediatamente successiva deve essrci un altro ambo simmetrico in un altra ruota con i due numeri in posizione isotopa del primo ambo rinvenuto nell'estrazione prima
occorre correggere
ciao e grazie

prova adesso e fammi sapere... altrimenti fai un esempio

=======================================================
mer 03.06.2009 [ Ro -  48.78 in 5/4 ^ pos. ]
gio 04.06.2009 [ To -  87.45 in 5/4 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
sab 04.07.2009 [ To -  44.74 in 1/4 ^ pos. ]
mar 07.07.2009 [ Ve -  39.71 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
gio 20.08.2009 [ Ro -  77.47 in 5/2 ^ pos. ]
sab 22.08.2009 [ To -  58.79 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
sab 19.09.2009 [ Ro -  67.07 in 4/2 ^ pos. ]
mar 22.09.2009 [ To -  90.15 in 4/2 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
mar 03.11.2009 [ Ro -  03.33 in 4/1 ^ pos. ]
gio 05.11.2009 [ To -  02.61 in 4/1 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
mar 17.11.2009 [ Ro -  33.03 in 1/4 ^ pos. ]
gio 19.11.2009 [ To -  44.08 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
gio 24.12.2009 [ Ba -  80.20 in 4/3 ^ pos. ]
lun 28.12.2009 [ Ca -  74.22 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
mar 05.01.2010 [ Ca -  24.84 in 1/5 ^ pos. ]
gio 07.01.2010 [ Fi -  37.16 in 1/5 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
gio 25.02.2010 [ Na -  73.13 in 1/3 ^ pos. ]
sab 27.02.2010 [ Pa -  77.51 in 1/3 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 27.02.2010 [ Mi -  71.41 in 2/4 ^ pos. ]
mar 02.03.2010 [ Na -  26.33 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
mar 09.03.2010 [ Ca -  90.60 in 5/2 ^ pos. ]
gio 11.03.2010 [ Fi -  84.53 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
sab 24.07.2010 [ Ca -  45.75 in 4/1 ^ pos. ]
mar 27.07.2010 [ Fi -  81.33 in 4/1 ^ pos. ]
-------------------------------------------- caso n° 12
 Casi totali (12)
 Ambi simmetrici ISO by JakMan x Arcor Lottoced

 

[esselotto]

quote:Originally posted by arcor

ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao

ciao arcor visto adesso, mi hanno preceduto, posizioni isotope in due estrazioni
consecutive. Lascio finire al nostro bravo amico jackman.

Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

 

[arcor]

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota) e sempre in estrazioni consecutive

 

[esselotto]

quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota) e sempre in estrazioni consecutive

abbiamo già capito?
consecutive o successive e uguale basta che ti sposti di un'estrazione.


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

 

[esselotto]

quote:Originally posted by esselotto

quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota) e sempre in estrazioni consecutive

abbiamo già capito?
consecutive o successive e uguale basta che ti sposti di un'estrazione.


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

avevo sbagliato......................
successive o precedenti ..........e uguale basta che ti sposti di un'estrazione


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

 

[JackMan]

quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota) e sempre in estrazioni consecutive

adesso è quello giusto spero...?
ciao a esselotto & arcor

=======================================================
mar 27.04.2010 [ Fi -  08.38 in 3/4 ^ pos. ]
gio 29.04.2010 [ Nz -  47.17 in 3/4 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
mar 04.05.2010 [ Ge -  33.03 in 1/5 ^ pos. ]
gio 06.05.2010 [ Ve -  37.07 in 1/5 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
gio 20.05.2010 [ Ca -  71.11 in 2/5 ^ pos. ]
sab 22.05.2010 [ Ve -  49.19 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
gio 20.05.2010 [ Pa -  15.45 in 2/5 ^ pos. ]
sab 22.05.2010 [ Ve -  49.19 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
mar 25.05.2010 [ Ba -  84.24 in 2/5 ^ pos. ]
gio 27.05.2010 [ Fi -  42.12 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
mar 25.05.2010 [ Ge -  88.28 in 1/2 ^ pos. ]
gio 27.05.2010 [ Ro -  41.11 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
sab 12.06.2010 [ Pa -  59.89 in 3/5 ^ pos. ]
mar 15.06.2010 [ Ve -  77.47 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
gio 17.06.2010 [ Pa -  35.65 in 3/4 ^ pos. ]
sab 19.06.2010 [ Ve -  06.36 in 3/4 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
gio 24.06.2010 [ Na -  07.67 in 4/5 ^ pos. ]
sab 26.06.2010 [ To -  19.79 in 4/5 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 26.06.2010 [ Ca -  39.09 in 3/5 ^ pos. ]
mar 29.06.2010 [ Mi -  14.74 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
mar 29.06.2010 [ Ca -  10.70 in 1/2 ^ pos. ]
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
mar 29.06.2010 [ Ca -  10.70 in 1/2 ^ pos. ]
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 12
=======================================================
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ro -  04.34 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 13
=======================================================
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ve -  41.71 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 14
=======================================================
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ro -  04.34 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 15
=======================================================
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ve -  41.71 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 16
=======================================================
gio 15.07.2010 [ Ba -  88.58 in 2/5 ^ pos. ]
sab 17.07.2010 [ Fi -  42.12 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 17

 

[lottosenior]

quote:Originally posted by arcor

ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao

Caro arcor,
scusa se mi intrometto, ma dovresti correggere la definizione AMBI SIMMETRICI in AMBI DA TERZINA SIMMETRICA oppure meglio AMBI DISTANZA 30
perchè nel lotto gli AMBI SIMMETRICI sono un'altra cosa e puoi generare confusione.
Per la precisione, si dicono AMBI SIMMETRICI quegli ambi composti da due numeri primi la cui semisomma ha distanza uguale dai due numeri.
E servono per previsioni eccellenti.

Ciao,
Giuseppe.

Hasta la victoria siempre

 

[arcor]

ciao ragazzi lo script è perfetto perdonatemi sono io che non mi sono spiegato bene un grazie a jackman e uno a giuseppe e a esselotto per il loro intervento
vi saluto