Aiuto per script

[Antonio Pagano]

Ciao a tutti. Avrei bisogno di sapere se c'è la possibilità di sapere, con uno script, il ritardo e la frequenza di un insieme di <ambi.
Esempio: 7 -21 / 18 -45 / 67 -74 / 10 - 53 / 21 - 66 / 53 - 90 Ecco di questo gruppo di ambi vorrei sapere ritardo e frequenza. Ringrazio anticipatamente a tutti coloro vorranno aiutarmi. Grazie e buona giornata.

 

[Mike58]

Ciao Antonio, Si !! con lo script è possibile sapere anche il ritardo e frequenza di un determinato gruppo.
Ecco lo script già esistente nella cartella test di spaziometria ed adattato per la tua esigenza.

Option Explicit
Sub Main
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sRetFormaz,Ruota,Ru(1),Sortita,Ini,fin
   Ini = EstrazioneIni
   fin = EstrazioneFin
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
   Ruota = ScegliRuota
   Ru(1) = Ruota
   ReDim aN(2)
   aN(1) = 7
   aN(2) = 21
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 18
   aN(2) = 45
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 67
   aN(2) = 74
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 10
   aN(2) = 53
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 66
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 53
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo
   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sRetFormaz,Ini,fin)
   Call VerificaEsitoTurbo(aN,Ru,EstrazioneFin - RetRitardo,2,,,,,Sortita)
   ' risultati a video
   Call Scrivi("Analisi delle combinazioni : ",1,,7,5,3)
   Call Scrivi(sRetFormaz,1,,,1)
   Call Scrivi("Ritardo attuale " & RetRitardo,1,,,2)
   Call Scrivi("Ritardo max     " & RetRitardoMax,1,,,2)
   Call Scrivi("Frequenza       " & Freq,1,,,2)
   Call Scrivi("Ultima Sortita........ " & StringaEstratti(fin - RetRitardo,Ruota) & Space(5) & GetInfoEstrazione(fin - RetRitardo),1)
End Sub

 

[Antonio Pagano]

Grazie Mike58. Listato perfetto per le mie esigenze. Ci lavorerò un pò su per avere lo stesso risultato sulle singole 10 ruote. Per sapere su quale ruota è preferibile mettere in gioco. Ciao grazie

 

[franca46]

ciao a tutti , vorrei fare una domanda , sempre che abbia interpretato bene.
questo esito significa che lo script analizza solo il primo ambo?

Analisi delle combinazioni : 
BA 7.21
BA 18.45
BA 67.74
BA 10.53
BA 21.66
BA 53.90
Ritardo attuale 3
Ritardo max     613
Frequenza       139
Ultima Sortita........ 07.21.15.54.27     [09944] [ 73] 19.06.2021

grazie

 

[franca46]

forse ho capito , ciao

 

[Antonio Pagano]

Franca46 ciao. Il ritardo e la frequenza si riferiscono all'insieme dei 6 ambi. All'uscita di un ambo dei sei il ritardo và a zero e la frequenza + 1. Buona serata.

 

[joe]

Buon giorno a tutte/i.

Mike, ho visto la tua soluzione,

Nel caricare i dati esso sono uniti in numeri e ruota.

Questo rende difficile sostuire
la ruota.

Cioè si rende necessario ricaricare tutto per ogni ruota.

Ti risulta ci possano essere altre istruzioni simili e più orientate alla gestione dei soli pronostici numerici.

Naturalmente è richiesta aperta ed utile anche ad altri contributi.

 

[Mike58]

Ciao Joe proprio perchè trattasi di gruppo eterogeneo la ruota si può addizionare anche diversa per ogni redim aN(2) per poi essere richiamate dal codice StatisticaGruppoFormazione.
Altre soluzioni di gruppo in automatico la vedo dura.

'Option Explicit
Sub Main
  
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sGruppo
  
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
  

  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 12
   Call AddNumeriToGruppoStatistico(aN,VE_)
  
   ReDim aN(2)
   aN(1) = 15
   aN(2) = 83
   Call AddNumeriToGruppoStatistico(aN,FI_)
  
   ReDim aN(2)
   aN(1) = 34
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,MI_)
  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 28
   Call AddNumeriToGruppoStatistico(aN,TO_)
  
   ReDim aN(2)
   aN(1) = 72
   aN(2) = 25
   Call AddNumeriToGruppoStatistico(aN,CA_)
  
   ReDim aN(2)
   aN(1) = 31
   aN(2) = 2
   Call AddNumeriToGruppoStatistico(aN,RO_)
  

  
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo

   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sGruppo,EstrazioneIni,EstrazioneFin)
  
   ' risultati a video
  
   Call Scrivi("Analisi delle combinazioni : ")
   Call Scrivi(sGruppo & vbTab & srB & vbTab &  sortita)
   Call Scrivi("Ritardo attuale " & RetRitardo)
   Call Scrivi("Ritardo max     " & RetRitardoMax)
   Call Scrivi("Frequenza       " & Freq)
  

  
End Sub

 

[joe]

Ti ringrazio...

mi sa che dovrò mettere in cantiere di studiarmi un po' sta cosa.

Ti posso confermare che il tuo script ((il primo) che ho controllato) funziona bene.

L'unico dato che non ho ancora calcolato è lo storico.

Gli altri risultati sono uguali.

 

[Mike58]

Joe, ogni tanto bisogna trovare stimoli in qualcosa di nuovo e diverso.
Nella cartella test ci sono 2 script
StatGruppoEterogeneo
StatgruppoFormazione
che agiscono sui gruppi di ambi , con la controverifica circa il ritardo e ritardostorico calcolato nel modo fuori dal codice.
Ciao.

 

[joe]

Joe, ogni tanto bisogna trovare stimoli in qualcosa di nuovo e diverso
Nella cartella .test ci sono 2 script
StatGruppoEterogeneo
StatgruppoFormazione
che agiscono sui gruppi di ambi , con la controverifica circa il ritardo e ritardostorico calcolato nel modo fuori dal codice.
Ciao.

Ciao Mike,

Bhe si penso si possa affermare che alcune ricerche sono più complicate di altre.

Dice giustamente Luigi che non è che ci si debba misurare o dare prove né a sé, né agli altri.

Ma è gratificante l'avere prova di sapere di poter realizzare anche questi calcoli più complessi.

Poi naturalmente Storici, Frequenze, Ritardi, Gruppi Omogenei ed Eterogenei,

sanno raccogliere simpatie ed antipatie differenti.

Come presumevo e (un pò tra le righe) ho anticipato che, anche gli storici avrebbero coinciso (al netto del solito +/- 1).