Novità

Cinquine non concluse

Roma uscito il 59 cosa vuol dire?

Roma =============================================================
29.07.2021 24.35.90.25.59 35 59 24 25 90
07.08.2021 -- -- -- -- -- -- -- 48 42 81 59 35
10.08.2021 -- -- -- -- -- -- -- 25 24 13 15 11
===================================================================
anche la soluzione di aggiungere la sortita eventuale dell'ambo.... è da considerare...
 
Grazie, Ramco.
Pensavo che si capisse.
Per gli ambi, si. qualche volta escono. Prima della drastica riduzione, scorrendo indietro di qualche estrazione, ho
visto anche un terno.
Comunque, con così pochi casi se esce una ambo è già tanto.
 
E' uscito solo il 71.
Si continua a seguire queste cinquine anche solo virtualmente queste cinquine

Ricordarsi di non considerare quella in cui vi è qualche sortita ( in questo caso la 7)

Prima della conclusione della cinquina(Cinzia)

********************************************************************************
Estrazione finale 9967 21.08.2021

1 9930 27.05.2021 To 85.89.72.14.25 Ritardo 37 ---> 85 89 72 14
2 9952 17.07.2021 Pa 69.54.81.86.37 Ritardo 15 ---> 69 54 86 37
3 9953 20.07.2021 Fi 05.03.75.12.90 Ritardo 14 ---> 05 03 75 12
4 9953 20.07.2021 Pa 13.44.39.87.53 Ritardo 14 ---> 13 44 39 53
5 9957 29.07.2021 To 47.40.55.82.18 Ritardo 10 ---> 47 40 82 18
6 9957 29.07.2021 Ve 40.76.63.29.44 Ritardo 10 ---> 40 76 63 29
7 9958 31.07.2021 To 52.04.71.68.13 Ritardo 9 ---> 52 04 71 13 sortito 71

Sortiti all'ultima estrazione 1 numeri
 
Chiedo scusa se mi intometto......ma a me sembra che ci sia un errore nello script......sicuro mi sbaglio,vista la mia poca competenza in materia di script,potete controllare questo?



fr2 = SerieFreq(fin,fin,n2,ru,1)
fre2 = SerieFreq(es + 1,fin - 2,n1,ru,1)
If fr2 > 0 And fre1 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n2(1)) & " ",1,0
If fr2 > 0 And fre1 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n2(1)) & " ",0,0
/\......non dovrebbero esserci 2 2?
 
E' vero, l' errore c'è, grazie per avermelo fatto notare.
Metto nuovamente lo script
Se noti qualcos' altro fammelo sapere.


Codice:
Scrivi "Prima della conclusione della cinquina(Cinzia)" & Chr(10)
'Cinquine valide solo quelle in cui i primi 4 estratti usciti sono sortiti una sola volta
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub Main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),ru(1),nu(5),nr(5)
Dim s(5)
fin = EstrazioneFin
ini = 9800
Scrivi "Estrazione finale " & Fin &"  "& DataEstrazione(fin) : Scrivi

For es = ini To fin
Messaggio(es)
   For r = 1 To 11
      If r = 11 Then r = 12
 
ru(1) = r

n1(1) = Estratto(es,r,1)
n2(1) = Estratto(es,r,2)
n3(1) = Estratto(es,r,3)
n4(1) = Estratto(es,r,4)
n5(1) = Estratto(es,r,5)
nr(1) = n1(1)
nr(2) = n2(1)
nr(3) = n3(1)
nr(4) = n4(1)
nr(5) = n5(1)
fra = SerieFreq(es + 1,fin - 1,nr,ru,1)
   If fra < 5 Then
      ex = es + 1
      If ex <= fin Then
s(1) = SeriePrima(ex,fin - 1,n1,ru,1)
s(2) = SeriePrima(ex,fin - 1,n2,ru,1)
s(3) = SeriePrima(ex,fin - 1,n3,ru,1)
s(4) = SeriePrima(ex,fin - 1,n4,ru,1)
s(5) = SeriePrima(ex,fin - 1,n5,ru,1)
OrdinaMatrice s,1
         If s(1) = 0 And s(2) > 0 Then



'If s(5)=0 Or s(4)=0 Or s(3)=0  Or s(2)=0 Or s(1)=0  Then
rt = fin - es
c = c + 1
Scrivi FormatSpace(c,4,1) & "  " & es &"  "& DataEstrazione(es) &"  "& SiglaRuota(r) & "  " & StringaEstratti(es,r) & "   Ritardo " & FormatSpace(rt,4,1) & " ---> ",0,0
frr1 = SerieFreq(es + 1,fin - 1,n1,ru,1)
frr2 = SerieFreq(es + 1,fin - 1,n2,ru,1)
frr3 = SerieFreq(es + 1,fin - 1,n3,ru,1)
frr4 = SerieFreq(es + 1,fin - 1,n4,ru,1)
frr5 = SerieFreq(es + 1,fin - 1,n5,ru,1)
If frr1 > 0 Then Scrivi Format2(n1(1)) & " ",0,0
If frr2 > 0 Then Scrivi Format2(n2(1)) & " ",0,0
If frr3 > 0 Then Scrivi Format2(n3(1)) & " ",0,0
If frr4 > 0 Then Scrivi Format2(n4(1)) & " ",0,0
If frr5 > 0 Then Scrivi Format2(n5(1)) & " ",0,0

fr1 = SerieFreq(fin,fin,n1,ru,1)
fre1 = SerieFreq(es + 1,fin - 1,n1,ru,1)
If fr1 > 0 And fre1 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n1(1)) & " ",1,0
If fr1 > 0 And fre1 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n1(1)) & " ",0,0
 
fr2 = SerieFreq(fin,fin,n2,ru,1)
fre2 = SerieFreq(es + 1,fin - 1,n2,ru,1)
If fr2 > 0 And fre2 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n2(1)) & " ",1,0
If fr2 > 0 And fre2 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n2(1)) & " ",0,0

fr3 = SerieFreq(fin,fin,n3,ru,1)
fre3 = SerieFreq(es + 1,fin - 1,n3,ru,1)
If fr3 > 0 And fre3 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n3(1)) & " ",1,0
If fr3 > 0 And fre3 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n3(1)) & " ",0,0

fr4 = SerieFreq(fin,fin,n4,ru,1)
fre4 = SerieFreq(es + 1,fin - 1,n4,ru,1)
If fr4 > 0 And fre4 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n4(1)) & " ",1,0
If fr4 > 0 And fre4 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n4(1)) & " ",0,0

fr5 = SerieFreq(fin,fin,n5,ru,1)
fre5 = SerieFreq(es + 1,fin - 1,n5,ru,1)
If fr5 > 0 And fre5 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n5(1)) & " ",1,0
If fr5 > 0 And fre5 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n5(1)) & " ",0,0
ColoreTesto 0
Scrivi
            End If
         End If
      End If
   Next
Next
Scrivi : Scrivi "Sortiti all'ultima estrazione "& usc &" numeri"

End Sub
 
Alla luce della correzione ecco i 2 ultimi risultati

Estrazione finale 9966 19.08.2021

1 9929 25.05.2021 BA 75.43.01.56.31 Ritardo 37 ---> 75 43 01 56 sortito 56
2 9950 13.07.2021 VE 04.67.62.30.14 Ritardo 16 ---> 04 67 30 14 sortito 14
3 9951 15.07.2021 VE 35.71.76.89.82 Ritardo 15 ---> 35 76 89 82 sortito 76 sortito 82
4 9952 17.07.2021 PA 69.54.81.86.37 Ritardo 14 ---> 69 54 86 37
5 9953 20.07.2021 FI 05.03.75.12.90 Ritardo 13 ---> 05 03 75 12
6 9957 29.07.2021 RO 24.35.90.25.59 Ritardo 9 ---> 24 35 25 59 sortito 59
7 9957 29.07.2021 TO 47.40.55.82.18 Ritardo 9 ---> 47 40 82 18
8 9958 31.07.2021 TO 52.04.71.68.13 Ritardo 8 ---> 52 04 71 13

Sortiti all'ultima estrazione 5 numeri

Estrazione finale 9967 21.08.2021

1 9930 27.05.2021 TO 85.89.72.14.25 Ritardo 37 ---> 85 89 72 14
2 9952 17.07.2021 PA 69.54.81.86.37 Ritardo 15 ---> 69 54 86 37
3 9953 20.07.2021 FI 05.03.75.12.90 Ritardo 14 ---> 05 03 75 12
4 9953 20.07.2021 PA 13.44.39.87.53 Ritardo 14 ---> 13 44 39 53
5 9957 29.07.2021 TO 47.40.55.82.18 Ritardo 10 ---> 47 40 82 18
6 9957 29.07.2021 VE 40.76.63.29.44 Ritardo 10 ---> 40 76 63 29

7 9958 31.07.2021 TO 52.04.71.68.13 Ritardo 9 ---> 52 04 71 13 sortito 71

Sortiti all'ultima estrazione 1 numeri

Cinquine valide per martedì quelle in neretto
 
Ciao Cinzia.

Buona domenica a tutte/i.

Non mi riesce di capire perché o come mai consideri solo una parte dei pronostici.

Roma per esempio l'hai detta esclusa per la caduta del 59 il 19/08/2021.

Ma poi il suo 90 lo mantiene a ritardo ancora crescente.

Il risultato chiude il pronostico definitivamente ?

:)

Untitled.jpg
 
Visto la miriade di casi... penso sia valido il sunto proposto ad inizio tread... (che riscrivo qui)
1) l'ultimo elemento della cinquina sincrona non sortito, è quel numero che potrebbe anche divenire il ritardatario di turno e quindi l'eventuale gioco diviene "pericoloso", per questo motivo si erano fissati parametri guida per condurre un eventuale gioco alternativo.
2) Il periodo di analisi partiva dall'inizio del 2° ciclo teorico per estratto (quindi dalla 19esima estrazione) fino alla 54esima estrazione (negli esempi vecchi ci si spingeva anche fino alla 63°esima)
3) alla 19esima estrazione dovevano essere risortiti almeno tre elementi (ovviamente non ri-combinati in ambo)
4) questa era l'ipotetica situazione all'estrazione 19esima: (A,B,C,D,E sono gli elementi in cinquina) A= non sortito ; B=non sortito ; C=sortito; D=sortito; E=sortito
5) il gioco poteva partire in questo modo: ambi A.B; A.C; A.D; A.E; B.C; B.D; B.E (totale 7 ambi)
6) Alla sortita di A o B, inizia il momento della cinquina non cocnlusa lasciando l'ultimo elemento isolato (ipotizziamo sortisca B e rimane "A")
7) Il gioco cambiava in: A.B; A.C; A.D; A.E + B.C.D.E (ecco la quartina) quindi 4 ambi secchi + 1 quartina

In sostanza un pò di regole per fissare una sorte di gioco d'ambo secco o quartina, vincolando un minimo di ritardo su cui far partire il tutto.. i casi diventano valutabili...
 
Ciao, Ramco. Per me va bene anche la tua soluzione, dovremo provarla sul campo. Se vuoi puoi adattare lo script, se hai tempo, altrimenti
ci provo io.
 
...fai pure tu... vai come un treno!!! (e chi ti ferma più!) poi vediamo...





stanlio_e_ollio_che_ridono.gif





788062362_2Q8Ms7Zl.gif
 
Giusto Ramco , sono solo battute per sorridere per i troppi tubi che facciamo con il lotto io sono diventato un idraulico spaziale ho una montagna di tubi, su su diamoci da fare.
 
Questo script più di manica larga esclude le cinquine che hanno già dato ambo.

Codice:
Scrivi "Prima della conclusione della cinquina(Cinzia)" & Chr(10)


ColoreTesto 6

Scrivi String(80,"*")

ColoreTesto 0

Sub Main()

Dim n1(1),n2(1),n3(1),n4(1),n5(1),ru(1),nu(5),nr(5)

Dim s(5)

fin = EstrazioneFin

ini = 9800

Scrivi "Estrazione finale " & Fin & "  " & DataEstrazione(fin) : Scrivi


For es = ini To fin

Messaggio(es)

   For r = 1 To 11

      If r = 11 Then r = 12

 

ru(1) = r


n1(1) = Estratto(es,r,1)

n2(1) = Estratto(es,r,2)

n3(1) = Estratto(es,r,3)

n4(1) = Estratto(es,r,4)

n5(1) = Estratto(es,r,5)

nr(1) = n1(1)

nr(2) = n2(1)

nr(3) = n3(1)

nr(4) = n4(1)

nr(5) = n5(1)

fra = SerieFreq(es + 1,fin - 1,nr,ru,2)
If fra=0 Then




      ex = es + 1

      If ex <= fin Then

s(1) = SeriePrima(ex,fin - 1,n1,ru,1)

s(2) = SeriePrima(ex,fin - 1,n2,ru,1)

s(3) = SeriePrima(ex,fin - 1,n3,ru,1)

s(4) = SeriePrima(ex,fin - 1,n4,ru,1)

s(5) = SeriePrima(ex,fin - 1,n5,ru,1)

OrdinaMatrice s,1

         If s(1) = 0 And s(2) > 0 Then


fra1 = SerieFreq(fin,fin,nr,ru,2)
If fra1>0 Then usc1=usc1+1
fra2 = SerieFreq(fin,fin,nr,ru,3)
If fra2>0 Then usc2=usc2+1

Scrivi


'If s(5)=0 Or s(4)=0 Or s(3)=0  Or s(2)=0 Or s(1)=0  Then

rt = fin - es

c = c + 1

Scrivi FormatSpace(c,4,1) & "  " & es & "  " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "   Ritardo " & FormatSpace(rt,4,1) & " ---> ",0,0

frr1 = SerieFreq(es + 1,fin - 1,n1,ru,1)

frr2 = SerieFreq(es + 1,fin - 1,n2,ru,1)

frr3 = SerieFreq(es + 1,fin - 1,n3,ru,1)

frr4 = SerieFreq(es + 1,fin - 1,n4,ru,1)

frr5 = SerieFreq(es + 1,fin - 1,n5,ru,1)

If frr1 > 0 Then Scrivi Format2(n1(1)) & " ",0,0

If frr2 > 0 Then Scrivi Format2(n2(1)) & " ",0,0

If frr3 > 0 Then Scrivi Format2(n3(1)) & " ",0,0

If frr4 > 0 Then Scrivi Format2(n4(1)) & " ",0,0

If frr5 > 0 Then Scrivi Format2(n5(1)) & " ",0,0


fr1 = SerieFreq(fin,fin,n1,ru,1)

fre1 = SerieFreq(es + 1,fin - 1,n1,ru,1)

If fr1 > 0 And fre1 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n1(1)) & " ",1,0

If fr1 > 0 And fre1 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n1(1)) & " ",0,0

 

fr2 = SerieFreq(fin,fin,n2,ru,1)

fre2 = SerieFreq(es + 1,fin - 1,n2,ru,1)

If fr2 > 0 And fre2 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n2(1)) & " ",1,0

If fr2 > 0 And fre2 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n2(1)) & " ",0,0


fr3 = SerieFreq(fin,fin,n3,ru,1)

fre3 = SerieFreq(es + 1,fin - 1,n3,ru,1)

If fr3 > 0 And fre3 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n3(1)) & " ",1,0

If fr3 > 0 And fre3 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n3(1)) & " ",0,0


fr4 = SerieFreq(fin,fin,n4,ru,1)

fre4 = SerieFreq(es + 1,fin - 1,n4,ru,1)

If fr4 > 0 And fre4 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n4(1)) & " ",1,0

If fr4 > 0 And fre4 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n4(1)) & " ",0,0


fr5 = SerieFreq(fin,fin,n5,ru,1)

fre5 = SerieFreq(es + 1,fin - 1,n5,ru,1)

If fr5 > 0 And fre5 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n5(1)) & " ",1,0

If fr5 > 0 And fre5 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n5(1)) & " ",0,0

ColoreTesto 0

            End If

         End If

     End If

   Next

Next

Scrivi : Scrivi "Ambate sortite all'ultima estrazione " & usc & " numeri"
Scrivi : Scrivi "Ambi sortiti all'ultima estrazione " & usc1
Scrivi : Scrivi "Terni sortiti all'ultima estrazione " & usc2

End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto