per joe o LuigiB O MIKE

[Beppignello]

ciao
ho bisogno di capire come fare per calcolare il ritardo e ritardo massimo di questa combinazione
al superenalotto

85.90.77.86.82.55.81.83.6.51.65.61

tenendo conto che è una lunghetta di 12 numeri, ma vorrei trovare i ritardi solo per i 6 estratti della sestina superenalotto
senza jolly e senza star.

non sono capace di ottenere i ritardi giusti.

ne con statisticaformazioneSE
ne con ritardocombinazioneSE
ne in altri modi

eppure spaziometria nella sezione statistica veloce li calcola.

cosa sbaglio?

 

[Mike58]

Ciao Bepp, si hai ragione i codici statisticaFormazioneSe e serieritardiSe calcolano anche a me con le mie verifiche anche i numeri Jolly e Superstar.

Io avrei aggirato con la verifica esito e conteggiando gli esiti.

prova a vedere la verifica scriptica.

Sub Main
   Dim L
   maxx = 0
   Ini = EstrazioniArchivioSE - 100
   fin = EstrazioniArchivioSE
   L = Array(0,85,90,77,86,82,55,81,83,6,51,65,61)
   Call StatisticaFormazioneSE(L,2,rit,max,Incr,fre,Ini,fin)
   sr = SerieRitardoSE(Ini,fin,L,2)
   Scrivi StringaNumeri(L)
   Scrivi "Ritardo x 2  - " & rit & vbTab & StringaEstrattiSE(fin - rit)
   Scrivi "Ritardo sr 2 - " & sr
   Scrivi "RitMax  x 2  - " & Max
   Scrivi
   For es = Ini To fin
      Call VerificaEsitoSE(L,es,2,1,esito,clp,estr)
      If esito <> "" Then
         k = k + 1
         Call ElencoRitardiSE(L,2,Ini,fin,aRit,aId)
         If aRit(k) > maxx Then maxx = aRit(k) ' ritardo massimo
         ess = fin - es ' ritardo corrente
         Scrivi es & vbTab & estr & vbTab & aRit(k) & vbTab & StringaEstrattiSE(aid(k)) & vbTab & " Rit cronoL.... " & ess
      End If
   Next
   Scrivi
   Scrivi "Massimo Ritardo... " & maxx
   Scrivi "Ritardo Corrente.. " & ess
End Sub

 

[Beppignello]

grazie Mike58 per il riscontro