SVP Sistemi Virtuali Paralleli x Ambata semplice

silop2005 · 5 Settembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 637"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao LuigiB,[/TD]
[/TR]
[TR]
[TD]ho dato una controllatina veloce vers. 1.0.5[/TD]
[/TR]
[TR]
[TD]e non va bene[/TD]
[/TR]
[TR]
[TD]dovremmo rivedere alcune cose.[/TD]
[/TR]
[TR]
[TD]===========================[/TD]
[/TR]
[TR]
[TD]Più tardi ti pubblico le anomalie.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

Joe91 · 5 Settembre 2015

Luigi scusa ... non mi sono spiegato bene.

Devo specificare che è argomento che sviluppa in piani differenti.

Archivi ... e statistiche, sono su piani differenti.

Ma se modifichi l'origine degli archivi ... altreri le statistiche.

LuigiB · 5 Settembre 2015

ciao Joe , sono perfettamente daccordo le statistiche chiaramente dipendono dall'archivio ...la logica delle statistiche la lascio decidere a voi che siete piu esperti del "mondo lotto" è chiaro che ci si muove in un perimetro fatto di regole anche convenzionali che ovviamente a me sfuggono .. implemento volentieri la logica che mi suggerite sia tu che Silop.

Per silop .. dato che stamattina ho un po' di tempo fammi sapere le anomalie che provvediamo .. almeno le segnalazioni vecchie sono state risolte ?

ciao

Roby · 5 Settembre 2015

ciao

ho provato a creare gli archivi virtuali con il plugin di LuigiB, e penso che gli archivi li crei giusti.

vorrei provare a fare uno script su questi dati, ma che istruzione dovrei utilizzare per leggere questi archivi?

mi fate un esempio?

LuigiB · 5 Settembre 2015

ciao Rubino , gli archivi virtuali sono dei file identici al fle della base dati del programma.
Quindi poer farci le statistiche devi prima di tutto usare la funzione
ApriFileBaseDati alla qualke si passa il percorso del file voluto.
Fatto questo qualsiasi funzione del lotto si riferira all'archivio impostato.
Per far tornare l'archivio originale si chiama la funzone ResetArchivi.

ecco un esempio che avevo gia psotato , prevede che tui abbia prodotto gli archivi virtuali

Codice:

Option Explicit
Sub Main
    Dim sDir,Inizio,Fine,sFile,sFileCompleto
    sDir = GetDirectoryAppData & "ArchiviVirtuali\"
    sFile = ScegliFileArchivioVirt(sDir)
    If sFile <> "" Then
        sFileCompleto = sDir & sFile & ".dat"
        Inizio = 1
        Fine = QuantitaEstrazioniInFile(sFileCompleto)
        Call InitEseguiStatistica(sFileCompleto,sFile,Inizio,Fine)
    End If
End Sub
Function ScegliFileArchivioVirt(sDir)
    Dim i
    ReDim aFile(0)
    Call ElencoFileInDirectory(sDir,aFile,".dat")
    If UBound(aFile) > 0 Then
        i = ScegliOpzioneMenu(aFile,1,"Scegli archivio virtuale")
        If i > 0 Then
            ScegliFileArchivioVirt = aFile(i)
        Else
            ScegliFileArchivioVirt = ""
        End If
    Else
        MsgBox "Non sono stati trovati i sistemi virtuali nella directory " & vbCrLf & sDir
    End If
End Function
Sub InitEseguiStatistica(sFile,sNomeFile,Inizio,Fine)
    Dim n,r,k
    ReDim aRuote(1)
    Dim nRit,nRitMax,nIncrRitMax,nFre
    ReDim aRit(12,90)
    ReDim aRitMax(12,90)
    ReDim aFrq(12,90)
    ReDim aIncrRitMx(12,90)
    ReDim aRitPos(12,90)
    If ApriFileBaseDati(sFile) Then
        For r = 1 To 12
            aRuote(1) = r
            If r <> 11 Then
                Call Messaggio("Statistica su archivio virtuale " & sNomeFile & " Ruota " & NomeRuota(r))
                For n = 1 To 90
                    ReDim aN(1)
                    aN(1) = n
                    Call StatisticaFormazioneTurbo(aN,aRuote,1,nRit,nRitMax,nIncrRitMax,nFre,Inizio,Fine)
                    aRit(r,n) = nRit
                    aRitMax(r,n) = nRitMax
                    aFrq(r,n) = nFre
                    aIncrRitMx(r,n) = nIncrRitMax
                    'aRitPos(r,n) = RitPosTurbo(n,r,Fine)
                     aRitPos(r,n) = RitPosCrono(n,r,Fine)
                    
                Next
            End If
            Call AvanzamentoElab(1,12,r)
            If ScriptInterrotto Then Exit For
        Next
    Else
        MsgBox "Errore apertura archivio virtuale " & vbCrLf & sFile
    End If
    Call GeneraTabella(aRit,aRitMax,aIncrRitMx,aFrq,aRitPos,sNomeFile)
End Sub
Sub GeneraTabella(aRit,aRitMax,aIncrRitMx,aFre,aRitPos,sNomeFile)
    ReDim aTitoli(57)
    Dim aSubTit
    ReDim aValori(57)
    Dim k,r,y,n,e
    aTitoli(1) = "Sistema"
    aTitoli(2) = "Numero"
    k = 3
    For r = 1 To 12
        If r <> 11 Then
            For y = 1 To 5
                aTitoli(k +(y - 1)) = NomeRuota(r)
            Next
            k = k + 5
        End If
    Next
    ReDim aColSpan(57)
    aColSpan(1) = 1
    aColSpan(2) = 1
    For k = 3 To 57 Step 5
        For y = 1 To 5
            If y = 1 Then
                aColSpan(k +(y - 1)) = 5
            Else
                aColSpan(k +(y - 1)) = 0
            End If
        Next
    Next
    Call Messaggio("Generazione tabella sistemi virtuali")
    ' se si usa la tabella html usare la seguente linea e remmare quella sotto
    'Call InitTabella(aTitoli,vbBlue,,,vbWhite,,aColSpan)
    'se si usa la tabella ActiveX usare la seguente linea e remmare quella sopra
    Call InitTabella(aTitoli,vbBlue,,,vbWhite)
    aSubTit = Array("","Rit","RitMx","Fre","IncRMx","RitPos")
    For k = 3 To 57 Step 5
        For y = 1 To 5
            aTitoli(k +(y - 1)) = aSubTit(y)
        Next
    Next
    Call AddRigaTabella(aTitoli,vbYellow)
    aValori(1) = sNomeFile
    For n = 1 To 90
        aValori(2) = n
        y = 2
        For r = 1 To 12
            If r <> 11 Then
                y = y + 1
                aValori(y) = aRit(r,n)
                y = y + 1
                aValori(y) = aRitMax(r,n)
                y = y + 1
                aValori(y) = aFre(r,n)
                y = y + 1
                aValori(y) = aIncrRitMx(r,n)
                y = y + 1
                aValori(y) = aRitPos(r,n)
            End If
        Next
        Call AddRigaTabella(aValori)
        Call AvanzamentoElab(1,90,n)
        If ScriptInterrotto Then Exit For
    Next
    Call CreaTabellaOrdinabile
End Sub

Roby · 5 Settembre 2015

grazie LuigiB per lo script d'esempio ,

solo una domanda sciocca, solo per conferma,

" la colonna numero che si presenta nell'output (2 colonna) è il numero definitivo
da porre in gioco del sistema virtuale richiamato o è un numero che va trasformato?"

LuigiB · 5 Settembre 2015

ciao no , i numeri degli archivi virtuali vanno trasformati con l'apposita funzione
Attenzione che finceh non si richiama la funzione ResetArchivi ad esempi VerificaEsito lavorerebbe
sull'archivio virtuale corrente ...quindi attenzioen il numero virtuale convertito in reale va cercato ssull'archivio reale ...

Codice:

Dim numV ,bPriamEstrFissa , idEstr, nDist

numV = 43
bPriamEstrFissa = True
idEstr = 100
nDist = 7


Call Scrivi (NumVirtToNumReale ( numV ,bPriamEstrFissa , idEstr, nDist) )

silop2005 · 6 Settembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 677"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao LuigiB,[/TD]
[/TR]
[TR]
[TD]si le vecchie segnalazione sono a posto.[/TD]
[/TR]
[TR]
[TD]Causa impegni non ho potuto rispondere stamattina.[/TD]
[/TR]
[TR]
[TD]===========================================[/TD]
[/TR]
[TR]
[TD]Siccome il valore FISSO 135 è sbagliato nel sistema D90 e anche negli altri, perché il valore [/TD]
[/TR]
[TR]
[TD]giusto per il D90 è RC 155 (vedi sotto) per gli altri bisogna calcolarlo.[/TD]
[/TR]
[TR]
[TD]===========================================[/TD]
[/TR]
[TR]
[TD]Per risolvere giustamente il problema della lentezza che si ha con la NAZIONALE proporrei[/TD]
[/TR]
[TR]
[TD]1) archivio omogeneo solo 10 ruote statistica dal 1939 oppure dal 1946 oppure dal 1947 ad oggi[/TD]
[/TR]
[TR]
[TD]2) archivio omogeneo solo 11 ruote statistica dal 04/05/2005 (7440 nascita della NAZ) ad oggi[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Luigi ha scritto :[/TD]
[/TR]
[TR]
[TD]Per me bisogna fare come abbiamo detto pero poi farcpartire le statistiche dal valore piu alto trovato [/TD]
[/TR]
[TR]
[TD]che ne so se su bari i 90 numeri si sono presentati in 95 estrazioni mentre che [/TD]
[/TR]
[TR]
[TD]ne so su roma ce ne sono volute 150 mi sa che dobbiamo usare 150....[/TD]
[/TR]
[TR]
[TD]===========================================[/TD]
[/TR]
[TR]
[TD]E' giusto quello che hai detto, però bisogna calcolare anche il periodo INTERMEDIO[/TD]
[/TR]
[TR]
[TD]che va da RC 95 all RC 150 sula ruota di bari (del tuo esempio)[/TD]
[/TR]
[TR]
[TD]e le altre 8 ruote, mentre la ruota di ROMA con RC 150 sta ferma (il PUNTO FERMO)[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Non possiamo stabilire a priori un VALORE ALTO di RC (un PUNTO FERMO), questo deve essere [/TD]
[/TR]
[TR]
[TD]automaticamente verificato SEMPRE tramite analisi statistica tra le 10 ruote oppure 11 ruote.[/TD]
[/TR]
[TR]
[TD]Nel nostro caso abbiamo SBAGLIATO a considerare 135 estrazioni[/TD]
[/TR]
[TR]
[TD]perché il valore risultante effettivamente dall'elaborazione (vedi sotto) [/TD]
[/TR]
[TR]
[TD]doveva essere un RC 155 estrazione il PIU' ALTO VALORE trovato a Genova dalla 3950.[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Questo valore di 155 deve essere l'inizio della COSTRUZIONE DELLA GRADUATORIA[/TD]
[/TR]
[TR]
[TD]dove ogni ruota parteciperà con il suo RC indipendente maturato nel periodo INTERMEDIO[/TD]
[/TR]
[TR]
[TD]e si andrà a posizionarsi in ordine crescente nella lista.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]esempio pratico SOLO sulle 10 ruote classiche (per avere un archivio omogeneo)[/TD]
[/TR]
[TR]
[TD]sappiamo che il PUNTO FERMO risultato dall'analisi è RC 155, ora le altre ruote sono al di sotto[/TD]
[/TR]
[TR]
[TD]di tale valore, quindi dobbiamo analizzare le altre 9 ruote nel periodo INTERMEDIO dal loro RC e fino al RC 155[/TD]
[/TR]
[TR]
[TD]===========================================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di BARI[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 98 estrazioni reali num. 16[/TD]
[/TR]
[TR]
[TD]vedi situazione al RC 97 e poi RC 98 [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di CAGLIARI[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 91 estrazioni reali num. 01[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di FIRENZE[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 69 estrazioni reali num. 83[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di GENOVA[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 155 estrazioni reali num. 07[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Dopo soddisfatto la regola che tutti i 90 numeri hanno avuto ALMENO UNA SORTITA[/TD]
[/TR]
[TR]
[TD]al proprio RC si ordinano i numeri in modo crescente rispetto al RITARDO[/TD]
[/TR]
[TR]
[TD]vedi immagine[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di MILANO[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 69 estrazioni reali num. 37[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di NAPOLI[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 71 estrazioni reali num. 39[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di PALERMO[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 67 estrazioni reali num. 07[/TD]
[/TR]
[TR]
[TD]vedi immagine[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di ROMA[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 110 estrazioni reali num. 62[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di TORINO[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 75 estrazioni reali num. 65[/TD]
[/TR]
[TR]
[TD]inizio dalla 3950 del 14/09/1946 ruota di VENEZIA[/TD]
[/TR]
[TR]
[TD]per avere la sortita di TUTTI i 90 numeri almeno una volta son bastati RC 85 estrazioni reali num. 87[/TD]
[/TR]
[TR]
[TD]=======================[/TD]
[/TR]
[TR]
[TD]vedi immagine[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Per far capire cosa intendo per il PERIODO INTERMEDIO[/TD]
[/TR]
[TR]
[TD]posto degli esempi con immagini della ruota di ROMA nella sua evoluzione nei [/TD]
[/TR]
[TR]
[TD]due parametri del RC e del RP1 fino al PUNTO FERMO calcolato nel RC 155 su GENOVA:[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Questo è il periodo intermedio della ruota di ROMA[/TD]
[/TR]
[TR]
[TD]ma allo stesso modo si dovrà fare con le altre 8 ruote[/TD]
[/TR]
[TR]
[TD]mentre la ruota dove è stato trovato/calcolato il valore più ALTO starà ferma[/TD]
[/TR]
[TR]
[TD]ecco il prospetto iniziale della graduatoria al RC 155[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Facendo l'elaborazione del RP1 come sviluppato sulla ruota di ROMA[/TD]
[/TR]
[TR]
[TD]per tutte le altre ruote si dovrà avere il prospetto della graduatoria [/TD]
[/TR]
[TR]
[TD]secondo la mia TABELLA con tutti i valori RP1 e RC [/TD]
[/TR]
[TR]
[TD]calcolati nel periodo intermedio.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Tutto questo è in riferimento SOLO al sistema D(90)[/TD]
[/TR]
[TR]
[TD]per gli altri 24 sistemi si deve operare nella stessa maniera[/TD]
[/TR]
[TR]
[TD]e non si deve attribuire a questi ultimi il valore ricercato/trovato/calcolato [/TD]
[/TR]
[TR]
[TD]del RC 155 della ruota di GENOVA perché è solo di pertinenza del sistema D(90).[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona nottata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[TR]
[TD]PS[/TD]
[/TR]
[TR]
[TD]Ringrazio rubino per il suo interessamento all'argomento.[/TD]
[/TR]
[/TABLE]

Roby · 6 Settembre 2015

ciao ho fatto una bozza di uno script, che calcola una piccola parte, l'obbiettivo è servire per controlli dati calcolati esatti
.non so, devo fare i controlli anch'io

in seguito si può arrivare al RP3,elaborando tutti i 24/25 sistemi virtuali, questo attualmente si ferma al RP2 di 1 sistema scelto

nb: tenuto conto che non sono portato a concepire la trasformazione degli archivi, con differenze e somme rispetto ai dati ufficiali, può probabilmente anche essere che non ho capito bene il tutto.

Codice:

Option Explicit
Sub Main
 Dim sDir,Inizio,Fine,sFile,sFileCompleto,det
 sDir = GetDirectoryAppData & "ArchiviVirtuali\"
 sFile = ScegliFileArchivioVirt(sDir)
 If sFile <> "" Then
  sFileCompleto = sDir & sFile & ".dat"
  Fine = QuantitaEstrazioniInFile(sFileCompleto)
  Inizio = Fine - 250
  ColoreTesto(1)
  Scrivi "Graduatoria Dei Primi estratti delle 11 Ruote  -    Estraz. esaminate " & Inizio & "/" & Fine,1
  Call InitEseguiStatistica(sFileCompleto,sFile,Inizio,Fine)
 End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ScegliFileArchivioVirt(sDir)
 Dim i
 ReDim aFile(0)
 Call ElencoFileInDirectory(sDir,aFile,".dat")
 If UBound(aFile) > 0 Then
  i = ScegliOpzioneMenu(aFile,1,"Scegli archivio virtuale")
  If i > 0 Then
   ScegliFileArchivioVirt = aFile(i)
   ColoreTesto(2)
   Scrivi " Sistema Virtuale....." & aFile(i),1
   ColoreTesto(1)
   Scrivi "Conc.   Ruo       Nr    Ratt     RpG      ",1
   ColoreTesto(0)
  Else
   ScegliFileArchivioVirt = ""
  End If
 Else
  MsgBox "Non sono stati trovati i sistemi virtuali nella directory " & vbCrLf & sDir
 End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub InitEseguiStatistica(sFile,sNomeFile,Inizio,Fine)
 Dim r,x,aretritardi,aretidestr,ult,z,Iniz,y,k,max,min,m,d,det,ei,eu,i,rit,mediat,Tot,med,maxmed,id,dd,dal,last,ct,uu,cap,g,ritam,ruo,qt,max4,max3
 Dim entra(12,2),dif(12),fre(300),rie(12,1),riepfin(12,6),an(1),maxi(12)
 det = "NO"
 If ApriFileBaseDati(sFile) Then
  ''''cancella file riepilogo tabellina Graduatoria RP
  Dim sRecord,sFile2,nRit,nRitMax,nIncrRitMax,nFre,v
  EliminaFile("c:\Temp\TabGraduatoriaRP.txt")
  sFile2 = "c:\Temp\TabGraduatoriaRP.txt"
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Iniz = Inizio
  For Iniz = Iniz + 1 To Fine
   Messaggio("estraz. N." & Iniz & " / " & Fine)
   If ScriptInterrotto Then Exit For
   Call AvanzamentoElab(1,Fine,Iniz)
   If det <> "NO" Then Scrivi "---------------------------------"
   For r = 1 To 12
    If r <> 11 Then
     ReDim nr(90,2)
     ''calcola ritardo
     For y = 1 To 90
      nr(y,0) = y
      ' nr(y,1) = EstrattoRitardo(r,y,1,Iniz)
      ReDim ann(1),aruote(1)
      ann(1) = y : aruote(1) = r
      Call StatisticaFormazioneTurbo(ann,aruote,1,nRit,nRitMax,nIncrRitMax,nFre,Inizio,Iniz)
      nr(y,1) = nRit
      nr(y,2) = Iniz
     Next
     Call OrdinaMatrice(nr,- 1,1)
     '''carica array con 10 migliori rp1 per le 10 ruote
     ''''mette numeri/n.estraz/
     If entra(r,1) <> nr(1,0) Then
      entra(r,0) = entra(r,1) & " * " & Iniz - entra(r,2)
      entra(r,1) = nr(1,0)
      entra(r,2) = Iniz
     End If
     For z = 1 To 1
      Tot = 0
      If r <> 11 Then
       dif(r) = Iniz - entra(r,2)
       If dif(r) = 0 Then
        fre(Int(Right(entra(r,0),2))) = fre(Int(Right(entra(r,0),2))) + 1
       End If
       If(Iniz - entra(r,2)) > max Then
        max = Iniz - entra(r,2)
       End If
      End If
      If det = "NO" Then
       If Iniz = Fine Then
        rie(id,1) = Format2(r) & "." & SiglaRuota(r) & "      " & Format2(nr(z,0)) & "...." & FormatSpace(nr(z,1),5) & "    " & FormatSpace(dif(r),5) & "...." & ct
        ''''riepilogo finale
        riepfin(r,1) = rie(id,1)
        riepfin(r,2) = Int(dif(r))
        ColoreTesto(0)
        Scrivi Fine & "   " & rie(id,1),1
       End If
      End If
     Next
    End If
   Next
  Next
  ColoreTesto(2)
  Scrivi
  Scrivi "nEstr  Ru         Nr    RaE      Rpg",1
  ColoreTesto(1)
  Call OrdinaMatrice(riepfin,- 1,2)
  For v = 1 To 12
   If Left(riepfin(v,1),1) <> "" Then
    Scrivi Fine & "   " & riepfin(v,1),1
   End If
  Next
 End If
End Sub

silop2005 · 6 Settembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 677"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao rubino,[/TD]
[/TR]
[TR]
[TD]grazie dello script che permette di fare riscontri velocemente sugli archivi reale (D90) e virtuali.[/TD]
[/TR]
[TR]
[TD]Ho effettuati alcuni riscontri sul sistema D (90) cioè il lotto tradizionale (11 ruote) alla data del 01/09/2015[/TD]
[/TR]
[TR]
[TD]e anche con le mie immagini postate al #67[/TD]
[/TR]
[TR]
[TD]e si trovano perfettamente i calcoli e l'ordinamento in base al PRIMO GRADO RP1[/TD]
[/TR]
[TR]
[TD]e non come hai scritto tu che effettua fino al RP2.[/TD]
[/TR]
[TR]
[TD]============================[/TD]
[/TR]
[TR]
[TD]Se vedi la mia tabella e il giornale in fondo alla graduatoria riportano il RP2 di 19 estrazioni[/TD]
[/TR]
[TR]
[TD]che non è altro la CONTA di quando tempo (in estrazioni) il capolista BA n. 31 [/TD]
[/TR]
[TR]
[TD]è rimasto PRIMO DEI PRIMI in prima posizione.[/TD]
[/TR]
[TR]
[TD]Situazione al 23/06/2015 file 5071[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[TR]
[TD]riporto le immagini del post #67
[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==========================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==========================[/TD]
[/TR]
[/TABLE]

LuigiB · 6 Settembre 2015

ciao Silop , è vero io ho calcolato il valore massimo solo sul primo sistema e poi l'ho usato per tutti.
Tuttavia nonostante la profusione di immagini non ho capito che intendi per ritardo intermedio..
questi sono i valori del sistam d1 che parte dalla 3950

col tuo post intendevi dire che per ognuno dei 25 sistemi devo ottenere questi valori e poi usare il pu alto trovato specifico per quel sistema ?

silop2005 · 6 Settembre 2015

LuigiB;n1914158 ha scritto:
ciao Silop , è vero io ho calcolato il valore massimo solo sul primo sistema e poi l'ho usato per tutti.
Tuttavia nonostante la profusione di immagini non ho capito che intendi per ritardo intermedio..
questi sono i valori del sistam d1 che parte dalla 3950

col tuo post intendevi dire che per ognuno dei 25 sistemi devo ottenere questi valori e poi usare il pu alto trovato specifico per quel sistema ?

=================================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 677"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao Luigi,[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Non ho la possibilità di riscontro dei dati del sistema D(1)[/TD]
[/TR]
[TR]
[TD]cmq la risposta è SI[/TD]
[/TR]
[TR]
[TD]nel tuo esempio il più alto valore è alla ruota di PA con RC 135[/TD]
[/TR]
[TR]
[TD]questo non significa che le altre 9 ruote devono riportare lo stesso valore di RC 135[/TD]
[/TR]
[TR]
[TD]ma i giusti valori maturati nel PERIODO INTERMEDIO[/TD]
[/TR]
[TR]
[TD]esempio
ba da RC 106 cosa è successo fino al RC 135 (punto fermo) sempre su ba?[/TD]
[/TR]
[TR]
[TD] ca da RC 113 cosa è successo fino al RC 135 (punto fermo) sempre su ca?[/TD]
[/TR]
[TR]
[TD] fi da RC 91 cosa è successo fino al RC 135 (punto fermo) sempre su fi?[/TD]
[/TR]
[TR]
[TD]ecc… ecc…[/TD]
[/TR]
[TR]
[TD]tutte le 9 ruote.[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]non ho scritto ritardo INTERMEDIO[/TD]
[/TR]
[TR]
[TD]ho scritto periodo INTERMEDIO[/TD]
[/TR]
[TR]
[TD]che si intende quello spazio temporale (in estrazioni) che intercorre tra l'RC raggiunto[/TD]
[/TR]
[TR]
[TD]dalla singola ruota quando tutti i 90 numeri hanno sortito ALMENO UNA VOLTA[/TD]
[/TR]
[TR]
[TD]fino al PUNTO FERMO cioè l'RC con il PIU' ALTO VALORE trovato su di una ruota automaticamente.[/TD]
[/TR]
[TR]
[TD]Riporto di nuovo l'esempio della ruota di ROMA[/TD]
[/TR]
[TR]
[TD]di ciò che è successo nel PERIODO INTERMEDIO cioè tra RC 110 di RO e l'RC 155 di GE[/TD]
[/TR]
[TR]
[TD]nelle 45 estrazioni intermedie alla ruota di ROMA :[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Questo è il periodo intermedio della ruota di ROMA[/TD]
[/TR]
[TR]
[TD]questi dati servono per stabilire quali sono i valori di ritardo RC e RP1 [/TD]
[/TR]
[TR]
[TD]da riportare nella graduatoria al PUNTO FERMO RC 155 di GE[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Poi rivedi le tabelle finali del post precedente.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

Roby · 6 Settembre 2015

vorrei sapere una cosa, così mi chiarisco le idee.

esempio:

io ho

BARI nr.87
Rae 152
Rp1 89
MaxRp1 globale sistema Virt. 89
Sys.Virt. (D73)

il numero da giocare poi cosa diventa?

devo giocare il nr.87, perché nasce da una graduatoria del sistema virtuale D73
oppure devo convertire questo numero in reale e quindi diverso da quelle analizzato tramite il sistema virtuale?

per silop

le copie dei giornali che hai postato, i numeri esempio 31 di Bari è il numero da giocare o il numero definitivo migliore
di tutti i sistemi virtuali? RPD o RP2

LuigiB · 6 Settembre 2015

ciao Silop , prima di fare modifiche chiariamoci bene ,,,
135 non è il ritardo cronologico lo sottolineo perche mi è parso di capire che lo chiami RC
135 riferito al sistema d1 è il numero di estrazione piu basso che consente la visione di tutti i numeri
sul tabellone almeno una volta ,trasversalmente è chiaro che corrisponde al ritardo cronologico piu alto registrato
in quel primo pezzettino di archivio vio cioè prima che i numeri usciti tutti e 90 ce n'è stato uno che ha ritardato 135 concorsi.

Nel caso del sistema d1 le statistiche sulle 10 ruote partirebbero dall'estrazone 135+1
Partendo da quell'estrazione poi ciascuna ruota avra la sua tabella RC per i 90 numeri ogni tabella sarà ordinata
e verranno presi i capilista

con gli altri sistemi si procederebeb in modo analogo.

Roby · 6 Settembre 2015

ciao Luigib

io con l'archivio classico del lotto
dalla 3950 ad oggi

ottengo massimo RP1 è stato 128

DIVERSO

quindi anche se tu ottiene 135 è un valore corretto e dovrebbe andare bene

con SVP D(61) NoFissi [7441] Massimo Rp1 Globale riscontrato 146

LuigiB · 6 Settembre 2015

ciao rubino non si parla di ritardi massimi ma di quante estrazioni sono serviteper far comparire tutti i numeri almeno una volta sulla tale ruota per quel determinato sistema.
Non è un valore difficile da calcolare .. qui il problema è piu che altro di mettersi daccordo su cosa fare bene.
Comunque riflettendo è un falso problema quello di farp partire la statistica un po' dopo .. la mia era solo un 'esigenza pratica di velocita legata solo alla ruota nazionale.
Riflettiamo insieme per vedere se mi sto confondendo.
A noi cosa interessa ? Interessa la lista finale RP3 , quella è una lista statica partendo dalla 3950
e facendo le statistiche dall prima estr possibile oppure dalla 200esima estrazione, dopo in qualunque caso , a partire dalla estrazioe X in poi le statistiche coinciderebbero per forza sul discorso del ritardo relatvo
potrebbero variare la frequenza e i valori massimi questo si ... ma tanto attraverso a funzione che analizza la lista RP3 si puo tranquillamente scegliere il range da analizzare ed avere valori corrretti.

In sisntesi mi accingo a fare le seguenti modifiche e poi si vedrà

1) Creare gli archivi potendo gestire le ruote da includere quindi sara possibile avere i file che partono dalla 3950 e che contengono solo le prime 10 ruote

2) Per ogni sistema virtuale calcolare quale sia la prima estrazione utile e poi far partire le statistiche per quel sistema sulle N ruote da quel valore li.

Roby · 6 Settembre 2015

per me va bene, e gli argomenti che hai specificato sono teoricamente giusti.

il mio ragionamento era solo questo, che con il valore massimo del RP1, è chiaro che giustifica l'uscita di tutti i 90 in quel range massimo per ogni sistema

silop2005 · 6 Settembre 2015

rubino;n1914190 ha scritto:
per silop

le copie dei giornali che hai postato, i numeri esempio 31 di Bari è il numero da giocare o il numero definitivo migliore
di tutti i sistemi virtuali? RPD o RP2

=============================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 677"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao rubino,[/TD]
[/TR]
[TR]
[TD]Il numero 31 di bari che vedi sul giornale e anche nella mia tabella è solo [/TD]
[/TR]
[TR]
[TD]il migliore Capolista di RP1 (rit.pos.1) del solo sitema D(90) e non di tutti i sistemi virtuali[/TD]
[/TR]
[TR]
[TD]Nello specifico il 25° sistema D (90) sono le estrazioni del lotto tradizionale[/TD]
[/TR]
[TR]
[TD]e quindi i numeri non hanno bisogno di essere convertiti.[/TD]
[/TR]
[TR]
[TD]I sistemi paralleli del Severo sono formati da 24 sistemi virtuali più il 25° sistema lotto tradizionale (D90).[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

silop2005 · 6 Settembre 2015

LuigiB;n1914196 ha scritto:
ciao Silop , prima di fare modifiche chiariamoci bene ,,,
135 non è il ritardo cronologico lo sottolineo perche mi è parso di capire che lo chiami RC
135 riferito al sistema d1 è il numero di estrazione piu basso che consente la visione di tutti i numeri
sul tabellone almeno una volta ,trasversalmente è chiaro che corrisponde al ritardo cronologico piu alto registrato
in quel primo pezzettino di archivio vio cioè prima che i numeri usciti tutti e 90 ce n'è stato uno che ha ritardato 135 concorsi.

Nel caso del sistema d1 le statistiche sulle 10 ruote partirebbero dall'estrazone 135+1
Partendo da quell'estrazione poi ciascuna ruota avra la sua tabella RC per i 90 numeri ogni tabella sarà ordinata
e verranno presi i capilista

con gli altri sistemi si procederebeb in modo analogo.

====================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 677"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao Luigi,[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]appunto per non creare equivoci potresti fare un esempio [/TD]
[/TR]
[TR]
[TD]del valore più ALTO sul sistema D(90) con inizio dalla 3950 ?[/TD]
[/TR]
[TR]
[TD]dove posso fare un confronto con i miei dati ed avere una idea più chiara ? Grazie.[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Per quanto riguarda il Periodo INTERMEDIO da me descritto [/TD]
[/TR]
[TR]
[TD]nei due post precedenti ci sono problemi ?[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Aspetto il tuo esempio, anche con immagini se possibile, sul sistema D(90).[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

FABIO60 · 6 Settembre 2015

LuigiB;n1914234 ha scritto:
ciao rubino non si parla di ritardi massimi ma di quante estrazioni sono serviteper far comparire tutti i numeri almeno una volta sulla tale ruota per quel determinato sistema.
Non è un valore difficile da calcolare .. qui il problema è piu che altro di mettersi daccordo su cosa fare bene.
Comunque riflettendo è un falso problema quello di farp partire la statistica un po' dopo .. la mia era solo un 'esigenza pratica di velocita legata solo alla ruota nazionale.
Riflettiamo insieme per vedere se mi sto confondendo.
A noi cosa interessa ? Interessa la lista finale RP3 , quella è una lista statica partendo dalla 3950
e facendo le statistiche dall prima estr possibile oppure dalla 200esima estrazione, dopo in qualunque caso , a partire dalla estrazioe X in poi le statistiche coinciderebbero per forza sul discorso del ritardo relatvo
potrebbero variare la frequenza e i valori massimi questo si ... ma tanto attraverso a funzione che analizza la lista RP3 si puo tranquillamente scegliere il range da analizzare ed avere valori corrretti.

In sisntesi mi accingo a fare le seguenti modifiche e poi si vedrà

1) Creare gli archivi potendo gestire le ruote da includere quindi sara possibile avere i file che partono dalla 3950 e che contengono solo le prime 10 ruote

2) Per ogni sistema virtuale calcolare quale sia la prima estrazione utile e poi far partire le statistiche per quel sistema sulle N ruote da quel valore li.

Un saluto a tutti, mi permetto di suggerire la seguente procedura per la ricerca del "primo" RP3:

1) Creare gli archivi potendo gestire le ruote da includere quindi sara possibile avere i file che partono dalla 3950

e che contengono solo le prime 10 ruote

2) Su tali archivi cercare la data entro cui in tutti i 25 archivi virtuali tutti numeri siano sortiti almeno una volta.

Per esempio mettiamo che dopo 153 estrazioni dal 14-9.1946, nel sistema D7 (ruota di palermo) sortisca l'unico

numero ancora a frequenza 0 tra tutti i 25 sistemi.

Dall' estrazione successiva si può cominciare a calcolare il "primo" RP3, che essendo il primo avrà ritardo 1

Ciao

SVP Sistemi Virtuali Paralleli x Ambata semplice

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Advanced Member >PLATINUM<

Roby

Guest

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Member >PLATINUM<

Roby

Guest

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Roby

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Super member