LottoGAM Forum

Per Micro :GE 31.52.63.74, SCRIPT

« Older   Newer »
  Share  
view post Posted on 26/10/2018, 11:19

Top Member

Group:
Member
Posts:
768

Status:


Un saluto a tutti e complimenti per i pronostici andati a buon fine

X micro :Ciao micro, non mi pare corrisponda a quanto hai scritto

su questa quartina nella sezione Sincronismo, ma spero ti possa essere utile ugualmente

HTML
'Sincrononi livello 4 con precedente posizione estrattiva uguale

Sub main()
Dim e(5)
Dim e1(1)
Dim e2(1)
Dim e3(1)
Dim e4(1)
Dim e5(1)
Dim ru(1)
Dim sp(10)
Dim sf(10)

ini=EstrazioneFin-160
fin=EstrazioneFin
Scrivi "Sincrononi livello 4 con precedente posizione estrattiva uguale" ,1
Scrivi

For r=1 To 10
ru(1)=r
For es=ini To fin
e(1)=0
e(2)=0
e(3)=0
e(4)=0
e(5)=0
e1(1)=Estratto(es,r,1)
e2(1)=Estratto(es,r,2)
e3(1)=Estratto(es,r,3)
e4(1)=Estratto(es,r,4)
e5(1)=Estratto(es,r,5)

su1=SerieUltima(es-200,es-1,e1,ru,1)
su2=SerieUltima(es-200,es-1,e2,ru,1)
su3=SerieUltima(es-200,es-1,e3,ru,1)
su4=SerieUltima(es-200,es-1,e4,ru,1)
su5=SerieUltima(es-200,es-1,e5,ru,1)

If Posizione(su1,r,e1(1))=1 Then e(1)=Estratto(es,r,1)
If Posizione(su2,r,e2(1))=2 Then e(2)=Estratto(es,r,2)
If Posizione(su3,r,e3(1))=3 Then e(3)=Estratto(es,r,3)
If Posizione(su4,r,e4(1))=4 Then e(4)=Estratto(es,r,4)
If Posizione(su5,r,e5(1))=5 Then e(5)=Estratto(es,r,5)

OrdinaMatrice(e)

If e(2)>0 Then
sf(r)=SerieFreq(es+1,fin,e,ru,1)
sp(r)=SeriePrima(es+1,fin,e,ru,1)

If sf(r)<1 Then
rc=fin-es
ColoreTesto 0
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" attualmente a RC "& FormatSpace(rc,4),0,1

Else

rcs=sp(r)-es-1
ColoreTesto 2
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" sortito a rc "& FormatSpace(rcs,4),0,1
End If
End If
Next
Next

End Sub


output col range impostato :

Ba 22.03.2018 sincronone 05.28.53.67 sortito a rc 0
Ca 30.06.2018 sincronone 03.52.67.70 sortito a rc 0
Ca 07.08.2018 sincronone 18.45.52.66 sortito a rc 8
Fi 10.03.2018 sincronone 31.79.80.89 sortito a rc 6
Ge 31.05.2018 sincronone 10.15.63.72 sortito a rc 2
Ge 29.09.2018 sincronone 31.52.63.74 attualmente a RC 11
Mi 28.07.2018 sincronone 71.79.81.83 sortito a rc 9
Pa 19.07.2018 sincronone 14.38.75.81 sortito a rc 0


Saluti
 
Top
view post Posted on 26/10/2018, 16:57

Top Member

Group:
Member
Posts:
1,292

Status:


Ciao g.silent, ho provato lo script e si ferma su =OrdinaMatrice(e)= errore script 449

Ho dato poi uno sguardo al pregresso che tu hai messo e ti faccio un esempio, così se vuoi si può variare lo script.

Ca 07.08.2018 sincronone 18.45.52.66 sortito a rc 8, a quella data devi considerare solo i numeri , a livello 0,== 52, 45, 66 ==e non il 18, perchè non è stato il 18 ad interrompere la sequenza di numeri tutti diversi(anzi la prolunga), ma, su quella colonna determinata l'aveva interrotta il 4, uscito un colpo prima, come anche il 26. Qui, in realtà ci sono solo 3 numeri che interrompono la sequenza dei determinati, come anche alcuni degli altri esempi che hai descritto(non li ho visti tutti)


Ba 22.03.2018 sincronone 05.28.53.67 sortito a rc 0, anche a questa data i numeri da prendere in considerazione sono solo il 5.28.53. e non il 67, infatti il 67 prolunga quella colonna determinata che era stata "ridotta" dal 18 uscito precedentemente mentre il 67 la prolunga...quindi non è un numero da tenere in considerazione.-5.28.53- invece lo fanno.

Ti ringrazio per lo script secondo me utilissimo anche per i sincrononi di livello 3 che interrompono la sequenzialità.


Diverso è il caso di Genova Ge 29.09.2018 sincronone 31.52.63.74 attualmente a RC 11
infatti tutti e 4 i numeri interrompono contemporaneamente le loro quattro colonne determinate che "presentavano" tutti numeri diversi e lo fanno, chiaramente alla stessa data, alla stessa estrazione e, importante, al rigo =0=.

Spero poi di non aver sbagliato l'esempio fatto

Firenze - 32 -73- 13- 66- in data 21/02/2015 con il 32 che esce al 14° colpo.

Cosi facendo,cioè con 4 numeri, i casi si riducono ma, al di fuori di questo sarebbe utile avere uno script sia per tre numeri che per quattro numeri su ruota.

GRAZIE!!

saluti

micro
 
Top
view post Posted on 27/10/2018, 07:06

Top Member

Group:
Member
Posts:
768

Status:


Ciao micro, purtroppo non sono in grado di modificare
lo script per togliere i numeri che non interrompono
la sequenza di numeri tutti diversi, mi spiace.

Anche con questa limitazione ho visto che gli esiti
avvengono in breve tempo, perciò ripropongo
lo script avendo modificato ordinamatrice,
aggiunto la ruota nazionale e aggiunto delle opzioni
che si attivano spostando l'apice:

'If e(1)>0 Then 'sincrononi livello 5
If e(1)<1 And e(2)>0 Then 'sincrononi livello 4
'If e(2)<1 And e(3)>0 Then 'sincrononi livello 3
'If e(3)>0 Then 'sincrononi livello 3-4-5 insieme

Un saluto a tutti

HTML
'Sincrononi livello 3-4-5 con precedente posizione estrattiva uguale

Sub main()
Dim e(5)
Dim e1(1)
Dim e2(1)
Dim e3(1)
Dim e4(1)
Dim e5(1)
Dim ru(1)
Dim sp(12)
Dim sf(12)

ini=EstrazioneFin-160
fin=EstrazioneFin
Scrivi "Sincrononi con precedente posizione estrattiva uguale" ,1
Scrivi
For es=ini To fin

For r=1 To 11
If r=11 Then r=12
ru(1)=r
e(1)=0
e(2)=0
e(3)=0
e(4)=0
e(5)=0
e1(1)=Estratto(es,r,1)
e2(1)=Estratto(es,r,2)
e3(1)=Estratto(es,r,3)
e4(1)=Estratto(es,r,4)
e5(1)=Estratto(es,r,5)

su1=SerieUltima(es-200,es-1,e1,ru,1)
su2=SerieUltima(es-200,es-1,e2,ru,1)
su3=SerieUltima(es-200,es-1,e3,ru,1)
su4=SerieUltima(es-200,es-1,e4,ru,1)
su5=SerieUltima(es-200,es-1,e5,ru,1)

If Posizione(su1,r,e1(1))=1 Then e(1)=Estratto(es,r,1)
If Posizione(su2,r,e2(1))=2 Then e(2)=Estratto(es,r,2)
If Posizione(su3,r,e3(1))=3 Then e(3)=Estratto(es,r,3)
If Posizione(su4,r,e4(1))=4 Then e(4)=Estratto(es,r,4)
If Posizione(su5,r,e5(1))=5 Then e(5)=Estratto(es,r,5)

OrdinaMatrice e,1

'If e(1)>0 Then 'sincrononi livello 5
If e(1)<1 And e(2)>0 Then 'sincrononi livello 4
'If e(2)<1 And e(3)>0 Then 'sincrononi livello 3
'If e(3)>0 Then 'sincrononi livello 3-4-5 insieme


sf(r)=SerieFreq(es+1,fin,e,ru,1)
sp(r)=SeriePrima(es+1,fin,e,ru,1)

If sf(r)<1 Then
rc=fin-es
ColoreTesto 0
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" attualmente a RC "& FormatSpace(rc,4),0,1

Else

rcs=sp(r)-es-1
ColoreTesto 2
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" sortito a rc "& FormatSpace(rcs,4),0,1
End If
End If
Next
Next

End Sub
 
Top
view post Posted on 27/10/2018, 07:23

Top Member

Group:
Member
Posts:
1,292

Status:


Grazie infinite g.silent, bravissimo!!

vedo che lo script va benissimo, aspettiamo ora l'esito di uno dei quattro...ho intanto qualche convergenza con il 31

saluti e buona giornata

micro
 
Top
view post Posted on 27/10/2018, 19:41

Top Member

Group:
Member
Posts:
1,292

Status:


Ecco cadere uno dei quattro: 63


saluti

micro
 
Top
view post Posted on 1/11/2018, 14:34

Top Member

Group:
Member
Posts:
1,292

Status:


Ciao, ho "messo in moto" il prezioso script di g.silent per i sincrononi di livello 3, dal 2008, con questo attuale risultato:


VE 13.09.2018 sincronone 9.46.64 attualmente a RC 19


devo dire che alcuni sincrononi, sempre nello stesso arco di tempo, hanno superato anche RC 30, non molti e una grande percentuale non supera quota RC 20.

La presenza del 46 corrispettivo sui due tabelloni comparativi fa buon sperare per questa unica ambata su ruota, a mio parere la migliore scelta è

Venezia 46


saluti

micro
 
Top
view post Posted on 6/11/2018, 22:00

Top Member

Group:
Member
Posts:
1,292

Status:


Venezia, caduto il

64

saluti
micro
 
Top
6 replies since 26/10/2018, 11:19   163 views
  Share