per BibEle (Help) e richiesta ESSELOTTO

fillotto · 31 Ottobre 2010

quote:Originally posted by esselotto

SPERO DI ESSERE STATO CHIARO NEI COMMENTI DELLO SCRIPT
GRAZIE...................

SU QUESTO SCRIPT HO USATO SOLO UN LINGUAGGIO PURO IN VISUAL BASIC
NON TENENDO CONTO DELLE FUNZIONI CHE GLI EDITOR DI SCRIPT HANNO GIA'
NELLA SPERANZA, CHE POSSA SERVIRE A TE, E A CHIUNQUE CERCA DI IMPARARE A
PROGRAMMARE SCRIPT LOTTO.

Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°°

Grazie ESSE per la disponibilità, mi metto subito a cercare di capire ,questo per me è un grosso regalo!!!

ovviamente ti faccio sapere fill

fillotto · 31 Ottobre 2010

Allora mi sono letto le istruzioni e non ci siamo per quanto riguarda queste istruzioni:
pp=p+4:if pp>5 Then pp=pp-4 ' con questo mi prelevo numero speculare e lo
numx1(x)=Estratto (es-1,11-r,pp) ' assegno alla matrice numx1(x)
End If

If Estratto (es,r,p)=x Then ' Da qui faccio la stessa cosa che ho fatto sopra
freqx2(x)=freqx2(x)+1 ' Ma con estrazione attuale (es)
pp=p+4:if pp>5 Then pp=pp-4
numx2(x)=Estratto (es,11-r,pp)
End If
in effetti i 4 numeri speculari sono errati dovrebbero essere :
Se il num della sez A in 1^ pos allora lo speculato dovrà essere in 5°
Se il num della sez A in 2^ pos allora lo speculato dovrà essere in 4°
Se il num della sez A in 3^ pos allora lo speculato dovrà essere in 3°
Se il num della sez A in 4^ pos allora lo speculato dovrà essere in 2°
Se il num della sez A in 5^ pos allora lo speculato dovrà essere in 1°
Ho tentato di cambiare qualce parametro della parte sopra che penso sia quella ineressata ma non ci sono riuscito puoi controllare nella figura che ti ho postato quella del dell'ambo 51 52 con gli speculati trovati dal tuo listato : 40, 2, 34, 59 invece i num giusti sono 81,40,2,59 buona serata fill

esselotto · 1 Novembre 2010

quote:Originally posted by fillotto

Ciao Esse ti accludo un altro caso rilevato dal tuo script perfettamente giocabile nel senso che l'ambo (anomalo ) non ha avuto che una ripetizione ma coi num da giocare errati di seguito ti metto l'immagine sempre ricavata da spaziometria con la specularità giusta e con l'ambo dopo 3 colpi !!!
Ovviamente la statistica è necessaria perchè spaziometria ne sforna (senza queste limitazioni che stiamo cercando di ottimizzare)una quantità industriale
Date esaminate - - - - - - - - > 18/09/2010 < - - - - > 21/09/2010
Numeri rilevati Blocco A 44 71
Numeri opposti Blocco B 72 42 42 52

Estrazione generatrice del pronostico 08277 [113 - 21/09/2010]
G 0001
Numeri in gioco : 72.42.42.52 su NA PA RM TO VE per Ambo
N. [72.42.42.52 ] [NA] [.. .. .. .. ..] C. 1 08278 [114 - 23/09/2010]
N. [72.42.42.52 ] [PA] [.. .. .. .. ..] C. 1 08278 [114 - 23/09/2010]
N. [72.42.42.52 ] [RM] [.. .. .. .. ..] C. 1 08278 [114 - 23/09/2010]
N. [72.42.42.52 ] [TO] [.. .. .. .. ..] C. 1 08278 [114 - 23/09/2010]
N. [72.42.42.52 ] [VE] [.. .. .. .. ..] C. 1 08278 [114 - 23/09/2010]
N. [72.42.42.52 ] [NA] [.. .. .. .. ..] C. 2 08279 [115 - 25/09/2010]
N. [72.42.42.52 ] [PA] [.. .. .. .. ..] C. 2 08279 [115 - 25/09/2010]
N. [72.42.42.52 ] [RM] [.. .. .. .. ..] C. 2 08279 [115 - 25/09/2010]
N. [72.42.42.52 ] [TO] [.. .. .. .. ..] C. 2 08279 [115 - 25/09/2010]
N. [72.42.42.52 ] [VE] [.. .. .. .. ..] C. 2 08279 [115 - 25/09/2010]
N. [72.42.42.52 ] [NA] [.. .. .. .. ..] C. 3 08280 [116 - 28/09/2010]
N. [72.42.42.52 ] [PA] [.. .. .. .. ..] C. 3 08280 [116 - 28/09/2010]
N. [72.42.42.52 ] [RM] [.. .. .. 52 ..] C. 3 Estratto 08280 [116 - 28/09/2010]
N. [72.42.42.52 ] [TO] [.. .. .. .. ..] C. 3 08280 [116 - 28/09/2010]
N. [72.42.42.52 ] [VE] [.. .. .. .. ..] C. 3 08280 [116 - 28/09/2010]
Interrotta per raggiunta durata

Codice:

Guarda se ho capito prima di modificare Cagliari in 1° pos con il 71 speculare Torino 5° 52 Genova 1° pos 44 Palermo 5° 42 Genova 2° pos 71 Palermo 4° 39 Milano 4° pos 44 Napoli 2° 81

per le modifiche su un mio script non ho problemi.

esselotto · 1 Novembre 2010

comunque i numeri che rilevavo con lo script
non erano niente male.
per esiti nelle prime giocate...........

esselotto · 1 Novembre 2010

Codice:

***************************************************************************Caso 8
---------------------------------------------------------------------------
Date esaminate --------> 18.09.2010 <----> 21.09.2010
Numeri rilevati Blocco A         44  71
Numeri opposti Blocco  B         81  42  39  52

mar 21.09.2010  [8275]
  G  1:  A    81.39.42.52   Na Pa Ro To Ve    9/9    
     A  39.81            su Ro    3° colpo   [8278/28.09.2010]
     A  81.42            su To    6° colpo   [8281/05.10.2010]

  G  2:  T    81.39.42.52   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 9
---------------------------------------------------------------------------
Date esaminate --------> 16.10.2010 <----> 19.10.2010
Numeri rilevati Blocco A         51  52
Numeri opposti Blocco  B         40  2  81  59

mar 19.10.2010  [8287]
  G  1:  A    40.81.02.59   Na Pa Ro To Ve    5/9    
     in corso (5° su 9)
  G  2:  T    40.81.02.59   Na Pa Ro To Ve    5/9    
     in corso (5° su 9)
***************************************************************************Caso 10
---------------------------------------------------------------------------
Date esaminate --------> 28.10.2010 <----> 30.10.2010
Numeri rilevati Blocco A         5  48
Numeri opposti Blocco  B         67  16  61  39

sab 30.10.2010  [8292]
  G  1:  A    67.61.16.39   Na Pa Ro To Ve    0/9    
     n.i. (9 colpi)
  G  2:  T    67.61.16.39   Na Pa Ro To Ve    0/9    
     n.i. (9 colpi)

controlla queste se vanno bene

fillotto · 1 Novembre 2010

Controllato adesso è tutto OK la specularità è quella giusta, almeno per come l'ho pensata io ! del resto io conservo la tua prima stesura e la confronteremo con quella che vai a fare .
Ho qualche perplessità sul giocare anche il terno, ma tanto con la visione dei risultati sarà facile decidere se conviene tenerlo in gioco o meno. saluti fill

esselotto · 2 Novembre 2010

Script Finale Ambo Doppio Filotto

prelevare solo parte colorata

Codice:

Sub main()
Dim nx(90)
Dim freqx1(90)
Dim freqx2(90)
Dim numx1(90)
Dim numx2(90)
Dim posx1(90,50)
Dim posx2(90,50)
Dim ruote(11)
Dim rt(8) 
Dim ruor(6),lun(6)
Dim ne1(20),ne2(20)
Dim num(4),de(4),ca(4)
Dim SA(6),DA(12)
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim nu(2),na(8),na1(8)
poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1

ColoreTesto 1
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (25," ")& "Ambo Doppio Filotto",1
ColoreTesto 1
Scrivi String (15," ")& "°°°esselotto°°° per ***Filotto*** LottoCed",1
ColoreTesto 1
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1


indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Simmetrici",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Simmetrici",9))
If colpis= False Then Exit Sub
clp=colpis
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
Messaggio "elaborazione. estraz. "&(es)
       ''''''''''''''' rilevo blocco A in due estrazioni
       no=0
       Erase freqx1  
       Erase freqx2 
       For x= 1 To 90   
          pos=0
          For r=1 To 5 
              pos=pos+1
              For p=1 To 5                    
              If Estratto (es-1,r,p)=x Then     
              freqx1(x)=freqx1(x)+1:         
              pox = Array(0,5,4,3,2, 1)
              pp=pox(p)     
              numx1(x)=Estratto (es-1,11-r,pp)
              End If
              
              If Estratto (es,r,p)=x Then     
              freqx2(x)=freqx2(x)+1           
              pp=pox(p) 
              numx2(x)=Estratto (es,11-r,pp)
              End If

            Next  
         Next  
       Next     
 s=0  
 numerix1=" "   
 numerix2=" "   

  For x= 1 To 90 
   If freqx1(x)=1 And freqx2(x)=1 Then   
   s=s+1  
   ne1(s)=numx1(x)  
   ne2(s)=numx2(x) 
   numerix1=numerix1 & "  "& x 
   numerix2=numerix2  & "  "& numx1(x)& "  "& numx2(x) 
   End If 
  Next 


If s=2 Then      


        
  
 co=co+1  
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi "Date esaminate --------> "&  DataEstrazione (es-1) &" <----> "& DataEstrazione (es) 
Scrivi "Numeri rilevati Blocco A      " & numerix1  
Scrivi "Numeri opposti Blocco  B      " & numerix2 
Scrivi 

rt(1)=6:rt(2)=7:rt(3)=8:rt(4)=9:rt(5)=10  
na(1)=ne1(1)
na(2)=ne1(2)
na(3)=ne2(1)
na(4)=ne2(2)

ImpostaGiocata 1,na,rt,poambo,clp  

ImpostaGiocata 2,na,rt,poterno,clp 


Gioca es
End If 

Next 

ScriviResoconto 

ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi "metodo ambo doppio *autore Filotto"
End Sub

esselotto · 2 Novembre 2010

La modifica risiede nell'array

Codice:

If Estratto (es-1,r,p)=x Then     
              freqx1(x)=freqx1(x)+1:         
              pox = Array(0,5,4,3,2, 1)         <----questa è la modifica
              pp=pox(p)                            
              numx2(x)=Estratto (es-1,11-r,pp)
              End If
              
              If Estratto (es,r,p)=x Then     
              freqx2(x)=freqx2(x)+1           
              pp=pox(p) 
              numx2(x)=Estratto (es,11-r,pp)
              End If

esselotto · 2 Novembre 2010

Codice:

pox = Array(0,5,4,3,2,1)         
              pp=pox(p)  

spiego in parole povere se p e 1° estratto 
pp=pox(p) pp prende dall'array il numero corispondente al 1 in questo caso il primo numero
dell'array il 5

se fosse stato 2 il secondo numero dell'array cioè il 4 e cosi via

lo zero  non si conta quindi array Array(0,5,4,3,2,1)
                                           1 2 3 4 5

spero di esere stato chiaro e di aiuto
esselotto

La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

fillotto · 2 Novembre 2010

Ciao Esse ho letto e ho fatto una sola prova purtroppo dopo che ha chiesto per quanti colpi mi da errore :
"Tipo non corrispondente : 'pox'
Errore script
13 Tipo non corrispondente : 'pox'
Linea 62
Col 1
Surce errore di runtime di Microsoft VB Script"
Purtoppo devo scappare un fulmine che ha colpito la casa accanto alla mia in campagna ha danneggiato anche il sistema elettrico a casa mia attendo elettricista , ieri sera qui ha fatto l'ira di Dio ... scappo fill
P.s. ovviamente GRAZIE

imported_n/a · 2 Novembre 2010

quote:Originally posted by fillotto

Ciao Esse ho letto e ho fatto una sola prova purtroppo dopo che ha chiesto per quanti colpi mi da errore :
"Tipo non corrispondente : 'pox'
Errore script
13 Tipo non corrispondente : 'pox'
Linea 62
Col 1
Surce errore di runtime di Microsoft VB Script"
Purtoppo devo scappare un fulmine che ha colpito la casa accanto alla mia in campagna ha danneggiato anche il sistema elettrico a casa mia attendo elettricista , ieri sera qui ha fatto l'ira di Dio ... scappo fill
P.s. ovviamente GRAZIE

cobfermo quanto detto da fill
mi da errore nella riga 61

fillotto · 2 Novembre 2010

quote:Originally posted by cebino

quote:Originally posted by fillotto

Ciao Esse ho letto e ho fatto una sola prova purtroppo dopo che ha chiesto per quanti colpi mi da errore :
"Tipo non corrispondente : 'pox'
Errore script
13 Tipo non corrispondente : 'pox'
Linea 62
Col 1
Surce errore di runtime di Microsoft VB Script"
Purtoppo devo scappare un fulmine che ha colpito la casa accanto alla mia in campagna ha danneggiato anche il sistema elettrico a casa mia attendo elettricista , ieri sera qui ha fatto l'ira di Dio ... scappo fill
P.s. ovviamente GRAZIE

Clicca per espandere...

cobfermo quanto detto da fill
mi da errore nella riga 61

Si la riga e la 61 come rilavato da cebino in quanto io , prima di farlo girare , avevo aggiunto una riga di commento per riconoscere che questa era la seconda versione saluti fill

esselotto · 2 Novembre 2010

Su L8

Codice:

***************************************************************************
                         Ambo Doppio Filotto
               °°°esselotto°°° per ***Filotto*** LottoCed
***************************************************************************
___________________________________________________________________________
___________________________________________________________________________
***************************************************************************Caso 1
---------------------------------------------------------------------------
Date esaminate --------> 23.03.2010 <----> 25.03.2010
Numeri rilevati Blocco A         35  89
Numeri opposti Blocco  B         55  11  75  30

gio 25.03.2010  [8199]
  G  1:  A    55.75.11.30   Na Pa Ro To Ve    9/9    
     negativo
  G  2:  T    55.75.11.30   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 2
---------------------------------------------------------------------------
Date esaminate --------> 06.04.2010 <----> 08.04.2010
Numeri rilevati Blocco A         77  82
Numeri opposti Blocco  B         11  42  30  89

gio 08.04.2010  [8205]
  G  1:  A    11.30.42.89   Na Pa Ro To Ve    9/9    
     negativo
  G  2:  T    11.30.42.89   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 3
---------------------------------------------------------------------------
Date esaminate --------> 29.05.2010 <----> 01.06.2010
Numeri rilevati Blocco A         3  54
Numeri opposti Blocco  B         10  30  28  89

mar 01.06.2010  [8227]
  G  1:  A    10.28.30.89   Na Pa Ro To Ve    9/9    
     A  28.89            su Ro    3° colpo   [8230/08.06.2010]

  G  2:  T    10.28.30.89   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 4
---------------------------------------------------------------------------
Date esaminate --------> 05.06.2010 <----> 08.06.2010
Numeri rilevati Blocco A         5  35
Numeri opposti Blocco  B         90  10  40  11

mar 08.06.2010  [8230]
  G  1:  A    90.40.10.11   Na Pa Ro To Ve    9/9    
     A  90.10            su Na    3° colpo   [8233/15.06.2010]

  G  2:  T    90.40.10.11   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 5
---------------------------------------------------------------------------
Date esaminate --------> 08.06.2010 <----> 10.06.2010
Numeri rilevati Blocco A         43  90
Numeri opposti Blocco  B         8  44  34  58

gio 10.06.2010  [8231]
  G  1:  A    08.34.44.58   Na Pa Ro To Ve    9/9    
     negativo
  G  2:  T    08.34.44.58   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 6
---------------------------------------------------------------------------
Date esaminate --------> 10.06.2010 <----> 12.06.2010
Numeri rilevati Blocco A         1  27
Numeri opposti Blocco  B         71  14  70  9

sab 12.06.2010  [8232]
  G  1:  A    71.70.14.09   Na Pa Ro To Ve    9/9    
     A  14.09            su Ve    4° colpo   [8236/22.06.2010]
     A  14.71            su To    5° colpo   [8237/24.06.2010]

  G  2:  T    71.70.14.09   Na Pa Ro To Ve    9/9    
     negativo
***************************************************************************Caso 7
---------------------------------------------------------------------------
Date esaminate --------> 24.07.2010 <----> 27.07.2010
Numeri rilevati Blocco A         1  17
Numeri opposti Blocco  B         29  4  55  27

mar 27.07.2010  [8251]
  G  1:  A    29.55.04.27   Na Pa Ro To Ve    9/9    
     A  29.27            su Pa    5° colpo   [8256/07.08.2010]

  G  2:  T    29.55.04.27   Na Pa Ro To

esselotto · 2 Novembre 2010

Su Spaziometria 1.1.8

Codice:

***************************************************************************
                         Ambo Doppio Filotto
               °°°esselotto°°° per ***Filotto*** LottoCed
***************************************************************************
___________________________________________________________________________
___________________________________________________________________________
***************************************************************************Caso 1
---------------------------------------------------------------------------
Date esaminate --------> 23.03.2010 <----> 25.03.2010
Numeri rilevati Blocco A         35  89
Numeri opposti Blocco  B         55  11  75  30

Estrazione generatrice del pronostico 08200 [ 36 - 25/03/2010]
G 0001
Numeri in gioco : 55.75.11.30 su NA PA RM TO VE per Ambo
  N. [55.75.11.30                   ] [NA]     [.. .. .. .. ..] C.   1            08201 [ 37 - 27/03/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. .. .. ..] C.   1            08201 [ 37 - 27/03/2010]
  N. [55.75.11.30                   ] [RM]     [.. .. .. .. ..] C.   1            08201 [ 37 - 27/03/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   1            08201 [ 37 - 27/03/2010]
  N. [55.75.11.30                   ] [VE]     [.. .. 55 .. ..] C.   1 Estratto   08201 [ 37 - 27/03/2010]
  N. [55.75.11.30                   ] [NA]     [.. .. .. .. ..] C.   2            08202 [ 38 - 30/03/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. .. .. ..] C.   2            08202 [ 38 - 30/03/2010]
  N. [55.75.11.30                   ] [RM]     [.. .. .. .. ..] C.   2            08202 [ 38 - 30/03/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   2            08202 [ 38 - 30/03/2010]
  N. [55.75.11.30                   ] [VE]     [.. .. .. .. ..] C.   2            08202 [ 38 - 30/03/2010]
  N. [55.75.11.30                   ] [NA]     [.. .. .. .. ..] C.   3            08203 [ 39 - 01/04/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. .. .. 75] C.   3 Estratto   08203 [ 39 - 01/04/2010]
  N. [55.75.11.30                   ] [RM]     [.. .. .. .. ..] C.   3            08203 [ 39 - 01/04/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   3            08203 [ 39 - 01/04/2010]
  N. [55.75.11.30                   ] [VE]     [.. .. .. .. ..] C.   3            08203 [ 39 - 01/04/2010]
  N. [55.75.11.30                   ] [NA]     [.. .. .. .. 11] C.   4 Estratto   08204 [ 40 - 03/04/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. .. .. ..] C.   4            08204 [ 40 - 03/04/2010]
  N. [55.75.11.30                   ] [RM]     [.. .. .. .. ..] C.   4            08204 [ 40 - 03/04/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   4            08204 [ 40 - 03/04/2010]
  N. [55.75.11.30                   ] [VE]     [.. .. .. .. ..] C.   4            08204 [ 40 - 03/04/2010]
  N. [55.75.11.30                   ] [NA]     [.. .. 11 .. ..] C.   5 Estratto   08205 [ 41 - 06/04/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. .. .. ..] C.   5            08205 [ 41 - 06/04/2010]
  N. [55.75.11.30                   ] [RM]     [30 .. .. .. ..] C.   5 Estratto   08205 [ 41 - 06/04/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   5            08205 [ 41 - 06/04/2010]
  N. [55.75.11.30                   ] [VE]     [.. .. .. .. ..] C.   5            08205 [ 41 - 06/04/2010]
  N. [55.75.11.30                   ] [NA]     [.. .. .. .. ..] C.   6            08206 [ 42 - 08/04/2010]
  N. [55.75.11.30                   ] [PA]     [.. .. 55 .. ..] C.   6 Estratto   08206 [ 42 - 08/04/2010]
  N. [55.75.11.30                   ] [RM]     [.. .. .. .. ..] C.   6            08206 [ 42 - 08/04/2010]
  N. [55.75.11.30                   ] [TO]     [.. .. .. .. ..] C.   6            08206 [ 42 - 08/04/2010]

esselotto · 2 Novembre 2010

Come vedi gira su tutte e due l8 e Spaziometria
Ho fatto il copia incolla

sono andato 100 300 estrazioni a ritroso
ho cambiato i colpi in gioco

risultato sempre lo stesso.

esselotto · 2 Novembre 2010

Mi dispiace io non possego una copia speciale di spaziometria

lo semplicemente scaricata seguendo le istruzioni su un post di
lottoced ad agosto
Per me lo script gira alla perfezione
per voi non sò??????

imported_n/a · 3 Novembre 2010

quote:Originally posted by esselotto

Mi dispiace io non possego una copia speciale di spaziometria

lo semplicemente scaricata seguendo le istruzioni su un post di
lottoced ad agosto
Per me lo script gira alla perfezione
per voi non sò??????

Ciao Esselotto finalmente ho capito perche non mi funzionava lo script, semplicemente non posso impostare meno di 100 estrazioni, per cui da 100 in su tutto ok funziona alla grande non capisco però il perche.

Ciao e grazie per il tuo interessamento

oruam · 3 Novembre 2010

Esse sei sempre un numero numero1,bravo.
Ho provato a modificare il tuo listato
non so come ,ma sembra "fungere"anche con altre versioni
ho solo posticipato la funzione array.

Codice:

Sub main()
Dim nx(90)
Dim freqx1(90)
Dim freqx2(90)
Dim numx1(90)
Dim numx2(90)
Dim posx1(90,50)
Dim posx2(90,50)
Dim ruote(11)
Dim rt(8) 
Dim ruor(6),lun(6)
Dim ne1(20),ne2(20)
Dim num(4),de(4),ca(4)
Dim SA(6),DA(12)


Dim poambata(5),poambo(5),poterno(5),poquaterna(5)

Dim nu(2),na(8),na1(8)
poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1



ColoreTesto 1
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (25," ")& "Ambo Doppio Filotto",1
ColoreTesto 1
Scrivi String (15," ")& "Programed by °°°esselotto°°° per ***Filotto*** LottoCed",1
ColoreTesto 1
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
colpis=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",9))
If colpis= False Then Exit Sub
clp=colpis
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
Messaggio "elaborazione. estraz. "&(es)
       ''''''''''''''' rilevo blocco A in due estrazioni
       no=0
       Erase freqx1  
       Erase freqx2 
       For x= 1 To 90   ''''' da qui inizio il controllo dei 90 numeri
          pos=0
          For r=1 To 5 
           
              pos=pos+1
              For p=1 To 5    
              pox = Array(0,5,4,3,2, 1)     
              pp=pox(p) 
               '   Da qui rilevo il numero Estrazione precedente (es-1)  
              If Estratto (es-1,r,p)=x Then  ' controllo se l'estratto è uguale al numero Estrazione                                              ' precedente es-1   
              freqx1(x)=freqx1(x)+1:         ' ogni volta che trovo aggiungo 1 alla frequenza del numero X
                
  
              numx1(x)=Estratto (es-1,11-r,pp) ' assegno alla matrice numx1(x)
              End If
              
              If Estratto (es,r,p)=x Then     ' Da qui faccio la stessa cosa che ho fatto sopra
              freqx2(x)=freqx2(x)+1           ' Ma con estrazione attuale (es)
                            

              numx2(x)=Estratto (es,11-r,pp)
              End If
''''''''''Quindi freqx1() e dell'estrazione precedente sempre nel Blocco a
''''''''''       freqx2() e di quella attuale 

            Next   '  chiudo i vari cicli for
         Next   ''        ""
       Next     ''         ""
 
 s=0  ''''''''''Questo contatore s è molto importante mi conta le presenze e altro
 numerix1=" "   '''''''''Azzero stringa che uso per far vedere i numeri pui fare anche diversamente
 numerix2=" "   '''''''''''altra stringa come sopra

''''''''''DA QUI INIZIO IL CONTROLLO SE ESISTONO SOLO DUE AMBI UGUALI  
  For x= 1 To 90 ''''<-------- DAL NUMERO 1 AL 90
   If freqx1(x)=1 And freqx2(x)=1 Then  ''' se i due  numeri contano (una sola e uguale) presenza nelle due estrazioni 
   s=s+1  '''''incremento s (il contatore )di 1 unita 
   ne1(s)=numx1(x)  'assegno a ne1(s) quindi s=1 fai attenzione ne1 il numero speculare
   ne2(s)=numx2(x)  'assegno a ne2(s) quindi 1 <----------------ne2  l'altro numero speculare
   numerix1=numerix1 & "  "& x ''''' qui riempio la stringa niente di importante
   numerix2=numerix2  & "  "& numx1(x)& "  "& numx2(x) ''''' cpome sopra altra stringa
   End If '''''' chiudo il blocco If freqx1(x)=1 And freqx2(x)=1 Then
  Next ''' chiudo il ciclo for x

''''' qui ci siamo abbiamo bisogno del contatore di cui ti spiegavo sopra 
''''' se s= 2 procedo se ho rilevato solo due casi di numeri uguali procedo

''''' esempio Estrazione precedente 12 freqenza 1      
''''''        """          """      19  ""      1      

''''' esempio Estrazione Attuale    12 freqenza 1
''''''        """          """      19  ""      1      
'''' con questo commando If freqx1(x)=1 And freqx2(x)=1 Then
''' se 12  nell'estrazione precedente e

elephantbig · 3 Novembre 2010

Ciao Esselotto,

intervengo per complimentarmi con te.

Oltre che bravo anche disponibile.
Seguo i tuoi lavori anche se io con gli script non vado d'accordo.
Apprezzo molto le infopillole di fisica.
Bravo e ancora complimenti

fillotto · 3 Novembre 2010

CI SIAMO !!!!
ONORE a ESSE un grazie anche a oruam finalmente ho il misuratore adatto a testare il metodo !!!
Le sorprese non finiscono qui perchè non so se avete notato togliendo la giocata sul terno riducendo i colpi a 6 ma soprattutto e questa è la novità emersa: giocando non su le 6 ruote del blocco B ma sulle ruote di chiusura (quindi da un minimo di 2 a un massimo di 4) i risultati sono sorprendenti, provare per credere pardon vedete e crederete
Ancora un piccolo sforzo ESSE si può impostare la giocata solo sulle ruote dove sono rintracciati i 4 num speculati?
Nelle prove che ho fatto è stato sempre così!!!

Un saluto anche a Luigi ed a Ele che ha sempre creduto in questo metodo Fill

per BibEle (Help) e richiesta ESSELOTTO

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<