Novità

RUBINO PANE PER I TUOI DENTI

adispo2000

Super Member >PLATINUM<
QUESTA ERA PERFETTA..
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,rec,lastult,selsom,tsd,tsp,Classe,riga,lb,xx
''''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("Inserisci NomeFile a Tuo Piacere in output ",,"C:\temp\01.txt")
Scrivi "Salva File output Nome...." & file,1
Call EliminaFile(file)
'''''''''''''''''''''''''''''''''''''''''
Do While Classe = ""
Classe = InputBox("Classe Matrice 6 = sestina",,6)
If Classe <> 6 Then
MsgBox("possibile solo 6 = 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..... ",,12))
NPa = CInt(InputBox("Somma n.Primi a..... ",,13))
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 sestina , 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 = 1 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
For K = 0 To qt*2 + 2
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
For K = 1 To qt*2 + 2
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" Or selsom = "T" Then
For K = 0 To qt*2 + 2
If dispari(K) = True Then
tsd = tsd + Int(NR(K))
End If
Next
End If
If selsom = "U" Or selsom = "U" Or selsom = "T" Then
For K = 0 To qt*2 + 2
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
Call CloseFileHandle(file)
Scrivi
Scrivi "Totale combinazioni elab." & x,1
Scrivi
Scrivi "Riepilogo combinazioni filtrate.." & ct,1
Scrivi
Scrivi "Tempo Elab." & TempoTrascorso
End Sub

MA NON CAPISCO LE ALTRE PERCHE' NON VANNO...........
 
R

Rubino

Guest
guarda ho appena riprovato con questo script e a me non da errore


devi guardare il file Matrice.txt, dove hai messo dentro le colonne da controllare con le somme

a mio avviso hai o una riga in fondo al file vuota
oppure hai ancora qualche carattere a dx in più dell'ultimo numero scritto della sestina


oppure mi dici che sistema è che lo provo a scaricare e controllare se è grande
se è piccolo postalo che lo controllo



lo puoi vedere entrando nel file e facendo solo seleziona tutto
dovrebbero le righe diventare blu o un colore selezionato
scorrendo poi le righe dovresti vedere se qualche riga ha qualche carattere in più, anche blank
che dovresti togliere .


Codice:
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:\temp\01.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
 
R

Rubino

Guest
iao il programma che uso è questo Numeri a coprire
scaricabile da qui

https://wheels.**************.net/?t...entry432426415
INVECE DEGLI ASTERISCHI METTI forum community

Se leggi dal primo post fino all'ultimo spiega come funziona il tutto.
la base della ricerca è questa

La chiave per ottenere " risultati migliori " è salvare le colonne equivalenti controllando eventuali doppioni .

Allego immagine del programma

ho il codice sorgente del programma in vb6 gentilmente offerto dal programmatore
in accordo di non divulgarlo
;)

e con un piccolo ritocco salvo equivalenti in una cartella tutti separati.
Esempio
Miglioramenti 1 con equivalenti .txt
Miglioramenti 2 con equivalenti .txt
Miglioramenti 3 con equivalenti .txt
Miglioramenti 4 con equivalenti .txt
Miglioramenti 5 con equivalenti .txt
Miglioramenti 6 con equivalenti .txt
Miglioramenti 7 con equivalenti .txt
ecc.....
per creare il file delle colonne da giocare
decido alla fine quali equivalenti totali da sommare
partendo dai miglioramenti più alti
:)
controllare sempre eventuali doppioni.

Sommando una quantità di colonne " ragionevole " per una giocata in società

provo a scaricarlo non so che versione sia ma
ci guarderò!


buona domenica!
 

adispo2000

Super Member >PLATINUM<
il problema sta' nel fatto che spaziometria...wuc....quando fanno il salvataggio in .txt ...................saltano righe tipo 17 numeri a sestine integrale 12376..invece salvando in txt 12388...quindi la differenza sono salti di righe...porcamiseria
 

adispo2000

Super Member >PLATINUM<
ciao rubino....volevo chiederti una cosa...parlando sempre di super... ....volendo sapere statisticamente analizzando l'archivo .....con quante dec. e cad. in media si forma una sestina tipo ieri 03 13 15 36 42 90 si e' formata da 6 dec. e 5 cad.
 
R

Rubino

Guest
storia nelle estrazioni delle decine e cadenze- frequenza formula
ti metto il riepilogo e lo script, se vuoi farlo girare

Codice:
[COLOR=#FF0000]Riepilogo decina/cadenze le piu frequenti[/COLOR]
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
[COLOR=#0000CD]Totale freq. 2996
Totale estrazioni...2996[/COLOR]
 
Ultima modifica di un moderatore:
R

Rubino

Guest
questo lo script


ciao e buona giornata



Codice:
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
 
Ultima modifica di un moderatore:
R

Rubino

Guest
ho guardato il metodo di free
è anche abbastanza semplice nell'insieme, ma cosa dovremmo fare noi?
perchè mi sembra che il suo lavoro è diverso da come l'hai specificato sotto.

free ha preparato i file dall'integrale
elabora le cinquine per migliore copertura dei 2 punti.

il problema qual è, non hai i files che derivano dall'integrale?




Ciao Rubino per quanto riguarda questa simulazione
e' programma semplice che esegue l'esempio che hai descritto da provare mi interessa
;)
In pratica l'esempio che hai posto esegue la ricerca su archivio e mi elenca le quaterne ripetute
e va bene .

Ora il programma deve elaborare aggiungendo il quinto numero senza modificare la quaterna di base e vedere di trovare una maggiore copertura di colonne con l'archivio.
In questo esempio la ricerca è per la quaterna e si cambia solo un numero

Se la ricerca viene fatta per i tre numeri che si ripetono più volte in questo caso si cambia 2 numeri
e il programma deve elaborare sempre con archivio per ottenere una copertura maggiore con varie colonne

Se la ricerca viene fatta per due numeri che si ripetono più volte in questo caso si cambia 3 numeri
e il programma deve elaborare sempre con confronto archivio per ottenere una copertura maggiore con varie colonne.

in pratica si creano colonne che agganciano più punti con tutto l'archivio
:)

Spero di non avere creato più confusione come spiegazione :wacko:
 
R

Rubino

Guest
SistemazioneDatidaWUC

x sviluppi in cinquina o in sestina

Codice:
[FONT=courier new]Script: SistemazionedatidaWuc
File Wuc    nome..c:\temp\nuovo.txt
File Output nome..c:\temp\Int-17-05col6188.txt
File contiene n.rec.6188
e' stata richiesta la sistemazione in classe..5
1) copiare il file o rinominarlo con il Nome...c:\temp\Matrice.txt e sovrascrivere quello eventualmente gia' presente
Per essere letto ed usato da altri script statistici o pseudostatistici[/FONT]







Codice:
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
 
Ultima modifica di un moderatore:
R

Rubino

Guest
'''Legge il file Matrice e calcola la somma Numeretti (Cinquine/Sestine)
''' file arrivati da WUC


Codice:
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,rec,lastult,selsom,tsd,tsp,Classe,riga,lb,xx
   ''''file output dopo filtro Pilota
   Scrivi "Script LeggeFileMatricexSommeNumeretti ",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:\temp\17-05NPU.txt")
   Scrivi "Salva File output Nome...." & file,1
   Call EliminaFile(file)
   '''''''''''''''''''''''''''''''''''''''''
   Do While Classe = ""
      Classe = InputBox("Classe Matrice 5 o 6 = sestina",,5)
      If Classe < 5 Or Classe > 6 Then
         MsgBox("possibile solo 5 o 6 = 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",,"T")
   If selsom = "D" Or selsom = "d" Then
      NPda = CInt(InputBox("Somma n.Primi da.....  ",,12))
      NPa = CInt(InputBox("Somma n.Primi  a.....  ",,13))
   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 File InputNome -  " & sFileBd,1
   Scrivi "Matrice Svil.in 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 = 1 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
         For K = 0 To qt*2 + 2
            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
         For K = 1 To qt*2 + 2
            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" Or selsom = "T" Then
         For K = 0 To qt*2 + 2
            If dispari(K) = True Then
               tsd = tsd + Int(NR(K))
            End If
         Next
      End If
      If selsom = "U" Or selsom = "U" Or selsom = "T" Then
         For K = 0 To qt*2 + 2
            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
    Call CloseFileHandle(file)
   Scrivi
   Scrivi "Totale combinazioni elab." & x,1
   Scrivi
   Scrivi "Riepilogo combinazioni filtrate.." & ct,1
   Scrivi
   Scrivi "Tempo Elab." & TempoTrascorso
End Sub
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Ciao
non ho avuto modo e tempo di contattare free

ho letto i suoi post
mi sembrano che la suddivisione per capo gioco
sia per tre punti che eventualmente pe due punti al millionday
da dei risultati
ma ho letto che sono di un paio di mesi fa, da allora non sta aggiornando più

come mai?

per cercare un gruppo di combinazioni con maggior copertura di risultati utili nell archivio estrazioni, si puo fare a prescindere da un capogioco, anche se poi lui ne usa una cinquantina nel sistema finale.

insomma lui ha messo in piedi il suo programmino
ma io con uno script posso al limite mettere insieme due o tre ricerche insieme
ma poi diventano o un gruppo di script a procedura oppure si fermano li.

faccio un esempio

se con 36 numeri copri al 100 % le 520estrazioni in archivio
bastera' selez. Quei 36 numeri come capo giochi e ricercare la cinquina
uscita che ha dato maggiori risultati positivi per la sorte che mi interessa

a prima vista sembra semplice ma con uno script non e' proprio cosi'

almeno l idea deve essere metabolizzata
 
R

Rubino

Guest
provo a mettere i piedi un mio script, un artizziggolato o intrugliato di idee che mi sono venute nel frattempo,
vediamo se riesco a trovare una buona copertura di un sistemino di poche colonne che raggiungano una buona copertura
o con poche colonne scoperte.

vediamo oggi è giovedì, nel fine settimana credo di riuscire a farlo!

ciao
 
R

Rubino

Guest
ciao
sto cercando di abbozzare una prima parte di un VERIFICATORE FILE TXT

che cerca miglioramenti in copertura su Archivio Utente

i tempi non saranno proprio veloci per crearlo e soprattutto veloce dove possibile e giusto nell'elaborazione, ma ci provo,
una idea a prima vista discreta mi è venuta, poi non So!!.

avrei bisogno di un esempio abbastanza semplice sul MillionDay (55numeri)
per vedere cosa riesco a trovare come miglioramenti in copertura su un insieme
di colonne

quindi dammi tu un input di un tipo di sistemino sviluppato (v55-k---t---)
che possa servirmi di esempio.
 
R

Rubino

Guest
certo che uso soprattutto quelle, sono già fatte

ma poi tu mi chiedi di filtrare le colonne come quelle di free.;)

hai provato a filtrarle con le somme dei numeretti, tipo le sue 132 colonne al superenalotto?

vengono anche meno colonne di 132 da giocare. e la garanzia è comunque rispettata.
certo le colonne utili per i punteggi diminuisco, così farai meno 2 o 3, ma sempre a segno vanno
insieme al suo di 132.



il problema è sapere come nascono queste 132 , dall'archivio (copertura maggiore? / ritardo? / miscellanea delle migliori?)

questo è il sapere ed il riuscire.

comunque ci vogliono gli strumenti sempre adatti per fare qualcosa.


:rolleyes:
 
Ultima modifica di un moderatore:

adispo2000

Super Member >PLATINUM<
.Ciao rubino..scusa del mio silenzio....ma volendo mettere in pausa il progetto di free, e appurato la somme numeretti....volevo riprendere il discordo dall'allegato...dove si evince che la sestina si racchiude in 5cad+5dec..che copre la maggior parte delle comb.
Ma le 36ine sono immense allora avevo pensato di creare 1500 36ine o quadrati utilizzando le matrici sottostanti cioe':
per le decine:
2 3 4 6 8 9 3 4 5 6 7 9 1 2 4 5 7 9 1 4 5 6 7 8 1 2 3 5 6 9 1 3 4 7 8 9 1 2 3 4 6 7 1 2 3 4 5 8 2 5 6 7 8 9 1 4 5 6 8 9 2 3 5 7 8 9 1 2 3 6 7 8 2 4 5 7 8 9 1 2 3 5 6 7 1 2 3 6 7 9 1 2 4 5 6 8 1 2 5 7 8 9 1 3 4 5 6 8 2 4 5 6 7 9 3 5 6 7 8 9 1 2 3 4 6 9 1 4 6 7 8 9 1 3 4 5 8 9 1 3 4 5 7 8 1 2 3 6 8 9 2 3 4 5 7 9 2 3 4 6 7 8 1 3 5 6 7 9 1 2 4 7 8 9 2 3 4 5 6 8 dove 1 rappresenta la dec (01-02-03-04-05-06-07-08-09-10), -2 (11-12-13-14-15-16-17-18-19-20)...ecc

per le cadenze:
2 3 6 8 9 10 3 4 7 8 9 10 1 2 4 8 9 10 2 3 5 6 7 9 1 2 5 7 8 10 1 2 3 6 7 8 1 4 6 7 9 10 1 4 5 6 8 10 1 4 5 7 8 9 1 3 4 5 7 10 1 3 5 8 9 10 3 4 5 6 9 10 1 2 4 5 6 7 2 3 4 6 7 10 1 2 3 4 7 9 1 2 5 6 8 9 2 3 4 5 6 8 3 5 6 7 8 10 2 4 6 7 8 9 1 2 3 5 6 10 2 4 5 7 9 10 1 3 4 6 8 9 1 5 6 7 9 10 2 3 4 5 8 9 1 2 6 7 9 10 1 6 7 8 9 10 1 2 3 4 5 8 2 3 4 5 8 10 2 3 4 5 7 8 1 3 6 7 9 10 1 2 3 5 7 9 4 5 6 7 8 10 1 2 3 4 9 10 1 3 4 6 8 10 1 3 5 6 7 8 1 3 4 6 7 8 1 2 4 7 8 10 1 2 4 6 8 10 3 4 5 6 7 9 3 5 6 7 8 9 2 5 6 7 8 10 1 2 3 7 8 10 1 2 3 4 6 9 2 3 5 7 9 10 2 5 7 8 9 10 1 2 3 7 8 9 2 4 5 6 9 10 1 2 4 5 9 10 4 5 6 8 9 10 1 3 4 5 6 9 dove 1 rappresenta la cad (11-21-31-41-51-61-71-81), -2 (02-22-32-42-52-62-72-82)...ecc quindi avremo realizzato 1500 36ine....e dopo avere fatto questo creare un riepilogo per vedere le frequenze del sei e cinque ec.. delle singole 36ine...... per poi vedere come affrontare un altro step. intanto vediamo come poter racchiude la sestina. ciao
Non capisco perche' un elenco di colonne si debba vedere cosi..comunque per le decine il file lo trovi qui:
https://ljcr.dmgordon.org/cover/show_cover.php?v=9&k=6&t=5

per le cadenze qui:
https://ljcr.dmgordon.org/cover/show_cover.php?v=10&k=6&t=5

ciao
 

Allegati

  • Cattura.PNG
    Cattura.PNG
    62,6 KB · Visite: 3
Ultima modifica:
R

Rubino

Guest
X il millionday userei il 55-24-5 col199
x il superenalotto ci guardo
Userei il 90-24-3 col 85
divisibile 12x12 quadrato col.24

e' vero che x il million e' gar.5
Mentre per il super e' solo tre punti

ma sono coperti tutti i 90 numeri
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto