Tabellone Analitico: statistiche di casella

[genios]

Grazie FABIO60 ho provato la funzione Tabelloni Fasce di ritardo ma non fa quello che ho in mente dato che Tabelloni Fasce di ritardo considera anche 9 numeri nell' estrazione 0 e 1 e non 10 come 2 cinquine sincrone continue quindi i ritardi massimi sono falsati infatti diverso è trovare un max su 45 ambi e un conto trovare il ritardo su 36 ambi .Ora che ci penso forse è sbagliata anche l ' impostazione del mio tentativo di script con la procedura Tabellone analitico di spazio script . Basta forse considerare 2 cinquine sincrone continue scartando dal computo dei ritardi max le 2 cinquine che hanno dei numeri in comune .

Ciao Eugenio

 

[FABIO60]

Il seguente script ricava i ritardi attuali, controlla se sono giusti,

se sono giusti provo a ricavare anche gli storici

Sub Main()
   Dim dec(10)
   Dim ru(1)
   For r = 1 To 10
      ru(1) = r
      Scrivi
      Scrivi "____________________________" & NomeRuota(r)
      Scrivi
      fin = EstrazioneFin
      ini = fin - 80
      For es = ini To fin
         dec(1) = Estratto(es - 1,r,1)
         dec(2) = Estratto(es - 1,r,2)
         dec(3) = Estratto(es - 1,r,3)
         dec(4) = Estratto(es - 1,r,4)
         dec(5) = Estratto(es - 1,r,5)
         dec(6) = Estratto(es,r,1)
         dec(7) = Estratto(es,r,2)
         dec(8) = Estratto(es,r,3)
         dec(9) = Estratto(es,r,4)
         dec(10) = Estratto(es,r,5)
         If NumeriRipetuti(dec) = False Then
            If SerieFreq(es + 1,fin,dec,ru,2) < 1 Then
               rit = fin - es
               Scrivi DataEstrazione(es) & "  " & StringaNumeri(dec) & Space(3) & " RC " & FormatSpace(rit,4,1)
               Scrivi
            End If
         End If
      Next
      rit = 0
   Next
End Sub

Saluti

 

[genios]

Perfetto FABIO60 ho controllato tutti i dati della ruota di FI e coincidono .Puoi proseguire con i ritardi storici.

Grazie Ciao
Eugenio

 

[silop2005]

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao genios ,

======================

scusa l'intrusione, ma toglimi una curiosità

l'abbinamento DEVE ESSERE tra DUE cinquine sincrone (5 + 5 = 10 estratti)

ed in sincronismo continuo ( a scatto di 1 o più ) ?

Come hai scritto nel post #19

trovare i ritardi attuali e ritardi storici per la sorte dell ambo di una decina formata dai 10 numeri di 2 cinquine sincrone in sincronismo continuo .

Quindi lo script NON deve abbinare cinquine sincrone integre (5 elementi)

con ex cinquine sincrone formate da 4 elementi ( 5 + 4 = 9 estratti)

o anche con ex cinquine sincrone con meno estratti.

Non ha senso prendere una cinquina sincrona che ha già sfaldato un AMBO

ed abbinarla con una cinquina sincrona integra (5 estratti)

======================

Dal tabellone analitico di spaziometria in ogni ruota ci sono le cinquine sincrone

ancora TUTTE INTEGRE ( 5 estratti) di colore VERDE

lo script dovrebbe considerare SOLO QUELLE di colore verde e abbinarle tra loro

e fare i ritardi attuali e storici per la sorte di ambo e superiori delle decine formate (5 + 5=10)

Se ho scritte delle cavolate lo posso anche cancellare.

======================

Buona giornata a tutto il forum.

======================

A presto

Silop

 

[genios]

X silop : Puoi introdurti quando vuoi come dice qualcuno stiamo nelle stessa barca.

scusa l'intrusione, ma toglimi una curiosità

l'abbinamento DEVE ESSERE tra DUE cinquine sincrone (5 + 5 = 10 estratti)

ed in sincronismo continuo ( a scatto di 1 o più ) ?

Come hai scritto nel post #19

L abbinamento deve essere tra due cinquine sincrone continue a scatto di uno .Quindi se una delle 2 cinquina ha sfaldato in ambo quando si fa la somma dei numeri delle 2 cinquine avremmo si 10 numeri ( decina ) ma 2 di essi sono ripetuti quindi non avremmo più una decina ma un ottina quindi in questo caso lo script elimina tale condizione ,. Le cinquine prese in considerazione sono sempre quelle a ritardo 0 ed 1 con la condizione di cui sopra .

Nel caso invece che una delle cinquine sfaldi un numero vanno sempre considerati tutti e 5 gli estratti della cinquina in questione.
nel caso tutte e due le cinquine sfaldino un numero verrebbero azzerate perche hanno dato l' ambo .
Comunque se riesco mi studio meglio lo script di FABIO60


Ciao

Eugenio

 

[FABIO60]

In attesa di conferma, ho modificato lo script per renderlo più veloce;
cosa utile nel caso si volessero ricercare gli storici

 

[genios]

ho controllato tutti i dati della ruota di FI del tuo nuovo script e coincidono .Puoi proseguire con i ritardi storici.

 

[FABIO60]

'Storici
'con L8+ è molto più veloce rispetto a Spaziometria

Sub Main()
   Dim dec(10)
   Dim ru(1)
   limite = 50 ' SELEZIONARE a piacere
   For r = 3 To 3
      Messaggio r
      ru(1) = r
      Scrivi
      Scrivi "____________________________" & NomeRuota(r)
      Scrivi "ritardi storici maggiori di " & limite & " estrazioni"
      Scrivi
      fin = EstrazioneFin
      ini = 3950
      For es = ini To fin
         AvanzamentoElab ini,fin,es
         dec(1) = Estratto(es - 1,r,1)
         dec(2) = Estratto(es - 1,r,2)
         dec(3) = Estratto(es - 1,r,3)
         dec(4) = Estratto(es - 1,r,4)
         dec(5) = Estratto(es - 1,r,5)
         dec(6) = Estratto(es,r,1)
         dec(7) = Estratto(es,r,2)
         dec(8) = Estratto(es,r,3)
         dec(9) = Estratto(es,r,4)
         dec(10) = Estratto(es,r,5)
         If NumeriRipetuti(dec) = False Then
            sp = SeriePrima(es + 1,es+120,dec,ru,2)
            If sp > 0 Then
               rit = sp - es - 1
               If max < rit Then max = rit
               If rit > limite Then
                  Scrivi DataEstrazione(es) & "  " & StringaNumeri(dec) & Space(3) & " sto " & FormatSpace(rit,4,1)
                  Scrivi
               End If
            End If
         End If
      Next
      Scrivi "max ruota  " & max
      rit = 0
      max = 0
   Next
End Sub

 

[Mat]

Ciao a tutti,
intervengo solo per dare conferma dei dati forniti dall'ottimo script di Fabio60, che con L8+ è velocissimo, con Spaziometria non ci ho provato.
Ho ricavato gli storici di ciascuna delle 11 ruote e a parte i soliti + o - 1 sono tutti esatti dal confronto che ho fatto con altro mezzo da me usato.
Per chiarire il criterio da me usato, che quindi credo sia uguale a quelli di Fabio60, visto che i dati corrispondono, la strada è questa.
Ho preso le due ultime cinquine estratte a ritardo 0 ed a ritardo 1 solo per le cinquine integre ed ho calcolato il ritardo per la sortita di un ambo con tutti i 10 numeri: tutti gli altri casi con meno numeri sono scartati.
Complimenti al solito grande Fabio60 e ciao a tutti,
Matteo

 

[genios]

Confermo sono esatti . Grazie FABIO60 degli ottimi script .E' veloce anche con Spaziometria .

ciao Eugenio

 

[FABIO60]

Tra le varie curiosità segnalate qualcosa è sortito,

ma non è detto che ciò possa ripetersi a breve:

il 9/5 è sortito il pentambo di Torino (messaggio 6)

il 16/5 è sortita una delle 4 coppie vergini;

il 19/5 è sortita la coppia bivalente 28.53 su To;

il 21/5 è sortita la coppia di cui lo script al messaggio 15,

su una delle 5 ruote interessate (BA).

In sostituzione di quest' ultima, segnalo la seguente coppia:

' Tabellone analitico - coppia per ambo in 5 ruote : 2° Estratto + 5° Estratto del RIGO RC 3
' RUOTE di gioco :
'FI rit. 1435
'GE rit. 4631
'PA rit. 2100
'RO rit. 1426
'VE rit. 1575
'RITARDO attuale a TUTTE 336 estraz.; storico a tutte per coppie stesso rigo (0-3) 411 estr.
' I numeri cambiano ad ogni estrazione

Sub Main()
   Dim nu(10)
   es = EstrazioneFin
   Scrivi " AMBI IPOTETICAMENTE IN GIOCO per l'estrazione successiva al " & DataEstrazione(es),1,1
   GeneraAnalitico(es)
   Scrivi
   Scrivi
   For r = 1 To 10
      n = 3
      If TabelloneAnalitico(n,r,2) > 0 And TabelloneAnalitico(n,r,5) > 0 Then
         nu(1) = TabelloneAnalitico(n,r,2)
         nu(2) = TabelloneAnalitico(n,r,5)
      Else
         nu(1) = ""
         nu(2) = "non giocabile"
      End If
      If r = 3 Or r = 4 Or r = 7 Or r = 8 Or r = 10 Then
         Scrivi SiglaRuota(r) & Space(4),1,0
         Scrivi nu(1) & "." & nu(2)
      End If
   Next
End Sub


________________________________
output:

AMBI IPOTETICAMENTE IN GIOCO per l'estrazione successiva al 21.05.2020


FI    .non giocabile
GE    78.76
PA    60.14
RO    .non giocabile
VE    51.59

Saluti