cinquina con una somma ritardi stabilita

[aldinobis]

Buona giornata a tutti

chiedo,gentilmente a chi ha tempo e voglia ,di fare un listato per "Spaziometria"
del procedimento, sotto riportato, per poterne verificare il suo rendimento attuale,
nel gioco del Lotto italiano


"" Su una delle 12 ruote , per es Roma (impostabile da inputBox)
nel range estrazionale da 1-18 (modificabile allo scopo di trovare il range piu produttivo)
trovare 5 estratti (in qualsiasi posizione )
la cui somma dei singoli ritardi estrazionali sia uguale a 50 .
Eventualmente scaturissero piu' cinquine ,
si prendono in considererazione quelle(massimo 3)
con la somma numerica, dei 5 estratti, piu'alta.
giocare la o le cinquine x ambo e terno x nove colpi""

Ringrazio anticipatamente

Cordiali saluti

Aldo

 

[Cinzia27]

Eventualmente scaturissero piu' cinquine ,
si prendono in considererazione quelle(massimo 3)
con la somma numerica, dei 5 estratti, piu'alta.
giocare la o le cinquine x ambo e terno x nove colpi""

Ciao, Aldinobis.
Purtroppo non sono riuscita ad applicare Il filtro riportato.

Sub main()
' Aldinobis - somma ritardo 50 - Script Cinzia
Dim ru(1),n1(1),n2(1),n3(1),n4(1),n5(1),rt(5),ps(3),n(5)
ps(2)=1
ps(3)=0.50
For es=7440 To EstrazioneFin
c=0
For r= 1 To 12
'If r=6 Or r=8 Then ' NA e RO
If r=11 Then r=12
ru(1)=r
n1(1)=Estratto(es,r,1)
n2(1)=Estratto(es,r,2)
n3(1)=Estratto(es,r,3)
n4(1)=Estratto(es,r,4)
n5(1)=Estratto(es,r,5)
rt(1)=SerieRitardo(1,es-1,n1,ru,1)
rt(2)=SerieRitardo(1,es-1,n2,ru,1)
rt(3)=SerieRitardo(1,es-1,n3,ru,1)
rt(4)=SerieRitardo(1,es-1,n4,ru,1)
rt(5)=SerieRitardo(1,es-1,n5,ru,1)
sor=rt(1)+rt(2)+rt(3)+rt(4)+rt(5)
If sor=50 Then
c=c+1
soe=(SommaEstratti (es,r))
Scrivi " Somma estratti "&soe
n(1)=Estratto(es,r,1)
n(2)=Estratto(es,r,2)
n(3)=Estratto(es,r,3)
n(4)=Estratto(es,r,4)
n(5)=Estratto(es,r,5)

Scrivi FormatSpace(es,5,1)&" "&siglaruota(r)&" "&stringanumeri(n)&" -->  rt "&stringanumeri(rt)&" somma rt "&sor
If c>0 Then Scrivi "Casi "& c
If c>1 Then Scrivi "somma estratti "&soe
ImpostaGiocata 1,n,ru,ps,18,2
Gioca es
End If
'End If
Next
Next
ScriviResoconto
End Sub

 

[aldinobis]

Ciao Cinzia27
ti ringrazio infinitamente per il lavoro svolto
anche perche' il tuo modo di programmnare e' piu' alla mia portata , sono un ragazzo del 43' ,
e qualche piccolo aggiustamento riesco a farlo da solo senza dar noia.
per il momento ho solo constatato che se anziche' 50 metto 49 la cosa si mette bene,almeno per l'ultimo anno.
adesso me lo studio per bene e se trovo qualche miglioramento strutturale ,da fare , lo posto per
eventuali aggiunte o modifiche sempre se se ti va'.
Ancora grazie

 

[Mike58]

Ciao Aldino,sia il nome che il ragazzo del 43 mi fanno pensare ad un mio carissimo collega di lavoro, con il quale dopo il suo pensionamento ci siamo persi di vista.
Venendo alla tua richiesta ho visto lo script di Cinzia che ha raccolto i dati in modo diverso da quello che ho capito io.
Infatti lei prende una estrazione di rilevamento e alla es-1 ci calcola i relativi ritardi precedenti sommati a 50.
invece io nel mio costrutto ho preso una estrazione corrente e visto i relativi ritardi = 50, raccolta la cinquina la si mette in gioco per colpi stabiliti (io imposto25) .

Prova a fare delle tue verifiche.

Sub Main
   Dim ru(1),Nu(5),ef(5),T
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   colpi = 25
   sommaRitardi = CInt(InputBox("Quale sSomma Ritardo Analizzo",,50))
   Scrivi "Range Estrazione Inizio..... " & GetInfoEstrazione(Ini)
   Scrivi "Range estrazione fine....... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni analisi... " & fin - Ini + 1
   Scrivi
    T = Array(T,"Ruota","InfoData","NumeriEstratti","RitardiRelativi","SommaRitardo","verificaEsito","Colpo","DataVerifica")
    Call InitTabella(T)
 
   For es = Ini To fin
   For r = 1 To 12
   If r = 11 Then r = 12
   ru(1) = r
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p)
         ef(p) = EstrattoRitardo(r,Nu(p),es,fin)
          eff = eff & Format2(ef(p)) & " "
      Next
       som = ef(1) + ef(2) + ef(3) + ef(4) + ef(5)
       If som = sommaRitardi Then
       k = k + 1
     Call VerificaEsito(Nu,ru,es + 1,2,colpi,,,clp,esa,id)
         'Scrivi SiglaRuota(r) & vbTab & GetInfoEstrazione(es) & vbTab & StringaNumeri(Nu,,1) & vbTab & eff & vbTab & som & vbTab & esa & vbTab & clp
         T = Array(T,SiglaRuota(r),GetInfoEstrazione(es),StringaNumeri(Nu),eff,som,esa,clp,GetInfoEstrazione(id))
         Call AddRigaTabella(T)
         If es < fin - colpi Then Call SetColoreCella(2,0,5)
      End If
      eff = ""
   Next
   Next
   CreaTabella
   Scrivi "Casi Rilevati... " & k,1
End Sub

 

[aldinobis]

CIiao Mike58
e grazie per il tuo elaborato,
mo' mi studio con calma gli esiti con le varie somme possibili e poi vediamo se e' il caso di fare qualche aggiustamento
per eventuali miglioramenti.
io sono di Pescara
ancora grazie e cordialita'

 

[joe]

Buon giorno a tutte/i.

Anch'io avevo inteso un qualcosa di diverso e più simile a quanto ha scritto Mike.

Ovvero: rit(a)+rit(b)+rit(c)+rit(d)+rit(e)=50

E' molto, diverso da quanto ha inteso Cinzia e che riassumerei nel:

quando la cinquina sincrona ha ritardo 10.

In estrema sintesi è come ha scritto recentemente anche Luigi:

Se non si ha la descrizione ... non si può codificarla.

Però sono (OTTIMI) risultati statistici degni di essere considerati,

pur nella loro totale diversità.

 

[aldinobis]

Ciao joe

Grazie di essere passato e lasciato un tuo ,graditissimo, commento.
Sono ,da sempre, un tuo estimatore...silente.
Tempo fa' ho visionato ,su questo sito, un tuo lavoro "distanze tra estratti in range"
ora ne approfitto per chiederti se hai fatto anche le "somme" ed eventualmente se hai
ulteriori sviluppi a partire da queste due basi.

ancora grazie e cordialita'

 

[i legend]

Ciao a tutti.
Anche io come cinzia avrei calcolato il ritardobdel numero all estrazione precedente la sua sortita.
In teoria non dovrebbe essere zero il ritardobdi un numero nel giorno della sua sortita?
Un grande saluto a mike
Ciao a tutti.

 

[joe]

E' questione sia delicata che dibattuta.

Spaziometria considera esista il ritardo zero.

Io e molti altri ritengono che prima si giochi,

e poi eventualmente il numero esca al primo colpo, o alla prima estrazione utile.

Mai a ritardo zero, ove eventualmente, era già caduto estratto

l'estrazione divenuta precedente e nella quale si è posto "lo zero",

da cui parte il nuovo conteggio.

In sintesi al Ritardo Corrente presente all' "Estrazione-1", si deve,

o più politically correct, si dovrebbe aggiungere "+1",

Sia per "attualizzare" il ritardo, che per allineare la "una" scuola di pensiero a quella differente.

Ma sono preferenze quasi personali e quasi inutili fintanto che, non si gioca a colpo,

o si utilizza la Statistica per contare ritardi e quant'altro.

Cioè fintanto che non c'è differenza tra dire per esempio: "4" che potrebbe doversi intendere "5" e viceversa.

Mi spiego in concreto:

Se calcoli la media di 1000 ritardi ottenuti con quello script, e come hai detto,

quasi certamente avrai come risultato un numero molto simile a 17.

Mentre il Ritardo Naturale tutti lo diciamo 18

E... potrebbe anche esserlo aggiungendo "+1" a tutti e 1000 i ritardi.

 

[LuigiB]

Ciao Joe , si chiama ritardo perche somma delle estrazioni consecutive in cui l'evento non si è verificato era troppo lungo

 

[Mike58]

Ciao Aldino, e tutti gli intervenuti.
Ti metto anche il costrutto di Cinzia ossia la cinquina estratta con i ritardi precedenti a somma voluta.
In questa soluzione gli esiti non sono male.

Sub Main
   Dim ru(1),Nu(5),ef(5),TT,T,posta(2)
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   colpi = 25
   posta(2) = 1
   min = CInt(InputBox("Quale Somma Ritardo Min",,50))
   max = CInt(InputBox("Quale Somma Ritardo Max ",,54))
   Scrivi "Range Estrazione Inizio..... " & GetInfoEstrazione(Ini)
   Scrivi "Range estrazione fine....... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni analisi... " & fin - Ini + 1
   Scrivi
   TT = Array(TT,"Ruota","InfoData","NumeriEstratti","RitardiRelativi","SommaRitardo","verificaEsito","Colpo","DataVerifica","Spesa","SpesaPr"_
   ,"VincitaG","VincitaPr","UtileG","UtilePr")
   Call InitTabella(TT,0,,,5)
   For es = Ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         ru(1) = r
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
            ef(p) = EstrattoRitardo(r,Nu(p),Ini,es - 1)
            eff = eff & Format2(ef(p)) & " "
         Next
         som = ef(1) + ef(2) + ef(3) + ef(4) + ef(5)
         If som >= Min And som <= max Then
            k = k + 1
            ImpostaGiocata 1,Nu,ru,posta,25,2
            Gioca es,,,,,False
            sp = GetSpesa(True)
            spp = GetSpesa(False)
            vc = GetVincita(True)
            vcc = GetVincita(False)
            ut = GetGuadagno(True)
            utt = GetGuadagno(False)
            Call VerificaEsito(Nu,ru,es + 1,2,colpi,,,clp,esa,id)
            'Scrivi SiglaRuota(r) & vbTab & GetInfoEstrazione(es) & vbTab & StringaNumeri(Nu,,1) & vbTab & eff & vbTab & som & vbTab & esa & vbTab & clp
            T = Array(T,SiglaRuota(r),GetInfoEstrazione(es),StringaNumeri(Nu),eff,som,esa,clp,GetInfoEstrazione(id),sp,spp,vc,vcc,ut,utt)
            Call AddRigaTabella(T)
            If es < fin - colpi Then Call SetColoreCella(2,0,5)
         End If
         eff = ""
      Next
   Next
   Call AddRigaTabella(TT,0,,,5)
   CreaTabella
   Scrivi "Casi Rilevati... " & k,1
End Sub

 

[aldinobis]

Ciao a tutti
e grazie per i commenti ,sempre graditissimi
Grazie mike58 ,bel lavoro ,ottimo il poter impostare un max/min
e grazie anche a Cinzia che ha messo tutti d'accordo....
ho fatto qualche prova di verifica con gli esiti positivi ....che pur buoni non mi sembrano tali da giustificare
il tentare una giocata con la speranza di un utile.
Finora la ricerca consisteva nel cercare una "cinquina " con certe caratteristiche e rigiocarla senza modifiche
se vogliamo provare ad implementare qualche procedimento per renderla piu' produttiva partendo dall'ultimo lavoro
ho ancora qualcosina da suggerire.
buon proseguimento
Cordiali saluti

 

[i legend]

Ciao a tutti