FUNZIONE PIRAMIDE PER LOTTOSCRIPT

[Roby]

Per chi usa gli script molte volte ha bisogno di piramidare
una stringa numerica. Ecco io propongo questa function basato su un
algoritmo che ho scritto tempo fà.

 

[esselotto]

Piramide a - 9
Prelevate solo La Parte Colorata.

'''''''-------funzione piramide a -9 --------------------
Dim  pir  ' va dichiarata fuori dalla routine  
Function Piramidiza9 (piramide)
lun = Len(Pir)
Piramide=pir
Do Until lun < 3
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function

 

[esselotto]

esempio di come di richiamo Piramide  ho messo ance la 
visualizzazione a Video. Per chi non vuole visualizzare la Piramide.
Deve Sostituire la function con quella del messaggio precedente. 

Prelevate solo La Parte Colorata.



Sub main()
ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide >>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
If nr=False Then Exit Sub
pir=nr ' Assegnamo a pir il numero
Piramidiza9 (pir) '<------------ richiamo la Funzione 
ColoreTesto  2
Scrivi "Risulatato---> "& pir,1
ColoreTesto 1
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub
 

'Functio Aggiuntiva 
Dim  pir   
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1  ' visuallizare a video la piramide
Do Until lun < 3
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
s=s+1
Scrivi String (s," ") & piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function  



 
perchè un mezzo elastico sia sede di propagazione di un'onda, e 
necessario che la sorgente trasmetta ad esso impulsi periodici,e 
quindi compia un moto periodico.
°°°esselotto°°°

 

[miki55]

Ciao esselotto.
Volevo chiederti, se possibile, un listato su un metodo del gran maestro Fabarri, sulla ripetizione dei numeri presentata negli anni 60 con un articolo denominato SPECIALE TECNICA DI PREVISIONE ove trovati due AMBI UNITI della stessa somma in due ruote, (…preferibilmente limitrofe) il 4° estratto del 2° ambo fornisce la ripetizione dell’estratto in tempi piuttosto brevi …(max 9 estrazioni).

Nell’articolo il Fabarri faceva alcuni esempi, ove effettivamente questi estratti a tutt’oggi, sortiscono realmente con assiduità.
Il problema però sussiste nell’abbondanza di queste previsioni di coppie presentate dal maestro, ove anche qui sussistono esiti negativi.
Ma da tempo che studio questa teoria e per ridurre notevolmente le previsioni, ho selezionato solo pochissime coppie che hanno stesse decine e stesse unità, negli ambi di ricerca, ed effettivamente offrono maggiori garanzie di sortita.
Ma ahimè, sono difficili da ricercare visivamente, allora volevo proporti un listato da poterli trovare con più rilevanza.

Ti faccio alcuni esempi degli ambi uniti con tali caratteristiche:

AMBI UNITI DA RICERCARE 14.77 …17.74 somma 1
AMBI UNITI DA RICERCARE 87.04 ….07.84 somma 1
AMBI UNITI DA RICERCARE 37.55 …..35.57 somma 2
AMBI UNITI DA RICERCARE 83.18 …..13.88 somma 10
Eccetera….

L’ultimo esito è di ieri sera con gli ambi...
26.08.2010 FI ambo 61.79
31.08.2010 GE ambo 69.71

L’estratto da porre in gioco è il quarto, cioè il 71!
Esito 71 al 5° colpo su GE (ruota principale)

Sono determinanti però alcune condizioni:

- Ambi somma uguale
- Ambi uguale cadenza e decina
- Massimo 3 estrazioni consecutive
- Massimo 5 ruote consecutive
- Tra le 3 estrazioni consecutive non deve essere presente l’estratto selezionato
- Massimo gioco per 9 estrazioni.

Allego copia dell’articolo orginale del Fabarri, credo che tu conosca:





La ripetizione del numero
SPECIALE TECNICA DI PREVISIONE

Bastano poche nozioni sul calcolo delle probabilità per sapere che le ripetizioni di un numero in una ruota si verifica, in media, una volta ogni 18 estrazioni. Con una discreta approssimazione si può dunque dire che, essendo 10 le ruote, ogni due estrazioni si deve presentare, in media, la ripetizione di un numero in una qualsiasi ruota. Ciò dimostra soltanto che le occasioni per questo tipo di previsione non sono scarse, ma anzi abbastanza copiose. Diciamo però oggi, una cosa nuova, sulla quale richiamiamo tutta l’attenzione dei lettori, facendo presente che si tratta di un rilievo che viene portato a conoscenza del pubblico per la prima volta, proprio con questo articolo. Per spiegarsi la ripetizione del numero bisogna far capo ai seguenti principi:

a) ogni estratto dev’essere sommato con quello che lo segue nell’estrazione, sempre con la regola del "fuori 90". Di conseguenza in ogni ruota si formano 4 somme;
b) messe a confronto due coppie aventi la medesima somma, si nota che la differenza degli elementi esterni ( 1° e 4°) è uguale a quella degli elementi interni (2° e 3°);
c) le due coppi prese in esame devono occupare posti successivi, se appartenenti alla medesima estrazione; tale requisito non interviene quando le coppie sono prese da differenti estrazioni;
d) quando fra gli elementi delle due coppie in esame sussistono particolari dati ordinativi (parziale uguaglianza di decina, figura o finale), il secondo elemento della seconda coppia, ossia l’ultimo della formazione, tende a ripetersi, entro le tre successive estrazioni, per la medesima ruota in cui è comparso, ovvero, ma con minore frequenza, nella ruota abbinata, quella contenente la prima coppia della formazione.
La speciale tecnica per prevedere la ripetizione del numero consiste quindi nel rintracciare, fra due ruote, o anche nella medesima ruota, due coppie successive, anche in diverse estrazioni, contraddistinte da eguale somma e che presentino almeno uno dei dati ordinativi dei quali abbiamo detto. Eccone qualche esempio tratto dalle estrazioni di quest’anno:
1) Ripetizione di 1° colpo:
27 aprile

 

[esselotto]

ciao miki 55
fa piacere risentirti.
Conosco la tecnica ma non ho il listato pronto.
Comunque si può fare.

posto su questa pagina.

esselotto

 

[miki55]

...ho tempo a ritagli, ma ti segue sempre nei con attenzione nei tuoi lavori. ciao e grazie

 

[oruam]

esselotto, noto che hai una grande padronanza sul linguaggio
programmazione,ne approfitto del tuo post ,per sapere se è fattibile implementare un listato che ricerca automaticamente le figure di frattali.Ho chiesto a vari utenti che postano figure sui frattali ,di poter aver elementi di implementazione da passare a Luigi,e per questo da inserire nel suo programma(GRATUITO),ma tutti hanno risposto,che trattasi di plug abbinati a programmi complessi, e per questo motivo non hanno intenzione a cederlo.
se quelli bravi si defilano con scuse banali,e lasciano gravare il tutto , solo a Luigi, mi sembra un' assurdita..
per questo ,ripongo grande e profonda gratitudine per tutto quello che farai,speranzoso da poter
far diventare ancora piu"completissimo" il megaprogramma di LUigi.

 

[esselotto]

ciao miky eccoti il listato

1) Rilevo 1 ambo unito su una estrazione ne trovo un'altra nella stessa estrazione
unito e isotopo, che abbia somma uguale. ecc. ecc.

2) oppure rilevo ambo max 3 estrazioni indietro unito ma non isotopo.

3) prendo solo numeri con coppia di decine e distanziate di 1
esempio 12 64 13 65
su 100 estrazioni esaminate 186 Casi Giocabili


4) Controllo che l'ambata non sia sortita nelle 3 estrazioni precedenti.
a partire da quella precedente al rilevamento

su 100 estrazioni esaminate 129 Casi Giocabili



Ho tralasciato coppie di numeri di stessa figura o cadenza,perche ho visto che vuoi
diminuire casi. Se serve qualche chiarimento sullo script chiedi pure.




una mia opinione e perche ricercare due ambi in 3 estrazioni a ritroso quando, la stessa e
e massimo 1 estrazione a ritroso, danno molti casi giocabili?

Fai tu ulteriori prove poi mi dici.




Rifrazione. La velocità di propagazione di un'onda dipende dalle caratteristiche
fisiche e chimiche del mezzo.
°°°esselotto°°°

 

[esselotto]

TESTATO su l8 vers 6.1 e Spaziometria ver 1.1.8
Prelevare solo parte Colorata (Blu)



'''''''Metodo Speciale Tecnica di Previsione Fabarri
''''''da * esselotto * per * Miky 55 * Lottoced
''''''' considero 3 estrazioni precedenti sempre ambi uniti

Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim ne(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5)
Dim nu(2)
poambata(1)=1 : poambo(2)=1

ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (15," ")& "Speciale Tecnica di Previsione Fabarri",1
ColoreTesto 1
Scrivi String (15," ")& "°°°esselotto°°° per miky55 LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1



indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Speciale Tecnica",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Speciale Tecnica",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)

For r=1 To 10
rt(1)=r

For p=1 To 4
pp=p+1
ne(1)=Estratto (es,r,p)
ne(2)=Estratto (es,r,pp)
so1=Fuori90 (ne(1)+ ne(2))


For j= 0 To 3 ' inizio la ricerca dalla estrazione corrente a quelle a ritroso max 3

For rr=1 To 10

If j=0 Then ' considero isotopia estrazione attuale
rt(2)=rr
k=p:kk=pp
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 (ne(3)+ne(4))
End If

If j<> 0 Then ' estrazioni precedenti non considero isotopia
For k= 1 To 4
rt(2)=rr
kk=k+1
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 ( ne(3)+ne(4))

dif1=Abs(ne(1)-ne(4)) ' 1° e 4°
dif2=Abs( ne(2)-ne(3))' 2° e 3°

If so1=so2 And dif1 = dif2 Then '
If ne(1)<>ne(3)And ne(1)<>ne(4) And ne(2)<>ne(3) And ne(2)<> ne(4) Then ' no ambi doppi
' Faccio un controllo delle decine
For w= 1 To 4
de(w)=DecinaNaturale (ne(w))
Next
cde=0
di=0
For w= 1 To 3
For ww=w+1 To 4
If de(w)=de(ww) Then cde=cde+1
If Abs(ne(w)-ne(ww))=1 Then di=di+1 ' se ci sono ambi distanza 1
Next
Next



If cde=2 And di=2 Then 'se 2 coppie di decina

If j>0 Then ' se estrazioni indietro ambata ne(2) altrim ne(4)
am=ne(2)
Else
am=ne(4)
End If

''''''' controllo se in quella attuale e 3 estrazioni a ritroso è sortito l'ambata
sorte=0
For z=j+1 To j+3 ' vado 3 indietro da quella selezionata
For ra= 1 To 10
If ra=r Or ra= rr Then
For v= 1 To 5
If am=Estratto (es-z,ra,v) Then sorte=1
Next
End If
Next
Next
If sorte=0 Then


ne(1)=Format2 (ne(1))
ne(2)=Format2(ne(2))
ne(3)=Format2 (ne(3))
ne(4)=Format2(ne(4))

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti (es,r) & " ] "
Scrivi DataEstrazione (es-j) & "( " & SiglaRuota(rr) & " ) - [ "& StringaEstratti (es-j,rr)_
& " ] "& j &"°"& "Estr. prec."
Scrivi
Scrivi "Ambi Rilevati [ "& ne(1) &" "& ne(2) &" ] [ "& ne(3) &" "& ne(4) &" ] pos < "_
& p &"° "& pp &"° > "& " pos < "& k &"° - "& kk &"° > "
Scrivi
Scrivi "Pre. Figura="& cfi &" Pre. Decina="& cde &" Pre. Cadenza="& cca
Scrivi
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp,1


Gioca es
End If
End If
End If
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto

ColoreTesto 1
Scrivi "°°°esselotto°°°",1
scrivi"Speciale Tecnica di Previsione",1
Scrivi"Autore... (Fabbari)",1

End Sub

La Frequenza è il numero di oscillazioni complete descritte in un secondo e S.I: si misura
in Hertz (Hz). Un Hz corrisponde ad una oscillazione ogni secondo.
°°°esselotto°°°

 

[esselotto]

quote:Originally posted by oruam

esselotto, noto che hai una grande padronanza sul linguaggio
programmazione,ne approfitto del tuo post ,per sapere se è fattibile implementare un listato che ricerca automaticamente le figure di frattali.Ho chiesto a vari utenti che postano figure sui frattali ,di poter aver elementi di implementazione da passare a Luigi,e per questo da inserire nel suo programma(GRATUITO),ma tutti hanno risposto,che trattasi di plug abbinati a programmi complessi, e per questo motivo non hanno intenzione a cederlo.
se quelli bravi si defilano con scuse banali,e lasciano gravare il tutto , solo a Luigi, mi sembra un' assurdita..
per questo ,ripongo grande e profonda gratitudine per tutto quello che farai,speranzoso da poter
far diventare ancora piu"completissimo" il megaprogramma di LUigi.

ciao
oruam o vertibile (Ho postato una tecnica sui vertibili) alludevo al tuo username.

So cosa è un Frattale, ma non ho la più pallida idea come possa essere applicato al gioco del lotto.
Se vuoi spiega pure, con parole povere, e un paio di Esempi.
Non mi fare leggere postulati sui frattali.




Il raggio dell'onda riflesso incidente il raggio riflesso e la normale alla superficie
di riflessione apparterngono allo stesso piano.
°°°esselotto°°°

 

[miki55]

Bravo esselotto, questa è la prova della tua professionalità.
Comunque in giornata ti spiegherò meglio in realtà cosa kiedo
nella ricerca di questi ambi.
A più tardi...

 

[miki55]

Ciao esselotto, quello che volevo chiederti, era la selezione di alcuni ambi, che abbiamo determinate caratteristiche matematiche.
Ti faccio un esempio

87.04 – 07.84 ambi SOMMA 1
Ora mettiamoli uno sotto l’altro

87.04
07.84

Osserva questi due ambi SOMMA 1 di cui abbiamo

Due volte il nr. 8
Due volte il nr. 4
Due volte il nr. 7
Due volte il nr. 0

In quattro numeri abbiamo due ambi con la stessa somma.

Un esempio reale datati il... (post prec)

26.08.2010 FI ambo 61.79 (somma 50)
31.08.2010 GE ambo 69-71 (somma 50)

Ora…
61.79
69.71

Due volte il nr.6
Due volte il nr.7
Due volte il nr.1
Due volte il nr. 9

Con quattro numeri abbiamo due ambi di somma 50
Per fare questo chiaramente dobbiamo escludere i gemelli (che io ti erroneamente messo come esempio nel post precedente)

Per quando riguarda le tre estrazioni consecutive, ti faccio altro esempio con gli ambi somma 50 di prima

FI ambo 61.79 a GE l’ambo 69.71 sono sortiti dopo due estrazioni di differenza. In queste due estrazioni, sia su FI che su GE (dal 26.8 al 31.8.2010) non era presente il 71 la previsione era da porre in gioco e difatti è sortito il 71.

Ti ripeto, nel post precedente ho sbagliato io a farti gli esempi perché ho messo i “gemelli”, ma se escludiamo pure questi gli ambi si riducono notevolmente le previsioni e attendiamo solo queste occasioni di rilievo.

Se il listati si può creare, possiamo scegliere i due ambi della stessa somma, anche con 4 o 5 estrazioni l’uno dall’altro purché in queste 4/5 estrazioni non sia sortito il 4° estratto del secondo ambo.

È rigorosa ma molto selettiva, oltre che ad essere in forma “ordinata” (come fa riferimento in Fabarri) il cui probabilità di caduta, che finora ho posto in gioco, mi hanno dato quasi sempre esito positivo, ricerdati visivamente

Sono a disposizione…..

 

[esselotto]

bene miki ho capito. Tu intendi i valori delle cifre.
Ormai il listato è fatto basta apportare qualche modifica.
riposto sempre su questo topic non appena trovo il tempo.
ciao

 

[miki55]

grazie e buon lavoro

 

[esselotto]

ATTENZIONE IL LISTATO SOPRA AVEVA UNO SBAGLIO SULLA RICERCA
NON RILEVAVA NIENTE.

QUESTO NUOVO E CORRETTO.
PRELEVATE SOLO PARTE COLORATA IN BLU



''''Metodo Speciale Tecnica di Previsione Fabarri
'''''da * esselotto * per * Miky 55 *
'''''' considero 3 estrazioni precedenti sempre ambi uniti

Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim ne(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5)
Dim nu(2)
poambata(1)=1 : poambo(2)=1

ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (15," ")& "Speciale Tecnica di Previsione Fabarri",1
ColoreTesto 1
Scrivi String (15," ")& "°°°esselotto°°° per miky55 LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1



indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Speciale Tecnica",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Speciale Tecnica",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)

For r=1 To 10
rt(1)=r

For p=1 To 4
pp=p+1
ne(1)=Estratto (es,r,p)
ne(2)=Estratto (es,r,pp)
so1=Fuori90 (ne(1)+ ne(2))


For j= 0 To 3 ' inizio la ricerca dalla estrazione corrente a quelle a ritroso max 3

For rr=1 To 10

If j=0 Then ' considero isotopia estrazione attuale
rt(2)=rr
k=p:kk=pp
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 (ne(3)+ne(4))
End If

If j<> 0 Then ' estrazioni precedenti non considero isotopia
For k= 1 To 4
rt(2)=rr
kk=k+1
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 ( ne(3)+ne(4))

dif1=Abs(ne(1)-ne(4)) ' 1° e 4°
dif2=Abs( ne(2)-ne(3))' 2° e 3°

If so1=so2 And dif1 = dif2 Then '
If ne(1)<>ne(3)And ne(1)<>ne(4) And ne(2)<>ne(3) And ne(2)<> ne(4) Then ' no ambi doppi
' Faccio un controllo delle decine
For w= 1 To 4
de(w)=DecinaNaturale (ne(w))
Next
cde=0
di=0
For w= 1 To 3
For ww=w+1 To 4
If de(w)=de(ww) Then cde=cde+1
If Abs(ne(w)-ne(ww))=1 Then di=di+1 ' se ci sono ambi distanza 1
Next
Next



If cde=2 And di=2 Then 'se 2 coppie di decina

If j>0 Then ' se estrazioni indietro ambata ne(2) altrim ne(4)
am=CInt(ne(2))
Else
am=CInt(ne(4))
End If

' controllo se in quella attuale e 3 estrazioni a ritroso è sortito l'ambata
sorte=0
For z=j+1 To j+3 ' vado 3 indietro da quella selezionata
For ra= 1 To 10
If ra=r Or ra= rr Then
For v= 1 To 5
If am=CInt(Estratto (es-z,ra,v)) Then sorte=1

Next
End If
Next
Next
If sorte=0 Then


ne(1)=Format2 (ne(1))
ne(2)=Format2(ne(2))
ne(3)=Format2 (ne(3))
ne(4)=Format2(ne(4))

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti (es,r) & " ] "
Scrivi DataEstrazione (es-j) & "( " & SiglaRuota(rr) & " ) - [ "& StringaEstratti (es-j,rr)_
& " ] "& j &"°"& "Estr. prec."
Scrivi
Scrivi "Ambi Rilevati [ "& ne(1) &" "& ne(2) &" ] [ "& ne(3) &" "& ne(4) &" ] pos < "_
& p &"° "& pp &"° > "& " pos < "& k &"° - "& kk &"° > "
Scrivi
Scrivi "Pre. Figura="& cfi &" Pre. Decina="& cde &" Pre. Cadenza="& cca
Scrivi
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp,1


Gioca es
End If
End If
End If
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto

ColoreTesto 1
Scrivi "°°°esselotto°°°",1
scrivi"Speciale Tecnica di Previsione",1
Scrivi"Autore...* (Fabbari)",1

End Sub





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

 

[esselotto]

Ciao miki questo rileva se l'ultimo numero, e sortito
tra un ambo di ricerca e l'atro.

LISTATO PER LA SELEZIONA AMBI IN CIFRE UGUALI
LEGGETEVI POST PER CAPIRE MEGLIO.

PRELEVARE SOLO PARTE COLORATA BLU.



'''Metodo Speciale Tecnica di Previsione Fabarri
''''da * esselotto * per * Miky 55 *
' ''''considero 3 estrazioni precedenti sempre ambi uniti

Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim ne(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5)
Dim nu(2)
Dim cif(8)
Dim numcif(10)
Dim cifre(4)
Dim j,z
poambata(1)=1 : poambo(2)=1

ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (15," ")& "Speciale Tecnica di Previsione Fabarri (Solo Cifre uguali)",1
ColoreTesto 1
Scrivi String (15," ")& "programmed by °°°esselotto°°° per miki55 LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1



indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Speciale Tecnica",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Speciale Tecnica",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)

For r=1 To 10
rt(1)=r

For p=1 To 4
pp=p+1
ne(1)=Estratto (es,r,p)
ne(2)=Estratto (es,r,pp)
so1=Fuori90 (ne(1)+ ne(2))


For j= 0 To 3 ' inizio la ricerca dalla estrazione corrente a quelle a ritroso max 3

For rr=1 To 10

If j=0 Then ' considero isotopia estrazione attuale
rt(2)=rr
k=p:kk=pp
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 (ne(3)+ne(4))
End If

If j<> 0 Then ' estrazioni precedenti non considero isotopia
For k= 1 To 4
rt(2)=rr
kk=k+1
ne(3)=Estratto (es-j,rr,k)
ne(4)=Estratto (es-j,rr,kk)
so2=Fuori90 ( ne(3)+ne(4))

dif1=Abs(ne(1)-ne(4)) ' 1° e 4°
dif2=Abs( ne(2)-ne(3))' 2° e 3°

If so1=so2 And dif1 = dif2 Then '
If ne(1)<>ne(3)And ne(1)<>ne(4) And ne(2)<>ne(3) And ne(2)<> ne(4) Then ' no ambi doppi
' Faccio un controllo delle decine
tgem=0
If Gemello (a)=True Then tgem=1
If Gemello (b)=True Then tgem=1
If Gemello(c)=True Then tgem=1
If Gemello(d)=True Then tgem=1
'If tgem=0 Then ' se non ci sono gemelli


ne(1)=Format2 (ne(1))
ne(2)=Format2(ne(2))
ne(3)=Format2 (ne(3))
ne(4)=Format2(ne(4))

''''''''prendo e poi controllo cifre
zc=0
For zz= 1 To 4
zc=zc+1
cif(zc)=Left(ne(zz),1)
zc=zc+1
cif(zc)=Right (ne(zz),1)
Next

'''' numcif(10)
For y=0 To 9 :numcif=0: Next ' azzero

For w= 0 To 9
For ww= 1 To 8
If CInt(cif(ww))=w Then numcif(w)=numcif(w)+1
Next
Next
trovato=0

For y= 0 To 9
If numcif=2 Then : trovato=trovato+1: cifre(trovato)=y
Next

If trovato=4 Then 'cifre 4 coppie di 2

If j>0 Then ' se estrazioni indietro ambata ne(2) altrim ne(4)
am=CInt(ne(2))
Else
am=CInt(ne(4))
End If
''''' controllo se nelle estrazioni a ritroso prima del secondo ambo
''' non è sortito ultimo numero

' controllo se tra un ambo e l'altro ci sia la sortita di un numero
sorte=0
For z=1 To j ' vado indietro
For ra= 1 To 10
If ra=r Or ra= rr And r<>rr Then
For v= 1 To 5
If am=CInt(Estratto (es-z,ra,v) ) Then sorte=sorte+1
Next
End If
Next
Next
If sorte=0 Then


ne(1)=Format2 (ne(1))
ne(2)=Format2(ne(2))
ne(3)=Format2 (ne(3))
ne(4)=Format2(ne(4))

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti (es,r) & " ] "
Scrivi DataEstrazione (es-j) & "( " & SiglaRuota(rr) & " ) - [ "& StringaEstratti (es-j,rr)_
& " ] "& j &"°"& "Estr. prec."
Scrivi
Scrivi "Ambi Rilevati [ "& ne(1) &" "& ne(2) &" ] [ "& ne(3) &" "& ne(4) &" ] pos < "_
& p &"° "& pp &"° > "& " pos < "& k &"° - "& kk &"°

 

[esselotto]

sul listato delle cifre c'è solo sbaglio ( se cosi si puo chiamare)
01 43 34 10 lo zero del 1 è considerato cifra, e lo zero del 10 è considerato cifra,
quindi il programma mi trova 2 cifre.
lascio o modifico ( Eliminando i numeretti ) guarda il risultato.





Casi che ho trovato con lo (sbaglio). su 50 estrazioni indietro
ci sono 12 casi del genere su un totale di 42.

controlla tu stesso

05.06.2010( Ba ) - [ 20.49.61.16.45 ] 
01.06.2010( To ) - [ 32.82.07.70.01 ] 2°Estr. prec.

Ambi Rilevati     [ 61 16 ]  [ 07 70 ]  pos < 3° 4°  >  pos < 3° - 4°  > 

Presenze Cifre =  ( 0 )2pr.  ( 1 )2pr.  ( 6 )2pr.  ( 7 )2pr. 

sab 05.06.2010  [8229]
  G  1:  M    16   Ba To    9/9    
     negativo






10.06.2010( Ba ) - [ 71.90.74.01.47 ] 
03.06.2010( Pa ) - [ 45.34.07.41.06 ] 3°Estr. prec.

Ambi Rilevati     [ 01 47 ]  [ 07 41 ]  pos < 4° 5°  >  pos < 3° - 4°  > 

Presenze Cifre =  ( 0 )2pr.  ( 1 )2pr.  ( 4 )2pr.  ( 7 )2pr. 

gio 10.06.2010  [8231]
  G  1:  M    47   Ba Pa    2/9    
     M  47               su Ba    2° colpo   [8233/15.06.2010]
     I2





10.06.2010( Ro ) - [ 25.65.53.37.04 ] 
03.06.2010( Pa ) - [ 45.34.07.41.06 ] 3°Estr. prec.

Ambi Rilevati     [ 37 04 ]  [ 34 07 ]  pos < 4° 5°  >  pos < 2° - 3°  > 

Presenze Cifre =  ( 0 )2pr.  ( 3 )2pr.  ( 4 )2pr.  ( 7 )2pr. 

gio 10.06.2010  [8231]
  G  1:  M    04   Pa Ro    2/9    
     M  04               su Pa    2° colpo   [8233/15.06.2010]
     I2







15.06.2010( Pa ) - [ 23.04.09.66.56 ] 
10.06.2010( Mi ) - [ 43.83.03.24.50 ] 2°Estr. prec.

Ambi Rilevati     [ 23 04 ]  [ 03 24 ]  pos < 1° 2°  >  pos < 3° - 4°  > 

Presenze Cifre =  ( 0 )2pr.  ( 2 )2pr.  ( 3 )2pr.  ( 4 )2pr. 

mar 15.06.2010  [8233]
  G  1:  M    04   Mi Pa    9/9    
     negativo






24.06.2010( Fi ) - [ 37.22.76.04.31 ] 
19.06.2010( Ve ) - [ 16.74.06.36.45 ] 2°Estr. prec.

Ambi Rilevati     [ 76 04 ]  [ 74 06 ]  pos < 3° 4°  >  pos < 2° - 3°  > 

Presenze Cifre =  ( 0 )2pr.  ( 4 )2pr.  ( 6 )2pr.  ( 7 )2pr. 

gio 24.06.2010  [8237]
  G  1:  M    04   Fi Ve    9/9    
     negativo





01.07.2010( Ve ) - [ 56.08.24.07.48 ] 
24.06.2010( Ba ) - [ 62.21.28.48.07 ] 3°Estr. prec.

Ambi Rilevati     [ 07 48 ]  [ 48 07 ]  pos < 4° 5°  >  pos < 4° - 5°  > 

Presenze Cifre =  ( 0 )2pr.  ( 4 )2pr.  ( 7 )2pr.  ( 8 )2pr. 

gio 01.07.2010  [8240]
  G  1:  M    48   Ba Ve    4/9    
     M  48               su Ve    4° colpo   [8244/10.07.2010]
     I4





24.07.2010( Fi ) - [ 18.08.14.09.58 ] 
20.07.2010( Ca ) - [ 12.24.56.19.04 ] 2°Estr. prec.

Ambi Rilevati     [ 14 09 ]  [ 19 04 ]  pos < 3° 4°  >  pos < 4° - 5°  > 

Presenze Cifre =  ( 0 )2pr.  ( 1 )2pr.  ( 4 )2pr.  ( 9 )2pr. 

sab 24.07.2010  [8250]
  G  1:  M    09   Ca Fi    4/9    
     M  09               su Fi    4° colpo   [8254/03.08.2010]
     I4









03.08.2010( To ) - [ 31.04.39.88.75 ] 
27.07.2010( To ) - [ 37.34.01.70.63 ] 3°Estr. prec.

Ambi Rilevati     [ 31 04 ]  [ 34 01 ]  pos < 1° 2°  >  pos < 2° - 3°  > 

Presenze Cifre =  ( 0 )2pr.  ( 1 )2pr.  ( 3 )2pr.  ( 4 )2pr. 

mar 03.08.2010  [8254]
  G  1:  M    04   To    9/9    
     negativo






03.08.2010( Ve ) - [ 40.09.54.28.47 ] 
31.07.2010( Ba ) - [ 34.04.59.52.29 ] 1°Estr. prec.

Ambi Rilevati     [ 09 54 ]  [ 04 59 ]  pos < 2° 3°  >  pos < 2° - 3°  > 

Presenze Cifre =  ( 0 )2pr.  ( 4 )2pr.  ( 5 )2pr.  ( 9 )2pr. 

mar 03.08.2010  [8254]
  G  1:  M    54   Ba Ve    5/9    
     M  54               su Ve    5° colpo   [8259/14.08.2010]
     I5







05.08.2010( Fi ) - [ 63.83.24.09.34 ] 
03.08.2010( To ) - [ 31.04.39.88.75 ] 1°Estr. prec.

Ambi Rilevati     [ 09 34 ]  [ 04 39 ]  pos < 4° 5°  >  pos < 2° - 3°  > 

Presenze Cifre =  ( 0 )2pr.  ( 3 )2pr.  ( 4 )2pr.  ( 9 )2pr. 

gio 05.08.2010  [8255]
  G  1:  M    34   Fi To    7/9    
     M  34               su To

 

[esselotto]

Ormai il listato è fatto le modifiche si fanno subito.

 

[miki55]

grazie esselotto, tuttok grazie

 

[esselotto]

ciao miki
Buon metodo ma va ritoccato.
prova a cambiare un po lo script.
Se ricordo bene te la cavi anche, con gli script?