Novità

Lotteria MillionDay

L

LuigiB

Guest
ciao , ho fatto la correzione sui sincronismi verticali



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


Mike ecco uno script di esempio con la funzione che ti interessa
Codice:
Option Explicit
Sub Main
   Dim nSorte,nRitardo,nTmp
   Dim aTb(4)
   Dim aV(4)
   aTb(1) = "Sorte" : aTb(2) = "Ritardo" : aTb(3) = "Comb >= Rit " :aTb(4) = "Comb = Rit"
   For nSorte = 1 To 3
      Call InitTabella(aTb)
      For nRitardo = 0 To 100
         aV(1) = nSorte
         aV(2) = nRitardo
         aV(3) = Round(QuantitaTeoricaCombMaggoriUgualiDelRitardoFT(nSorte,nSorte,nRitardo),3)
         nTmp = aV(3) - QuantitaTeoricaCombMaggoriUgualiDelRitardoFT(nSorte,nSorte,nRitardo + 1)
         If nTmp < 0 Then nTmp = 0
         aV(4) = Round(nTmp,3)
         Call AddRigaTabella(aV)
      Next
      Call CreaTabella
      Call Scrivi
   Next
End Sub
Function QuantitaTeoricaCombMaggoriUgualiDelRitardoFT(nClasse,nSorte,nRitardo)
   On Error Resume Next
   Dim p ' probabilita  dell'evento
   Dim q ' probabilita contraria
   Dim k ' costante decadimento
   Dim nComb
   p = Prob(nClasse,nSorte,1,5,55)
   q = 1 - p
   k = 1 / Log(1/q)
   nComb = Combinazioni(55,nClasse)
   QuantitaTeoricaCombMaggoriUgualiDelRitardoFT =((nComb *(Exp(-(nRitardo) / k))))
End Function
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Grazie Luigi, Ottimo NuovoPlugin (senza errori) e script ( di facile e semplice Lettura).

Ciao
 
L

LuigiB

Guest
Per Nikor sono contento che con spaziometria sei riuscito a vincere , i complimenti vanno anche a te che evidentemente hai trovato il modo giusto di valorizzarlo con statistiche e analisi che colpiscono l'obiettivo ...
 

Nikor

Premium Member
Ciao Luigi. mi associo a quanto scritto da Mike, i sincroni verticali ora funzionano ! :) Grazie.

Per il tuo Super Software che dire ? scrivo che non finisce mai di stupirmi.... in breve sintesi, avevo finito oggi di creare una tabella Ambetti
( che come avevi scritto tempo fa non era altro che aguzzare l'ingegno ) tratta da ambi consecutivi e da quanto emergeva rifiltrando la situazione che si era venuta a creare avevo deciso per puro divertimento di spendere 2€.

Bene al 1° colpo sono stato ripagato , INCREDIBILE !!! e pensare che se avessi optato anche per l'Ambo sarebbe stato Ambo secco e con i 4 numeri dell'Ambetto sarebbe stato terno in quartina !!!!!!

La coppia della schedina la posto nella sezione " cedoline vincenti " Un plauso per tutto quanto ci hai regalato e continui a farlo , Grazie di cuore Nikor.
 

Nikor

Premium Member
Ciao , mi scuso con Mike se nel precedente post sono andato un filino [ off-topic ] ma quando c'è di mezzo qualche cosa relativo al Grande LuigiB. penso sia tollerato.....

Aggiornamento dopo i primi 8 cicli pari a 88 estrazioni:

New-entry ambo:

03-34 - (5) presenze !
19-49 - (4) presenze !
43-46 - (4) presenze !
12-19 - (4) presenze !
01-20 - (4) presenze !
*****************************
Decine Vergini = 16 !

21ine Vergini = 19 !

Alla prossima , Nikor.
 
L

LuigiB

Guest
Come negato ? che ci vuole a scompattare un file in una cartella che ti pare ?
Forse ti riferisci a metterlo nella cartella dell plugin per farlo comparire nei menu di spaziometria ,
anche quello è facile comunque non è obbligatorio .. pui scompattare il plugin dove ti pare e poi lanciarlo normalmente ..
 

Nikor

Premium Member
Veloce aggiornamento dopo il range 90:

Gli Ambi a 4 presenze si fanno più corposi ad ogni estrazione, andremo a menzionare i frequenti solo quando scatteranno a 5 presenze!
Al Momento solo uno a 5 presenze segnalato nel topic # 304.

Decine Vergini = 12 !

21ine Vergini = 08 !

Nikor.
 

Nikor

Premium Member
Range 91 dopo il 08/05/2018:

Quasi tutto invariato, solo le lunghette per ( > = 3 ) una esce di scena! ( rilanciata Routine Ex - Nuova )

21ine Vergini = 07 !

Per Luigi. topic # 305.
ciao a tutti , ho fatto delle aggiunte al plugin del tabellone analitico , ecco la nuova versione

Ho dei primi sintomi di senilità e mi scuso, non riesco a farlo funzionare..... forse Mike può darmi delle dritte ?

Ciao e grazie in anticipo, Nikor.
************************************
Dimenticavo, il tuo Super Software SPAZIO ha colpito ancora ( cedoline vincenti )

UN bell'AMBO in terzina !!!

Grazie Sei Mitico. :):):)
 
Ultima modifica:

Nikor

Premium Member
Nikor;n2114552 Per Luigi. [B ha scritto:
topic # 305.[/B]


Ho dei primi sintomi di senilità e mi scuso, non riesco a farlo funzionare..... forse Mike può darmi delle dritte ?

Ciao e grazie in anticipo, Nikor.

Chiedo venia, quardavo lo schermo solo in alto senza vedere che la funzione per caricare l'archivio era in basso !!!
Dovrò cambiare gli occiali.....:cool:

Tutto OK. e grazie , Nikor.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Per Nikor strano non funzionava il plugin, anch'io all'inizio facevo lo stesso errore e senza cambiare occhiali avevo intuito come utilizzarlo.

Comunque avevo fatto uno script per questo scopo che condivido volentieri.
Grazie anche alla formula di LuigiB.

Codice:
Sub Main
   Dim Nu(5),Cad(5),aN(5),Nu2(1),Nn2,Rsl(5)
   Dim Sfile,T,V
   Sfile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
   Call ApriBaseDatiFT(Sfile,5,";",55)
   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "********* Lotteria MillionDay ********* Estratti ********************* Caduti ******************* ",1,,,1,2
   T = Array(T,"Data info","Estratti","I","II","III","IV","V","Liv","Rit","RitSncLiv","C1","C2","C3","C4","C5","LivCad","CadProgress","EsitiFin","RsL / Rit","PresTeoF2","Att2")
   Call InitTabella(T)
   For es = fin To Ini Step - 1
      kk = 0
      For p = 1 To 5
         Nu(p) = EstrattoFT(es,p)
         Cad(p) = EstrattoFT(es,p)
         aN(p) = EstrattoFT(es,p)
         If EstrattoFrequenzaFT(Nu(p),es,fin) > 1 Then Nu(p) = "-"
         If EstrattoFrequenzaFT(Cad(p),es,fin) = 1 Then Cad(p) = "-"
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then k = k + 1
         If Cad(p) <> "-" Then kk = kk + 1
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then kkk = kkk + 1
      Next
      rit = SerieRitardoFT(Ini,fin,aN,1)
      ess = fin - es
      Call VerificaEsitoFT(aN,fin,1,,,,est)
      '............. Ritado di Livello .............................
      Mem2 = 0
      rslA = es'fin - rit
      Nn2 = Split("0." & StringaEstrattiFT(rslA),".")
      For p1 = 1 To 5
         Nu2(1) = Nn2(p1)
         rit2 = SerieRitardoFT(rsla + 1,fin,Nu2,1)'mio rdl
         spA = SeriePrimaFT(rslA + 1,fin,Nu2,1)
         If Mem2 <= spA Then Mem2 = spA
         If Mem2 = rit2 Then Mem2 = rit2
      Next
      If k < 5 Then RslA = fin - Mem2
      If k = 5 Then RslA = rit
      If k < 5 Then Rit2 = fin - Mem2
      If k = 5 Then Rit2 = rit
      presTeo = Round((5*1) *(10/11) ^ ess,4)
      Att2 = Round((k/(k + presteo)),3)
      '---------------------------------------------------------------
      att = Round(Dividi(RslA,ess),2)
      decd = 55 - kkk
      If k > 0 Then
         V = Array(V,GetInfoEstrazioneFT(es),StringaEstrattiFT(es),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),k,ess,RslA,Cad(1),Cad(2),Cad(3),Cad(4),Cad(5),kk,kkk,est,att,PresTeo,Att2)
         Call AddRigaTabella(V)
      End If
      For x = 3 To 7
         Call SetColoreCella((x),6,0)
      Next
      Call SetColoreCella(8,4,0)
      For xx = 11 To 15
         Call SetColoreCella((xx),6,0)
      Next
      If V(9) > 0 And V(10) = 0 Then Call SetColoreCella(18,2,4)
      k = 0
      kk = 0
   Next
   CreaTabella
   Scrivi "Script By Mike58",1,1,,1,3
End Sub

Ancora Work in Progress
 

Mike58

Advanced Member >PLATINUM PLUS<
Alien,tu che giri per mondi, avresti dovuto vedere che l'archivio è aggiornabile in automatico proprio in questo thread qualche pagina indietro per mezzo di un plugin che crea è aggiorna un file di testo.

Metti il radar e sonar e cercalo.

Ciao
 

silop2005

Advanced Member >PLATINUM<
LuigiB;n2114188 ha scritto:
ciao a tutti , ho fatto delel aggiunte al plugin del tabellone analitico , ecco la nuova versione

http://www.mediafire.com/file/bc677x...naliticoMD.rar

===========================================
SPMT vers. 1.6.18_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao Luigi ,
grazie del magnifico TABELLONE MD per estratti.
Hanno ragione i bravi Mike58 e Nikor …. ci volevano veramente gli occhiali e la luce del giorno,
per vedere la partenza del Tabellone ahahahha.
Ho visto che ci sono tre colonne VALORI :
1) "Qteorica" (al Ritardo x ) ok
2) "Qreale" (al ritardo x ) ok
3) "Att" (può essere frainteso per "Attuale")
consiglierei di scrivere la parola per intero "Attendibilità" (al ritardo x)
E' possibile fare il salvataggio del tabellone estratti in Excell ?
Comunque GRAZIE per questo ennesimo regalo.
=====================
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/www.silop.it\/image\/stickman.gif"}[/IMG2]
Buona pomeriggio a tutti.
A presto
Silop ;) ;) ;)
PS
un saluto veloce a Claudio8
 
Ultima modifica:

stupl

Super member
Salve a tutti, ho cancellato per sbaglio i file di archivio di MillionDay e tramite il plugin di LuigiB. ho provato a riscaricarli da zero, ma mentre scarica appare questo errore:

Immagine.jpg

poi ho aperto i due file di archivio per verificare ciò che ha scaricato ed appaiono così:

Archivio ordinato:
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51
1;07/02/2018;7;16;43;44;51

Archivio normale:
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51
1;07/02/2018;16;7;43;44;51

Cosa è capitato al plugin?
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Purtroppo per errore è capitato anche a me.
Ho ripristinato il tutto.
1 > cancellando completamente i 2 file nella directory di scarico
2 > tengo aperto internet Explorer
3 > lancio il plugin
4 > spunta Ricrea File

Tutte le estrazioni sono state scaricate ed i file è completo di tutte le estrazioni.

P.s. Nessun messaggio di permission Denied

Come diceva Luigi bisogna aver Internet Explorer come broser.

Ciao
 

Mike58

Advanced Member >PLATINUM PLUS<
Le Lunghette divise in Undicine vediamo quali si sono meglio comportate per Punteggio e frequenze Cumulate.

 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto