Lotteria MillionDay

[Mike58]

L'intervento di Nikor è più che ragionevole, infatti anch'io rischio di perdere il filo del discorso se si accavallano le discussioni e specie se queste fanno riferimenti a correzioni scriptiche.

Sarebbe utile fare richieste di altro tipo aprendo nuovi thread, cosi da non perdere la sostanza del thread che si vuole portare avanti, perché in questo senso c'è ancora tanto da ricercare.

Mi auguro che le idee statistiche possono venir fuori da parte di tanti.

Ciao

 

[Mike58]

Ciao Super Mike, Che dire?​

Hai postato un’altra chicca! dico subito come la penso, qualunque intervento relativo alle statistiche di questo tuo interessante Thread ( ​

che aveva suscitato tanto interesse da parte degli appassionati di questo nuovo gioco

) credo sia da continuare anche con nuove elaborazioni come ad esempio i terni ( dei quali al momento mi sembra che a presenze = 3 non ci sia ancora traccia ) il range archivio è ancora esile ma con il passare delle estrazioni arriverà il momento in cui tracciare qualche primo dato interessante da usare come palinsesto a base statistica.​

effettivamente i terni ripetuti sono ancora 4 con frequenza = 2

proviamo a vedere quali con lo script in analisi.

Sub Main
 Dim sFile,T,V
 Dim Nu(3)
 sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
 Scrivi Space(35) & "Mike58",1,,,2,3
 Scrivi "Estrazioni Analizzate : " & fin - Ini + 1
 ResetTimer
 T = Array(T,"Terni","Freq","Rit","Max","Incr","A","B","C","Freq x 2","Rit x 2")
 Call InitTabella(T)
 For x = 1 To 53
  For y = x + 1 To 54
   For z = y + 1 To 55
    Nu(1) = x
    Nu(2) = y
    Nu(3) = z
    'If x <> y Then
    Call StatisticaFormazioneFT(Nu,3,rit,max,Incr,fre,Ini,fin)
    If fre > 1 Then
     a = EstrattoFrequenzaFT(Nu(1),Ini,fin)
     b = EstrattoFrequenzaFT(Nu(2),Ini,fin)
     ab = EstrattoFrequenzaFT(Nu(3),Ini,fin)
     c = SerieFreqFT(Ini,fin,Nu,2)
     d = SerieRitardoFT(Ini,fin,Nu,2)
     k = k + 1
     V = Array(V,StringaNumeri(Nu),fre,rit,max,Incr,a,b,ab,c,d)
     Call AddRigaTabella(V)
    End If
   Next
  Next
  Call Messaggio("Tempo di elaborazione : " & TempoTrascorso)
  Call AvanzamentoElab(x,y,z)
 Next
 Call CreaTabellaOrdinabile(2)
 Scrivi "Terni trovati con freq > 1 : " & k,1
End Sub

 

[Nikor]

Ben ritrovati, vedo con grande piacere che l’amico Fillotto. ha captato al volo il mio precedente messaggio con il comune senso del fare e sopra tutto senza fraintendimenti.

Per Mike, artefice indiscusso di questo interessante thread :
Mi fa piacere che i dati siano in linea con i miei perché la mia precedente affermazione di nessuna presenza = a 3 era ricavata da una veloce bozza!

A questo punto con la tua nuova routine ( oltre a sapere quante siano le presenze ) gli appassionati potranno anche sapere quali siano, ed avere a disposizione un altro interessante listato!

Bene credo che siamo sulla strada giusta e che come dal tuo appello si uniscano altri interessati per proporre e condividere nuove prospettive .

Rimane solo un dubbio, e si potrebbe opinare che il titolo di questa sezione è Download vero, verissimo ma considerando che le statistiche e le utility dei listati vanno in parallelo sullo stesso tema, secondo il mio modesto parere è fattibile e ammissibile!

Buona serata, Nikor.

 

[Mike58]

Ormai il thread si trova in Area Download e visto che oltre a raccogliere statistiche si postano anche script è meglio che esso rimanga in questa area ( che io prediligo)

Poi continuando a raccogliere dati, una altra analisi con per gli ambi, ossia NumeroCapogioco con il suo miglior abbinamento.

Lo script è interattivo e si presta a tante ricerche.

Ciao e fatene buon uso.

Sub Main
 Dim Ambi(1900,9)
 Dim Ru(1),Nu(1),Abb(2),Nv(2)
 Dim TotAbb,T,V,sFile
 'r = InputBox("QUALE RUOTA ANALIZZO",,6)
 sFile = "c:\users\mike58\desktop\millionday.txt"
 Call ApriBaseDatiFT(sFile,5,",",55)
 Call ScegliRange(Ini,fin,1,EstrazioniArchivioFT)
 'Ini = 8072
 'fin = EstrazioneFin' - 1
 'fine = EstrazioneFin
 ResetTimer
 Scrivi "Scrpit By Mike58",1,,,1,3,,1
 Scrivi "Range Inizio  : " & GetInfoEstrazioneFT(Ini),1
 Scrivi "Range Fine    : " & GetInfoEstrazioneFT(fin),1
 Scrivi "Totali Estraz.: " & fin - Ini + 1
 Scrivi "Lotteria MillionDay",1,,,1
 Scrivi
 T = Array(T,"Numero","Ambo Freq","Frequenza","Ritardo","CapoGioco Ritardo","CapoGioco Freq","Abb Ritardo","Abb Freq")
 Call InitTabella(T)
 For n1 = 1 To 55
  Nu(1) = n1
  eF = EstrattoFrequenzaFT(n1,Ini,fin)
  k = 0
  For n2 = 1 To 55
   Abb(1) = Nu(1)
   Abb(2) = n2
   Ru(1) = r
   'ReDim aPos(5)
   'For kk = 5 To 5
    'aPos(kk) = True
    'Call StatisticaFormazioneTurbo(Abb,Ru,2,rit,max,Incr,fre,Ini,fin,,aPos)
    ambFr = SerieFreqFT(Ini,fin,Abb,2)
    ambRit = SerieRitardoFT(Ini,fin,Abb,2)
    estFr = EstrattoRitardoFT(n1,Ini,fin)
    estPr1 = EstrattoRitardoFT(n2,Ini,fin)
    estPr2 = EstrattoFrequenzaFT(n2,Ini,fin)
   'Next
   Ambi(k,1) = Abb(1)
   Ambi(k,2) = Abb(2)
   Ambi(k,3) = AmbFr
   Ambi(k,4) = AmbRit
   Ambi(k,5) = estFr
   Ambi(k,6) = eF
   Ambi(k,7) = estPr1
   Ambi(k,8) = estPr2
   'Ambi(k,9) = rit
   k = k + 1
  Next
  OrdinaMatrice Ambi,- 1,3
  For TotAbb = 1 To 4
   Nv(1) = Ambi(TotAbb,1)
   Nv(2) = Ambi(TotAbb,2)
   V = Array(V,StringaNumeri(Nu),StringaNumeri(Nv),Ambi(TotAbb,3),Ambi(TotAbb,4),Ambi(TotAbb,5),Ambi(TotAbb,6),Ambi(TotAbb,7),Ambi(TotAbb,8))
   Call AddRigaTabella(V)
   If dispari(n1) Then Call SetColoreCella(1,1,5)
   If pari(n1) Then Call SetColoreCella(1,6,1)
  Next
  Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
  Call AvanzamentoElab(n1,n2,k)
 Next
 Call CreaTabellaOrdinabile()
 k = 0
End Sub

 

[solare]

scusate, qualcuno ha l'archivio in formato txt aggiornato !
Grazie

 

[Nikor]

Super Mike, atra utilissima Utility.

....scusate, qualcuno ha l'archivio in formato txt aggiornato !
Grazie

01,07/02/2018,16,07,43,44,51
02,08/02/2018,53,15,38,26,27
03,09/02/2018,43,45,13,31,02
04,10/02/2018,47,46,44,28,49
05,11/02/2018,05,39,40,46,33
06,12/02/2018,05,26,53,21,41
07,13/02/2018,50,46,43,03,34
08,14/02/2018,54,53,15,40,18
09,15/02/2018,01,12,19,32,47
10,16/02/2018,48,41,44,40,46
11,17/02/2018,15,10,52,55,18
12,18/02/2018,42,20,13,51,29
13,19/02/2018,06,44,29,25,01
14,20/02/2018,35,54,42,37,10
15,21/02/2018,16,06,31,23,29
16,22/02/2018,29,19,37,05,21
17,23/02/2018,35,07,16,48,17
18,24/02/2018,12,46,23,15,20
19,25/02/2018,14,10,06,29,35
20,26/02/2018,34,37,48,04,25
21,27/02/2018,46,11,43,16,47
22,28/02/2018,02,31,25,26,52
23,01/03/2018,20,48,52,01,47
24,02/03/2018,34,18,32,23,08
25,03/03/2018,14,43,28,05,46
26,04/03/2018,55,09,34,03,15
27,05/03/2018,54,28,16,32,40
28,06/03/2018,21,22,49,11,52
29,07/03/2018,19,01,49,43,24
30,08/03/2018,33,47,13,46,08
31,09/03/2018,11,22,36,49,29
32,10/03/2018,35,42,09,32,01
33,11/03/2018,46,25,19,29,10
34,12/03/2018,54,30,43,13,45
35,13/03/2018,16,09,19,53,31
36,14/03/2018,26,47,29,34,54
37,15/03/2018,34,08,39,02,27
38,16/03/2018,27,42,25,28,17
39,17/03/2018,36,49,14,43,19
40,18/03/2018,03,34,33,11,52
41,19/03/2018,49,19,07,52,41
42,20/03/2018,41,22,07,43,25
43,21/03/2018,06,23,46,37,38
44,22/03/2018,10,42,40,14,12
45,23/03/2018,16,22,23,31,39
46,24/03/2018,20,24,26,53,54
47,25/03/2018,15,19,26,35,54
48,26/03/2018,10,11,16,21,38

Spero ti vada bene...

Nikor.

 

[solare]

Perfetto grazie
dopo aver aggiunto altre 2 estrazioni viene fuori questa scritta:
"il file di testo contiene righe vuote"

 

[Nikor]

Prima di avere aggiunto le ultime 2 estrazioni , funzionava ? , se si l'errore è subito intercettato.....

 

[Nikor]

Per Solare, ti ho risposto nel commento..........

Aggiornamento:

Dopo il range 50 alla data serale del 28/03/2018 delle quattordicine Vergini non c'è più ombra!

Si scende di sequela, Tredicine Vergini 70!

Anche le 2 ottine proposte nel campo frequenze negli ultimi topic, al # 138. una è andata a 2 punti con 8 numeri sarebbe stata una buona base!

Nikor.

 

[Mike58]

scusate, qualcuno ha l'archivio in formato txt aggiornato !
Grazie

ecco l'archivio in formato txt

P.s. per non incorrere nell'errore di avere righe vuote, una volta aggiornato con l'ultima estrazione non bisogna andare a capo ma salvare il tutto essendo posizionati sulla ultima riga.

in questo modo non si hanno righe vuote.

 

[Mike58]

A questo script ci sto lavorando per ora senza esito positivo.
lo scopo sarebbe quello di trasformarlo in file txt con i soli valori che ci interessano.

per ora preleva le estrazioni e li scarica su una cartella voluta, sono graditi interventi e suggerimenti a tale scopo.

per ora accontentiamoci .

Option Explicit
Sub Main
 Dim sLink
 Dim sPercorsoLocale
 sLink = "http://www.numeropoli.it/million_day_archivio.txt" ' da dove preleva il file
 sPercorsoLocale = "C:\users\mike58\desktop\MillionDay_Scarico.txt" ' dove scarica il file
 If DownloadFromWeb(sLink,sPercorsoLocale) Then
  Call LanciaFile(sPercorsoLocale)
  Call Scrivi("La link [" & sLink & "] è stata salvata nel file " & sPercorsoLocale)
 End If
End Sub

 

[fillotto]

Per non avere righe vuote basta andare con il mouse dopo l'ultimo numero dell'ultima estrazione registrata e ....." Canc" ----->salva

 

[Oscar]

Prova con questo oltre ad avere il tabellone analitico è possibile creare un File MillionDayTxt

 

[solare]

Grazie e complimenti a tutti

 

[solare]

Ciao Oscar, perfetto il tuo excel
Grazie

 

[Oscar]

Ok benissimo

 

[Mike58]

Purtroppo a me non va, mi da errore di debug, potrebbe essere interessante per allacciarmi al sito e scaricare da li con lo script, ma penso che oscar si sia allaciato in formato xls e poi trasformato in txt.

senza riuscire ad aprirlo non posso dire altro.

rinnovo l'invito se qualcuno conosce un sito con file di testo a condividerlo.

ciao

 

[lota]

Ciao a tutti purtroppo non riesco a visualizzare alcuni script di Mike50 mi appare sempre l'errore "file txt non trovato, è chiaro (forse) che non è giust o il percorso di dove si trova il file txt , ho fatto diverse prove ma finora senza esito vi posto l'ubicazione con l'esatto percorso del file mi date un' aiuto di come inserirlo nello script? thanks

 

[silop2005]

Prova con questo oltre ad avere il tabellone analitico è possibile creare un File MillionDayTxt

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

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

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

Ciao Oscar ,

bravo hai fatto una macro velocissima e anche un bel tabellone con gli estratti.

Se hai tempo e voglia potresti implemetare

il tabellone degli estratti con qualche parametro ?

Tipo la data, il [RL] Ritardo di Livello, il Rapporto Decimale [RL/RC] e la Quantità di riga [Qu.]

ecco uno spezzone del tuo tabellone:

====================== data RC MillionDay RL RL/RC qu. 28/03/2018 0 22 30 36 44 47 0 0 5 27/03/2018 1 3 9 10 16 40 1 1,000 5 26/03/2018 2 -- 11 -- 21 38 1 0,500 3 25/03/2018 3 15 19 26 35 54 3 1,000 5 24/03/2018 4 20 24 -- 53 -- 3 0,750 3 23/03/2018 5 -- -- 23 31 39 0 0,000 3 22/03/2018 6 -- 12 14 -- 42 1 0,167 3 21/03/2018 7 6 -- 37 -- 46 2 0,286 3 ======================================== Grazie di tutto e anche del file di testo. ===================== Buona giornata a tutti. A presto Silop

 

[lota]

Grazie Magia, ho provato con lo script di Mike58 al par. #141 ma anche cambiando il percorso (che non so se è giusto) mi da sempre errore