Novità

Cinquine non concluse

C

Cinzia27

Premium Member
Continuo qui il dialogo iniziato sulle cinquine non ancora concluse.
Ho messo un filtro stringente: sono visibili solo le cinquine i cui primi 4 estratti si sono visti solo una volta.
I risultati mi sembrano accettabili.

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: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
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&" "&SiglaRuota(r)&"  "& StringaEstratti (es,r)&"  "&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 " "&format2(n1(1))&" ",1,0
If fr1>0 And fre1>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&format2(n1(1))&" ",0,0
 
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 " "&format2(n2(1))&" ",1,0
If fr2>0 And fre1>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&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 " "&format2(n3(1))&" ",1,0
If fr3>0 And fre3>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&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 " "&format2(n4(1))&" ",1,0
If fr4>0 And fre4>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&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 " "&format2(n5(1))&" ",1,0
If fr5>0 And fre5>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&format2(n5(1))&" ",0,0
ColoreTesto 0
Scrivi
End If
End If
End If
Next
Next
Scrivi usc

End Sub
 
Prima di metterle in gioco, vediamo cosa succede stasera
Le cinquine giocabili sono queste.
4 9952 PA 69.54.81.86.37 14 ---> 69 54 86 37
5 9953 FI 05.03.75.12.90 13 ---> 05 03 75 12
7 9957 TO 47.40.55.82.18 9 ---> 47 40 82 18
8 9958 TO 52.04.71.68.13 8 ---> 52 04 71 13

Si possono giocare le quartine
69 54 86 37
05 03 75 12
47 40 82 18
52 04 71 13

oppure
81( 5° numero ancora da estrarre) di Pa da solo o abbinato a 69 54 86 37
90( 5° numero ancora da estrarre) di Fi da solo o abbinato a 05 03 75 12
55( 5° numero ancora da estrarre) di To da solo o abbinato a 47 40 82 18
68( 5° numero ancora da estrarre) di To da solo o abbinato a 52 04 71 13
 
Ciao Cinzia
ho ricercato un pò di vecchi appunti, non ho trovato altro, comunque cerco di elencare i punti su cui si era trovato un punto comune...
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

P.s. il doiscorso della media ritardi era legato ad altro.... non c'entra nulla.

Spero di essere stato chiaro, e se mai di aver suscitato un pò di interesse...
(forse era stato fatto anche uno script, ma cavolo non lo trovo....)
 
Ciao, Scusa Cinzia a me mi da questi numeri per questa sera con lo script:



1 9929 BA 75.43.01.56.31 37 ---> 75 43 01 56 56
2 9950 VE 04.67.62.30.14 16 ---> 04 67 30 14 14
3 9951 VE 35.71.76.89.82 15 ---> 35 76 89 82 76 82
4 9952 PA 69.54.81.86.37 14 ---> 69 54 86 37
5 9953 FI 05.03.75.12.90 13 ---> 05 03 75 12
6 9957 RO 24.35.90.25.59 9 ---> 24 35 25 59 59
7 9957 TO 47.40.55.82.18 9 ---> 47 40 82 18
8 9958 TO 52.04.71.68.13 8 ---> 52 04 71 13
5​
 
Sinceramente non ricordo nulla di simile,

ma non è che ricordo tutto e soprattutto leggo ancor meno di quanto ricordo.

Per ora, pur avendo pensato qualcosa di simile ...

... posso solo confermare che quanto ha scritto Cinzia è giusto.

Cioè le propose per Torino Firenze e Palermo le ho identiche dai miei riscontri.

:)
 
Grazie, Ramco della spiegazione.
Anch'io non ricordo ma talmente tanti sono stati gli argomenti trattati..,
Qui il discorso è molto più semplice. Per restringere ho messo paletti ben fermi, non si possono giocare decine di cinquine: 4 numeri usciti e una sola volta, sperando che l' equilibrio si spezzi.
Ringrazio Joe della conferma. Alien, hai aggionato l' archivio ? Oppure, come capita a me, sei andato indietro con esso e non ti sei accorto ?
 
Anche ha me dava l'errore ed l'ho sostituito,aggiornato archivio ed sviluppato lo script ma il risultato è quello che ho inserito io !!!! Dove sta l'error ?

Sostitisci OrdinaMatrice con
OrdinaMatrice s,1
 
al posto di 9966 puoi mettere la data?

e allora non capisco ma abbiamo lo stesso script io ho copiato quello sopra qua.
 
Alien, è tutto a posto l' output è uguale al mio, devi considerare solo quelle in cui non è uscito nulla, io ho postato quelle,
le altre non ci interessano.
Le cinquine giocabili sono queste.

Quello che hai postato tu mi corrisponde
ma le cinquine valide sono queste identiche a quelle tue in rosso
4 9952 PA 69.54.81.86.37 14 ---> 69 54 86 37
5 9953 FI 05.03.75.12.90 13 ---> 05 03 75 12
7 9957 TO 47.40.55.82.18 9 ---> 47 40 82 18
8 9958 TO 52.04.71.68.13 8 ---> 52 04 71 13

praticamente le tue in rosso

1 9929 BA 75.43.01.56.31 37 ---> 75 43 01 56 56 uscito il 56
2 9950 VE 04.67.62.30.14 16 ---> 04 67 30 14 14 uscito il 14
3 9951 VE 35.71.76.89.82 15 ---> 35 76 89 82 76 82 usciti 76 e 82
4 9952 PA 69.54.81.86.37 14 ---> 69 54 86 37
5 9953 FI 05.03.75.12.90 13 ---> 05 03 75 12
6 9957 RO 24.35.90.25.59 9 ---> 24 35 25 59 59 uscito il 59
7 9957 TO 47.40.55.82.18 9 ---> 47 40 82 18
8 9958 TO 52.04.71.68.13 8 ---> 52 04 71 13
 
Ultima modifica:
chiuso spazio rinserito lo script corretto archivio aggiornato al18/8/21 mi da sempre lo stesso risultato............acc...........è vero allora torna tutto io guardavo solo la prima cinquina che non tornava con le tue ovvio ,scusa.
 
goofy_vvcflhia.gif
 
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
===================================================================
 
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 - 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

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

...magari così è più capibile...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto