Cinquine non concluse

[Ramco]

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

 

[Cinzia27]

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.

 

[Cinzia27]

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

 

[Cinzia27]

Per martedì sono da considerare le prime sei.

 

[Marcorun]

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?

 

[Marcorun]

C'è un errore anche nella mia scrittura= intometto al posto di intrometto

 

[Cinzia27]

Scusa Marcorun, dov' è che dovrebbe esserci 2 2? Puoi evidenziarlo?

 

[Marcorun]

If fr2 > 0 And fre1<<<<<<<<<<<<<<<<<2?
If fr2 > 0 And fre1<<<<<<<<<<<<<<<<<2?

 

[Cinzia27]

E' vero, l' errore c'è, grazie per avermelo fatto notare.
Metto nuovamente lo script
Se noti qualcos' altro fammelo sapere.

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

 

[Cinzia27]

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

 

[joe]

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 ?

 

[Cinzia27]

Ciao, Joe. vogliamo mantenerle tutte ? sono un centinaio. Per me va bene.
Più tardi rimetto lo script di prima.

 

[Ramco]

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

 

[Cinzia27]

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.

 

[Ramco]

...fai pure tu... vai come un treno!!! (e chi ti ferma più!) poi vediamo...

 

[Alien.]

...fai pure tu... vai come un treno!!! (e chi ti ferma più!) poi vediamo...

 

[Cinzia27]

...fai pure tu... vai come un treno!!! (e chi ti ferma più!) poi vediamo...

Alien, ci avrei giurato

Ramco, scherziamo soltanto

 

[Cinzia27]

Scherzi a parte, Ramco, se hai il listato ci guadagniamo in tempo e in qualità

 

[Alien.]

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.

 

[Cinzia27]

Questo script più di manica larga esclude le cinquine che hanno già dato ambo.

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