per BibEle (Help) e richiesta ESSELOTTO

[esselotto]

scusami filotto con un semplice for next
e usando anche un opzione dell'archivio L8

solo nel blocco A ad ogni estrazione si rilevano dai 5 a 15 ambi
Sarebbbe a dire

ogni estrazioni si mettono in gioco da 5 a 15 giocate


E'un metodo scherzo? o cosa?



1° difficoltà ----------------------------------------
Non procedo, mi fermo Non sono capace a fare stì metodoni.

 

[esselotto]

Anzi se mi spieghi tu una cosa è meglio
Nella figura Filotto su Spaziometria

rilevata a giugno del 2010
i numeri da mettere in gioco erano
34 53 ?

 

[fillotto]

quote:Originally posted by esselotto

Anzi se mi spieghi tu una cosa è meglio
Nella figura Filotto su Spaziometria

rilevata a giugno del 2010
i numeri da mettere in gioco erano
34 53 ?

Ciao Esse come faccio a spiegare se non mi dici in quali estrazioni e di quali ruote (nel mese di Giugno 2010)
sarebbe uscita questa figura filotto?
Per quanto riguarda: "ogni estrazioni si mettono in gioco da 5 a 15 giocate" temo che non ci siamo capiti , con le limitazioni che ti ho detto:
1) Limitiamo a 2 estrazioni il campo di osservazione.Gli ambi anomali rintracciati non si devono ripetere che una sola volta nel campo di osservazione (campo di osservazione che è composto da 100 numeri se l’ambo ripetuto lo troviamo nell’estraz successva)
2) giocare nel blocco opposto dove si sono verificati gli ambi anomali
3)quali numeri ? i quattro delle ruote diametrali e speculari
ovvero quelli di chiusua
4)Per qante estrazioni giocare? Allora dovendo giocare su 5 ruote 4 num sulla sorte di ambo direi 8 Kolpi (senza rimettreci).
Con queste limitazioni non mi risulta che si trovano da 5 a 15 ambi , giusto! o non ti tovi ?

 

[esselotto]

[/img]

 

[esselotto]

ho visto questa figura.
volevo sapere se i numeri in rosso era la giocata per ambo ?
oppure c'erano altri numeri da abbinare ?

conoscevo, ma non avevo mai visto figure spaziometriche.
ti sembrerà Strano, ma è vero.

 

[fillotto]

quote:Originally posted by esselotto

[/img]

non ci siamo,QUESTA NON E UNA FIGURA FILOTTO e quale sarebbe l'ambo anomalo ripetuto? intendi forse 53 e 90 ? ma un 90 si trova a milano e l'altro 90 a napoli due blochhi diversi o ruotone come le chiamo io e poi ci sono nell'estrazioni dell'8/6/2010 e 10/6/210 4 "53" ce ne devono essere solo 2 !! e tutti e 2 in un solo blocco unitamente a 90 sempre solo 2 e nello stesso blocco dove c'è il 53 ; inoltre non è rispettato il concetto più volte espresso della ruota diametrale e speculare ti consiglio di leggere quanto spiegato nell'help di spziometria alla voce figura filotto .Buona serata pardon nottata fill

 

[esselotto]

mi sono accorto dopo di aver spedito immagine che non era figura filotto

 

[esselotto]

Script per L8 ver.6 e Spaziometria ver. 1.1.8
prelevare solo parte colorata blu

Sub main()
Dim nx(90)
Dim freqx1(90)
Dim freqx2(90)
Dim numx1(90)
Dim numx2(90)
Dim ruote(11)
Dim rt(10) 
Dim ruor(6),lun(6)
Dim ne1(20),ne2(20)
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:
              pp=p+4:if pp>5 Then pp=pp-4 
              numx1(x)=Estratto (es-1,11-r,pp)
              End If
              If Estratto (es,r,p)=x Then 
              freqx2(x)=freqx2(x)+1
              pp=p+4:if pp>5 Then pp=pp-4 
              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 ' solo se trovo 2 casi procedo      
        
  
 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 posizioni 
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]

per Filotto controlla il tutto esiti compresi.
Script scritto in puro Visual Basic senza usare funzioni di l8 e spaziometria
come vedi c'è solo una funzione erase

frequenza e posizioni trovati senza usare funzioni dei lottoscript
Purtroppo mi sono dovuto adattare al database dei programmi editor

 

[esselotto]

Accetto critiche per modifica solo da Filotto (autore del metodo)
Grazie!!!!!!!!!!!!!!!!!!!!!!!!!


Per filotto
Quello che ho notato io, a favore del metodo, che la maggiore parte dei sfaldamenti,
circa 70-80% .Avviene nei primi 5 colpi di gioco.


correggimi se sbaglio.


l'angolo di riflessione r è uguale all'angolo di incidenza.
°°°esselotto°°°

 

[fillotto]

Grazie ESSE ci quasi stiamo, adesso sei enrato nell'ordine di idee giusto , ora però vado a mangiare.
Ancora GRAZIE e ci sentiamo più tardi per i dettagli Fil

 

[fillotto]

Allora chiariamo un po tutto , non credo ci vorrà molto !!
Se facciamo generare dallo script che hai fatto l'ulimo caso rilevato è quello che riguarda le estrazioni del 16 e19 ott ultimo scorso con rilevazione dell'ambo anomalo 51 e 52 che si trova nel Blocco A ed è ripetuto del resto per capirci l'ambo lo possiamo trovare anche con la figura filotto che ti allego è ch è positiva come puoi vedere ma giocando tutti i num invece io ho chiesto di giocare solo i numeri "specchiati" o "speculati" nella parte B
perciò i 4 numeri ricavati dallo script sono quelli che vedi nella figura sottostante 81 invece del 34 ancorchè questo caso specifico non doveva essere segnalato in quanto il 51 è ripetuto anche nel blocco B ecco comunque l'esatta specularietà generata da spaziometria , metodo che stiamo cercando di migliorare

nello stesso script, considerando che i casi rilevati dovrebbero essere dimezzati a causa di questi paletti, perchè non includere anche la formazione dell'ambo anomalo nella parte B e i quattro speculati nella parte A e stoppare il tutto se si verifica l'ambo?
A disposizione x qualsiasi chiarimento e GRAZIE per l'impegno profuso Fill

 

[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

 

[esselotto]

mi sono collegato solo oggi leggo meglio non in linea

 

[esselotto]

Letto


Vorresti fare l'incontrario? nel blocco B (ricerca)
blocco A speculari

ma vuoi che faccia altro listato sul blocco B?

 

[esselotto]

Poi qui devi chiarire.

Stoppare il tutto se si verifica l'ambo?


Che significa stoppare la giocata forse? o cosa?

 

[esselotto]

quote:Originally posted by esselotto

Poi qui devi chiarire.

Stoppare il tutto se si verifica l'ambo?


Che significa stoppare la giocata forse? o cosa? ....(fermarsi alla prima vincita di Ambo)

 

[fillotto]

quote:Originally posted by esselotto

quote:Originally posted by esselotto

Poi qui devi chiarire.

Stoppare il tutto se si verifica l'ambo?


Che significa stoppare la giocata forse? o cosa? ....(fermarsi alla prima vincita di Ambo)

SI!!
Ciao ESSE potresti commentarmi, nel listato, dove il programma capisce che in un certo intervallo che ci devono essere solo 2 presenze del 1° num dell'ambo e 2 presenze del 2° nun dell'ambo?
questo per imparare qualcosa anch'io ed eventualmente esserti più preciso in quello che effettivamente voglio.
Buona domenica fill

 

[esselotto]

ATTENZIONE QUESTO SCRIPT E' LO STESSO DI QUELLO SOPRA


LA DIFFERENZA CHE QUESTO SCRIPT E' COMMENTATO
DA ESSELOTTO (che poi sarei io)

SCRIPT COMMENTATO METODO AMBO DOPPIO PIù SPECULARI

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                   '   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
              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
''''''''''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
''

 

[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°°°