LottoGAM Forum

Posts written by Cinzia28

view post Posted: 3/8/2020, 21:36 Richiesta SCRIPT su Isocroni continui - Aiuto per Listati
Ciao, Miki55@.
Ti ho messo lo script anche in privato.
Ma ora che vedo questa tabella non credo di aver capito.
Ad ogni modo, ecco lo script.

SPOILER (clicca per visualizzare)
'Estratto in sincronismo continuo che ha superato ritardo scelto - storico e attuale (Cinzia)
Sub main()
Dim n(1),ru(1)
w=18' Qui è possibile modificare il ritardo
For es=2 To EstrazioneFin' iniziare almeno dall' estrazione n. 2
For r=1 To 10
ru(1)=r
If Estratto(es-1,r,1)>0 Then
If Estratto(es,r,1)>0 Then
For p=1 To 5
a=Estratto(es-1,r,p)
For p1=1 To 5
a1=Estratto(es,r,p1)
If a=a1 Then
n(1)=a
s=SeriePrima(es+1,EstrazioneFin,n,ru,1)
If s>0 Then
st=s-es
If st>w Then
If st>mx Then mx=st
casi=casi+1
Scrivi FormatSpace(es-1,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
End If
Else
If s=0 Then
at=EstrazioneFin-es
If at>w Then
If at>mx1 Then mx1=at
casi1=casi1+1
ColoreTesto 1
Scrivi FormatSpace(es-1,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0

End If
End If
End If
End If
Next
Next
End If
End If
Next
Next
Scrivi
Scrivi "Casi storici con ritardo > a "&w&" = "&casi
Scrivi "Il massimo ritardo storico è di "&mx
Scrivi
Scrivi "Casi attuali con ritardo > a "&w&" = "&casi1
Scrivi "Il massimo ritardo attuale è di "&mx1
Scrivi



End Sub
view post Posted: 3/8/2020, 20:50 NUOVO: previsioni veloci veloci - Area libera
Speriamo di no Professore.
E ancor peggio se emula il pentambo 31.84;31.85;31.83;84.32;84.30
che molto più indietro (14/6/1874)ha raggiunto il ritardo di 143, il solo che supera
quello da te segnalato.
Raccomando molta prudenza.

Ciao a tutti :)
view post Posted: 2/8/2020, 23:18 NUOVO: previsioni veloci veloci - Area libera
Grazie, Mirtiz,Prof., Moro, Micro.
La previsione conclusa era interessante perché costituita da tre ambi più ambetti con stesso ritardo
che si trovavano al secondo posto come ritardo.
La prima posizione è sempre occupata dal seguente ambo più ambetto

06.57;06.58;06.56;57.07;57.05 78

sempre su tutte.
Vediamo se continua a resistere.

Per Moro: anch' io preferisco previsioni argomentate.

Ciao a tutti
view post Posted: 1/8/2020, 19:59 NUOVO: previsioni veloci veloci - Area libera
CITAZIONE (Cinzia28 @ 5/7/2020, 15:14) 
Grazie anche al Prof. e a Mirtiz
Ora, con la consueta prudenza, vi propongo questi 3 ambetti più ambo su tutte
04.79;04.80;04.78;79.05;79.03 at 62 st 89
08.57;08.58;08.56;57.09;57.07 at 62 st 74
21.86;21.87;21.85;86.22;86.20 at 62 st 63

Buona domenica.
Cinzia

Uscito infine ultimo ambo e ambetto con 05.79.
Gioco chiuso.
view post Posted: 20/7/2020, 23:18 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Ciao, Silop.
Per quanto mi riguarda, bisogna cambiare totalmente listato per attuare la tua variante.
Vedrò cosa posso fare.
view post Posted: 19/7/2020, 11:48 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Ringrazio anche Silop2005 per il contributo.
Posto le versione
dei gemelli e dei radicali.

SPOILER (clicca per visualizzare)
'Ricerca di Micro : numeri nella stessa Posizione gemelli - quantità a scelta- ritardi storici e attuali Estratto determinato ( Cinzia)

Sub main()
Dim n(1),ru(1)
q=100:q1=150:q2=200
qq=30:qq1=40:qq2=50
For es=3950 To EstrazioneFin'3950
c=0:max=0


For p=1 To 5
c=0:max=0

For rr=1 To 10
a=Estratto(es,rr,p)
If Gemello(a)=True Then c=c+1
Next
If c=5 Then'-------------------------> quantità gemelli
casi=casi+1
Scrivi
For r=1 To 10
ru(1)=r
b=Estratto(es,r,p)
If Gemello(b)=True Then
n(1)=b
s=SeriePrima(es+1,EstrazioneFin,n,ru,p+5)
If s>0 Then

d=EstrazioneFin-s
st=s-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" n. "&format2(n(1))&" st "&FormatSpace(st,4,1)
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" n. "&format2(n(1))&" st "&FormatSpace(st,4,1)

If d>max Then max=d :mn=st
If st>mx Then mx=st
If st>q Then con=con+1
If st>q1 Then con1=con1+1
If st>q2 Then con2=con2+1
Else
If s=0 Or SerieRitardo(EstrazioneFin-1000,EstrazioneFin,n,ru,1)=0 Then
at=EstrazioneFin-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" n. "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 1
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0
End If
End If
End If
Next
Scrivi "Caso "&FormatSpace(casi,4,1)
Scrivi "Ritardo minimo "&mn
If mn>max1 Then max1=mn
If mn>qq Then cont=cont+1
If mn>qq1 Then cont1=cont1+1
If mn>qq2 Then cont2=cont2+1

End If
Next
Next

Scrivi
Scrivi "'Massimo storico singolo estratto determinato "&mx
Scrivi "'St>"&q&" "&con
Scrivi "'St>"&q1&" "&con1
Scrivi "'St>"&q2&" "&con2
Scrivi
Scrivi "'Massimo storico serie estratti determinati "&max1
Scrivi "'St serie> "&qq&" "&cont
Scrivi "'St serie> "&qq1&" "&cont1
Scrivi "'St serie> "&qq2&" "&cont2

End Sub




SPOILER (clicca per visualizzare)
'Ricerca di Micro : numeri nella stessa Posizione con uguale radicale - quantità a scelta- storici e attuali Estratto determinato ( Cinzia)

Sub main()
Dim n(1),ru(1)
q=400:q1=500:q2=600
qq=40:qq1=50:qq2=60
For es=3950 To EstrazioneFin'3950
c=0:max=0
For cd=1 To 8
c=0:max=0
For p=1 To 5
c=0:max=0
For rr=1 To 10
a=Estratto(es,rr,p)
If Radicale(a)=cd Then c=c+1
Next
If c=4 Then'-------------------------> quantità radicali uguali
Scrivi
For r=1 To 10
ru(1)=r
b=Estratto(es,r,p)
If radicale(b)=cd Then
n(1)=b
s=SeriePrima(es+1,EstrazioneFin,n,ru,p+5)
If s>0 Then
d=EstrazioneFin-s
st=s-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
If d>max Then max=d :mn=st
If st>mx Then mx=st
If st>q Then con=con+1
If st>q1 Then con1=con1+1
If st>q2 Then con2=con2+1
Else
If s=0 Or SerieRitardo(EstrazioneFin-1000,EstrazioneFin,n,ru,1)=0 Then
at=EstrazioneFin-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 1
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0
End If
End If
End If
Next
Scrivi mn
If mn>max1 Then max1=mn
If mn>qq Then cont=cont+1
If mn>qq1 Then cont1=cont1+1
If mn>qq2 Then cont2=cont2+1

End If
Next
Next
Next
Scrivi
Scrivi "'Massimo storico singolo estratto determinato "&mx
Scrivi "'St>"&q&" "&con
Scrivi "'St>"&q1&" "&con1
Scrivi "'St>"&q2&" "&con2
Scrivi
Scrivi "'Massimo storico serie estratti determinati "&max1
Scrivi "'St serie> "&qq&" "&cont
Scrivi "'St serie> "&qq1&" "&cont1
Scrivi "'St serie> "&qq2&" "&cont2

End Sub
view post Posted: 19/7/2020, 11:05 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Bravo, Micro.
Non mi aspettavo un esito così rapido.
view post Posted: 17/7/2020, 23:27 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Ciao, Micro.
Grazie per l' apprezzamento.
E anche per aver evidenziato questo caso che si è scoperto essere unico nel panorama estrazionale.
view post Posted: 15/7/2020, 16:05 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Ciao, Micro.
Ho modificato il precedente listato per le sortite come estratto determinato.
Ho anche aggiunto il minimo ritardo storico di uscita della serie.
Cinzia

SPOILER (clicca per visualizzare)
'Ricerca di Micro : numeri nella stessa Posizione con uguale Cadenza - quantità a scelta- storici e attuali Estratto determinato ( Cinzia)
Sub main()
Dim n(1),ru(1)
q=400:q1=500:q2=600
qq=40:qq1=50:qq2=60
For es=3950 To EstrazioneFin'3950
c=0:max=0
For cd=0 To 9
c=0:max=0
For p=1 To 5
c=0:max=0
For rr=1 To 10
a=Estratto(es,rr,p)
If Cadenza(a)=cd Then c=c+1
Next
If c=5 Then'-------------------------> quantità cadenze uguali
Scrivi
For r=1 To 10
ru(1)=r
b=Estratto(es,r,p)
If Cadenza(b)=cd Then
n(1)=b
s=SeriePrima(es+1,EstrazioneFin,n,ru,p+5)
If s>0 Then
d=EstrazioneFin-s
st=s-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
If d>max Then max=d :mn=st
If st>mx Then mx=st
If st>q Then con=con+1
If st>q1 Then con1=con1+1
If st>q2 Then con2=con2+1
Else
If s=0 Or SerieRitardo(EstrazioneFin-1000,EstrazioneFin,n,ru,1)=0 Then
at=EstrazioneFin-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 1
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0
End If
End If
End If
Next
Scrivi mn
If mn>max1 Then max1=mn
If mn>qq Then cont=cont+1
If mn>qq1 Then cont1=cont1+1
If mn>qq2 Then cont2=cont2+1

End If
Next
Next
Next
Scrivi
Scrivi "Massimo storico singolo estratto determinato "&mx
Scrivi "St>"&q&" "&con
Scrivi "St>"&q1&" "&con1
Scrivi "St>"&q2&" "&con2
Scrivi
Scrivi "Massimo storico serie estratti determinati "&max1
Scrivi "St serie> "&qq&" "&cont
Scrivi "St serie> "&qq1&" "&cont1
Scrivi "St serie> "&qq2&" "&cont2

End Sub
view post Posted: 14/7/2020, 13:58 script per presenze di cadenze determinate,laddove ve ne siano ben 8, come nell'estrazione dell'11 luglio 2020 - Aiuto per Listati
Ciao, Micro.
Spero di aver ben interpretato le tue istruzioni.
Nello script puoi variare la quantità di numeri con la stessa cadenza.
Se vi sono errori fammelo sapere.
Ciao
Cinzia
SPOILER (clicca per visualizzare)
'Ricerca di Micro : numeri nella stessa Posizione con uguale Cadenza - quantità a scelta ( Cinzia)
Sub main()
Dim n(1),ru(1)
q=40:q1=50:q2=60
For es=3950 To EstrazioneFin
c=0
For cd=0 To 9
c=0
For p=1 To 5
c=0
For rr=1 To 10
a=Estratto(es,rr,p)
If Cadenza(a)=cd Then c=c+1
Next
If c=5 Then'-------------------------> quantità cadenze uguali
For r=1 To 10
ru(1)=r
b=Estratto(es,r,p)
If Cadenza(b)=cd Then
n(1)=b
s=SeriePrima(es+1,EstrazioneFin,n,ru,1)
If s>0 Then
st=s-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
If st>mx Then mx=st
If st>q Then con=con+1
If st>q1 Then con1=con1+1
If st>q2 Then con2=con2+1
Else
If s=0 Or SerieRitardo(EstrazioneFin-300,EstrazioneFin,n,ru,1)=0 Then
at=estrazionefin-es
Messaggio FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 1
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" pos. "&FormatSpace(p,2,1)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0
End If
End If
End If
Next
End If
Next
Next
Next
Scrivi
Scrivi "Massimo storico "&mx
Scrivi "St>"&q&" "&con
Scrivi "St>"&q1&" "&con1
Scrivi "St>"&q2&" "&con2
End Sub
view post Posted: 11/7/2020, 18:18 NUOVO: previsioni veloci veloci - Area libera
Grazie, Mirtiz. Vero, Questa volta sono stata precisa :D
view post Posted: 10/7/2020, 20:34 gemelli uniti per vincere - Area libera
Bravo, Mattsimo.
view post Posted: 10/7/2020, 19:58 NUOVO: previsioni veloci veloci - Area libera
Moro, Micro, grazie. :)
view post Posted: 10/7/2020, 16:14 NUOVO: previsioni veloci veloci - Area libera
Grazie, Prof. !
Speriamo.
view post Posted: 9/7/2020, 20:17 Vertibili su ruota fissa - Area libera
Bravo, Prof. !
188 replies since 20/3/2020
Filter forums
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree