Lotteria MillionDay

[Mike58]

File aggiornato

 

[Mike58]

Ritardo Medio

Sub Main
 Dim Nu(1),T,V,sFile
 'est = InputBox("QUANTE ESTRAZIONI CONTROLLO ",,30)
 'r = InputBox("Quale RUOTA",,1)

 'ReDim Ru(0)
 'ScegliRuote(Ru)
 sFile = ScegliFile("c:\Mike58\Desktop\.txt")
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1'EstrazioniArchivioFT - est
 fin = EstrazioniArchivioFT
 SetColorSezione(6)
 Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
 'Scrivi Space(100) & "Script By Mike58",1
 Scrivi "Inizio Ricerca.............. " & GetInfoEstrazioneFT(Ini)
 Scrivi "Fine   Ricerca.............. " & GetInfoEstrazioneFT(fin)
 Scrivi "Totali Estrazioni........... " & fin - Ini + 1
 EndColorSezione

 T = Array(T,"Numeri","Ritardo","Rit Max","Freq","IncrMax","Elenco Ritardi","Somma Rit","Ritardo Medio")
 Call InitTabella(T)
 For n = 1 To 55
  Nu(1) = n
  'Ru(r) = r
  Call StatisticaFormazioneFT(Nu,1,rit,max,Incr,fre,Ini,fin)
  '---------- elenco ritardi --------------------
  ReDim rp(fre)
  riga = ""
  InizioR = Ini
  fineR = fin
  somrit = 0
  For z = 1 To CInt(fre)
   rp(z) = SerieRitardoFT(InizioR,fineR,Nu,1)
   riga = riga & rp(z) & " "
   fineR = fineR -(rp(z) + 1)
   somrit = somrit + rp(z)
   Medrit = Round((somrit/z),2)
  Next
  ' fine calcolo----------------------------------
  V = Array(V,StringaNumeri(Nu),rit,max,fre,Incr,riga,somrit,Medrit)
  AddRigaTabella(V)
  riga = 0
 Next
 Call SetTableTitle(" ********** Ritardo Medio  Script By Mike58 ************","Cambria",3,,2,,1)
 Call CreaTabella(4,- 1)
End Sub

 

[ppaaoolloo]

ciao Mike

grazie ancora di tutto

ciao

 

[solare]

Grazie Mike58

 

[korokoro]

Grazie Mike58 e Complimenti

Ho trovato un Prog, FreeWare per MillionDay

https://www.spagoni.it/dblog/articolo.asp?articolo=36

 

[Mike58]

Grazie Leo Può venire utile anche questo.

 

[tartaruga]

Ci sono programmi per far girare gli script?

 

[claudio8]

Ci sono programmi per far girare gli script?

Lo trovi qui https://forum.lottoced.com/forum/lottoced/area-download/119980-programma-spaziometria#post119980

 

[Mike58]

Grazie Claudio (non avevo visto la richiesta di aiuto)

 

[Mike58]

Continuano le mie analisi con script per questa Lotteria Millionday

Frequenze in Posizioni

Sub Main
 Dim sFile,T,V,nEsiti
 sFile = ScegliFile(,,".txt")
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 T = Array(T,"Numero","P1","P2","P3","P4","P5","Pres","Rit","Sto","InCr")
 Call InitTabella(T,1,,2,5)
 For x = 1 To 55
  ReDim ff(5)
  For y = 1 To 5
   ReDim pos(5)
   pos(y) = True
   ff(y) = EstrattoFrequenzaFT(x,Ini,fin,pos)
   fft = EstrattoFrequenzaFT(x,Ini,fin)
   rit = EstrattoRitardoFT(x,Ini,fin)
   sto = EstrattoStoricoFT(x,Ini,fin)
   If ff(y) = 0 Then ff(y) = "-"
   Incr = EstrattoIncrStoricoFT(x,Ini,fin)
   If Incr = 0 Then Incr = "-"
  Next
  V = Array(V,Format2(x),ff(1),ff(2),ff(3),ff(4),ff(5),fft,rit,sto,Incr)
  Call AddRigaTabella(V)
  Call SetColoreCella(7,3,0)
  Call SetColoreCella(8,7,5)
  Call SetColoreCella(9,4,0)
  Call SetColoreCella(1,1,5)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella(,,,,1)
 For yy = 1 To 55
  n = EstrattoFrequenzaFT(yy,Ini,fin)
  m = EstrattoRitardoFT(yy,Ini,fin)
  o = EstrattoStoricoFT(yy,Ini,fin)
  i = EstrattoIncrStoricoFT(yy,Ini,fin)
  If i > 0 Then
   kn = kn + 1
   ReDim Preserve aNum(kn)
   aNum(kn) = yy
   ReDim Preserve aRit(kn)
   aRit(kn) = m
  End If
 Next
 Scrivi "Numeri per Gioco  : " & StringaNumeri(aNum,,1) & " ( " & kn & " )",1
 Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
 ess = fin - 30
 Scrivi
 Scrivi "Ultimi Esiti Numeri in Esame"
 Scrivi String(60,"-")
 Scrivi "Pr            Info Data             Esiti       Esito "
 Scrivi String(60,"-")
 For ex = ess To fin
  Call VerificaEsitoFT(aNum,ex,1,1,esito,clp,es1,id)
  If esito <> "" Then
   k = k + 1
   Scrivi k & vbTab,0,0
   Scrivi GetInfoEstrazioneFT(id) & vbTab,0,0
   Scrivi es1 & vbTab,0,0
   Scrivi esito
  End If
 Next
End Sub

Archivio aggiornato

 

[Mike58]

videata

 

[*blacklotto*]

Buona sera a tutti,

grazie Mike58, grazie per la tua disponibilità ad inserire questi listati per MillionDay.
Seguo molto volentieri i tuoi capolavori che permettono di incominciare a seguire questo ' intrigante ' gioco che ha molti punti da chiarire, da capire e da esaminare.
55 i numeri a pronostico, 55 sono i numeri estratti al gioco del lotto ad estrazione con 90 numeri fissi
5 i numeri estratti, come 5 i numeri estratti per ogni ruota al gioco del lotto
1 estrazione al giorno, 3 estrazioni a settimana per il gioco del lotto.
Sulle vincite dei due giochi ci sarebbe lunga conversazione, ma prendendo in causa solo Millionday :

2 = 2,00
3 = 50,00
4 = 1.000,00
5 = 1.000.000,00

a parte la differenza discutibile tra le sorti, prendiamo solo la maggiore, costo fisso 1€ a cinquina azzeccata premio la bellezza di 1 milione di €

ma guardiamo un attimo tutte le probabilità :

2 = 17,7
3 = 284
4 = 13.915
5 = 3.478.761

con la possibilità di mettere a pronostico solo cinque numeri a schedina, ci si dovrà confrontare con 3.478.761 cinquine dove nessuna potrà essere messa in discussione, a differenza del Lotto, dove vedersi estratte cinquine tipo queste :

01 - 02 - 03 -0 4 - 05
51 - 52 - 53 - 54 - 55

diventerà cosa ovvia di normale estrazione, e, vedersi estratte in giorni consecutivi cinquine tipo :

44 - 49 - 41 - 46 - 40
49 - 46 - 40 - 44 - 41
40 - 41 - 49 - 46 - 44

con la stessa cinquina.

A vedere, le cinquine totali non sono poi tantissime .... vuoi che in tutt'Italia non le si giochino ?
Bè, certo, c'è un'estrazione tutti i giorni.
Ma anche se in un'intera regione, ogni abitante giocasse una combinazione tanto da coprirle tutte, uno solo sarebbe milionario, e qualcuno, in piena tranquillità, se ne porterebbe a casa due sicuri di milioni, anzi di più !

Resta comunque un " gioco " interessante, e come piace a Mike58, piace anche a me.

Grazie Luigi B, spaziometria è grande, grande come il tuo lavoro per questo programma.

... a presto, blacklotto

 

[Alien.]

ottimo,ma ho inserito l'archivio ma mi dice che non esiste,,,inoltre come si aggiorna l'archivio ?grazie.

 

[Mike58]

Bene almeno siamo in 2 che dimostrano in modo costruttivo di apprezzare il gioco

 

[Mike58]

Alien, ma sai usare gli archivi FT (File di Testo) ?
Questi sono archivi con aggiornamenti manuali e vanno richiamati dalla directory salvata.
Io ogni tanto metto l'archivio aggiornato ma poi sta a chi vuole utilizzarlo tenerselo aggiornato.

 

[*blacklotto*]

Si Mike, gioco interessante.
Grazie ai tuoi capolavori, e, anch'io facendo fatica a capire l'inserimento delle estrazioni, ora superato grazie ai tuoi consigli, ora posso darmi da fare sperimentando e modificando in piena armonia.
Per esempio mi son fatto il listato, sempre portando modifiche ai tuoi che mi trova le somme degli estratti, ora cercherò di poter giungere a piramidarli, e via via alle migliaia i possibilità nella ricerca.
Non ho limiti nelle ricerche, nella metodologia, e nella fantasia di giungere a discreta positività nel pronostico, e tutto quello che presumo, intuisco, idea, ogni piccolo cavillo sarà buono per dare spunto a cosa nuova.

Insisti Alien ! ... se ci sono arrivato io ...

blacklotto

 

[Nikor]

Ciao Mike58, grazie per quanto metti in condivisione mi accodo ai complimenti degli altri utenti.

Questo nuovo gioco ha incuriosito anche me .
Il mio intervento è riferito a questo tuo scritto:

Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).

Proviamo a stilare una prima bozza, anche se il campionamento è ancora esile:

Su 33 estrazioni avvenute un solo terno si è ripetuto, (11.22.49) presenze (2)

Per gli ambi ne abbiamo 3 con 3 presenze, (06.29) (43.46) (46.47)

Si potrebbe a questo punto spaziare su formazioni eterogenee per poter trovare qualche cosa di utile, dal tuo spunto su 13 numeri ho trovato con il vecchio procedimento Nikor (trattato tempo fa sul Forum) una lunghetta con esiti soddisfacenti.

01.05.13.16.19.20.23.29.40.43.44.46.47

Nelle 33 estrazioni ha dato ben 16 presenze di un punteggio > = del 3 !
Prova se hai tempo e voglia ad inserire nei tuoi listati i numeri e fammi sapere se ne vale la pena continuare….. poi per i sistemi non ci sono problemi, tempo permettendo sono a disposizione .

Buon inizio settimana, Nikor.

 

[Mike58]

Ciao Blacklotto,
Ciao Nikor

Mi fa piacere trovare chi collabora in modo costruttivo, avete perfettamente recepito il messaggio che volevo dare.

Tutto nel limite del possibile si può sviluppare senza presunzione di perfezione ma solo mettere nero su bianco una sorte di idea.

Confermo i dati di nikor per i terni e gli ambi che già ho sviluppato, ma per questi è ancora presto per raccogliere dati leggibili ai fini statistici.

Mentre per le formazioni eterogenee si possono mettere in manuale in un array e verificarne i dati statistici.

per Nikor sono sicuro saprai mettere lo sviluppo in manuale nei vari array, intanto cominciamo a vedere la tua lunghette per sorte.

Sub Main
 Dim Nu(55),T,V,Ru(1),Np(90),sFile
 sFile = ScegliFile(,,".txt")
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 Call ScegliRange(ini,fin,1,EstrazioniArchivioFT)
 Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
 Scrivi "Estrazione Inizio........... " & Ini
 Scrivi "Estrazione Fine............. " & fin
 Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
 Scrivi
 sorte = CInt(InputBox("Quale sorte di esito verifico ",,2))
 Scrivi "Sorte di verifica... " & NomeSorte(sorte),1
 T = Array(T,"Combinazione","Frequenza","Ritardo","Rit_Max","InCr","Verifica","ID DATA")
 Call InitTabella(T)
 For x = 1 To 10
  ' ............ inizio inserimento .................... di x
  Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
  Np(2) = Array(0,11,13,20)
  Np(3) = Array(0,11,20,55)
  Np(4) = Array(0,13,20,27)
  Np(5) = Array(0,11,20,48)
  Np(6) = Array(0,3,13,20,27)
  Np(7) = Array(0,3,13,20,54)
  Np(8) = Array(0,11,20,37,42)
  Np(9) = Array(0,13,20,51)
  Np(10) = Array(0,20,27,51)
  ' .......... fine inserimento ...........................
  Call StatisticaFormazioneFT(Np(x),sorte,rit,max,Incr,fre,Ini,fin)
  Call VerificaEsitoFT(Np(x),fin,sorte,1,esito,,es1,id)
  V = Array(V,StringaNumeri(Np(x)),fre,rit,max,Incr,es1,GetInfoEstrazioneFT(id))
  Call AddRigaTabella(V)
  Call SetColoreCella(3,7,5)
 Next
 Call CreaTabella(5)
End Sub

 

[Nikor]

Ciao Mike58 tutto perfetto, ho fatto una verifica con il tuo listato e risulta tutto esatto.

Solo un piccolissimo errore di omissione del numero 44 , avevi inserito solo 12 numeri invece di 13 ma il concetto non cambia.

Nel precedente post avevo scritto che la lunghetta di 13 numeri sul range di 33 estrazioni fino alla data del 11/03/2018 aveva avuto 16 presenze uguali o superiori a 3 punti.

Il risultato del tuo listato da 19 frequenze ed è esatto :



L’inghippo è subito chiarito, nelle mie 16 presenze è compresa una quaterna che nella stessa estrazione da 4 presenze di terni , 15 volte terno più i 4 terni in una stessa estrazione fanno esattamente 19 frequenze!

Il tuo algoritmo invece conta tutti i terni presenti e li somma , ad esempio con 2 quaterne darebbe 8 frequenze del terno.

Comunque ho voluto solo fare una verifica se i miei dati erano esatti perché estrapolati frettolosamente da un primo palinsesto per appurare se vale la pena continuare considerando il poco tempo a disposizione che è sempre tiranno.

Proverò più tardi a confrontare qualche cinquina eterogenea per vedere cosa ne esce fuori.

Nell’estrazione di questa sera i 13 numeri hanno fatto solo 2 punti , ma sfiorato il 4 con gli adiacenti del 29 e del 46!

Buona Serata e Complimenti.
Nikor.

 

[Mike58]

Ciao Nikor, so e vedo che sei amante della statistica applicata al gioco

Intanto prova questo script per verifica Lunghette divise per varie sorti.

Poi se arrivi a qualche soluzione e veduta ragionevole ben venga per noi tutti.

Sub Main
 Dim sFile,Np(55),T,V
 sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT

 Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
 Scrivi "Estrazione Inizio........... " & Ini
 Scrivi "Estrazione Fine............. " & fin
 Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
 Scrivi "Lunghette Eterogenee per Frequenze di sorte ",1
 Scrivi sFile
 Scrivi

 T = Array(T,"Lunghetta","Ambi","Terni","Quaterne","Cinquine")
 Call InitTabella(T)
 For x = 1 To 10
  ' ............ inizio inserimento .................... di x
  Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
  Np(2) = Array(0,11,13,20,22,4,25,26,27,28,29,30,31)
  Np(3) = Array(0,11,20,55,45,46,47,48,49,50,51,52,53)
  Np(4) = Array(0,13,20,27)
  Np(5) = Array(0,11,20,48)
  Np(6) = Array(0,3,13,20,27)
  Np(7) = Array(0,3,13,20,54)
  Np(8) = Array(0,11,20,37,42)
  Np(9) = Array(0,11,22,49)
  Np(10) = Array(0,20,27,51)
  ' .......... fine inserimento ...........................
  For y = 2 To 5
   Call StatisticaFormazioneFT(Np(x),y,rit,max,Incr,fre,Ini,fin)
   ReDim Preserve freq(y)
   freq(y) = fre
  Next
  V = Array(V,StringaNumeri(Np(x)),freq(2),freq(3),freq(4),freq(5))
  Call AddRigaTabella(V)
 Next
 CreaTabella
End Sub

Ho tolto sceglifile e messo direttamente il percorso file per l'utilizzo dovete mettere il vostro admin

C:\Users\Mike58\Desktop\MillionDay.txt