Script su Cinquine Sincrono-Isocrone

[herat]

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]

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.

 

[herat]

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

'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]

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.

 

[herat]

Ti ringrazio ancora caro Joe. Un caro saluto

 

[joe]

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.

 

[Mat]

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

 

[joe]

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]

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]

'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

 

[herat]

grazie di cuore caro Joe