Qualche IDEA SuperEnalotto e MillionDay

[Rubino]

Spazio dedicato a qualche script interessante
solo per
SuperEnalotto o MillionDay

per il resto rivolgersi area download

 

[Rubino]

storia nelle estrazioni dell'archivio SUPERENALOTTO

delle decine e cadenze- frequenza formula​

ti metto il riepilogo e lo script, se vuoi farlo girare​

Riepilogo decina/cadenze le piu frequenti

Formula Dec/Cad 45 freq.648
Formula Dec/Cad 55 freq.411
Formula Dec/Cad 44 freq.397
Formula Dec/Cad 35 freq.303
Formula Dec/Cad 54 freq.269
Formula Dec/Cad 46 freq.223
Formula Dec/Cad 34 freq.181
Formula Dec/Cad 56 freq.133
Formula Dec/Cad 36 freq.103
Formula Dec/Cad 43 freq.66
Formula Dec/Cad 65 freq.61
Formula Dec/Cad 53 freq.44
Formula Dec/Cad 64 freq.38
Formula Dec/Cad 25 freq.37
Formula Dec/Cad 33 freq.19
Formula Dec/Cad 66 freq.16
Formula Dec/Cad 26 freq.15
Formula Dec/Cad 24 freq.14
Formula Dec/Cad 63 freq.6
Formula Dec/Cad 23 freq.4
Formula Dec/Cad 52 freq.4
Formula Dec/Cad 15 freq.2
Formula Dec/Cad 42 freq.2

Totale freq. 2996

Totale estrazioni...2996

 

[Rubino]

script Superenalotto Decina-Cadenze Formule frequenza

Option Explicit
Sub Main
 '''''  quante volte sono uscite le sestine nella forma decina e cadenza???
 Dim fine,i,p,n,cd,cc,a,d,c,comb,KEY,k,tg
 Dim deccad(99),rie(99,2)
 fine = EstrazioniArchivioSE
 ColoreTesto(1)
 Scrivi " S u p e r E n a l o t t o   -   Bep-Frequenza DECINE-CADENZA nelle sestine estratte ",1
 Scrivi "Archivio completo di n.Estrazioni " & fine,1
 ColoreTesto(0)
 Scrivi "N.Estratti complessivi " & fine*6,1
 ColoreTesto(2)
 Scrivi "estr.               DECINE-CADENZE      qta   ",1
 ColoreTesto(0)
 '''leggo archivio estrazioni
 For i = 1 To fine
  Messaggio(i)
  ReDim transitd(99),transitc(99)
  comb = ""
  For p = 1 To 6
   n = EstrattoSE(i,p)
   d = DecinaCabalistica(n)
   c = Cadenza(n)
   transitd(d) = transitd(d) + 1
   transitc(c) = transitc(c) + 1
   comb = comb & Format2(n) & "."
  Next
  ''''controlla quante decine e quante cadenze
  '''conta decine
  cd = 0
  For a = 0 To 8
   If transitd(a) > 0 Then
    cd = cd +1
   End If
  Next
  '''conta cadenze
  cc = 0
  For a = 0 To 9
   If transitc(a) > 0 Then
    cc = cc +1
   End If
  Next
  Scrivi FormattaStringa(i,"0000") & "/" & DataEstrazioneSE(i) & "     " & comb & "  ----   dec." & cd & "   Cad." & cc
  KEY = cd & cc
  rie(KEY,1) = rie(KEY,1) + 1
  rie(KEY,2) = KEY
 Next
 '''riepilogo delle formule decine/cadenze e lo uscite per capire le piu frequenti
 Scrivi "Riepilogo decina/cadenze le piu frequenti",1
 Call OrdinaMatrice(rie,-1,1)
 For k = 1 To 99
  If rie(k,1) > 0 Then
   Scrivi   "Formula Dec/Cad "  &  rie(k,2)  & " freq." & rie(k,1)
        tg= tg + rie(k,1)
    End If
    Next
    Scrivi "Totale freq. " & tg,1
    Scrivi "Totale estrazioni..." & fine,1
End Sub

 

[Rubino]

SistemazioneDatidaWUC​

dati provenienti da WUC,

x sviluppi in cinquina o in sestina, per usi vari statistici o pseudostatistici
o di sistemistica.

Option Explicit
Sub Main
 '''''' utiliti per sistemazione dati file proveniente da  Wuc
 ''''legge file Wuc Nome "NUOVO.TXT"
 ''''crea file Matrice.txt (sistemato)
 ''''''''' Newf = "C:\temp\Matrice.txt"   oppure mettici il nome che vuoi
 Dim sfileinput,srecord,last,a,b,riga,cl,Newf,lungo,SCELTA,sostF
 Newf = InputBox("Inserire nome FileOutput es:Int17-05-05.txt",,"c:\temp\Int-17-05col6188.txt")
 sostF = "c:\temp\Matrice.txt"
 sfileinput = "c:\temp\nuovo.txt"
 Call EliminaFile(Newf)
 cl = InputBox("Classe",,5)
 '''sostuisce direttamente file c:\temp\Matrice.txt"
 SCELTA = InputBox("Vuoi sostituire il file Matrice.txt  S/N",,"S")
 If SCELTA = "S" Or SCELTA = "s" Then
  Call EliminaFile(sostF)
 End If
 ''''  leggi file Input Preveniente da WUC
 Call LeggiRigheFileDiTesto(sfileinput,srecord)
 last = UBound(srecord)
 ColoreTesto(2)
 Scrivi "Script: SistemazionedatidaWuc",1
 ColoreTesto(0)
 Scrivi "File Wuc    nome.." & sfileinput,1
 Scrivi "File Output nome.." & Newf,1
 Scrivi "File contiene n.rec." & last+1
    Scrivi "Sostituisci File Matrice.txt di output per futuri usi  S/N "  & SCELTA ,1
 Scrivi "e' stata richiesta la sistemazione in classe.." & cl,1
    ''
 If cl = 5 Then lungo = cl*2+(4)
 If cl = 6 Then lungo = cl*2+(5)
    '''
    For a = 0 To last
  riga = ""
  riga = Mid(srecord(a),2,lungo)
  '
  Call ScriviFile(Newf,riga)
        Call ScriviFile(sostF,riga)
    Next
 CloseFileHandle(Newf)
 CloseFileHandle(sostF)
 ''''
 ColoreTesto(1)
 Scrivi " x scelta NO sostituzione file Matrice -  copiare il file o rinominarlo con il Nome...c:\temp\Matrice.txt e sovrascrivere quello eventualmente gia' presente",1
 Scrivi "Per essere letto ed usato da altri script statistici o pseudostatistici",1
End Sub

​

 

[Rubino]

una volta sistemato il txt
si può usare per fare una serie di valutazioni tipo questa
calcolare o ridurre il numero delle colonne impostando delle condizioni di

somma dei numeretti
D=nPrimi
P=nSecondi
U=Unificata
T=Totale

per fare un esempio
il sistema Integrale il 17-06-06 di colonne 12376
imponendo di filtrare le sole colonne con nPrimi 26-26
si ottiene un file di 975 colonne

Option Explicit
Sub Main
   '''''''''SERVE PRINCIPALMENTE per leggere FILE Matrice da jolla o cover designs o wuc
   '''''ma può leggere anche matrici anche grandi
   '''''--------------------------------------------------------
   Dim sFileBd,Srecord,last,x,qt,t,cg,numeretto,hH,h,ts,tT,ct,K,z,NPda,NPa,NSda,NSa,NUda,NUa
   Dim file,record,lastult,selsom,tsd,tsp,Classe,riga,lb,xx,fq,rec
   ''''file output dopo filtro Pilota
   Scrivi "Script Adispo-3",1
   sFileBd = "C:\temp\Matrice.txt"
   Call LeggiRigheFileDiTesto(sFileBd,Srecord)
   last = UBound(Srecord)
   ColoreTesto(2)
   Scrivi "Leggo combinazioni matrice ...." & last + 1,1
   '''''''''''''''''''''''''''''''''''''''''
   '''''''''''''''''''''''''''''''''''''''''
   file = InputBox("SALVA File nome a Tuo Piacere  ",,"C:\Users\Utente\Desktop\LavSuperEnalotto\90.06.03-NP-S13.txt")
   Scrivi "Salva File output Nome...." & file,1
   Call EliminaFile(file)
   '''''''''''''''''''''''''''''''''''''''''
   Do While Classe = ""
      Classe = InputBox("Classe Matrice 4-5-6 Nr.",,6)
      If Classe < 4 Or Classe > 6 Then
         MsgBox("possibile solo 4-5-6 Quartina/Cinquina/Sestina ")
         Classe = ""
      Else
         Exit Do
      End If
   Loop
   selsom = InputBox("Filtra Somma D=nPrimi o P=nSecondi o  U=Unificati(DP) o  T=totale",,"D")
   If selsom = "D" Or selsom = "d" Then
      NPda = CInt(InputBox("Somma n.Primi da.....  ",,24))
      NPa = CInt(InputBox("Somma n.Primi  a.....  ",,24))
   End If
   If selsom = "P" Or selsom = "p" Then
      NSda = CInt(InputBox("Somma n.Secondi da.....  ",,38))
      NSa = CInt(InputBox("Somma n.Secondi  a.....  ",,38))
   End If
   If selsom = "U" Or selsom = "u" Then
      NUda = CInt(InputBox("Somma Unificata da.....  ",,38))
      NUa = CInt(InputBox("Somma Unificata  a.....  ",,38))
   End If
   Scrivi "Matrice -  " & sFileBd,1
   Scrivi "Matrice - classe " & Classe,1
   Scrivi "Totale Combinazioni " & last + 1,1
   Scrivi "Filtra Somma Numeretti Posizione D=nPrimi o P=nSecondi o U=Unificati(DP)  O  T=Totale   SCELTO O RICHIESTO..( " & selsom & " )",1
   ColoreTesto(1)
   If selsom = "D" Or selsom = "d" Then Scrivi "N.Primi Presenze da....( " & NPda & " ) a....( " & NPa & " )",1
   If selsom = "P" Or selsom = "p" Then Scrivi "N.Secondi Presenze da....( " & NSda & " ) a....( " & NSa & " )",1
   If selsom = "U" Or selsom = "u" Then Scrivi "N.Unificati  Presenze da....( " & NUda & " ) a....( " & NUa & " )",1
   ColoreTesto(0)
   Scrivi "La Matrice elabora le CINQUINE O SESTINE  , i numeri devono essere divisi da uno spazio vuoto e terminare senza spazi vuoti o punti",1
   Scrivi "La Matrice l'ultima riga del file non deve avere righe bianche o senza dati ",1
   Scrivi "La Matrice deve terminare con ultima riga valida",1
   ColoreTesto(0)
   '''loop per leggere file e calcolare combinazioni come da parametri filtro impostati
   For x = 0 To last
      Messaggio(x & "../..  " & last + 1)
      'arrays decodifica
      ReDim av(50)
      riga = ""
      lb =(Classe*2) +(Classe)
      riga = Left(Srecord(x),lb)
      Call SplitByChar(riga," ",av)
      qt = UBound(av)
      ReDim NR(50)
      '''compondo arrays per numeretti
      hH = 0:ts = 0:tsp = 0:tsd = 0
      For h = 0 To qt
         hH = hH + 1
         NR(hH) = Left(Format2(av(h)),1)
         hH = hH + 1
         NR(hH) = Right(Format2(av(h)),1)
         '''' TOTALE
         If selsom = "T" Or selsom = "t" Then
            ts = ts + Int(av(h))
         End If
      Next
      '''''''''''''''
      ''''pari o dispari
      If selsom = "D" Or selsom = "d" Or selsom = "T" Then
         fq = qt*2 + 1
         For K = 1 To fq
            If dispari(K) = True Then
               tsd = tsd + Int(NR(K))
            End If
         Next
      End If
      If selsom = "P" Or selsom = "p" Or selsom = "T" Then
         fq = qt*2 + 2
         For K = 1 To fq
            If pari(K) = True Then
               tsp = tsp + Int(NR(K))
            End If
         Next
      End If
      ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
      '''''
      If selsom = "d" Or selsom = "D" Then
         If tsd >= NPda And tsd <= NPa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      If selsom = "P" Or selsom = "p" Or selsom = "T" Then
         If tsp >= NSda And tsp <= NSa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      ''''Unificati'''''''''''''''''''''''''''''''''''''''''''''''''
      ''''pari o dispari
      If selsom = "U" Or selsom = "u" Then
         fq = qt*2 + 1
         For K = 1 To fq
            If dispari(K) = True Then
               tsd = tsd + Int(NR(K))
            End If
         Next
      End If
      If selsom = "U" Or selsom = "U" Then
         fq = qt*2 + 2
         For K = 1 To fq
            If pari(K) = True Then
               tsp = tsp + Int(NR(K))
            End If
         Next
      End If
      ''''''CALCOLA SOMMA DISPARI O PARI O TOTALE
      '''''
      If selsom = "U" Or selsom = "U" Then
         If tsd + tsp >= NUda And tsd + tsp <= NUa Then
            ct = ct + 1
            Scrivi riga
            rec = riga
            Call ScriviFile(file,rec)
         End If
         cg = cg + 1
      End If
      ''''''''
      If selsom = "T" Or selsom = "t" Then
         Scrivi "  Somma Tot." & FormattaStringa(ts,"0000") & "   Somma PosD." & Format2(tsd) & "   Somma PosP." & Format2(tsp) & "   Somma Unificata " & FormattaStringa(tsd + tsp,"000") & "      " & riga
         ct = ct + 1
         cg = cg + 1
      End If
   Next
   CloseFileHandle(file)
   Scrivi
   Scrivi "Totale combinazioni elab." & x,1
   Scrivi
   Scrivi "Riepilogo combinazioni filtrate.." & ct,1
   Scrivi
   Scrivi "Tempo Elab." & TempoTrascorso
End Sub

 

[Rubino]

ricerca Archivio Superenalotto

esempio: Rilevazione Automatica di tot.Numeri

S u p e r E n a l o t t o   Estraz.esaminate tot.16

Riepilogo Punteggi riscontrati
Punteggio 3   Punti      n.5
Punteggio 4   Punti      n.3
Punteggio 5   Punti      n.1
Punteggio 5+1 Punti      n.
Punteggio 6   Punti      n.
Casi in corso o negativi n.2

Riepilogo Esiti vincenti Riscontrati per n.colpo
Colpo n.1  Casi..10
Colpo n.2  Casi..4
Colpo n.3  Casi..1

 

[sorujoe]

x Rubino
Ho una formula per l'integrale million Day ma soprattutto enalotto che è una certezza ....visto che in PVT non posso mandartela se mi dai una mail te la giro. Formula unica sull'archivio vale anche per lotto e 10elotto
Ciao Giovanni

 

[Alien.]

Ciao,scusa mi da errore :

Next
'''''''''''''''
''''pari o dispari
If selsom = "D" Or selsom = "d" Or selsom = "T" Then
fq = qt*2 + 1
For K = 1 To fq
If dispari(K) = True Then
tsd = tsd + Int(NR(K))

 

[Alien.]

SUPERENALOTTO

Dato che ......mi servirebbe uno script che mi elenca tutte le colonne vincenti dal numero 1 al numero 69 con quanti numeri pari e dispari sono usciti nella colonna vincente ,si può fare ? grazie.

 

[Rubino]

ciao alien

guarda il problema è sempre questa istruzione

Call SplitByChar(riga," ",av)​

qui è previsto uno spazio tra i numeri della sestina o cinquina se millionday

se la tua matrice ha un punto tra i numeri della sestina, correggi mettendoci il punto

Call SplitByChar(riga,".",av)​

è il punto più delicato, perchè lo script non fa il controllo se ci sono i punti o gli spazi
prima di lanciare l'esecuzione, quindi da l'errore.

non mi chiedere di postarti lo script modificato, perchè non ho portato via nessun pc.​

ciao

 

[Alien.]

ciao Rubino l'errore è questo tsd = tsd + Int(NR(K))


acc....sei ancora in ferie ?



Dimenticavo puoi farmi lo script postato sopra,grazie

 

[Rubino]

ciao Alien

questo è lo script con le sestine che hanno avuto numeri nel range 01 : 69

Option Explicit
Sub Main
 Dim fine,pos,qt,es,ct
 fine = EstrazioniArchivioSE
 ColoreTesto(1)
 Scrivi "-SE-Archivio Sestine con range Numeri da 01:69",1
 Scrivi
 ColoreTesto(0)
 '''calcolo
 ReDim pos(6)
 For es = 1 To fine
  Call Messaggio(es)
  qt = 0
  ReDim nm(6)
  For pos = 1 To 6
            If EstrattoSE(es,pos) < 70 Then
    qt = qt + 1
    nm(qt) = Format2(EstrattoSE(es,pos))
   End If
  Next
  If qt = 6 Then
   Scrivi es & "   sestina " & StringaNumeri(nm," ")
   ct = ct + 1
  End If
 Next
 Scrivi "Nr.Estrazioni in Archivio  " & fine,1
 ColoreTesto(1)
 Scrivi "Nr.Estrazioni con sestina numeri dal 01:69   n.totale  " & ct,1
End Sub

non ho capito cosa intendi dal tuo punto di vista Pari e Dispari !

 

[Rubino]

oppure questo

Option Explicit
Sub Main
 Dim fine,pos,qt,es,ct,pa,di
 fine = EstrazioniArchivioSE
 ColoreTesto(1)
 Scrivi "-SE-Archivio Sestine con range Numeri da 01:69",1
 Scrivi
 ColoreTesto(0)
 '''calcolo
 ReDim pos(6)
 For es = 1 To fine
  Call Messaggio(es)
  qt = 0 : pa = 0 : di = 0
  ReDim nm(6)
  For pos = 1 To 6
   If EstrattoSE(es,pos) < 70 Then
    qt = qt + 1
    nm(qt) = Format2(EstrattoSE(es,pos))
    If pari(nm(qt)) = True Then pa = pa + 1
    If dispari(nm(qt)) = True Then di = di + 1
   End If
  Next
  If qt = 6 Then
   Scrivi es & "   sestina " & StringaNumeri(nm," ")  & "   Pari " & pa & "    Dispari " & di
   ct = ct + 1
  End If
 Next
 Scrivi "Nr.Estrazioni in Archivio  " & fine,1
 ColoreTesto(1)
 Scrivi "Nr.Estrazioni con sestina numeri dal 01:69   n.totale  " & ct,1
End Sub

 

[adispo2000]

Rubino.. si potrebbe creare uno script dove partendo da un file .txt con formazione "X" , creare dei sistemi senza ripetizioni (tipo enalotto formazione 6 , colonne 15 oppure milionday formazione 5, colonne 11), prendendo le colonne dal file primario

 

[Rubino]

ciao adispo2000


pretendi troppo dagli script.

premesse:
integrale 622Milioni e passa di colonne
spaccare l'integrale in sistemini che contengano i 90 numeri non ripetuti
622Milioni/15colonne = 41Milioni e rotti , di mini sistemini di 15 colonne

neanche la Lottomatica riesce a farlo.

preferisce controllare le colonne realmente giocate perchè minori a quelle teoriche e matematiche, e perchè risulta piu' rapido ed utile

 

[Alien.]

Perfetto Rubino,grazie vi è la possibilità di copiare in excel con ogni numero nel proprio campo,poi le date e non i numeri di uscita ed infine se vi sono ambi ,terzine,quartine uguali e quali sono e i numeri più frequenti........sento che mi stai mandando alla prima porta a destra......hhahahaha

 

[adispo2000]

Scusa Rubino...ciao...non dico su tutti 622milioni ma su un file .txt di poche colonne..oppure dall'archivio..quindi l'ho script andra' a realizzare in modo random "X" sistemini senza rip.(x es. superenalotto 15 colonne in formazione 6.....oppue milionday formazione5 col 11).....che faranno parte del sistema di partenza, quindi non deve mischiare i singoli numeri in modo radmon ma le colonne........non so' se sono stato chiaro........... questo step...mi serve per poter prendere singolarmente ogni sistemino realizzato per poter creare dei filtri da utilizzare con spaziometria....

 

[adispo2000]

Scusa Rubino...ciao...non dico su tutti 622milioni ma su un file .txt di poche colonne..oppure dall'archivio..quindi l'ho script andra' a realizzare in modo random "X" sistemini senza rip.(x es. superenalotto 15 colonne in formazione 6.....oppue milionday formazione5 col 11).....che faranno parte del sistema di partenza, quindi non deve mischiare i singoli numeri in modo radmon ma le colonne........non so' se sono stato chiaro........... questo step...mi serve per poter prendere singolarmente ogni sistemino realizzato per poter creare dei filtri da utilizzare con spaziometria....

 

[Rubino]

hai provato a scaricare il programma di Paramini Moreno (Random senza Numeri Ripetuti) ?
ne sei già in possesso, visto che è free, su altro sito ?
questo fa quello che chiedi, o file estrazioni che carichi o ti crea random per diverse possibilità
dalle terzine fino alle decine

o ti serve un file txt generato random con uno script, cosa completamente diversa da quanto sopra e scarsamente utile.

 

[adispo2000]

Gia' fatto..pero' considera solo i singoli numeri...invece io volevo che considerasse la formazione.......quindi se' carico l'archivio sempre prendendo ad esempio l'enalotto formazione6....mi potrebbe restituire "x" sistemini random di 15colonne senza ripetizione che mi copre i 90numeri......
Lo script sarebbe impostato tipo:
- inserire file .txt oppure archivio;
- numeri o formazione;
- sistemi da generare ;
- colonne per sistema (quindi siamo noi ad imporre se coprire i 90numeri oppure i 55numeri oppure ecc..)...ciao