Novità

Cinquine CSP

Ok Grazie per la risposta ...

Torino
....
26.01.2013 37.48 Re 3 Rc 1
29.01.2013 40.72 Re 8 Rc 0
==============================

Va anche bene ?

:)
 
miki55 ha scritto:
Forse sono stato poco felice nello spiegarmi, ma con un esempio pratico mi farò capire sicuramente.
Sulla ruota di BARI abbiamo 3 ambi in pendenza...
[TABLE="class: cms_table"]
[TR]
[TD="class: cms_table_xl65, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: cms_table_xl65, bgcolor: transparent"]02.01.2013 82.63 (ambo unito)
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl65, bgcolor: transparent"]05.01.2013 87.58 (ambo unito)

[/TD]
[/TR]
[/TABLE]
...in pratica uno script che selezioni solo quelli uniti come questi due 82.63 e 87.58, poichè se noti sulle altre
10 ruote sono veramnte pochi. Inoltre, come statistica vuole, che gli ambi uniti, specie se CSP
si "rompono" prima di quelli in altre posizioni. Spero ora d'essermi chiarito.
Sono a disposizione...
Clicca per espandere...

Scusa se riprendo questo esempio ... ma ...

Uniti significa (magicamente) trascurando l'estrazione intermedia del 3 Gennaio 2013 ?

:)
 
Scusa se riprendo questo esempio ... ma ...

Uniti significa (magicamente) trascurando l'estrazione intermedia del 3 Gennaio 2013 ?

:)
Clicca per espandere...

...praticamente si!
dobbiamo selezionare solo quei ambi che sortiscono uniti all'interno delle cinquine CSP
 
miki55 ha scritto:
...praticamente si!
dobbiamo selezionare solo quei ambi che sortiscono uniti all'interno delle cinquine CSP
Clicca per espandere...

Quindi ... uniti non riguarda estrazioni differenti consecutive (da alcuni definito sincronismo continuo)

ma la posizione consecutiva di due estratti, all'interno della stessa estrazione ?

Che è come dire "due numeri rossi" uno accanto all' altro?

Bari

13.11.2012 34.77.80.53.33 Re 1 Rc 34
02.01.2013 16.71.82.63.60 Re 12 Rc 13
05.01.2013 64.54.12.87.58 Re 0 Rc 11

:)
 
Ecco tutti gli "ambi uniti" del momento, nelle 10 ruote delle cinquine CSP (cinq sincrone particolari)

BA 16.71.82.63.60 - AMBO UNITO 82.63
BA 64.54.12.87.58 - AMBO UNITO 87.58
GE 16.22.82.69.40 - AMBO UNITO 82.69
MI 58.38.28.30.51 - AMBO UNITO 28.30
RO 05.24.38.26.62 - AMBO UNITO 38.26
VE 78.37.79.49.57 - AMBO UNITO 79.49

...e possibile uno script che evidenziano solo questi ambi???
 
Ultima modifica:
Ciao Miki, Buona Sera a tutti.

Dovrebbe essere così ... ma per qualche giorno,

non sono in grado di controllare e "sistemare" lo script affinchè sia presentabile.

csph.jpg


:) Buon Week-End
 
Ultima modifica:
Esatto!!! ...ora aggiungiamo gli Ra e gli Rs ed è completo.

...non sono in grado di controllare e "sistemare" lo script affinchè sia presentabile...
fai con calma ci risentiamo nei prossimi giorni. buona domenica
 
Ciao Miki.

Ti propongo qui allegato lo script con aggiunto il codice necessario a relaizzare la tua richiesta.

Ho preferito aggiungere alla versione precedente piuttosto che avere un doppio script.

Per quanto riguarda il valore assoluto degli storici-uniti, essendo quasi in antitesi a quanto da te affermato,

ti chiedo cortesemente se li puoi confermare o smentire;

Cosicchè io possa, fosse eventualmente necessario, modificare il calcolo dei medesimi.

:) Cordiali saluti.

Codice: 
Sub Main
'Cinquine Sincrone Particolari di Antonio Cretella

'Script V_4.1 By Joe. Alba 05/02/2013

'Legenda: Re = Ritardo all' Estrazione / IS = Increnento Storico / Rc = Ritardo Corrente
'Le -New-Entry- sono evidenziate in colore Blu / "<<<" indica Sincronismo Continuo (o residuale)

Dim E(5),Tmp(1),Ru(1),Re(5),Bi(2),Mx(12)

ST = InputBox("A = Attuale / S = Storici","CALCOLO STORICO ?","A")
UT = InputBox("U = Unite / T = Tutte","SCELTA DELLE POSIZIONI ?","T")

Scrivi "** Cinquine * Sincrone * Particolari **",1
Ini = 3950 : Fin = EstrazioneFin
For R = 1 To 12
If R = 11 Then R = 12 : Ini = 7440
Ru(1) = R : NR = NomeRuota(R) : LNR = 36 - Len(NR) : Messaggio NomeRuota(R)
Scrivi String((Lnr/2)," ") & " " & NR,1
If ST = "A" Or St = "a" Then Ini = EstrazioneFin - 250
For Es = Ini To Fin
For P = 1 To 5
E(P) = Estratto(Es,Ru(1),P) : Tmp(1) = E(P)
Re(P) = SerieRitardo(Ini,Es - 1,Tmp,Ru,1)
Next
For P1 = 1 To 4 : For P2 = P1 + 1 To 5 
Bi(1) = E(P1) : Bi(2) = E(P2)
If Re(P1) = Re(P2) Then
Sp = - 1 : If Es + 1 <= Fin Then Sp = SeriePrima(Es + 1,Fin,Bi,Ru,1)
If Mx(R) < Sp - Es Then
If ST <> "A" And ST <> "a" Then
ColoreTesto 2 : Scrivi DataEstrazione(Es) & "  ",0,0
Scrivi Format2(Bi(1)) & "." & Format2(Bi(2)) & "  IS " & Sp - Es : ColoreTesto CT
Mx(R) = Sp - Es
End If
End If
If Sp <= 0 Then
If Es = Fin Then CT = 1
ColoreTesto CT : Scrivi DataEstrazione(Es) & "  ",0,0
For P = 1 To 5
DSP = Estratto(Es,R,P)
If DSP = E(P1) Or DSP = E(P2) Then ColoreTesto 2 : Gr = 1
Scrivi Format2(DSP),CInt(GR),0 : ColoreTesto CT : GR = 0
If P < 5 Then Scrivi ".",0,0
Next : Scrivi "  ",0,0
'Scrivi Format2(E(P1)) & "." & Format2(E(P2)) & "  ",0,0
Scrivi "Re" & FormatSpace(Re(P1),3,1) & " Rc" & FormatSpace(Fin - Es,3,1),0,0
If Es - Mem = 1 Then Scrivi " <<< " Else Scrivi "" : End If
CT = 0 : ColoreTesto CT : Mem = Es
End If
End If
If UT <> "t" And UT <> "T" Then P1 = P2
Next 'P2
Next 'P1
Next 'Es
Scrivi String(39,"="),1
Next 'R
Scrivi "Aggiornato al " & DataEstrazione(Fin) & " *** By Joe ***",1
End Sub
 
....è possibile inserire solo due valori all'interno di ogni formazione
RA (ritardo attuale)
RS (ritardo storico)
lo script è ben fatto. Bravo
 
....è possibile inserire solo due valori vicino ad ogni formazione
RA (ritardo attuale)
RS (ritardo storico)
e nient'altro, per quando riguarda lo script non ci sono errori. Bravo
 
Ciao Miki,

e nient'altro ... letteralmente ?

Poi, non ho capito RA (ritardo attuale) intendi qualcosa di diverso da quello già fornito dallo script ?

RS (ritardo storico) quello fornito dalla ricerca degli storici Tutti / Uniti / o dell' Ambo a se stante fuori da questo contesto?

Fammi sapere.

:) Buona Giornata a tutte/i.
 
Ciao Miki, ho modificato leggermente lo script.

Codice: 
Sub Main
'Cinquine Sincrone Particolari di Antonio Cretella

'Script V_5.0 By Joe. Alba 07/02/2013

'Legenda: Re = Ritardo all' Estrazione / IS = Increnento Storico / Ra = Ritardo Attuale
'Le -New-Entry- sono evidenziate in colore Blu
' <<<  indica l'attuale presenza di Sincronismo Continuo (e/o quello residuale)

Dim E(5),Tmp(1),Ru(1),Re(5),Bi(2),Mx(12)

ST = InputBox("A = Attuale / S = Storici","CALCOLO STORICO ?","A")
UT = InputBox("U = Unite / T = Tutte","SCELTA DELLE POSIZIONI ?","T")

Scrivi "** Cinquine * Sincrone * Particolari **",1
Ini = 3950 : Fin = EstrazioneFin
For R = 1 To 12
If R = 11 Then R = 12 : Ini = 7440
Ru(1) = R : NR = NomeRuota(R) : LNR = 36 - Len(NR) : Messaggio NomeRuota(R)
Scrivi String((Lnr/2)," ") & " " & NR,1
If ST = "A" Or St = "a" Then Ini = EstrazioneFin - 150
For Es = Ini To Fin
For P = 1 To 5
E(P) = Estratto(Es,Ru(1),P) : Tmp(1) = E(P)
Re(P) = SerieRitardo(Ini,Es - 1,Tmp,Ru,1)
Next
For P1 = 1 To 4 : For P2 = P1 + 1 To 5
Bi(1) = E(P1) : Bi(2) = E(P2)
If Re(P1) = Re(P2) Then
Sp = - 1 : If Es + 1 <= Fin Then Sp = SeriePrima(Es + 1,Fin,Bi,Ru,1)
If Mx(R) < Sp - Es Then
If ST <> "A" And ST <> "a" Then
'ColoreTesto 2 : Scrivi DataEstrazione(Es) & "  ",0,0
'Scrivi Format2(Bi(1)) & "." & Format2(Bi(2)) & "  IS " & Sp - Es : ColoreTesto CT
Mx(R) = Sp - Es
End If
End If
If Sp <= 0 Then
If Es = Fin Then CT = 1
ColoreTesto CT : Scrivi DataEstrazione(Es) & "  ",0,0
For P = 1 To 5
DSP = Estratto(Es,R,P)
If DSP = E(P1) Or DSP = E(P2) Then ColoreTesto 2 : Gr = 1
Scrivi Format2(DSP),CInt(GR),0 : ColoreTesto CT : GR = 0
If P < 5 Then Scrivi ".",0,0
Next : Scrivi "  ",0,0
'Scrivi Format2(E(P1)) & "." & Format2(E(P2)) & "  ",0,0
If ST = "A" Or ST = "a" Then 
Scrivi "Rp" & FormatSpace(Re(P1),3,1),0,0
Else 
Scrivi "Rs" & FormatSpace(Mx(R),3,1),0,0
End If 
Scrivi " Ra" & FormatSpace(Fin - Es,3,1),0,0
If Es - Mem = 1 Then Scrivi " <<< " Else Scrivi "" : End If
CT = 0 : ColoreTesto CT : Mem = Es
End If
End If
If UT <> "T" And UT <> "t" Then P1 = P2
Next 'P2
Next 'P1
Next 'Es
Scrivi String(39,"="),1
Next 'R
Scrivi "Aggiornato al " & DataEstrazione(Fin) & " *** By Joe ***",1
End Sub

:) Fammi sapere.
 
Ciao Giulio,

A parer mio ... ma è argomento in cui è lecito avere opinioni differenti,

dei 10 ambi possibili se, se ne considarano 4 (quelli uniti) è sufficiente che uno di questi realizzi un valore di ritardo,

sufficientemente elevato,(e in oltre 50 anni è possibilec he avvenga) che quest'ultimo valore, diventi ... subito storico.

Quindi ... sia perchè, poi, potrà essere superiore, sia perchè eventualmente è un Ns vincolo,

al quale i numeri non si assoggettano, a parer mio, è poco consigliabile ... formare un metodo per mezzo del quale

"dare credito" ad un valore di storico "più basso".

Per il resto guardo se riesco ad inserire quello che chiedi senza ri-paciugare troppo lo script.

:)
 
Dipende ...

come dicevo ... ognuno ha le sue opinioni.

Io, quasi talebano ... penso che tutto si misuri in estrazioni.

Se escono assieme sono uniti. Ma escono ... uno alla volta.

Impazziti? Quando mai (entro 2000 estrazioni da OGGI ) dovesse uscire il 17.56 a Bari... sono uniti o no ?

:)
 
Ciao JOE91 e vero e resistente anche al nostro Semi Date
In corso Bari
06.06.1885 17.24.25.67.56
16.10.1886 56.05.50.17.90
04.03.1916 56.60.17.24.82
28.07.1923 17.56.19.64.13
Ciao a Tutti
 
Ciao Joe91, grazie per aver modificato lo script.
Ma volevo chiederti, sei sicuro che siano questi gli RS delle sole coppie "U" nelle cinquine in CSP?
A me sembra, invece, che siano "T".
Perchè se guardo solo la ruota di BARI, lo storico "T" è stato di 65 estraz
ma è avvenuto con un'ambo in cinquina NON unito...

Storico :65
in data 20/04/1963
Bari cinquina CSP: 27.89.45.88.38
l'ambo era 89.88 come vedi non unito.

Puoi controllare anche le altre ruote? ...Grazie
 
miki55 ha scritto:
Ciao Joe91, grazie per aver modificato lo script.
Ma volevo chiederti, sei sicuro che siano questi gli RS delle sole coppie "U" nelle cinquine in CSP?
A me sembra, invece, che siano "T".
Perchè se guardo solo la ruota di BARI, lo storico "T" è stato di 65 estraz
ma è avvenuto con un'ambo in cinquina NON unito...

Storico :65
in data 20/04/1963
Bari cinquina CSP: 27.89.45.88.38
l'ambo era 89.88 come vedi non unito.

Puoi controllare anche le altre ruote? ...Grazie
Clicca per espandere...

Ciao Miki,

ripeto, reputo sia più giusto calibrare le proprie "risorse" a fronte del nemico più temibile ...

che sottovalutarne la consistenza con il colpevole uso di un artificio.

Ciò premesso, può essere che tu abbia ragione ed in effetti avevo chiesto al messaggio #52,

cosa si intendesse per Rs espresso in modo troppo genererico e in quella sede,

avevo elencato almeno 3 possibili interpretazioni.

Si, certo controllerò, e, preferndomi definire ritardista ... devo dire essere argomento interessante.

Un caro saluto anche a Tiziano

:) Buona Giornata a tutte/i.
 
Ciao Miki,

eseguendo una versione "elaborata" dello script al 13/4/1963 restituisce :

** Cinquine * Sincrone * Particolari **
Bari
14.09.1946 68.22.78.60.58 68.22 IS 8
14.09.1946 68.22.78.60.58 22.78 IS 12
28.09.1946 28.18.59.42.71 18.59 IS 38
13.01.1962 40.09.81.38.71 Rs 38 Ra 65
12.01.1963 16.32.51.46.23 Rs 38 Ra 13
26.01.1963 08.63.37.77.28 Rs 38 Ra 11
02.03.1963 59.73.65.74.13 Rs 38 Ra 6
09.03.1963 36.75.21.05.67 Rs 38 Ra 5 <<<
16.03.1963 22.56.62.85.69 Rs 38 Ra 4 <<<
=======================================

come vedi nella parte rossa ovvero la parte che riguarda la cernita dei ritardi all'estrazione,

per la formazione degli storici ed il loro incremento ...

68.22.78 avevano dapprima realizzato uno storico di 8 (con l'Ambo Unito 68.22)

e poi di 12 Estrazioni con l'ambo 22.78 unito.

A codesta estrazione era anche presente l' Ambo Unito 38.71 che avendo come riferimento ...

lo storico di 38 estrazioni nel frattempo aggiornato dall'Ambo Unito 18.59 ...

aveva già anche un Ritardo Attuale (Ra) di 65 Estrazioni destinato ad essere

terminata la sua corsa incrementale, Nuovo Storico Unito.

S.E.&.O.

:) Cordiali saluti
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto