Novità

SVP Sistemi Virtuali Paralleli x Ambata semplice

silop2005

Advanced Member >PLATINUM<
15-08-2015, 16:15
Ciao Silop scusa se mi intrometto nel discorso ma quelli che voi chiamate archivi virtuali sono archivi ricavati da somme? esempio al nostro archivio realelotto sommiamo a tutte le estrazioni il fisso 1 (questo sarebbe un archivio virtuale(1)?
e facciamo la statistica su questo,poi cosi via per tutti gli altri?
Gia capire questo per me sarebbe un inizio
ciao a tutti- i legend
==================================
LOGOSILOP.gif
Ciao i legend,
come promesso ti rispondo qui,
di sicuro hai scaricato e letto il file che ti avevo consigliato
e quindi ti sarà più facile capire le nozioni base di come si costruiscono
i sistemi virtuali paralleli (SVP) creati da Severo.
La creazione di questi archivi virtuali non sono fine a se stessi
ma servono per un più ampio discorso, quello sul GIOCO CONTINUO sull'estratto semplice (RP3).
La costruzione dei 24 SVP ha come base i primi 12 NUMERI PRIMI :1--11-13-17-19-23-29-31-37-41-43
e i suoi COMPLEMENTARI a somma 90
i secondi 12 NUMERI PRIMI : 47-49-53-59-61-67-71-73-7-79-83-89
I 24 SISTEMI PARALLELI in coppia o a somma 90
Sistema 1 / 89
Sistema 7 / 83
Sistema 11 / 79
Sistema 13 / 77
Sistema 17 / 73
Sistema 19 / 71
Sistema 23 / 67
Sistema 29 / 61
Sistema 31 / 59
Sistema 37 / 53
Sistema 41 / 49
Sistema 43 / 47
più il 25° sistema a 90 che è l'archivio del lotto classico delle ruote ba-ca-fi… con le estrazioni reali.
Sistema 90
stickman.gif
Ora passiamo alla costruzione pratica degli archivi virtuali paralleli per ogni ruota,
normalmente le mie ricerche/studi iniziano sempre dalla 3950 estrazione del 14/09/1946
inizio archivio senza "buchi", ma in questa occasione prendo come inizio la stessa data
che lo studioso Severo ha riportato nel suo libro e cioè quella del 04/01/1986
per avere un'ulteriore riscontro dei dati che andiamo a "tradurre" secondo le regole scritte:
stickman.gif
Incominciamo a vedere la prima coppia di SISTEMA 1/89
ba_1_89_1.JPG
nell'immagine, la prima estrazione del 04/01/1986 della ruota di BARI
l'ho riportata uguale sia nel sistema D(1) e sia nel sistema D(89) secondo regole,(colore giallo)
però si può anche anche includere questa prima estrazione nei sistemi come giustamente
aveva fatto notare il bravo BLADERUNNER (in un altro thread).
Questa eventuale inclusione non inficia la struttura, solo che si avranno dati virtuali diversi.
Come puoi vedere i cinque estratti della ruota di Bari della seconda estrazione
nel SVP D(1) vengono sottratti a -1(65-1=64) … , mentre nel SVP D(89) vengono sommati a +1 (65+1=66)
nella terza estrazione i cinque estratti
nel SVP D(1) vengono sottratti a -2(78-2=76) … , mentre nel SVP D(89) vengono sommati a +2 (78+2=80)
nella quarta estrazione i cinque estratti
nel SVP D(1) vengono sottratti a -3 (23-3=20 ; 13-3=10 ; 24-3=21 ; 34-3=31 ; 71-3=68),
mentre nel SVP D(89) vengono sommati a +3 (23+3=26 ; 13+3=16 ; 24+3=27 ; 34+3=37 ; 71+3=74)
e cosi per tutte le 90 sequenze.
stickman.gif
ba_1_89_2.JPG

'================================================= ========
'================================================= =======
ba_1_89_3.JPG
stickman.gif
arrivati alla sequenza 90 sempre e in TUTTI i sistemi si ripeteranno i 5 estratti originali
come puoi osservare nell'immagine sopra alla data del 26/09/1987
i cinque estratti sono UGUALI sia nel sistema D(1) e sia nel D(89).
stickman.gif
Di seguito riporto la trasformazione anche alla ruota di MILANO ( presa a caso) con la coppia D 7/83
mi_7_83_1.JPG
Come puoi vedere i primi cinque estratti della ruota di MILANO sono FISSI (seconda regole)
mentre dalla seconda estrazione
i 5 estratti del 11/01/1986 nel SVP D(7) vengono sottratti con la sequenza -7
25-7=18 ; 85-7=78 ; 62-7=55 ; 63-7=56 ; 29-7=22
poi ancora i 5 estratti del 11/01/1986 nel SVP D(83) vengono sommati con la sequenza +7
25+7=32 ; 85+7=2 (fuori 90) ; 62+7=69 ; 63+7= 70; 29+7=36
stickman.gif
mentre dalla TERZA estrazione
i 5 estratti del 18/01/1986 nel SVP D(7) vengono sottratti con la sequenza -14
77-14=63, 34-14=20, 6-14=82 (fuori 90 [6+90=96] 96-14=82), 71-14=57, 25-14=11
poi ancora i 5 estratti del 18/01/1986 nel SVP D(83) vengono sommati con la sequenza +14
77+14=1 (fuori 90), 34+14=48, 6+14=24, 71+14=85, 25+14=39
e cosi per tutte le 90 sequenze e per tutte le estrazioni.
stickman.gif
mi_7_83_2.JPG

'================================================= ======
'================================================= =====
mi_7_83_3.JPG
arrivati alla sequenza 90 sempre e in TUTTI i sistemi si ripeteranno i 5 estratti originali
come puoi osservare nell'immagine sopra alla data del 26/09/1987 ruota di MILANO
i cinque estratti sono UGUALI sia nel sistema D(7) e sia nel D(83).
stickman.gif
mi_7_83_4.JPG

'================================================= ======
'================================================= ======
mi_7_83_5.JPG
arrivati alla sequenza 90 sempre e in TUTTI i sistemi si ripeteranno i 5 estratti originali
come puoi osservare nell'immagine sopra alla data del 17/06/1989 ruota di MILANO
i cinque estratti sono UGUALI sia nel sistema D(7) e sia nel D(83).
I 24 SISTEMI PARALLELI in coppia o a somma 90
Sistema 1 / 89______n.01 e suoi multipli
Sistema 7 / 83______n.07 e suoi multipli
Sistema 11 / 79______n.11 e suoi multipli
Sistema 13 / 77______n.13 e suoi multipli
Sistema 17 / 73______n.17 e suoi multipli
Sistema 19 / 71______n.19 e suoi multipli
Sistema 23 / 67______n.23 e suoi multipli
Sistema 29 / 61______n.29 e suoi multipli
Sistema 31 / 59______n.31 e suoi multipli
Sistema 37 / 53______n.37 e suoi multipli
Sistema 41 / 49______n.41 e suoi multipli
Sistema 43 / 47______n.43 e suoi multipli
stickman.gif
Se gli studi sono sul GIOCO CONTINUO (RP3) per l'estratto semplice, gli archivi possono partire
normalmente dall'estrazione 3950 del 14/9/1946 (inclusa e non)
mentre se gli studi sono sul GIOCO CONTINUO (RP3 e oltre) per l'estratto DETERMINATO
allora gli archivi virtuali da tramutare devono partire dall'inizio del lotto.
Credo che con queste notizie potresti iniziare fare un bellissimo script
con l'obbiettivo di centrare il famigerato RP3 dell'estratto semplice.
Auguri e buon script,
per qualsiasi informazione sono sempre disponibile.
stickman.gif
Buon pomeriggio a tutti.
A presto
Silop ;) ;) ;)
 
Ultima modifica:

i legend

Premium Member
ciao Silop ,purtroppo ho problemi di connessione da un po, è, un miracolo che riesca ad aprire e a postare,.cmq non è necessario leggere il file ,hai fatto degli esempi chiarissimi in questo post. Provo a capire ed assimilare tutto quello che hai scritto ma non assicuro nulla,questi son0 script per scripter di un livello superiore,vedi disaronno joe e mike Ciao a Tutti P.s: grazie per la fiducia:)
Ci voglio provare ma è dura
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Silop.

Anch'io mi permetto di intervenire affermando che non avendo, mai studiato i sistemi virtuali ...

sono "giovane" ed inesperto quindi poco condizionato da quanto ... leggo "qui" ...

ho sviluppato convinzioni mie proprie ... che mi riservo di esporre in futuro.

Concordo con la più parte di quanto ha scritto il Severo ...e che tu hai riassunto,

e che ho potuto organizzare anche grazie alle ricerche ... agli script ed all'aiuto di bladerunner.

Ringrazio dunque per tutto ... e soprattutto tutti, quanti vorranno apportare il loro contributo.

Affermi che vi sono "differenze" che dipendono dalla scelta che è relativa ll'includere o meno

una formazione di partenza e che si riverbera poi sul tipo di gioco che si considera effettuare.

Quindi vorrei cortesemente chiederti di proporre un esempio attuale ... delle 4 (2 (+2 ?) ) possibilità ...

fornendo nello specifico data, calcolo, ruote gioco Rp3 ecc... delle varie ... alternative.

Grazie.

:) Buona giornata a tutte/i
 

silop2005

Advanced Member >PLATINUM<
Ciao Joe91,
di quello che chiedi ti posso rispondere solo in parte, perché avevo un programmino "antico"
fatto da un amico che mi faceva l'elaborazione del GIOCO CONTINUO di Severo, ma purtroppo
con il passaggio, negli anni, ai nuovi pc e SO (sistemi operativi) sempre più evoluti
il mio programmino non è più funzionante e quindi l'ho dovuto abbandonare.
Ora faccio le mie elaborazioni con fogli excel e manualmente.
Per le differenze che citavo nel post precedente, che puoi provare anche tu con i tuoi magnifici script,
volevo intendere quanto segue:
Se la prima estrazione viene inclusa dal sistema x si avrà un archivio virtuale in un modo,
se invece la prima estrazione viene esclusa nella trasformazione del sistema x
si avrà un archivio virtuale diverso dall'altro cioè salta di una D (o sequenza).
Forse con un esempio riesco a farmi capire meglio.
Consideriamo per esempio il sistema D(17) alla ruota di BARI
con inizio dalla 3950 del 14/09/1946
INCLUSA la prima estrazione nella conversione , si ottiene il seguente ARCHIVIO VIRTUALE
stickman.gif
ba_d17_1inclusa.JPG
===========================
Alla data del 13/08/2015 abbiamo questo :
ba_d17_2inclusa.JPG
============================
Con il numero 8 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250
stickman.gif
Consideriamo ancora il sistema D(17) alla ruota di BARI
con inizio dalla 3950 del 14/09/1946
SENZA la prima estrazione nella conversione,
cioè la PRIMA estrazione FISSA, si ottiene il seguente ARCHIVIO VIRTUALE
stickman.gif
ba_d17_1fissaE.JPG
===========================
Alla data del 13/08/2015 abbiamo questo :
ba_d17_2fissaE.JPG
============================
Con il numero 25 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250
stickman.gif
Come puoi vedere e controllare i dati virtuali e di conseguenza i relativi numeri reali
da porre in gioco saranno diversi.
Queste erano le differenze che intendevo, ma il calcolo statistico non viene influenzato
dalla presenza(inclusione) o assenza (esclusione) dei primi 5 estratti della ruota in esame.
Perciò un eventuale script futuro dovrebbe inizialmente avvertire l'operatore se gli archivi virtuali
da creare delle singole ruote (11) li vuole con le regole di Severo o non.
stickman.gif
Buon giornata a tutti.
A presto
Silop ;) ;) ;)

===================
X i legend
provaci anche tu a fare lo script
perché hai tutte le carte in regola e poi fai delle tabelle stupende.
Buon divertimento intellettuale.
Silop ;) ;) ;)
=============
 
Ultima modifica:

i legend

Premium Member
ciao silop grazie per la fiducia
Ci sto provando
Solitamente su alcuni script complessi ci sbatto la testa per giorni, poi mi viene la soluzione cosi quasi per caso, spero che si ripeta:)
ciao a tutti
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Silop.

Ti ringrazio nuovamente per la pazienza, il tempo ed il lavoro che hai dedicato alle risposte.

Sono riuscito ieri a clonare/replicare "l' Archvio 17" di Bari.

Ora se non ti è troppo gravoso vorrei mi spiegassi (fatto salvo che facciamo riferimento al 13/08/2015):

"Con il numero 8 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250"

"Con il numero 25 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250"

Tralasciando anche ... e per ora ... la loro frequenza.

In sintesi ti chiederei di conoscere come "operi"

per ottenere questo ritardo per i due "virtuali".

Grazie ancora.

: ) Cordiali salutti a tutte/i
 
Ultima modifica:

silop2005

Advanced Member >PLATINUM<
Joe91;n1909680 ha scritto:
Ciao Silop.

Ti ringrazio nuovamente per la pazienza, il tempo ed il lavoro che hai dedicato alle risposte.

Sono riuscito ieri a clonare/replicare "l' Archvio 17" di Bari.

Ora se non ti è troppo gravoso vorrei mi spiegassi (fatto salvo che facciamo riferimento al 13/08/2015):

"Con il numero 8 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250"

"Con il numero 25 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250"

Tralasciando anche ... e per ora ... la loro frequenza.

In sintesi ti chiederei di conoscere come "operi"

per ottenere questo ritardo per i due "virtuali".

Grazie ancora.

: ) Cordiali salutti a tutte/i
=================================================
LOGOSILOP.gif
Ciao Joe91,
se hai clonato ovvero hai fatto la conversione degli estratti naturali della ruota di Bari
negli estratti virtuali nei modi giusti secondo il sistema D(17)
ti dovresti trovare gli stessi valori di ritardi che ho avuto io come risultato dei due archivi virtuali e cioè :
stickman.gif
INCLUSA la prima estrazione nella conversione , si ottiene il seguente ARCHIVIO VIRTUALE
Con il RISULTATO del numero 8 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250
================================================
SENZA la prima estrazione nella conversione,
cioè la PRIMA estrazione FISSA, si ottiene il seguente ARCHIVIO VIRTUALE
Con il RISULTATO del numero 25 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 250
================================
forse non ti trovi con me perché avevo mancato di mettere l'immagine dei 5 estratti FISSI
anche nell'archivio VIRTUALE, che adesso rimetto di nuovo l'immagine.
ba_d17_1fissaEs.JPG
===========================
Alla data del 13/08/2015 abbiamo questo :
ba_d17_2fissaE.JPG
============================
Ma nei calcoli del ritardo li avevo considerati, i 5 estratti FISSI : 68-22-78-60-58
come puoi vedere la freccia nell'immagine sopra.
stickman.gif
Buon giornata a tutti.
A presto
Silop ;) ;) ;)
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Silop ...

grazie, scusa se non ti rispondo subito

ma, mi serve tempo, per controllare, e per ora non voglio "aggiungere"

altro che creerebbe ulteriore confusione

in chi sta cercando di dare ... una sua interpretazione.

Ti terrò informato.

:) Cordiali saluti.
 
Ultima modifica:

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
Ciao Joe91,
vedi se sono questi anche i tuoi dati,
perché ho riguardato meglio tutto il mio operato e&#133;.
ho scoperto di aver SALTATO (nel copia e incolla) negli archivi NATURALI l'estrazione del 17/07/2014
e quindi anche nella conversione dei DUE archivi virtuali (estrazione INCLUSA e estrazione FISSA)
non c'era la suddetta estrazione:
17/07/2014 83 36 77 59 65
stickman.gif
Pertanto i nuovi valori sono i seguenti :
INCLUSA la prima estrazione nella conversione.
Abbiamo il primo numero 81 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 266
il secondo numero 34 virtuale rit.att. 99 estrazioni, rit.max 99 e fre 290
il terzo numero 59 virtuale rit.att. 84 estrazioni, rit.max 147 e fre 266
il quarto numero 90 virtuale rit.att. 70 estrazioni, rit.max 91 e fre 292
stickman.gif
SENZA la prima estrazione nella conversione,
cioè la PRIMA estrazione FISSA.
Abbiamo il primo numero8 virtuale rit.att. 121 estrazioni, rit.max 121 e fre 266
il secondo numero 51 virtuale rit.att. 99 estrazioni, rit.max 99 e fre 290
il terzo numero 76 virtuale rit.att. 84 estrazioni, rit.max 147 e fre 266
il quarto numero 17 virtuale rit.att. 70 estrazioni, rit.max 91 e fre 292
stickman.gif
Capitano spesso errori quando si opera manualmente molti dati.
Controlla o fai controllare i dati che ho ricavato dopo la modifica
e scusa per il disguido.
Se hai bisogno anche delle immagini dei due archivi me lo fai sapere che le metto.
Se vuoi te li mando per email.
stickman.gif
Buon giornata a tutti.
A presto
Silop ;) ;) ;)
 
Ultima modifica:

i legend

Premium Member
Ciao ,ci sto provando, ma purtroppo i miei dati non si allineano ai vostri :( cmq al momento ho rintracciato altri 2 estratti diversi da quelli che voi avete proposto Verificare solo per oggi Torino : 61 Napoli : 85 Purtroppo lo script è in alto mare , devo fare delle automazioni ed al momento non ne vengo fuori L'idea dei file txt non si puo fare, ragionamento contorto, ma ringrazio Silop per i suggerimenti;) grazie, vediamo come va;)
 
L

LuigiB

Guest
ciao ragazii mi sono interessato alla vostra discussione , devo dire che ricreare gli archivi tutto sommato è semplice grazie anche alle precise spiegazioni di Silop, quello che risulta piu complesso
invece è la gestione delle statistiche sugli archivi virtuali paralleli , il tutto si potra risolvere abbastanza facilmente non appena introdurro una specifica funzione nello spazioscript in grado di far leggere al programma un archivio specifico voluto da noi e non quello di default.
Mi spiego: è gia possibile creare dei file nel formato della base dati del programma con la funzione
SalvaEstrazione quindi è possibile ricreare gli archivi virtuali nello stesso formato delle estrazioni col vantaggio poi di poter usare le normalissime funzioni statistiche per il lotto.
Esempio : attualmente con la funzione estratto noi possiamo leggere un numero dell'archivo di default impostato nel programma , ma se prima di questa funzione potessimo lanciarne un 'altra (che ancora non esiste) la quale dica " imposta questo archivio qui" allora poi potremmo facilmente susare le funzioni statistiche che gia si conoscono ma con uno qualsiasi degli archiivi virtuali paralleli creati da noi,
Nei prossimi giorni seguirà un aggiornamento del programma e lo script di esempio.
Nel frattempo lo script che crea gli archivi paralleli in formato testo solo a scopo didattico anche epr vedere se funziona,
Dalle mie prove combacia con l'esempio che parte dal 1986 ma non cmbacia con quello che parte dalla 3950 credo dipenda da differenze di archivi. Per favore Silop lancia questo script e scopri il bandolo della matassa cosi capisco dove è il problema .. le prime estrazioni combaciano alla fine pero salta .. fammi sapere ...

Codice:
Option Explicit
Sub Main
    
    Dim sDir,Inizio,Fine,bPrimaFissa
    


    
    
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    bPrimaFissa = True
    
    
    
    
    sDir = GetDirectoryAppData & "ArchiviVirtuali\"
    If CreaDirectory(sDir) Then
        Call GeneraArchiviVirtuali(sDir,Inizio,Fine,bPrimaFissa,";")
    
        MsgBox "Gli archivi virtuali sono stati generati aprire la cartella " & vbCrLf & sDir
    Else
        MsgBox "Errore creazione directory sistemi virtuali"
    End If
End Sub

Sub GeneraArchiviVirtuali(sDirArchivi,idPrimaEstr,idUltimaEstr,bPrimaEstrFissa,sChrSep)

    
    Dim sFileA,sFileB,nFileProdotti,nBase,idEstr,e,r,nMoltiplicatore
    Dim sEstrazioneA,sEstrazioneB
    
    
    nBase = 0
    Do Until nFileProdotti = 12
        nBase = nBase + 1
        If Primo(nBase) Then
            sFileA = sDirArchivi & "Virt_" & nBase & ".csv"
            sFileB = sDirArchivi & "Virt_" & 90 - nBase & ".csv"
            
            Call EliminaFile(sFileA)
            Call EliminaFile(sFileB)
            
            nMoltiplicatore = 0
            For idEstr = idPrimaEstr To idUltimaEstr
                sEstrazioneA = idEstr & sChrSep & DataEstrazione(idEstr) & sChrSep
                sEstrazioneB = idEstr & sChrSep & DataEstrazione(idEstr) & sChrSep
                
                If idEstr = idPrimaEstr Then
                    If bPrimaEstrFissa = False Then
                        nMoltiplicatore = nMoltiplicatore + 1
                    End If
                Else
                    nMoltiplicatore = nMoltiplicatore + 1
                End If
                If nMoltiplicatore = 90 Then
                            
                    For r = 1 To 12
                        If r <> 11 Then
                            For e = 1 To 5
                                sEstrazioneA = sEstrazioneA & Estratto(idEstr,r,e) & sChrSep
                                sEstrazioneB = sEstrazioneB & Estratto(idEstr,r,e) & sChrSep
                            Next
                        End If
                    Next
                    nMoltiplicatore = 0
                Else
                    For r = 1 To 12
                        If r <> 11 Then
                            For e = 1 To 5
                                sEstrazioneA = sEstrazioneA & DiffCiclo(Estratto(idEstr,r,e),Fuori90(nBase * nMoltiplicatore)) & sChrSep
                                sEstrazioneB = sEstrazioneB & Fuori90(Estratto(idEstr,r,e) + Fuori90(nBase * nMoltiplicatore)) & sChrSep

                            Next
                        End If
                    Next
                
                End If
                
                sEstrazioneA = RimuoviLastChr(sEstrazioneA,sChrSep)
                sEstrazioneB = RimuoviLastChr(sEstrazioneB,sChrSep)
                

                Call ScriviFile(sFileA,sEstrazioneA,False)
                Call ScriviFile(sFileB,sEstrazioneB,False)
                
                Messaggio "Archivio virtuale " & nBase & "/" & 90 - nBase & " estr . " & idEstr
                If ScriptInterrotto Then Exit For
                
            Next
            
            Call CloseAllFileHandle
            nFileProdotti = nFileProdotti + 1
        End If
    Loop
    


End Sub
Function DiffCiclo(a,b)

    Dim r
    
    r = a - b
    Do While r <= 0
        r = r + 90
    Loop

    DiffCiclo = r
End Function
 

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
Ciao LuigiB,
grazie grazie grazie
per il tuo intervento con lo script bellissimo.
Ho controllato il sistema D(1) o Virt1 (come l'hai chiamato tu)
con le prime estrazioni non inserite nella conversione invece sono FISSE (secondo le regole di Severo)
e vanno benissimo gli archivi virtuali con i miei archivi virtuali
dalla 3950 del 14/09/1946 a stasera 20/08/2015.
L'errore sta nei numeri che hai usato che ti ripeto, però i rossi non vanno bene:
num.: 1-3-5-7-11-13-17-19-23-29-31-37-53-59-61-67-71-73-77-79-83-85-87-89
al posto dei numeri rossi devi utilizzare 41-43 e 47-49
ti riporto la schermata che avevo scritto prima.
La costruzione dei 24 SVP ha come base i primi 12 NUMERI PRIMI :1-7-11-13-17-19-23-29-31-37-41-43
e i suoi COMPLEMENTARI a somma 90
i secondi 12 NUMERI PRIMI : 47-49-53-59-61-67-71-73-77-79-83-89
I 24 SISTEMI PARALLELI in coppia o a somma 90
Sistema 1 / 89
Sistema 7 / 83
Sistema 11 / 79
Sistema 13 / 77
Sistema 17 / 73
Sistema 19 / 71
Sistema 23 / 67
Sistema 29 / 61
Sistema 31 / 59
Sistema 37 / 53
Sistema 41 / 49
Sistema 43 / 47
più il 25° sistema a 90 che è l'archivio del lotto classico delle ruote ba-ca-fi… con le estrazioni reali.
Sistema 90
In totale devono essere 25 sistemi
Domani continuo a vedere anche gli altri virtuali, ma credo che l'errore siano quei
quattro numeri rossi.
stickman.gif
vedi le immagini il tuo Virt_1 con il mio
virt1_1LB.JPG
virt1_2LB.JPG
=======================
ba_D1_1.JPG
ba_d1_2.JPG
=========================================
Buona notte a tutti e GRAZIE ANCORA A LuigiB.
A domani
Silop ;) ;) ;)
 

i legend

Premium Member
Ciao Luigi (grande) Ho controllato gli archivi passo 1 ,7,17,37 coincidono con i miei sia dal 3950 che dalla 6000 Ciao Silop Spieghi benissimo, forse l'idea di creare degli archivi txt non era proprio stupida, Luigi non c'e un modo di fare la statistica degli estratti nel momento stesso della creazione dell'archivio? Buon lavoro a tutti Bellissimo script
 
L

LuigiB

Guest
Ciao ragazzi si l errore sara sicuramente quello in quanto avevo capito che si dovessero usare i primi 12 numeri primi e relativi complementari a 90. Comunque questo era solo un test per facilitare le statistiche devo fare una nuova aggiunta allo spazioscript come ho spiegato. Ciao
 

Joe91

Advanced Member >PLATINUM PLUS<
Buon Giorno a tutte/i.

Aggiungo allora .. alcune mie considerazioni.

Questo Forum ha vissuto alcune ere ... rinascendo, da se stesso

e qualche volta ricordando qualcosa del passato.

Sicchè lo script inizialmmente proposto da Rodrigo ,

per esssere corretto mi risulta essere ed è una riedizione ... di uno presentato quì ...

nel 2006 (se ricordo bene ... ma non importa).

Ne ho rilevato, corretto e risolto alcune criticità.

Ma s'è visto principalmente non funzionare ... per un errore nell'archivio

e nelle scelte "dei" sistemi virtuali.

S'è gia detto ... dei NumeriPrimi "Puri" che devono essere adeguati alle considerazioni del Severo,

dunque per questo scopo ho redatto un piccolo script, utile per avere aggiungere e/o correggere

"la prima parte" del pregresso e/o dei un redigendi script dedicati a questo argomento.

Codice:
Sub Main
For N = 1 To 90
If N <> 3 Then 'correttore
If N <> 5 Then 'correttore
If Primo(N) Then
K = K + 1 : ReDim Preserve I(K) : I(K) = N
End If
End If
End If
Next
K = K + 1 : ReDim Preserve I(K) : I(K) = 49 'Integrazioni / Complementari
K = K + 1 : ReDim Preserve I(K) : I(K) = 77 'Integrazioni / Complementari
K = K + 1 : ReDim Preserve I(K) : I(K) = 90 'Integrazioni / Complementari
OrdinaMatrice I,False
Scrivi StringaNumeri(I,,True)
Scrivi
K = 0
For N = 1 To 25
If I(N) > 0 Then
K = k + 1
Scrivi "I (" & Format2(N) & ") = " & Format2(I(N)),0,0
If K Mod 5 <> 0 Then Scrivi " : ",0,0 Else Scrivi ""
End If
Next
End Sub

Chiedo comunque, un cortese controllo su essi, al fine, di avere uno standard di riferimento "certo e condiviso".

Ciò premesso ... ho considerato e riprodotto l'archivio (stile excel) proposto da Silop.

Non dimenticando anche quanto scritto da Bladerunner.

Anche qui ... tralasciando gli errori che si possono essere ingenerati e che essendo cumulativi ...

se non risolti si trascinano ... ora paiono allineati.

Qui ... del Severo e dell' interpratazione ... preferisco non trattare ancora.

Pur scrivendo che ho preferito lavorare "senza archivi" ottenendo precisione e velocità inimmaginabili

ove invece erano errori ... vari.

Vi presento dunque lo script "clonatore-xls-like" ... che ha il compito

di controllare solo una ruota: Bari / con il virtulalizzatore "17" (ma sono modificabili)

ottenendo comunqe un output analogo a quello fornito da Silop.

Per non aggiungere troppo ed oltre ... specifico che in esso, per ultimo, ho inserito

un piccolo contatore ed visualizzatore dei ritardi, oltre "un correttore" per adeguarlo

a quello che sono le indicazioni e convinzioni che nel frattempo si sono radicati.

Non ho potuto ancora controllare ... al nuovo ... proposto ma confido funzionare.

Codice:
 Option Explicit
Sub Main
Dim D,R,V
Dim Ini,Fin,Es
Dim NU(5),Rit(90)
Dim P,N,NV
D = - 17 : R = BA_ : V = - D 'Correttore Universale !!!
Ini = 3950 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
Scrivi DataEstrazione(Es) & " ",False,False
For P = 1 To 5 : NU(P) = Fuori90(Estratto(Es,R,P)) : Next
Scrivi StringaNumeri(NU,,True) & " ",0,0
V = Fuori90(V + D)
ColoreTesto 2 : Scrivi " -" & Format2(90 - V) & "  ",1,0 : ColoreTesto 0
For P = 1 To 5
NV = Fuori90(NU(P) + V) : Scrivi Format2(NV),0,0
For N = 1 To 90
If N = NV Then Rit(N) = Fin - Es
Next
If P < 5 Then Scrivi ".",0,0 Else Scrivi ""
Next
Next
Scrivi
Scrivi "NU RIT",True
For N = 1 To 90
Scrivi Format2 (N) & " " & FormatSpace(Rit(N),3,True)
Next
End Sub

:) Cordiali saluti.
 
Ultima modifica:

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
Ciao Joe,
bel script, complimenti.
Ho controllato lo script dei numeri primi e va bene.
Ho controllato anche il tuo archivio virtuale della ruota di BARI
del numero primo D(17) con il mio virtuale e anche con quello di LuigiB
e va benissimo.
stickman.gif
Hai fatto benissimo a mettere anche un visualizzatore dei ritardi del sistema D(17).
Se possibile, in questa fase sarebbe opportuno già evidenziare
già il ritardo di posizione di PRIMO GRADO,
che non è altro che la conta in estrazioni del CAPOLISTA della graduatoria (il numero virtuale 8)
dei RITARDI cioè da quando tempo (in estrazioni/colpi) si trova PRIMO dei PRIMI ritardatari.
Nel nostro caso il numero virtuale 8 è PRIMO dei PRIMI da 54 estrazioni/colpi in 1° posizione.
(Quel max posizione di 110 clp. È ovvio che non riferito al num. 8 ) Altro parametro importante.
Ti metto un'immagine in modo da farmi capire quello che intendo dire :
stickman.gif
ba_d17_joe.JPG
Ho riesumato un vecchio programmino che mi funziona ancora
e ho elaborato lo stesso tuo archivio virtuale di BARI D(17)
dove si evidenziano alcuni parametri, quelli che ci possono interessare
li ho colorati di giallo e freccetta.
stickman.gif
Buon giornata a tutti.
A presto
Silop ;) ;) ;)
x i legend : grazie dei complimenti
 

Joe91

Advanced Member >PLATINUM PLUS<
Ok ... Silop

Innanzi tutto grazie e ... "benisimo" ... poter aggiungere anche il supporto di un "nuovo" programma.

Proporrei di riprendere quanto s'era verificato con BladeRunner.

Joe91;n1908228 ha scritto:
Buon Giorno a tutte/i.

In sintesi ripropongo per un controllo finale l'output riveduto, aggiornato, corretto:

Codice:
[FONT=Courier New][SIZE=10px][COLOR=#000000](D01) BA 53 Rit 95[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D07) GE 68 Rit 132[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D11) NA 67 Rit 134[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D13) PA 09 Rit 140[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D17) RO 28 Rit 125[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D19) VE 36 Rit 104[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D23) NA 36 Rit 101[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D29) MI 09 Rit 130[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D31) NA 60 Rit 103[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D37) BA 87 Rit 124[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D41) GE 83 Rit 119[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D43) GE 34 Rit 150[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D47) BA 34 Rit 126[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D49) NA 74 Rit 124[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D53) VE 67 Rit 142[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D59) TO 63 Rit 109[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D61) MI 28 Rit 111[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D67) FI 07 Rit 90[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D71) TO 01 Rit 121[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D73) BA 33 Rit 142[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D77) NA 76 Rit 131[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D79) PA 84 Rit 113[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D83) GE 86 Rit 103[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D89) VE 24 Rit 98[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000](D90) NA 51 Rit 134[/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=10px][COLOR=#000000]Aggiornato al 11.08.2015[/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=10px][COLOR=#000000]Elaborato in 3.52 secondi.[/COLOR][/SIZE][/FONT]

:) Cordiali saluti.

Da cui ricavo i seguenti dati:

[D43] GE NUM 34 RIT 150 (ora 154)

con lo script del messaggio precedente inserendo il sistema virtuale e la ruota

abbiamo conferma del ritardo ... e sempre (il secondo script presente al messaggio #15)

lo pone a fianco di quanto hai descritto essere "Numero Virtuale 48".

Ora ... retrocederndo l'archiovo al 3 Marzo 2015 e rieseguendo una terza volta lo script ...

Si ha il "48" a ritardo 81 ed il "62" con ritardo 99 MA ...

Ma ... l' estrazione successiva cadendo il 62 che azzera il suo ritardo ... il 48 diventa capolista.

Quindi dal ritardo 82 al ritardo 154 ...

... sono 72 estrazioni di ritardo relativo.

Dico bene ? E' così ... anche per quel programma ?

:)
 
Ultima modifica:

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
Ciao Joe,
Dico bene ? E' così ... anche per quel programma ?
Si Joe dici bene, vedi sotto le immagini
dell'elaborazione del sistema D(43) sulla ruota di GENOVA
nei tre "punti" cruciali :
stickman.gif
ge_d43_joe1.JPG
stickman.gif
ge_d43_joe2.JPG
stickman.gif
ge_d43_joe3.JPG
stickman.gif
I dati riportati con il mio programmino sono uguali a quelli che hai richiesti.
Buon giornata a tutti.
A presto
Silop ;) ;) ;)
 

Joe91

Advanced Member >PLATINUM PLUS<
Ok ... benissimo ... Silop

Questo "punto di riferimento" penso ci possa/potrà essere utile

adesso e nel futuro, per poter controllare il corretto svolgersi di calcoli

che si elaboreranno con gli archivi, gli script ...i fogli di calcolo, dedicati a questa statistica.

Risolti i principali nodi e corrette le cause generatrici di disallineamenti,

posso/provo a ripetere "la domanda" ... in modo eplicito.

Fatto salvo il sistema D43 e la ruota GENOVA (di questo ... Numero Virtuale 48)

Cosa si giocherebbe ... a Genova ?

(Sabato e poi Martediì ... Giovedì ... ecc ... prossimi venturi / Eventualmente ... Servono Calcoli ? E' Dinamico ?)

nell'attesa della caduta di questo "ritardatario" ?

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto