x rubino le sestine al 10elotto 5 m

[keeper]

girando in rete ho trovato questo secondo te con psaziometria si può realizzare o occorre uno scirpt

[h=2]

Analisi statistica della SESTINA 10 e Lotto 5 Minuti

[/h]

L'analisi è stata condotta su 102.120 estrazioni in pratica l'equivalente di circa 4 MILIARDI (3.958.171.200) di sestine sortite. Di seguito la tabella delle SESTINE PIU' FREQUENTI

SESTINA​	FREQUENZA​	RITARDO​	IND CONV​	MAX STO​
02-27-33-34-35-58​	26​	6.542​	1​	18.592​
02-11-25-59-74-90​	26​	1.004​	0​	18.873​
06-17-20-34-35-52​	25​	1.109​	0​	10.674​
01-30-38-39-54-57​	25​	398​	0​	17.284​
08-29-49-50-51-86​	25​	2.322​	0​	13.370​
01-25-43-45-70-88​	25​	7.775​	1​	13.431​
08-22-36-52-76-88​	25​	959​	0​	15.628​
10-37-43-77-87-90​	25​	14.354​	3​	14.354​
09-38-43-63-69-85​	24​	819​	0​	17.931​

DUE LE SESTINE USCITE BEN 26 VOLTE, seguono a ruota altre 6 sestine uscite 25 volte e LA GRADUATORIA CONTINUA CON ALTRE 26 sestine uscite 24 volte. L'aggiornamento delle statistiche è completamente ON LINE, E SARA' compito del server fornire i risultati, quasi in tempo reale. Confermo ancora una volta la particolare complessità computazionale dell'analisi su sestina specie se effettuata su una grande massa di estrazioni, caso specifico del 10 e Lotto ogni 5 minuti. A titolo di cronaca è bene ricordare che ogni 5 minuti vengono estratti 20 numeri con i quali si formano 38.760 sestine, quindi in pratica ogni 5 minuti vengono estratte 38.760 sestine. UN NUMERO DAVVERO ENORME di informazioni se poi moltiplicato per 102.120 estrazioni complessive.

SI CONSIGLIA DI MONITORARE LE SESTINE CON FREQUENZA 24/25. DA PROVE EFFETTUATE SULLO STORICO RISULTA INCORAGGIANTE RINCORRERE QUESTE FORMAZIONI MOLTO FREQUENTI, CON UN PO DI PAZIENZA, LASCIATE CHE IL TEMPO ABBIA IL SUO CORSO ..... E DOPO CIRCA 1500 ESTRAZIONI, UNA O PIU' DI QUESTE SESTINE E' DESTINATA A SORTIRE. (204 GIORNALIERE X 7 GIORNI=1.428). CONSIDERATO CHE LA POSTA IN GIOCO E' DI 2.000 € A FRONTE DI CIRCA 40 BIGLIETTI DA PORRE IN GIOCO (40 € DI SPESA) IL GIOCO VALE LA CANDELA. QUESTO E' UN MODO SANO ED INTELLIGENTE PER CERCARE DI SPECULARE SU QUESTO FANTASTICO GIOCO.

 

[Roby]

ciao keeper

tutto si può fare, bisogna vedere i tempi di elaborazione.

certo che un programmino (exe) gira più veloce di uno script.
certo che 25-26 uscite di una sestina su 414 concorsi?
certo che se devi giocare solo quelle, ed aspettare parecchie estrazioni per fare 6 punti ?.

non so se resisterai ad aspettare e se meglio sparare nel mucchio?

oppure la strada è di tutt'altra natura, allora bisogna esaminare come si compongono queste sestine
o tutte le ventine, per arrivare a stilare una metodologia vincente, anche se saltuaria o periodica, ma
che permettano di arrivare a centrare diversi 9-10 punti. (9su10 o 10su10).

quindi la combinazione in gioco deve essere max una decina o tuttalpiù una \11ina o 12ina per svilupparla
poi in decina a sistema.


prova a chiedere a Luigi se può mettere nella sessione del 10elotto (classico o serale) un programmino
che calcola la frequenza dalle sestine alle decine, delle estrazioni in archivio.


non serve calcolare tutte i milioni di colonne sviluppate integralmente per calcolarne la frequenza, ma basta
l'archivio contenente l'estrazioni.


ma ripeto a mio avviso quel che conta è un'analisi fatta a molte con carta e penna di come si attirano i numeri
tra loro e vanno a combinare spesso una novina o una decina.

 

[keeper]

rubio questa è la risposta di luigi
allora keeper prova a dirmi come faresti tu .. non c'è bisogno di scrivere codice voglio sapere come approcceresti il problema della mole enorme dei dati da analizzare.
link discussione
http://forum.lottoced.com/f12/da-keeper-e-rubino-per-luigib-90988/

 

[claudio8]

Keeper, ti saluto ed insieme a te anche Rubino e ti chiedo:

CHE FAI TU , PASSI LA PALLA?

ti saluto con simpatia.


claudio

 

[keeper]

no claudio8 e che come ha detto luigib lamole di dati è enorme. per farti capire questo gioco non può essere affrontato dal un punto statistico perchè se si ragiona in terzine allora si può tentare la frequenza ma se vuoi centrare una vincita superiore diventa qualcosa di invalicabile e con rubino scambiavamo idee sul gioco.

 

[Roby]

ciao keeper
ma che risposta vuoi?
penso di avertela già data all'inizio qui.

certo che un programmino (exe) gira più veloce di uno script.
certo che 25-26 uscite di una sestina su 414 concorsi ?
certo che se devi giocare solo quelle, ed aspettare parecchie estrazioni per fare 6 punti ?.

non so se resisterai ad aspettare o se è meglio sparare nel mucchio?

forse se vuoi qualcosa di più serio sul 10eLotto, mi sa che devi andare in qualche sito che tratta di sistemistica
più approfondita, probabilmente da Kabila, Paramini, Tarulli, NinoAspesi, Jurcovic, qlatino,Kripta,deCervo, etc.....
specialisti in questo campo.

Da me non ti puoi aspettare un livello alto, ne di sistemi, ne di metodologie particolari, perchè il 1o e lotto lo ritengo
solo sporadico per buttare pochi euro una volta ogni tanto (proprio come un gratta e vinci).

 

[keeper]

rubino condivido con te sul fatto che il 10elotto 5 m sia una gioco d'azzardo come lo è un gratta e vinci, per cui va giocato alcuni colpi ti avevo segnalato quella statistica solo perchè mi incuriosiva. ed era proprio per cercare qualcosa di occasionale per tentare la sorte appunto se ti dice k becchi una 6ina da 2000,00.

 

[keeper]

buongiorno rubino riguardo al discorso delle sestine

Class clsPresenze
 Dim Presenze
 Dim sNumeri
 Dim Rit
 Dim RitMax
End Class
Sub Main
 Dim sFile
 Dim idEstr
 Dim sRecord
 Dim nClasse
 Dim k
 Dim sKey
 Dim clsPres
 Dim collPres
 Dim nTrovati
 Dim aColonne
 Dim aNumeri
 nClasse = ScegliClasse
 If nClasse <= 0 Then Exit Sub
 sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"
 Call EliminaFile(sFile)
 Call Messaggio("Calcolo frequenza")
 Set collPres = GetNewCollection
 For idEstr = EstrazioneIni To EstrazioneFin
  ReDim aColonna(0)
  If GetColonna(idEstr,aColonna) Then
   sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & StringaNumeri(aColonna,"|")
   Call ScriviFile(sFile,sRecord )
   aColonne = SviluppoIntegrale(aColonna,nClasse)
   For k = 1 To UBound(aColonne)
    sKey = "k"
    For j = 1 To nClasse
     sKey = sKey & Format2(aColonne(k,j)) & "."
    Next
    If sKey <> "" Then
     sKey = Left(sKey,Len(sKey) - 1)
     Set clsPres = GetClsPres(sKey,collPres)
     clsPres.Presenze = clsPres.Presenze + 1
    End If
   Next
  End If
  Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
  If ScriptInterrotto Then Exit For
 Next
 Call CloseFileHandle (sFile)
 ReDim aComb(100,2)
 Call IsolaPiuFrequenti(collPres,aComb)
 If ApriBaseDatiFT(sFile,20,"|") Then
  Call Messaggio("Creo lista")
  Call Scrivi("Elenco delle 100 combinazioni da " & nClasse & " numeri piu frequenti al 10 e lotto")
  Call Scrivi
  ReDim aTitoli(4)
  aTitoli(1) = "Combinazione"
  aTitoli(2) = "Frequenza"
  aTitoli(3) = "Ritardo"
  aTitoli(4) = "RitardoMax"
  Call InitTabella(aTitoli)
  k = 0
  For k = 1 To UBound(aComb)
   aNumeri = Split(aComb(k,2),".")
   ReDim aV(4)
   aV(1) = aComb(k,2)
   aV(2) = aComb(k,1)
   aV(3) = RitardoCombinazioneFT(aNumeri,nClasse)
   aV(4) = SerieStoricoFT(1,EstrazioniArchivioFT,aNumeri,nClasse)
   If aComb(k,1) > 0 Then
    Call AddRigaTabella(aV)
   End If
   Call AvanzamentoElab(1,UBound(aComb),k)
   If ScriptInterrotto Then Exit For
  Next
  Call CreaTabella(2,0,0,100)
 Else
  MsgBox "File estrazioni 10 e lotto non prodotto"
 End If
End Sub
Function GetClsPres(sKey,collPres)
 On Error Resume Next
 Dim clsP
 Set clsP = collPres(sKey)
 If clsP Is Nothing Then
  Set clsP = New clsPresenze
  clsP.sNumeri = Mid(sKey,2)
  clsP.Presenze = 0
  collPres.Add clsP,sKey
 End If
 Set GetClsPres = clsP
End Function
Function GetColonna(idEstrazione,colonna)
 Dim nInseriti
 Dim Ruota,pos,n
 Dim k,i
 ReDim aCol(90)
 ReDim colonna(20)
 Do While nInseriti < 20 And pos <= 5
  For pos = 1 To 5
   For Ruota = 1 To 10
    n = Estratto(idEstrazione,Ruota,pos)
    If n > 0 Then
     If aCol(n) = False Then
      aCol(n) = True
      nInseriti = nInseriti + 1
      If nInseriti = 20 Then Exit For
     End If
    End If
   Next
   If nInseriti = 20 Then Exit For
  Next
 Loop
 For k = 1 To 90
  If aCol(k) Then
   i = i + 1
   colonna(i) = k
  End If
 Next
 ReDim Preserve colonna(i)
 If i = 20 Then
  GetColonna = True
 Else
  GetColonna = False
 End If
End Function
Function ScegliClasse()
 ReDim aVoci(5)
 aVoci(0) = "Estratto"
 aVoci(1) = "Ambo"
 aVoci(2) = "Terno"
 aVoci(3) = "Quaterna"
 aVoci(4) = "Cinquina"
 aVoci(5) = "Sestina"
 

 ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function
Sub IsolaPiuFrequenti(collPres,aComb)
 Dim k,j,i
 Dim clsPres
 Call Messaggio("Selezione combinazioni piu frequenti")
 ReDim aComb(100,2)
 For k = 1 To UBound(aComb)
  aComb(k,1) = 0
  aComb(k,2) = ""
 Next
 i = 0
 For Each clsPres In collPres
  For k = 1 To UBound(aComb)
   If clsPres.presenze >= aComb(k,1) Then
    For j = UBound(aComb) To(k + 1) Step - 1
     aComb(j,1) = aComb(j - 1,1)
     aComb(j,2) = aComb(j - 1,2)
    Next
    aComb(k,1) = clsPres.presenze
    aComb(k,2) = clsPres.snumeri
    Exit For
   End If
  Next
  i = i + 1
  Call AvanzamentoElab(1,collPres.count,i)
  If ScriptInterrotto Then Exit For
 Next
End Sub

può essere un punto di partenza per ricavare un file txt delle sestine che sio nono formate all'interno dell'arxchivio?

 

[keeper]

ok

 

[keeper]

si

 

[Carmelo F]

chiedo aiuto al forum vorrei acquistare il programma sestine frequenti.sono un analista potrei ricambiare il favore.grazie