SVP Sistemi Virtuali Paralleli x Ambata semplice

[silop2005]

[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] [/TD]
[/TR]
[TR]
[TD]al post # 56 di questo thread del 24/08/2015[/TD]
[/TR]
[TR]
[TD]ti avevo risposto al tuo quesito ….. (avevo invitato anche altri a rispondere ma...)[/TD]
[/TR]
[TR]
[TD]riservandomi di fare ulteriore ricerche a riguardo.[/TD]
[/TR]
[TR]
[TD]Non ho ancora trovato tra le mie riviste uno scritto diretto di SEVERO di come comportarsi[/TD]
[/TR]
[TR]
[TD]quando succedono gli eventi ritardi sincroni capolisti di RP1. [/TD]
[/TR]
[TR]
[TD]Non demordo e continuo la ricerca.[/TD]
[/TR]
[TR]
[TD]Nel post suddetto va tutto bene fin quando parliamo del ritardo cronologico [RC],[/TD]
[/TR]
[TR]
[TD]mentre per il ritardo relativo alla prima posizione RP1[/TD]
[/TR]
[TR]
[TD]la soluzione trovata con il mio programmino dell'epoca (di oltre 10 anni fa) in quel caso è sbagliata[/TD]
[/TR]
[TR]
[TD]e credo che non rispecchia neanche le direttive del Severo.[/TD]
[/TR]
[TR]
[TD]A dimostrazione di questo mio errore riporto delle tabelle dei mensili anni 2008/2009[/TD]
[/TR]
[TR]
[TD]ove scriveva moltissimo lo studioso Severo di questo argomento dei SVP o GIOCO CONTINUO.[/TD]
[/TR]
[TR]
[TD]In queste tabelle si vede chiaramente che il RITARDO RELATIVO o DI POSIZIONE [RP1] [/TD]
[/TR]
[TR]
[TD]alla ruota di NAPOLI NON SI AZZERA, ma continua la conta del RP1[/TD]
[/TR]
[TR]
[TD]Ecco la prima immagine la tabella alla data del 02/12/2008[/TD]
[/TR]
[TR]
[TD]

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

[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]E qui addirittura ci sono due ruote che hanno ognuna due estratti con RC sincrono[/TD]
[/TR]
[TR]
[TD]e capolisti del ritardo di posizione RP1.[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]Ho rielaborato le stesse situazioni delle due ruote con il mio programmino[/TD]
[/TR]
[TR]
[TD]ha comprova degli stessi risultati che… si trovano perfettamente con il giornale.[/TD]
[/TR]
[TR]
[TD]vedi immagini. Il ritardo sncr RC si trova con il giornale[/TD]
[/TR]
[TR]
[TD]

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

[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]Cosa succederà invece per l' RP1 nelle prossime estrazioni del 2008 ?[/TD]
[/TR]
[TR]
[TD]Prendo in esame sola la ruota di Napoli dove si vede chiaramente [/TD]
[/TR]
[TR]
[TD]che l'RP1 NON SI AZZERA ma continua la conta[/TD]
[/TR]
[TR]
[TD]come infatti tra l'uscita del primo giornale e il secondo sono passate 12 estrazioni il 30/12/2008[/TD]
[/TR]
[TR]
[TD]che sommati all' RP1 di 3 estrazioni [/TD]
[/TR]
[TR]
[TD]il solista nonché CAPOLISTA il n. 9 alla ruota di Napoli riporta RP1 di 15 estrazioni.[/TD]
[/TR]
[TR]
[TD]

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

[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]Il mio programmino porta sbagliato il dato dell'RP1 alla data del 30/12/2008.[/TD]
[/TR]
[TR]
[TD]Luigi penso che quando succedono questi eventi di sincronismo di più numeri sulla ruota[/TD]
[/TR]
[TR]
[TD]dovresti prima evidenziarli sulla stessa linea (come il giornale NA 59-9)[/TD]
[/TR]
[TR]
[TD]e poi con la caduta di uno dei numeri, il rimanente numero/i deve continuare [/TD]
[/TR]
[TR]
[TD]sia conteggio dell' RC (rit. Cronoligico) e sia il RP1 (ritardo di posizione)[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]Sarebbe opportuno in questa fase di elaborazione di 1° grado RP1 sulle 11 ruote[/TD]
[/TR]
[TR]
[TD]nel fare la graduatoria delle 11 ruote di evidenziare oltre all'attuale RP1 di ogni ruota[/TD]
[/TR]
[TR]
[TD]anche il relativo MASSIMO STORICO dell'RP1 (come fa il mio programmino)[/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]PS[/TD]
[/TR]
[TR]
[TD]Ringrazio l'utente solare per il suo interessamento all'argomento[/TD]
[/TR]
[TR]
[TD]per il plugin di Mandrake vedi al post #76 e segui le istruzioni di Magia.[/TD]
[/TR]
[TR]
[TD]x Magia[/TD]
[/TR]
[TR]
[TD]ho visto il plugin di Mandrake va bene e veloce[/TD]
[/TR]
[TR]
[TD]ma manca il 25° sistema quello del lotto tradizionale il D(90)[/TD]
[/TR]
[/TABLE]

 

[LuigiB]

Ciao Silop dopo che rilascero la prossima versione farai i test e verificherai se va bene .. invece c'è una cosa che mi sta mandando in confusione ... non rieco a capire se ci sia un problema
ma è normale che gli archivi virtuali a coppie siano uguali tra loro ? per esempio

 

[i legend]

Ciao Luigi non so perche ,ma anche io avevo lo stesso problema per questo motivo mi ero arreso,nella costruzione
Non so dirti dov'e l'errore , magari è l'uovo di colombo
ciao a tutti
x Magia: grazie

 

[silop2005]

Ciao Silop dopo che rilascero la prossima versione farai i test e verificherai se va bene .. invece c'è una cosa che mi sta mandando in confusione ... non rieco a capire se ci sia un problema
ma è normale che gli archivi virtuali a coppie siano uguali tra loro ? per esempio

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

[/TD]
[/TR]
[TR]
[TD]Ciao LuigiB,[/TD]
[/TR]
[TR]
[TD]no, non è normale, se no, non avrebbe avuto senso fare tutti questi archivi.[/TD]
[/TR]
[TR]
[TD]Come infatti ho ricontrollato tutti i sistemi che crea il plugin su SPMT[/TD]
[/TR]
[TR]
[TD]con il mio foglio excel i primi 12 NUMERI PRIMI le sequenze dirette[/TD]
[/TR]
[TR]
[TD]i primi 12 NUMERI PRIMI :1-7-11-13-17-19-23-29-31-37-41-43 vanno bene[/TD]
[/TR]
[TR]
[TD]i secondi 12 NUMERI PRIMI : 47-49-53-59-61-67-71-73-77-79-83-89 sono uguali ai primi 12
e NON VANNO BENE[/TD]
[/TR]
[TR]
[TD]Se con i primi 12 SOTTRAIAMO i cinque estratti tradizionali ed abbiamo i cinque estratti VIRTUALI[/TD]
[/TR]
[TR]
[TD]esempio del sistema D(1) : -1, -2, -3, -4, ecc… ecc.[/TD]
[/TR]
[TR]
[TD]esempio del sistema D(7) : -7, -14, -21, -28, ecc… ecc..
====================[/TD]
[/TR]
[TR]
[TD]Gli altri 12 numeri PRIMI che sono il complemento a 90 vedi le coppie

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 637"]
[TR]
[TD]Sistema 1 / 89[/TD]
[/TR]
[TR]
[TD]Sistema 7 / 83[/TD]
[/TR]
[TR]
[TD]Sistema 11 / 79[/TD]
[/TR]
[TR]
[TD]Sistema 13 / 77[/TD]
[/TR]
[TR]
[TD]Sistema 17 / 73[/TD]
[/TR]
[TR]
[TD]Sistema 19 / 71[/TD]
[/TR]
[TR]
[TD]Sistema 23 / 67[/TD]
[/TR]
[TR]
[TD]Sistema 29 / 61[/TD]
[/TR]
[TR]
[TD]Sistema 31 / 59[/TD]
[/TR]
[TR]
[TD]Sistema 37 / 53[/TD]
[/TR]
[TR]
[TD]Sistema 41 / 49[/TD]
[/TR]
[TR]
[TD]Sistema 43 / 47[/TD]
[/TR]
[/TABLE]

sono le sequenze indirette
e con queste [/TD]
[/TR]
[TR]
[TD]dobbiamo fare l'INVERSO della sottrazione cioè SOMMARE gli stessi cinque estratti tradizionali[/TD]
[/TR]
[TR]
[TD]e convertirli in cinque estratti VIRTUALI[/TD]
[/TR]
[TR]
[TD]esempio del sistema D(89) : +1, +2, +3, +4, ecc… ecc….[/TD]
[/TR]
[TR]
[TD]esempio del sistema D(83) : +7, +14, +21, +28, ecc… ecc..[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]e cosi per tutti gli altri.[/TD]
[/TR]
[TR]
[TD]=====================================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Rinnovo in questa occasione di inserire nella creazione degli archivi anche il sistema D(90)[/TD]
[/TR]
[TR]
[TD]come anche ribadito dall'utente Magia.[/TD]
[/TR]
[TR]
[TD]Grazie[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto[/TD]
[/TR]
[TR]
[TD]Silop
PS
nel post. iniziale è stato spiegato.... sottrarre .... e sommare....
[/TD]
[/TR]
[/TABLE]

 

[LuigiB]

ciao Magia .. la musica del violino è sempre dolce ... .. a parte gli scherzi ecco lo script modificato , dovrebeb essere corretto , l'ho testato sommariamente perche sono concentrato sull'altra attività, servesolo come traccia , il lavoro lo fara il plugin.

Per Silop e Legend , l'errore era che nel caso dei secondi 12 numeri io usavo si la somma ma sommavo i numeri stessi , non i loro complementari ...

In parole povere i numeri sono sempre 12 , una volta si sottraggono e una volta si sommano
dando luogo ognuno a 2 sistemi per un totale di 24 ..

chiamare un sistema D(89) a quanto pare fa sembrare di dover sommare 89 ......ecco l'arcano ..
si deve sommare 1 ...

Tranquillo per il sistema 90 Silop .. si trattava della cosa piu banale e da quel di che l'ho gia fatta questa modifica..

Option Explicit
Sub Main
    Dim sDir,Inizio,Fine,bPrimaFissa,bRigenera
    
    '=========================================================================================
    ' questi valori servono per l'aggiornamento dell'archivio una volta fissati non cambiarli
    '
    Inizio = 9000'DataEstrToIdEstr(4,1,1986) ' estrazione iniziale in base ai propri metodi per esempio 3950
    Fine = EstrazioniArchivio ' sempre fino all'ultima estrazione disponibile
    '=======================================================================================
    
    
    
    If MsgBox("Usare il criterio con la prima estrazione fissa ?",vbQuestion + vbYesNo) = vbYes Then
        bPrimaFissa = True
    Else
        bPrimaFissa = False
    End If
    If MsgBox("Ricreare daccapo gli archivi virtuali ?",vbQuestion + vbYesNo) = vbYes Then
        bRigenera = True
    Else
        bRigenera = False
    End If
    ReDim aNumPrimi(0)
    Call AlimentaPrimi(aNumPrimi)
    sDir = GetDirectoryAppData & "ArchiviVirtuali\"
    If CreaDirectory(sDir) Then
        Call GeneraArchiviVirtuali(sDir,Inizio ,Fine,bPrimaFissa,bRigenera,aNumPrimi)
        If MsgBox("Visualizzare i file degli archivi virtuali prodotti ? (E' necessario excel)",vbQuestion + vbYesNo) = vbYes Then
            Call GeneraFileCsv(sDir,aNumPrimi,bPrimaFissa ,Inizio )
        End If
        
    Else
        MsgBox "Errore creazione directory sistemi virtuali"
    End If
End Sub
Sub GeneraArchiviVirtuali(sDirArchivi,idPrimaEstr,idUltimaEstr,bPrimaEstrFissa,bRigenera,aNumPrimi)
    Dim sFile,nBase,nBaseTmp,idEstr,e,r,nMoltiplicatore,sData,i
    Dim sDataUltimaEstrArcVirt,nEstrTotArcVir
    Dim idPrimaEstrToAddArchVirt
    For i = 1 To UBound(aNumPrimi)
        nBase = aNumPrimi(i)
        sFile = GetNomeFileArchVirt(sDirArchivi,nBase,bPrimaEstrFissa ,idPrimaEstr)
        If bRigenera Then
            Call EliminaFile(sFile)
            nEstrTotArcVir = 0
            sDataUltimaEstrArcVirt = ""
            idPrimaEstrToAddArchVirt = idPrimaEstr
        Else
            nEstrTotArcVir = QuantitaEstrazioniInFile(sFile)
            sDataUltimaEstrArcVirt = GetDataEstrArchivioVirt(sFile,nEstrTotArcVir)
            If sDataUltimaEstrArcVirt <> "" Then
                idPrimaEstrToAddArchVirt = DataEstrToIdEstr(Day(sDataUltimaEstrArcVirt),Month(sDataUltimaEstrArcVirt),Year(sDataUltimaEstrArcVirt))
                If idPrimaEstrToAddArchVirt > 0 Then idPrimaEstrToAddArchVirt = idPrimaEstrToAddArchVirt + 1
            Else
                idPrimaEstrToAddArchVirt = idPrimaEstr
            End If
        End If
        If idPrimaEstrToAddArchVirt > 0 Then
            If nEstrTotArcVir > 0 Then
                If bPrimaEstrFissa Then
                    nMoltiplicatore =(nEstrTotArcVir - 1) Mod 90
                Else
                    nMoltiplicatore = nEstrTotArcVir Mod 90
                End If
            Else
                nMoltiplicatore = 0
            End If
            
            For idEstr = idPrimaEstrToAddArchVirt To idUltimaEstr
                ReDim aNumA(11,5)
                If idEstr = idPrimaEstr Then
                    If bPrimaEstrFissa = False Then
                        nMoltiplicatore = 1
                    End If
                Else
                    nMoltiplicatore = nMoltiplicatore + 1
                End If
                If nMoltiplicatore = 90 Then
                    For r = 1 To 11
                        For e = 1 To 5
                            aNumA(r,e) = Estratto(idEstr,Iif(r = 11,12,r),e)
                        Next
                    Next
                    nMoltiplicatore = 0
                Else
                    For r = 1 To 11
                        If Estratto(idEstr,Iif(r = 11,12,r),1) > 0 Then
                            For e = 1 To 5
                                If i <= 12 Then
                                    aNumA(r,e) = DiffCiclometrica(Estratto(idEstr,Iif(r = 11,12,r),e),Fuori90(nBase * nMoltiplicatore))
                                ElseIf i > 12 And i <= 24 Then
                                    nBaseTmp  = ComplAdX (nBase)
                                    aNumA(r,e) = Fuori90(Estratto(idEstr,r,e) + Fuori90(nBaseTmp * nMoltiplicatore))
                                Else
                                    aNumA(r,e) = Estratto(idEstr,Iif(r = 11,12,r),e)
                                End If
                            Next
                        End If
                    Next
                End If
                sData = DataEstrazione(idEstr,,,"/")
                Call SalvaEstrazione(aNumA,sData,IndiceAnnuale(idEstr),sFile)
                Messaggio "Archivio virtuale " & nBase & " estr . " & idEstr
                If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
        Else
            MsgBox "Errore non previsto , rigenerare gli archivi daccapo per risolvere il problema"
        End If
        Call AvanzamentoElab(1,UBound(aNumPrimi),i)
    Next
End Sub
Sub AlimentaPrimi(ANumPrimi)
    ReDim ANumPrimi(25)
    ANumPrimi(1) = 1
    ANumPrimi(2) = 7
    ANumPrimi(3) = 11
    ANumPrimi(4) = 13
    ANumPrimi(5) = 17
    ANumPrimi(6) = 19
    ANumPrimi(7) = 23
    ANumPrimi(8) = 29
    ANumPrimi(9) = 31
    ANumPrimi(10) = 37
    ANumPrimi(11) = 41
    ANumPrimi(12) = 43
    ANumPrimi(13) = 90 - 1
    ANumPrimi(14) = 90 - 7
    ANumPrimi(15) = 90 - 11
    ANumPrimi(16) = 90 - 13
    ANumPrimi(17) = 90 - 17
    ANumPrimi(18) = 90 - 19
    ANumPrimi(19) = 90 - 23
    ANumPrimi(20) = 90 - 29
    ANumPrimi(21) = 90 - 31
    ANumPrimi(22) = 90 - 37
    ANumPrimi(23) = 90 - 41
    ANumPrimi(24) = 90 - 43
    ANumPrimi(25) = 90  
    
End Sub
Function GetNomeFileArchVirt(sDirArchivi, nBase, bPrimaEstrFissa, nPrimaEstr)
 
        If bPrimaEstrFissa Then
                GetNomeFileArchVirt = sDirArchivi & "SVP D(" & nBase & ") ConFissi [" & nPrimaEstr & "].dat"
        Else
                GetNomeFileArchVirt = sDirArchivi & "SVP D(" & nBase & ") NoFissi [" & nPrimaEstr & "].dat"
        End If
 
End Function

Function GetDataEstrArchivioVirt(sFile,idEstr)
    Dim sData
    Call LeggiEstrazioneDaFile(sFile,idEstr,sData,0,"")
    GetDataEstrArchivioVirt = sData
End Function
Sub GeneraFileCsv(sDir,aNumPrimi,bPrimaFissa ,nPrimaEstr)
    Dim sFileCsv,sFileArcVirt,nBase,k,idEstr,sEstr,sData,nIndice,r,e,sChrSep
    Dim nEstrProdotte
    sChrSep = ";"
    nEstrProdotte = 0
    For k = 1 To UBound(aNumPrimi)
        nBase = aNumPrimi(k)
        sFileArcVirt = GetNomeFileArchVirt(sDir,nBase,bPrimaFissa,nPrimaEstr)
        sFileCsv = sFileArcVirt & ".csv"
        Call EliminaFile(sFileCsv)
        sEstr = "Indice" & sChrSep & "Data" & sChrSep
        For r = 1 To 11
            For e = 1 To 5
                sEstr = sEstr & SiglaRuota(Iif(r = 11,12,r)) & sChrSep
            Next
        Next
        sEstr = RimuoviLastChr(sEstr,sChrSep)
        Call ScriviFile(sFileCsv,sEstr,True,True)
        Call Messaggio("Creazione file csv archivio base : " & nBase)
        For idEstr = 1 To QuantitaEstrazioniInFile(sFileArcVirt)
            ReDim aNum(12,5)
            Call LeggiEstrazioneDaFile(sFileArcVirt,idEstr,sData,nIndice,aNum)
            sEstr = nIndice & sChrSep & sData & sChrSep
            For r = 1 To 12
                If r <> 11 Then
                    For e = 1 To 5
                        sEstr = sEstr & Format2(aNum(r,e)) & sChrSep
                    Next
                End If
            Next
            sEstr = RimuoviLastChr(sEstr,sChrSep)
            Call ScriviFile(sFileCsv,sEstr,False,True)
            nEstrProdotte = nEstrProdotte + 1
            If ScriptInterrotto Then Exit For
        Next
        Call CloseAllFileHandle
        Call AvanzamentoElab(1,UBound(aNumPrimi),k)
        If ScriptInterrotto Then Exit For
    Next
    If nEstrProdotte > 0 Then
        MsgBox "I file csv sono presenti nella directory " & vbCrLf & sDir
        Call ApriDirectory(sDir)
    End If
End Sub

 

[Joe91]

Bhe ... Si,

Arcano però è molto generoso!

Quindi a parer mio ... qui è il discriminante tra un sommativo stupido ...

nel quale la somma e/o la differenza crea un numero dal quale poi

non si può risalrire a quale somma e/o differenza l'abbia genenerato ...

ed uno, al confronto, intelligente, che invece si lascia permeare ... per consentirlo.

Ora posso anche aggiungere che è un caso esemplare ... di cosa semplice,

passata all' "ufficio complicazioni" ... ove ancora ... si potrà semplificare molto.

A cominciare ... dal fatto che l'inizio ... è peraltro molto lontano dall'aiutare ... convenientemente.

e ... concludere con un esempio, pur semplice ...

da esso si vede chiaramente di "come" si può far funzionare ... meglio,

senza troppi fronzoli, del tutto equiparabili al fumo negli occhi.

Sub Main
Dim Ini,Fin,Es,R S,K,P,NV,D(2)
Ini = 3950 : Fin = Ini + 19
D(1) = 1 : D(2) = 89 : R = BA_
For S = 1 To 2
K = 0
Scrivi "D" & D(S)
For Es = Ini To Fin
Scrivi DataEstrazione(Es) &  "  " ,0,0
For P = 1 To 5
NV = Fuori90(Estratto(Es,R,P) + K * D(S))
Scrivi FormatSpace (NV,3,True),0,0
Next
Scrivi
K=K+1
Next
Scrivi String (25,"-")
Next
End Sub

Ero certo ... te ne saresti accorto.

Che si legge: I miei complimenti.

Buona serata

 

[LuigiB]

e il bello è che mi sono arrovellato parecchio ....-)
Fatto curioso col tuo semplice e preciso script gl archivi sono uguali a quelli prodotti da me ma invertiti . il tuo d1 è il mio d89 e viceversa ..

 

[LuigiB]

domanda : una volta ottenuta la lista di terzo livello si prende il capolista virtuale e si trasforma in numero reale.
Si gioca a colpo ?
Cioè mi pare di capire che ad ogni estrazione il numero da giocare cambia sempre oppure il gioco inizia e dura un certo numero di estrazioni nella speranza che il numero reale individuato a quel concorso esca in tempi ragionevoli (di li a poco ) ?

 

[silop2005]

domanda : una volta ottenuta la lista di terzo livello si prende il capolista virtuale e si trasforma in numero reale.
Si gioca a colpo ?
Cioè mi pare di capire che ad ogni estrazione il numero da giocare cambia sempre oppure il gioco inizia e dura un certo numero di estrazioni nella speranza che il numero reale individuato a quel concorso esca in tempi ragionevoli (di li a poco ) ?

======================================= [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]una volta fatta la conversione del numero capolista della graduatoria di 3° grado [/TD]
[/TR]
[TR]
[TD]lo si gioca a colpo SOLO per quella estrazione[/TD]
[/TR]
[TR]
[TD]alle successive estrazioni si cambiano i numeri da giocare[/TD]
[/TR]
[TR]
[TD]facendo sempre la conversione del numero virtuale nel numero REALE da giocare[/TD]
[/TR]
[TR]
[TD]fino alla vincita dell'estratto semplice.[/TD]
[/TR]
[TR]
[TD]Ti riporto l'immagine del numero virtuale 48 alla ruota di GENOVA sistema D(43)[/TD]
[/TR]
[TR]
[TD]

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

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]come puoi vedere alla data [/TD]
[/TR]
[TR]
[TD]del 22/08/2015 si doveva giocare il num. Reale 26[/TD]
[/TR]
[TR]
[TD]del 25/08/2015 si doveva giocare il num. Reale 69[/TD]
[/TR]
[TR]
[TD]del 27/08/2015 si doveva giocare il num. Reale 22[/TD]
[/TR]
[TR]
[TD]del 29/08/2015 si doveva giocare il num. Reale 65[/TD]
[/TR]
[TR]
[TD]e cosi via fino alla vincita dell'estratto semplice[/TD]
[/TR]
[TR]
[TD]Quindi ad ogni estrazione il numero CAMBIA.[/TD]
[/TR]
[TR]
[TD]

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

 

[Joe91]

e il bello è che mi sono arrovellato parecchio ....-)
Fatto curioso col tuo semplice e preciso script gl archivi sono uguali a quelli prodotti da me ma invertiti . il tuo d1 è il mio d89 e viceversa ..

Ciao Luigi.

Buon giorno a tutte/i.

Si ...

ho ragionato "positivamente" ... l' esempio è "negativo".

Mi spiego se "A" e "B" sono in distanza "D" io ritengo che "D" non dovrebbe "MAI" essere negativo

proprio perchè è una distanza.

Fossero i bordi della scrivania ... sono sempre distanti 1 un metro sia che io che li misuri da sinista a destra ...

che da destra a sinistra.

"Meno1 metro" ... non esiste.

Ma il risultato è giusto lo stesso "1" ... Se misurato con logica negativa poi ...

lo si deve considerare essere negativo ... e dunque è da riconvertire al "metro" che è.

Esattamente ... come se fosse l'altra faccia ... una faccia di moneta da un euro ...

che sempre si palesa come "un" euro in qualunque modo lo si guardi.

Ma se vogliamo misurarlo dalla Nazionalità dobbiamo riconoscere correttamente la sua "faccia".

Dobbiamo valutare anche correttamente quale faccia stiamo osservando ed eventualmente "girarlo".

In sintesi rimane giusto "il ritardo" ... ma con logica mista, positiva e negativa,

si hanno da compiere lavori inutili,

E poi ... si dovranno aggiungere o sottrarre le distanze a seconda dei casi ... ritrovati.

Essi oltre la complicazione ... hanno creato i malfunzionamenti.

Ripropongo dunque lo script precedente ... indirizzato a clonare l'esempio fornito da Silop.

Osservando anche che vi è un altra contraddizione di questo tipo:

E stato scritto e Vero: "Se i sistemi sono uguali ... allora sono sbagliati."

Alla prima estrazione ... essi sono tutti sono tutti "D90".

Pare pertanto, che dire che si inizia a 3950 ... ma poi(+D) si applica alla estrazione successiva ...

è come le leggi per la riduzione dei costi fatte dai nostri politici ... che si applicano alla prossima legislazione.

Quindi, non esistono ... negli effetti ... che dovrebbero, tradendo in logica e conseguenza l'enunciato.

Dunque più correttamente sono 3950 che non è 3950 ma 3951.

Poi vedremo ... ma è gia detto ... che è del tutto ininfluente.

Poco alla volta.

 Sub Main
Dim Ini,Fin,Es,R,S,K,P,NV,D(1)
Ini = 3951 : Fin = EstrazioneFin
D(1) = 43 : R = GE_
For S = 1 To 1
Scrivi "D" & D(S)
For Es = Ini To Fin
K = K + 1
If Es > 9000 Then
Scrivi DataEstrazione(Es) & "  ",0,0
For P = 1 To 5
NV = Fuori90(Estratto(Es,R,P) - K * D(S))
Scrivi FormatSpace(NV,3,True),0,0
Next
Scrivi
End If
Next
Scrivi String(27,"-")
Next
End Sub

 

[solare]

scusate ma come funziona il plugin di mandrake ?

 

[LuigiB]

Ciao Joe ..è chiaro che fissando le opportune regole il metodo che avevi presentato va ugualmente bene
Essendo io un mero esecutore di specifiche non mi faccio tante domande che non siano
legate alla logica per implementare la tale routine quindi tante considerazioni mi sfuggono.

In un primo momento pensavo bisognasse creare dei sistemi dove il primo numero della coppia
per esempio 1 veniva sottratto e il secondo numero della coppia per esempio 89 veniva sommato.

Dopo aver implementato tutte le statistiche mi sono accorto che nella famosa lista dei 25 mi ritrovavo con delle righe uguali a coppia .. dico .. ma che cavolo è .. come mai .. e inizio a tirare giu un po di improperie ..

Dato che nella lista dei 25 non avevo ancora messo una colonna che mostrasse da quale distanza fosse prodotto il sistema non riuscivo a capire che succedeva...mi mancavano informazioni

Allora prima cosa ho dotato la lista di questa colonna dove mostro la distanza con cui il sistema è stato creato e cosi facendo mi sono accorto che le righe a coppia erano uguali ma venivano da sistemi con distanze diverse... nell'errore ho pensato "meno male.. almeno non è un problema di ordinamento e di duplicazione non voluta" l'unica spiegazione per risultati uguali (le due righe identiche) poteva solo essere dati analizzati uguali ..

E infatti andando a vedere i sistemi delle rispettive coppie mi sono accorto che erano identici.
Poco male tutto sommato nell'errore voleva comunque dire che lee statistiche funzionavano...

finalmente poi ho capito dopo averlo chiesto che il sistema D89 in realta non somma 89 ma 1 .

in verit me ne sarei dovuto accorgere prima per una questione di logica.
E' chiaro che se da un numero una volta sottraggo 1 e ll'altra volta sommo 89 o meglio se da un numero sottraggo X e allo stesso poi sommo il complemntare a 90 di X è chiaro che raggiungo lo stesso riultato lo stesso numero , una volta muovendomi in senso antiorario e una volta in senso orario sul cerchio ciclometrico ..sicche gli archivi in coppia erano per l'appunto identici


Ora sto a buon punto ma non ancora posso mettere la nuova versione per i test..un po' ci vuole,,,


ciao a tutti

 

[Joe91]

Ciao Luigi.

Anche le mie vogliono essere considerazioni tecniche.

Infatti non ho nessun interesse a "risolvere" copiando.

Tanto più se nella lettura di cosa s'avrebbe a replicare, appaiono evidenti "bizzarrie".

Quindi ribadendo che per "positivo" intendevo un qualcosa che "avanza incrementando" e cha ad un inizio ...

tanto incerto quanto farlocco è meglio uno reale ... è chairo che da questo deriva che ci può essere "una formula".

Essa ha parametri e che permette di calcolare il numero reale partendo da un "Virtuale" , "D" e da un bunero si estrazioni "K".

Dove "K" è un semplicissimo contatore che relativizza a "3951" ovvero

partendo da "3951 = 1" ... cresce fino al limite dell'archivio.

Esso, è come la sabbia di una clessidra ... al diminuire del RITARDO aumenta K ...

All' aumetare di K diminuisce "il ritardo".

Parafrasando è un complementare al massimo ritardo ...

O al limite dell'archivio.

Quindi possiamo scrive una formula ... che in qualsiasi estrazione dell'archivio ci restuituisce

cosa ci si aspetta presente di ... puramente teorico ...

In funzione del sistemaVirtuale "D" del Numero virtuale "V" in una ipotetica estrazione lontana.

Ovvero della quale è possibile calcolare il ritardo "R".

Quindi si ... se per crescere (e per il futuro) uso "+D" per il ritardo uso "-D" e K diventa alias e conteggio del Ritardo.

In sintesi ... partendo da qualsiasi estrazione generica ...

... o ... anche dall'ultima ...

posso calcolare "il ritardo" di ogni sistema e di ogni numero virtuale ... senza nessun archivio.

Darò dimostrazione.

 

[LuigiB]

Infatti e vero disponendo dell archivio reale il rsto sono formule e non e indispensabile mantenere dei file con gli archivi virtuali.pero averli consente di poterli gestire con gli stessi metodi dell archivio reale. Riguardo il metodo lavmia ipinione e identica a quella che ho su tutti gli altri metodi perfino quelli che non ho visto mai...analizzando nei miei test le prime 500 estrazioni dei 25 archivi si rileva che sarebbe stato necessario aspettare anche 80 concorsi prima di vincere...ora non so quale sia una progressione che consenta di giocare 80 volte garantendo di vincere una cifra congrua al capitale necessario...cioe non e che faccio per dire investo centomila euro pervincerne 10.....comunque le modifiche le sto facendo e appenavpronto mettero la versione per i test

 

[Joe91]

Infatti è vero disponendo dell archivio reale il resto sono formule e non è indispensabile mantenere dei file con gli archivi virtuali.pero averli consente di poterli gestire con gli stessi metodi dell archivio reale. Riguardo il metodo lavmia ipinione e identica a quella che ho su tutti gli altri metodi perfino quelli che non ho visto mai...analizzando nei miei test le prime 500 estrazioni dei 25 archivi si rileva che sarebbe stato necessario aspettare anche 80 concorsi prima di vincere...ora non so quale sia una progressione che consenta di giocare 80 volte garantendo di vincere una cifra congrua al capitale necessario...cioe non e che faccio per dire investo centomila euro pervincerne 10.....comunque le modifiche le sto facendo e appenavpronto mettero la versione per i test

Sono in accordo totale al punto ... da ritenere che se avessi proposto ... qualche giorno fa ...

uno script così, dove inserendo semplicemente un ciclo per le ruote, ed uno per le altre 24 distanze

si ottiene "il risultato" ...con l'analisi di 100-200 estrazioni,

contro le migliaia presenti nell'archivio, come da proposta e che non può prescindere,

dalla necessarietà di avere 25 archivi ... da gestire.

... tu, probabilmente, avresti desistito dall'interessarti.

Quindi per me è giusto che ci siano gli archivi e ... che io non abbia "negato" loro una esistenza.

Lo script cui ho accennato è in grado di formulare il pronostico giocabile a colpo senza archivi:

Sub Main
 D = 43 : R = GE_
For N = 1 To 90 : Q = N : K = 0  
For Es = EstrazioneFin To 3950 Step - 1
K = K + 1
If Posizione(Es,R,Q) > 0 Then
If K > Mx Then MX = K : Mem = Fuori90 (N+D) & " " & SiglaRuota(R) & " D" & D & " Rit " & K
Exit For
Else
Q = Fuori90(90 + Q - D)
End If
Next
Next
Scrivi Mem
End Sub

Buona Serata a tuttte/i

 

[LuigiB]

ciao Joe .. molto arguto lo script ....
Comunque per gestire tutte le varie specifiche tipo ordinamenti , casi doppi e via dicendo era meglio lavorare sui file anche perche data l'onerosità dei calcoli che vanno fatti ho optato per un programma che non calcola i dati in tempo reale bensi li precalcola al momento dell'aggionamento archivio.
Questo produce una situazione dove la prima volta è molto lento anche 3 o 4 ore con l'archivio che parte da 3950 ma poi le statistiche le deve solo visulaizzare non ricalcolare ogni volta al limite fa delle substatistiche sui dati gia calcolati , ho fatto questa scelta favorito dal fatto che le estrazioni sono statiche e costretto dal fatto che altrimenti una statistica in tempo reale al click per intenderci ogni volta avrebbe accusato lentezza specie con range ampi.
Spero che i vari calcoli dei 3 ritardi di posizione siano giusti .. poi vedrete voi quando mettero la versione di prova...
Stando ai miei test l'attesa massima prima di vincere giocando sempre il capolista dela lista dei 25
e solo quandoquesto capolista era l'unico numero presente è di 87 concorsi ...

 

[LuigiB]

Ciao a tutti , per chi volesse aiutare a verificare se il plugin funziona correttamente oltre ovviamente a Silop ecco il link per il download.
Purtroppo non essendo inserita col setup di spaziometria dovrete fare delle cose a mano , nel file ci sono le istruzioni.

http://www.mediafire.com/download/lw...ali%282%29.rar

 

[vincenzo4221]

MI complimento con tutti , per il lavoro svolto , una collaborazione .."da esempio".

 

[silop2005]

[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]tutta la notte ho fatto "lavorare" il plugin di creazione (con i FISSI) e[/TD]
[/TR]
[TR]
[TD]dai primi controlli manuali, visivi e con l'aiuto dei miei piccoli programmini dell'epoca[/TD]
[/TR]
[TR]
[TD]ho individuato le seguenti anomalie o errori :[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]1° domanda[/TD]
[/TR]
[TR]
[TD]La ruota nazionale è stata istituita nel 2005[/TD]
[/TR]
[TR]
[TD]come fa a partecipare al calcolo dei vari ritardi dall'inizio della ricerca 3950 del 1946 ?[/TD]
[/TR]
[TR]
[TD]L'inserimento non dovrebbe iniziare dal 2005, con 11 ruote ?[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]2° domanda[/TD]
[/TR]
[TR]
[TD]i due numeri sincroni su napoli il RP1 non va bene dopo la srt di uno[/TD]
[/TR]
[TR]
[TD]secondo quando avevo evidenziato al post # 87[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Sto continuando, purtroppo lentamente, ulteriori riscontri su questo tuo[/TD]
[/TR]
[TR]
[TD]MERAVIGLIOSO plugin che per sommi capi sembra andare benissimo.[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Per il momento ho riscontrato le due domande di sopra.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto[/TD]
[/TR]
[TR]
[TD]Silop
Invito gli esperti dell'argomento, con i loro MEZZI super tecnologici ( script,prg,...)
ad intervenire con i loro riscontri sul plugin di Luigi, grazie.[/TD]
[/TR]
[/TABLE]
=======================
Ringrazio vincenzo4221 per il suo intervento.

 

[silop2005]

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

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao LuigiB,
continuo........
[/TD]
[/TR]
[TR]
[TD]vedi l'immagine, il pulsantino "Analisi gioco" non si vede bene,[/TD]
[/TR]
[TR]
[TD]poi ti ho evidenziato le due date.[/TD]
[/TR]
[TR]
[TD]

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

[/TD]
[/TR]
[TR]
[TD]==============================[/TD]
[/TR]
[TR]
[TD]Cosa è successo ?[/TD]
[/TR]
[TR]
[TD]Non avevo ancora aggiornato SPAZIOMETRIA (barra sotto portava la data del 29/08/2015) [/TD]
[/TR]
[TR]
[TD]dell'estrazione 01/09/2015 la 5101[/TD]
[/TR]
[TR]
[TD]però avevo già lanciato il plugin "creaArchivi"[/TD]
[/TR]
[TR]
[TD]ed era uscita la finestra con l'opzione : Vuoi aggiornare le estrazioni?[/TD]
[/TR]
[TR]
[TD]io ho risposto si[/TD]
[/TR]
[TR]
[TD]e il "plugin" ha registrato di nuovo l'estrazione del 29/08/2015 la 5100[/TD]
[/TR]
[TR]
[TD]Allora ci vorrebbe un piccolo controllo oppure una dicitura[/TD]
[/TR]
[TR]
[TD]che indica l'estrazione in memoria e poi dare l'OK[/TD]
[/TR]
[TR]
[TD]esempio : Vuoi aggiornare le ultime estrazioni (ultima estrazione in archivio : 29/08/2015 la 5100) ???[/TD]
[/TR]
[TR]
[TD]oppure vedi tu come evitare l'anomalia.[/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]