Lotteria MillionDay

[Nikor]

Salutando Gli intervenuti posto un veloce aggiornamento sul range 75 fino alla data del 22/04/2018 compresa.

Decine Vergini (>=2) 54 !
Lunghette da 22 numeri (>=3) 27 !

Per gli Ambi & Terni ancora niente di nuovo (un solo Ambo a 4 presenze) - (nessun Terno a 3 presenze...)
Nikor.

 

[Mike58]

Io Invece sto seguendo altre diverse analisi

Prima analisi quante estrazioni passano per far cadere tutti i numeri, ossia quante estrazioni occorrono per ogni analitico
fino ad ora 2 tabelloni analitici hanno sfaldato tutti i numeri con 34 e 36 estrazioni.



Seconda analisi escono in media 8 ambi vergini per estrazione.



3 analisi il 19 è il Numero più frequente con 15 sortite, vediamolo con quali ambi vergini non si è presentato ancora.



work in progress

 

[Nikor]

Ciao Mike, molto interessanti le analisi che hai postato.

Tutto esatto sui tabelloni, 34 e 36 estrazioni per veder sortire tutti i 55 numeri!

Anche il numero 19 come hai ricordato è il Top più frequente!

Bello il monitoraggio degli Ambi Vergini ( con annessa utility che avevi condiviso che verificata con l'ultimo plug-in di Luigi. da gli identici valori !)

Per questi Ambi una prima verifica reale si potrà fare a 148,5 estrazioni (arrotondate per eccesso a 149 , data che dovrebbe cadere il Giovedi 05 Luglio )
A quel punto gli ambi in teoria dovrebbero essere sortiti tutti anche se sappiamo che per causa di ripetizioni non sarà cosi! e si potrà fare il confronto reale tra i 3 gruppi di Ambi ( sopra, in media e residui vergini )…….

Anche se l’archivio estrazioni è ancora esile è bene monitorare e valutare tutti i possibili tasselli per poter il futuro trarre qualche indicazione statistica di rilievo……

Veloce aggiornamento Lunghette:

Decine Vergini = 50 !

22ine vergini = 22 !

Alla prossima, Nikor.

 

[Mike58]

Ciao Nikor, giusto continuare con il monitoraggio statistiche

io metto disponibile 2 semplici script
il primo verifica per quantità gli ambi vergini che ogni numero ancora detiene

Option Explicit
Sub Main
   Dim k,s
   Dim nClasse,nColonneTot
   ReDim aNumeri(55)
   Dim aCol,Num
   Dim sFile,Ini,fin
   sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay.txt"
   Call ApriBaseDatiFT(sFile,5,";",55)
   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "=========================="
   Scrivi "Numero - Q.tà Ambi Vergini"
   Scrivi "=========================="
   For Num = 1 To 55
      'Num = CInt(InputBox("Numero Fisso",,19))
      nClasse = 2 ' sviluppo in ambi
      ' inizializzo i numeri da sviluppare in questo caso 90
      ' ma potrebbero essere anche di meno
      For k = 1 To 55
         aNumeri(k) = k
      Next
      'inizializza lo sviluppo
      nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
      k = 0
      ' ciclo che continua fiono a quando le colonne non finiscono
      Do While GetCombSviluppo(aCol)
         If SerieFreqFT(Ini,fin,aCol,2) = 0 Then
            If aCol(1) = Num Or aCol(2) = Num Then
               k = k + 1 ' conteggio colonna corrente
               ' costruisco la stringa che contiene la colonna
               s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol)
               ' Call Scrivi(s)
            End If
         End If
         Call Messaggio("Colonna " & Num )
         If ScriptInterrotto Then Exit Do
      Loop
      Scrivi Num & vbTab & k
   Next
End Sub

il secondo sviluppa il dettaglio degli ambi

Option Explicit
Sub Main

   Dim k,s
   Dim nClasse,nColonneTot
   ReDim aNumeri(55)
   Dim aCol,Num
   Dim sFile,Ini,fin
   sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay.txt"
   Call ApriBaseDatiFT(sFile,5,";",55)
   Ini = 1
   fin = EstrazioniArchivioFT
   Num = CInt(InputBox("Numero Fisso",,19))
   nClasse = 2 ' sviluppo in ambi
   ' inizializzo i numeri da sviluppare in questo caso 90
   ' ma potrebbero essere anche di meno
   For k = 1 To 55
      aNumeri(k) = k
   Next
   'inizializza lo sviluppo
   nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
   k = 0

   ' ciclo che continua fiono a quando le colonne non finiscono
   Do While GetCombSviluppo(aCol)
      If SerieFreqFT(Ini,fin,aCol,2) = 0 Then
      If aCol(1) = Num Or aCol(2) = Num Then
      k = k + 1 ' conteggio colonna corrente

      ' costruisco la stringa che contiene la colonna
      s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol)
      Call Scrivi(s)
      End If
      End If

      Call Messaggio("Colonna " & k)
      If ScriptInterrotto Then Exit Do

   Loop
End Sub

ciao

 

[Nikor]

Ottimo Mike, altri 2 listati da collezione e sopra tutto utilissimi anche per il futuro.

Aggiornamento dopo il 25/04/2018:


Nella hit-parade Ambi compare una new-entry:

19-49 (4)
03-34 (4)
-------------------------
Decine Vergini = 40 !

22ine Vergini = 17 !

Nikor.

 

[Nikor]

La Cinquina sincrona proposta nel topic # 271 ed elaborata con Utility di Mike, questa sera termina la sua corsa segnando il massimo in corso raggiunto fino ad ora sul range 80 ! ( dopo 62 concorsi ) era stata segnalata a ritardo 55 ed ha impiegato ben 7 estrazioni per sortire.

Situazione attuale Cinquine Sincrone , Utility Mike:



Prossimamente aggiornamento Lunghette per 2 e 3 punti!

Nikor.

 

[Mike58]

Ciao Nikor, infatti oggi è sortita la cinquina sincrona più ritardata con 63 estraz.
Per un controllo immediato aggiungo a tale script di analisi anche la sortita evidenziata dei sortiti.

Sub Main()
   Dim sfile
   Dim Nu(5)
   sfile = GetDirectoryAppData & "ArchivioMillionDAY\MillionDay_ordinato.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sfile,5,";",55)

   ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "==========================================================================="
   Scrivi "      Info Data Es          Estratti    Ambo Verifica  Clp  Ritardo   Freq"
   Scrivi "==========================================================================="
   For es = Ini To fin
      AvanzamentoElab ini,fin,es
      For p = 1 To 5
         Nu(p) = EstrattoFT(es,p)
         sr = SerieRitardoFT(es,fin,Nu,2)
         fr = SerieFreqFT(es + 1,fin,Nu,2)
         If es = fin Then fr = 0
      Next
      Call VerificaEsitoFT(Nu,es + 1,2,100,esito,clp,es1,id)
      Call VerificaEsitoFT(Nu,fin,2,100,esitoF,clpF,esF,idF)
      'If fr = 0 Then
      If esito <> "" Then
         Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
         Scrivi StringaEstrattiFT(es) & vbTab,0,0
         'Scrivi "Rit... " & fin - es & vbTab,0,0
         If fr = 1 Then ess = esF
         Scrivi es1 & vbTab & clp & vbTab & sr & vbTab & fr & vbTab & esito & vbTab,0,0
         Scrivi ess,1,0,2,4,3
         If fr = 1 And sr = 0 Then
         Scrivi "  Al Colpo... " & clp
         Else
         Scrivi ""
         End If
      End If
      ess = ""
      If esito = "" Then
         ColoreTesto 2
         Scrivi GetInfoEstrazioneFT(es) & vbTab,1,0
         Scrivi StringaEstrattiFT(es) & vbTab,1,0
         'Scrivi "Rit... " & fin - es & vbTab,0,0
         Scrivi ".. .. .. .. .." & vbTab & clp & vbTab & sr & vbTab & fr,1
      End If
      'End If
      ColoreTesto 0
   Next
   Scrivi "==========================================================================="
   Scrivi "      Info Data Es          Estratti    Ambo Verifica  Clp  Ritardo   Freq"
   Scrivi "==========================================================================="

End Sub

 

[Mike58]

Ciao a Tutti, in quanto script richiesto, sulle cinquine sincrone per ambo che non hanno dato esito, ho fatto una sorte di Tabellone analitico per Ambo.
Lo script è fatto con L'a,b,c, ossia non ottimizzato nei codici, ma ho seguito quel costrutto e comunque i risultati sono validi in termini di output.

Mi piaceva condividerlo.

Fatene buon uso.

Sub Main
   Dim Nu(5),sFile,T,V
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
   Dim RsL(10),MaxRsL
   sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
   Call ApriBaseDatiFT(sFile,5,";",55)
   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "Analitico Ambi non Sortiti - Cinquine Estratte -  Lotteria MillionDay - By Mike58",1,1,,1,3,,1
   Scrivi
   T = Array(T,"Data info","Estratti","FIN-ES","A1","A2","A3","A4","A5","A6","A7","A8","A9","A10","R1","R2","R3","R4","R5","R6","R7","R8","R9","R10","RsL","SerieUltima")
   Call InitTabella(T,1,,2,5)
   For es = Ini To fin
      For p1 = 1 To 5
         a = EstrattoFT(es,p1)
         Nu(p1) = a
         ambo1(1) = Nu(1)
         ambo1(2) = Nu(2)
         ambo2(1) = Nu(1)
         ambo2(2) = Nu(3)
         ambo3(1) = Nu(1)
         ambo3(2) = Nu(4)
         ambo4(1) = Nu(1)
         ambo4(2) = Nu(5)
         ambo5(1) = Nu(2)
         ambo5(2) = Nu(3)
         ambo6(1) = Nu(2)
         ambo6(2) = Nu(4)
         ambo7(1) = Nu(2)
         ambo7(2) = Nu(5)
         ambo8(1) = Nu(3)
         ambo8(2) = Nu(4)
         ambo9(1) = Nu(3)
         ambo9(2) = Nu(5)
         ambo10(1) = Nu(4)
         ambo10(2) = Nu(5)
         'a1 = StringaNumeri(ambo1)
      Next
      sf1 = SerieFreqFT(es + 1,fin,ambo1,2)
      sr1 = SerieRitardoFT(es + 1,fin,ambo1,2)
      If sf1 = 0 Then a1 = StringaNumeri(ambo1)
      If sf1 > 0 Then a1 = " - "
      sf2 = SerieFreqFT(es + 1,fin,ambo2,2)
      sr2 = SerieRitardoFT(es + 1,fin,ambo2,2)
      If sf2 = 0 Then a2 = StringaNumeri(ambo2)
      If sf2 > 0 Then a2 = " - "
      sf3 = SerieFreqFT(es + 1,fin,ambo3,2)
      sr3 = SerieRitardoFT(es + 1,fin,ambo3,2)
      If sf3 = 0 Then a3 = StringaNumeri(ambo3)
      If sf3 > 0 Then a3 = " - "
      sf4 = SerieFreqFT(es + 1,fin,ambo4,2)
      sr4 = SerieRitardoFT(es + 1,fin,ambo4,2)
      If sf4 = 0 Then a4 = StringaNumeri(ambo4)
      If sf4 > 0 Then a4 = " - "
      sf5 = SerieFreqFT(es + 1,fin,ambo5,2)
      sr5 = SerieRitardoFT(es + 1,fin,ambo5,2)
      If sf5 = 0 Then a5 = StringaNumeri(ambo5)
      If sf5 > 0 Then a5 = " - "
      sf6 = SerieFreqFT(es + 1,fin,ambo6,2)
      sr6 = SerieRitardoFT(es + 1,fin,ambo6,2)
      If sf6 = 0 Then a6 = StringaNumeri(ambo6)
      If sf6 > 0 Then a6 = " - "
      sf7 = SerieFreqFT(es + 1,fin,ambo7,2)
      sr7 = SerieRitardoFT(es + 1,fin,ambo7,2)
      If sf7 = 0 Then a7 = StringaNumeri(ambo7)
      If sf7 > 0 Then a7 = " - "
      sf8 = SerieFreqFT(es + 1,fin,ambo8,2)
      sr8 = SerieRitardoFT(es + 1,fin,ambo8,2)
      If sf8 = 0 Then a8 = StringaNumeri(ambo8)
      If sf8 > 0 Then a8 = " - "
      sf9 = SerieFreqFT(es + 1,fin,ambo9,2)
      sr9 = SerieRitardoFT(es + 1,fin,ambo9,2)
      If sf9 = 0 Then a9 = StringaNumeri(ambo9)
      If sf9 > 0 Then a9 = " - "
      sf10 = SerieFreqFT(es + 1,fin,ambo10,2)
      sr10 = SerieRitardoFT(es + 1,fin,ambo10,2)
      If sf10 = 0 Then a10 = StringaNumeri(ambo10)
      If sf10 > 0 Then a10 = " - "
      RsL(1) = sr1
      RsL(2) = sr2
      RsL(3) = sr3
      RsL(4) = sr4
      RsL(5) = sr5
      RsL(6) = sr6
      RsL(7) = sr7
      RsL(8) = sr8
      RsL(9) = sr9
      RsL(10) = sr10
      MaxRsL = MinimoV(RsL,1,- 1)
      Call VerificaEsitoFT(Nu,fin - MaxRsL,2,1,esito,clp,es1)
      If esito = "Cinquina" Then
         es1 = " Esito Non Verificato "
      Else
         es1 = es1
      End If
      V = Array(V,GetInfoEstrazioneFT(es),StringaEstrattiFT(es),fin - es,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,sr1,sr2,sr3,sr4,sr5,sr6,sr7,sr8,sr9,sr10,MaxRsL,es1)
      Call AddRigaTabella(V)
      For x = 14 To 23
      If MaxRsL = V(x) Then Call SetColoreCella((x),3,0)
      Next
      For y = 4 To 13
      Call SetColoreCella((y),6,0)
      Next
      Call SetColoreCella(24,7,5)
      If MaxRsL = 0 Then Call SetColoreCella(25,2,4)

   Next
   Call SetTableWidth("100%")
   CreaTabella
End Sub

 

[Nikor]

Ottimo Mike , altra chicca da collezione!

A questo punto si potrebbe dire che il software Spaziometria del Grande LuigiB. funga da macchina virtuale ospitando il software MillioDay !

I più attenti avranno già provveduto a cogliere l’attimo < Carpe-Diem > inserendo in Spaziometria 2 cartelle distinte, una per l’archivio ed una seconda con sotto cartella che funga da menu!

Nella seconda ci sarà il plug-in di Luigi. per aggiornare l’archivio.

Nella sotto cartella ci saranno le Utility ( lunghette Luigi. Utility Mike , e tutto quanto messo a disposizione fino a questo momento )
Un vero software di ricerche dedicato al Million – che sarà arricchito a secondo delle intuizioni degli utilizzatori con propri script e dalle future implementazioni che Luigi e Mike ci vorranno regalare.

Grazie, Grazie ed ancora Grazie!

Veloce aggiornamento !

Range 82 dopo il 29/04/2018:

Decine Vergini = 17 !

21ine Vergini ( Lunghette da 21 numeri ) = 51 !

Nikor.

 

[Nikor]

Aggiornamento dopo il range 84 del 01/05/2018:

Decine Vergini = 17 !

21ine vergini = 40 !

Nikor.

 

[jure]

Si puo' avere l'Archivio in base al sorteggio reale es. 01 maggio 2018 - 37 12 11 07 53
no cosi' 07 11 12 37 53..

 

[Mike58]

Sicuramente sarà difficile leggere tutte le pagine del thread, ma in queste pagine è stato fatto un plugin per aggiornare le estrazioni in automatico e con questo è possibile creare 2 Archivi uno in ordine Estrattivo e l'altro in ordine crescente.
Il tutto in formato TxT.

Oggi Ripetuta Cinquina estratta con sorte Quaterna.

[00007] [7] 13.02.2018 03.34.43.46.50 78 03 .. 34 43 46

 

[Nikor]

Sicuramente sarà difficile leggere tutte le pagine del thread, ma in queste pagine è stato fatto un plugin per aggiornare le estrazioni in automatico e con questo è possibile creare 2 Archivi uno in ordine Estrattivo e l'altro in ordine crescente............

Ciao Mike hai tutta la mia ammirazione, certe richieste ( con quanto è già stato fatto da te e Luigi. non le comprendo proprio )
Pazienza sono irrascibile è un mio difetto e me ne farò una ragione per migliorare.........

Tornando alla tua ultima segnalazione possiamo dire che le Cinquine Sincrone che hanno sfaldato 2 volte 4 punti sono 2 come giustamente hai segnalato:

03-18-34-43-46 - 2 volte 4 punti !
03-34-43-46-50 - 2 volte 4 punti !
***************************************
Per i 3 punti & superiore:

03-18-33-35-46 - 3 volte minimo 3 punti !
01-14-16-20-34 - 3 volte minimo 3 punti !
*****************************************

Si sono mossi gli Ambi.

03-34 - (5) presenze !
19-49 - (4) presenze !
43-46 - (4) presenze !
**********************************
Tra qualche estrazione vedremo se le Lunghette per ( > = di 3 ) saranno diminuite....

Nikor.

 

[LuigiB]

Caro Nikor ...abbiamo un difetto in comune..eheh.tornando alle estrazioni mi sembra che la sortita di ben 4 numeri di una cinquina gia estratta sia un evento notevole.....direi raro....pecccato non saperle prima certe cose .....

 

[Nikor]

Ciao Luigi e ben risentito sono pienamente d’accordo, la ripetizione di una quaterna che va a marcare 2 presenze su 85 estrazioni
( considerando che le quartine integrali sono 341.055 ) è sicuramente un fatto anomalo….

Se poi confrontato con i terni eterogenei dove le ripetizioni sono ferme a 2 presenze diventa ancora più raro!

Quando ti verranno altre idee da condividere te ne saremo tutti molto grati, Grazie da Nikor.

 

[Nikor]

Se può interessare vado ad aggiungere un altro tassello sul range 85 !

Decine eterogenee con maggiori presenze globali per un unteggio ( > = a 3 ) !

03-14-19-28-34-43-46-49-50-53
03-14-19-28-34-35-43-46-49-53

Le 2 formazioni differenziano di un solo numero con 9 numeri in comune!

Presenze su 85 = a 10 con distribuzione punteggi:

4 volte (3 punti) [4 presenze terno ] 4 volte (4 punti) [16 presenze terno] 2 volte (5 punti) [20 ptesenze terno]
Frequenza globale terno = 40 terni ! ( entrambe le formazioni hanno le stesse caratteristiche in tema di congrui )
****************************************************************************************************************************

Per aumentare le presenze penalizzando i punteggi medio alti del 4 e del 5 ho usato il vecchio metodo Nikor. :

01-06-12-14-19-29-34-37-43-46

Le presenze salgono a 18, il rendiconto estrapolato dal superlativo software Spaziometria del Grande LuigiB.



Alla prossima Nikor.

 

[Nikor]

Dopo il 04/05/2018 range 87, new-entry ambo:

03-34 - (5) presenze !
19-49 - (4) presenze !
43-46 - (4) presenze !
12-19 - (4) presenze !

**************************
Questa sera dopo l'estrazione N° 88 si conclude l' 8° ciclo di gioco , seguirà aggiornamento lunghette per 2 e 3 punti !

Nikor.

 

[LuigiB]

Ciao Luigi e ben risentito sono pienamente d’accordo, la ripetizione di una quaterna che va a marcare 2 presenze su 85 estrazioni
( considerando che le quartine integrali sono 341.055 ) è sicuramente un fatto anomalo….

Se poi confrontato con i terni eterogenei dove le ripetizioni sono ferme a 2 presenze diventa ancora più raro!

Quando ti verranno altre idee da condividere te ne saremo tutti molto grati, Grazie da Nikor.

Ciao a tutti .. di idee nuove per ora non se ne parla andiamo sul classico ... ecco il plugin per il tabellone analitico con calcolo Attendibilità secondo la formula proposta da Leontino Gorgia.

http://www.mediafire.com/file/bc677xcum7r998g/TabAnaliticoMD.rar

 

[Nikor]

Ciao Luigi. Grazie per questa nuova chicca che si va ad aggiungere al Million..!

< Ad Maiora Semper > e complimenti !

Devo dire che tengo in vita il mio muletto con sw Windows solo ed esclusivamente per uso del tuo Super Software Spaziometria che oltre a rilassarmi usandolo negli sprazzi di tempo libero , mi ha pure fatto vincere discrete sommette ! un esempio, avevo iniziato la mia partecipazione alla gara gestita egregiamente dalla Signora Giuseppa in data 03/03/2018 non partecipando per più di 2 mesi del 2018 ma considerando che nel mese di febbraio ( prima una quartina con sorte ambo a ruota fissa, e dopo pochi colpi una quartina con terno a ruota fissa ) decisi allora di partecipare e fortunatamente Grazie alle ricerche effettuate con il tuo Software sono arrivati altri 2 ambi in quartina su 26 estrazioni !!!

Posso permettermi a questo punto di continuare le mie giocate AGGratiss per un lunghissimo periodo!

Installato plug-in e tutto OK ! non intendo tediarti con piccolezze magari rovinandoti il week-end , ma solo per segnalare che i sincronismi verticali non mi funzionano, ( avrò sbagliato qualche cosa….) tanto quella specifica funzione non la uso e francamente non la conosco…

Grazie ed ancora Grazie , Nikor.

 

[Mike58]

Ciao Luigi e Nikor.
Intanto grazie a Luigi per questo nuovo Plugin,funziona tutto bene, tranne che nella spunta del sincronismo verticale anche se evidenzia mi da errore di "Form1.loadGrid" > SubScript out of range.
Sarebbe poi interessante che ci fosse anche l'ordinamento colonna, ma comunque utile anche così.

Quello invece che ti chiedo è sapre la formula usata per definire la Q,tà teorica al ritardo o la Q.tà Teorica al ritardo compresa tra un minimo e massimo.

Io in un mio script ho usato i codici presenti in spazioScript
esempio
kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1, 1,1),2)
kk = Round(QuantitaTeoricaCombAlRitX (37,1,1,1),2)

ma questi non mi restituiscono lo stesso valore, forse perché il codice è settato sui 90 Numeri ?

La lotteria è interessante ma per definire un buon pronostico c'è ancora tanto da ricercare.
Comunque tra script e plugin c'è tanto materiale e di questo io ne sono contento.

Grazie.

Ciao