Novità

per il nostro scripter(esselotto)

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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;)
 
con il permesso di esselotto

ambi simmetrici x arcor

Codice: 
=======================================================
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:
Codice: 
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° "
 
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;)
 
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;)
Clicca per espandere...

prova adesso e fammi sapere... altrimenti fai un esempio
:)
Codice: 
=======================================================
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
 
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;)
Clicca per espandere...

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°°°
 
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
 
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
Clicca per espandere...


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°°°
 
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
Clicca per espandere...


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°°°
Clicca per espandere...

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°°°
 
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
Clicca per espandere...

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

Codice: 
=======================================================
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
 
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;)
Clicca per espandere...

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
 
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;)
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 24 dicembre 2024
    Bari
    26
    50
    16
    58
    61
    Cagliari
    72
    43
    48
    79
    90
    Firenze
    10
    14
    24
    76
    89
    Genova
    17
    86
    39
    15
    48
    Milano
    69
    84
    06
    78
    60
    Napoli
    12
    59
    69
    11
    77
    Palermo
    63
    44
    57
    21
    16
    Roma
    55
    83
    07
    67
    66
    Torino
    31
    59
    43
    76
    06
    Venezia
    02
    84
    10
    50
    88
    Nazionale
    63
    88
    55
    29
    22
    Estrazione Simbolotto
    Venezia
    44
    23
    06
    30
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto