Lotteria MillionDay

[LuigiB]

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

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

 

[Mike58]

Grazie Luigi, Ottimo NuovoPlugin (senza errori) e script ( di facile e semplice Lettura).

Ciao

 

[LuigiB]

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]

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]

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.

 

[LuigiB]

ciao a tutti , ho fatto delel aggiunte al plugin del tabellone analitico , ecco la nuova versione

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

 

[i legend]

Ciao Luigi
grazie mille
io aspetto la nuova versione di spaziometria che con i plugin sono negato

 

[LuigiB]

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 ..

 

[i legend]

Come negato?
Ok. Mi hai scoperto. Bleffavo. Sono negatissimo
ciao e grazie per tutto quello che ci insegni

 

[Nikor]

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]

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.

 

[Nikor]

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.....

Tutto OK. e grazie , Nikor.

 

[Mike58]

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.

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

 

[Alien.]

è una domanda l'archivio dove lo trovo aggiornato ? poi come si aggiorna a mano !Grazie.

 

[Mike58]

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]

ciao a tutti , ho fatto delel aggiunte al plugin del tabellone analitico , ecco la nuova versione

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

=========================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]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[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]Ciao Luigi ,[/TD]
[/TR]
[TR]
[TD]grazie del magnifico TABELLONE MD per estratti.[/TD]
[/TR]
[TR]
[TD]Hanno ragione i bravi Mike58 e Nikor …. ci volevano veramente gli occhiali e la luce del giorno,[/TD]
[/TR]
[TR]
[TD]per vedere la partenza del Tabellone ahahahha.[/TD]
[/TR]
[TR]
[TD]Ho visto che ci sono tre colonne VALORI :[/TD]
[/TR]
[TR]
[TD]1) "Qteorica" (al Ritardo x ) ok[/TD]
[/TR]
[TR]
[TD]2) "Qreale" (al ritardo x ) ok[/TD]
[/TR]
[TR]
[TD]3) "Att" (può essere frainteso per "Attuale")[/TD]
[/TR]
[TR]
[TD]consiglierei di scrivere la parola per intero "Attendibilità" (al ritardo x)
E' possibile fare il salvataggio del tabellone estratti in Excell ?[/TD]
[/TR]
[TR]
[TD]Comunque GRAZIE per questo ennesimo regalo.[/TD]
[/TR]
[TR]
[TD]=====================[/TD]
[/TR]
[TR]
[TD][IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/www.silop.it\/image\/stickman.gif"}[/IMG2][/TD]
[/TR]
[TR]
[TD]Buona pomeriggio a tutti.[/TD]
[/TR]
[TR]
[TD]A presto[/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[TR]
[TD]PS[/TD]
[/TR]
[TR]
[TD]un saluto veloce a Claudio8
[/TD]
[/TR]
[/TABLE]

 

[stupl]

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:



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?

 

[Mike58]

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]

Le Lunghette divise in Undicine vediamo quali si sono meglio comportate per Punteggio e frequenze Cumulate.

 

[LuigiB]

Ciao a tutti , nuova versione del plugin con i suggerimenti proposti da Silop

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