Novità

Script su Cinquine Sincrono-Isocrone

herat

Advanced Member
Salve a tutti gentili amici del forum.
Mi ha incuriosita molto il discorso delle cinquine sincrone e isocrone per ambo.
Dopo l'estrazione del 22/9 ci sono le cinquine sincrone 27.70.73.38.79 di Napoli e 81.33.82.19.57 di Firenze che hanno lo stesso ritardo sincrono di 168 estrazioni.
Cortesemente ero interessata a sapere se esiste uno script che indichi i ritardi attuali e storici di cinquine sincrone con ritardo isocrono da 2 a + ruote.
Vi ringrazio anticipatamente
 

joe

Advanced Member >PLATINUM PLUS<
Ciao herat,

Tra i plugin ed alla cartella Joe,

Dovrebbe esserci tacsi.

Acronimo di tabellone analitico cinquine.sincrone isocrone.

Ha molto di quanto chiedi.

Per gli storici al momento non ho per mente nulla.

:)
 
Ultima modifica:

herat

Advanced Member
Gentilissimo joe ti ringrazio di cuore per avermi risposto.
Facendo delle ricerche sul web ho trovato questo script che cerca gli storici ma non funziona su spaziometria.

c'è qualcosa da aggiornare per poterlo adattare a spaziometria e renderlo a 11 ruote?

Ti/Vi ringrazio

Codice:
'Ricerca della massima attesa per la PRIMA estrazione dell'ambo in gruppi di cinquine isocrone.

'Risultati per 1 - 10 Ruote
'Scritto da Joe91 13/03/2007 v1.0 

'>>>>>ATTENZIONE<<<<<

'I RISULTATI FORNITI SONO DA VERIFICARE IN QUANTO
'NON E' CERTA LA CORRETTEZZA DELLA PROCEDURA UTILIZZATA


Sub main()
Dim nr(5)
Dim v(10)
Dim ris(10)
Dim mem(10)
Dim ru(1)
ini=EstrazioneIni
fin=EstrazioneFin-1

For es=ini To fin
Messaggio (es)
      For r=1 To 10 : ru(1)=r 'Ruote

nr(1)= Estratto(es,r,1)
nr(2)= Estratto(es,r,2)
nr(3)= Estratto(es,r,3)
nr(4)= Estratto(es,r,4)
nr(5)= Estratto(es,r,5)
x = SeriePrima (Es+1,fin,nr,ru,2)-es-1
If x < 0 Then x=0 : v(r)=v(r)+1 ' se ancora in gioco escludi e conteggia in v(r) 
mem (r) = x
      Next 'Prossima Ruota
OrdinaMatrice mem

'scrivimatrice mem 

For Y=1 To 10 
  If RIS(y) < MEM (y) Then  ris(y)= mem(y)
Next

Next

Scrivi "Cinquine isocrone sfaldamento del I° ambo "
Scrivi 
For y=1 To 10 : Scrivi (y & Chr(9)),0,0 : next :  Scrivi "Numero di ruote" 
ordinamatrice ris,-1
For y=1 To 10 : Scrivi  (ris(y) & Chr(9)),1,0 :next :  Scrivi "Massimi dei minimi riratrdo"


End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Herat,

Quello script non funziona semplicemente per un problema di sintassi,

Ma non so perché abbia dimensionato, ordinato e scritto (anche se in forma disabilitata)

dei dati, di per sé, inesistenti,

Questo unito, alla premessa, scritta nelle note preliminari,

ed al fatto che elabori un qualcosa si piuttosto diverso da quello che è la tua richiesta

mi porterebbe a sconsigliartene l'uso.

Sinceramente non ricordo perché e se ho scritto quelle cose in quel modo,

o se, in quell'occasione avevo adattato, al volo, uno script per ottenere risultati specifici.

Ma ora, senza ulteriori indicazioni e riscontri secondo me è meglio non usarlo.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Ciao.

Se cerchi sul Web: Storico Cinquina Sincrona

(inteso come per Ambo nella ruota a cui appartiene)

Trovi i valori:

BA Sto 337
CA Sto 325
FI Sto 312
GE Sto 333
MI Sto 404
NA Sto 477
PA Sto 439
RO Sto 453
TO Sto 337
VE Sto 364

Dei quali, tralasciando il solito +/- 1, a grandi linee coincidono,

con quelli calcolati dallo script che hai proposto.

La differenza più grossa tra i dati è nel fatto che alcuni considerano

solo il massimo valore di ogni ruota.

Altri i valori numerici. Mentre è vero che alcune ruote,

(come ad esempio Napoli) hanno diversi "valori storici" molto elevati.

Pertanto se si considerano "10 valori" tra questi 10,

alcune ruote non compariranno,mentre altre compariranno più volte.

Da questo dipende che una classifica puramente numerica

sarà necessariamente differente

da una che consideri per contro le 10 ruote.


:)
 
Ultima modifica:

Mat

Advanced Member >PLATINUM<
Caro Joe,
non rimproverarmi se intervengo,
fai delle cose eccezionali in pochi secondi.
I risultati del tuo script perfetto sono questi:

Cinquine isocrone sfaldamento del I° ambo

1-----2----3----4-----5----6---7--8--9--10 Numero di ruote
476 240 210 155 122 101 78 60 52 34 Massimi dei minimi ritardo

La lettura di questi dati però è questa, con le giuste cosiderazioni del + e - 1, che hai fatto tu:
1) Per una cinquina sincrona max storico 476 estraz.

2) Per 2 cinquine sincrone, una su una ruota ed una su un'altra ruota sortite nella stessa estrazione, quindi con lo stesso ritardo, cioè cinquine sincrone-isocrone, tempo per la sortita d'ambo di una delle due ognuna sulla propria ruota,
max sto. 240 estraz.

3)
Per 3 cinquine sincrone, ognuna sortita sulla rispettiva ruota nella stessa estrazione, quindi con lo stesso ritardo, cioè sempre cinquine sincrone-isocrone, tempo per la sortita d'ambo di una delle tre ognuna sulla propria ruota,
max sto. 210 estraz.

e così via fino al ritardo di 34 estraz. per la sortita di un ambo, mettendo in gioco tutte le 10 cinquine sincrone-isocrone sortite in una stessa estrazione.
I dati sono tutti esatti.

Spero di non aver fatto cosa sgradita ad un vecchio amico, un caro saluto a te e ciao a tutti,

Matteo
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ciao Matteo.

Si, ho ripreso quello script per capirne le ragioni inespresse.

Tuttavia m'era parso di capire che Herat cercasse,

un ritardo di rigo (in un rigo diverso dallo Zero) dunque altra cosa.

Poi ... naturalmente non solo non ti sgrido ma sapendoti presente,

in argomenti simili mi è gradito ed utile il tuo intervento che oltre

la "lettura" e la conferma è buona occasione per un caro saluto.

:)
 

herat

Advanced Member
gentilissimi Mat e Joe lo script alla quale ero e sono interessata riguarda proprio i ritardi storici messi in evidenza da Mat.

scusate se mi ripeto: quello script puo essere adattato a Spaziometria?
Grazie di cuore!
 

joe

Advanced Member >PLATINUM PLUS<
Codice:
'Ricerca della massima attesa per la PRIMA estrazione dell'ambo in gruppi di cinquine isocrone.
'Risultati per 1 - 10 Ruote
'Scritto da Joe91 27/03/2007 v1.0
'x Spaziometria By Joe 27/09/2018 V.1.1
'>>>>>ATTENZIONE<<<<<
'I RISULTATI FORNITI SONO DA VERIFICARE IN QUANTO
'NON E' CERTA LA CORRETTEZZA DELLA PROCEDURA UTILIZZATA
Sub Main()
 Dim nr(5)
 Dim v(10)
 Dim ris(10)
 Dim mem(10)
 Dim ru(1)
 ini = EstrazioneIni
 fin = EstrazioneFin - 1
 For es = ini To fin
  Messaggio(es)
  For r = 1 To 10 : ru(1) = r 'Ruote
   nr(1) = Estratto(es,r,1)
   nr(2) = Estratto(es,r,2)
   nr(3) = Estratto(es,r,3)
   nr(4) = Estratto(es,r,4)
   nr(5) = Estratto(es,r,5)
   x = SeriePrima(Es + 1,fin,nr,ru,2) - es - 1
   If x < 0 Then x = 0 : v(r) = v(r) + 1 ' se ancora in gioco escludi e conteggia in v(r)
   mem(r) = x
  Next 'Prossima Ruota
  OrdinaMatrice mem,True
  For Y = 1 To 10
   If ris(y) < mem(y) Then ris(y) = mem(y)
  Next
 Next
 Scrivi "Cinquine isocrone sfaldamento del I° ambo "
 Scrivi
 For y = 1 To 10 : Scrivi(y & Chr(9)),0,0 : Next : Scrivi "Numero di ruote"
 OrdinaMatrice ris,- 1
 For y = 1 To 10 : Scrivi(ris(y) & Chr(9)),1,0 :Next : Scrivi "Massimi dei minimi riratrdo"
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto