Spaziometria o uno script possono rilevare la 10ina + in ritardo x A su tutte?

[lotto_tom75]

[No message]

 

[Joe91]

Buon Giorno a tutte/i.

Ciao Ilegend.

Bhe ... si, è risposta, quasi, sincera.

Perchè in verità non ricordo i dettagli.

Si tratta di un lavoro di molti anni fa (in un pomeriggio di calcoli) di cui non ricordo, come avevo fatto ...

E' andato perso ... in qualche vecchio pc o in qualche battaglia contro qualche virus ...

Non saprei ritrovarlo.

Ma la storia è più o meno questa: Avevo trovato delle ... decine per terno a tutte.

Di queste ne avevo scelta una (tra una decina circa).

L'ho seguita sino all'estrazione e se ricordo bene dopo una quindicina di colpi ...

con il terno si vincevano finalmente 3 o 4 euro dei 15 spesi. Erano Lire, non cambia o è peggio.

Quindi per Ambo ... è come batttagliare conto i mulini a vento.

Manco con la fortuna di individuare il risultato a colpo si vincerebbe qualcosa di decente.

Ma ... modernamente reinterpretando ... si è dei gufanti.

O no ?!?!?

 

[lotto_tom75]

Legend a te la scelta: Lato Oscuro... interpretato dal bravissimo Joe (un pò troppo forse razionalmente pessimista...) o Lato Chiaro (Sogno Responsabile Che Non Pone Limiti Alla Provvidenza) facendo proprio il detto l'Audacia... ha in se Forza e Magia (Goethe) interpretato ironicamente dal sottoscritto? Scegli... e in base alla tua scelta seguiranno ulteriori eventuali istruzioni... Un salutone a Te miticissimo e leggenda di nome e di fatto e a Joe Grandissimo Maestro che spero si presti a queste simpatiche ironie altrimenti cancello il post Ci mancherebbe ps: Scusa Joe ma leggo bene o sono del tutto rintronato? 1 solo msg? Why Big?

 

[i legend]

Joe onestamente non pensavo al risultato in termini di gioco ,ma di script.
Voglio lavorarci su.
Ho un idea ma devo lavorarci su perché voglio una certa flessibilità .
Devo scrivere delle funzioni per ricavare dei parametri .
Sul cuore dello script avrò bisogno di aiuto ma devo trovare il modo per spiegarlo bene e non so se conviene in termini di tempo e se è fattibile.
( a mano sembra funzionare )
Per il terno i calcoli sono troppi .
La costruzione massima deve essere la decina
11 numeri non si possono giocare e fare dei sistemi è da suicidio.
Dopo la formattazione ho perso tutti gli script , ma quelli che ho rifatto avevano bisogno di una riscrittura. (Hihihi)
Ciao

 

[Joe91]

"Scusa Joe ma leggo bene o sono del tutto rintronato?"

No comment!

 

[i legend]

Hihihihihi
Mi viene il mal di pancia
A presto.
Per la funzione di cui avrò bisogno aprirò un tred nuovo.
Ciao

 

[Membro cancellato 16574]

Buonanotte,
salutando tutti gli intervenuti , e facendo loro i piu' sinceri complimenti .
Postiamo un listato , fatto da il grande LuigiB ,proprio su un idea di Lotto_tom35,crediamo.
Controllate sempre .

Option Explicit
Sub Main
    Dim k,s
    Dim nClasse,nColonneTot
    ReDim aNumeri(90)
    Dim aCol
    Dim nRitmaxTrovato,nRitMax
    Dim nSorte
    Dim nPosDaIncr
    Dim nFine
    Dim nColValide
    Dim nRitardoNat
    Dim nTimerStart
    nFine = EstrazioneFin
    ReDim aR(12)
    aR(01) = BA_
    aR(02) = CA_
    aR(03) = FI_
    aR(04) = GE_
    aR(05) = MI_
    aR(06) = NA_
    aR(07) = PA_
    aR(08) = RO_
    aR(09) = TO_
    aR(10) = VE_
    aR(11) = NZ_
    'aR(12) = TT_
    nSorte = AMBO_
    nClasse = 10 ' sviluppo in decine
    ' da qui in poi non cambiare niente
    nTimerStart = Timer
    nRitardoNat = 01 / Prob(nClasse,nSorte,UBound(aR))
    nRitmaxTrovato = nRitardoNat
    nRitmaxTrovato = CInt(InputBox("Inserire il ritardo minimo." & vbCrLf & "Il valore proposto è il ritardo naturale","Ritardo minimo",nRitmaxTrovato))
    Call Scrivi("integrali  : " & Combinazioni(90,nClasse))
    ' imposto i numeri da sviluppare
    For k = 01 To 90
        aNumeri(k) = k
    Next
    'inizializza lo sviluppo
    nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
    nColValide = 00
    k = 00
    ' ciclo che continua fiono a quando le colonne non finiscono
    Do While GetCombSviluppo(aCol)
        k = k + 01 ' conteggio colonna corrente
        nRitMax = RitardoCombinazioneTurbo(aR,aCol,nSorte,nFine)
        'If nRitMax >= nRitmaxTrovato Then
        If nRitMax > nRitmaxTrovato Then
            nColValide = nColValide + 01
            nRitmaxTrovato = nRitMax
            ' costruisco la stringa che contiene la colonna
            s = FormatSpace(k,10,True) & " - " & FormatSpace(StringaNumeri(aCol,,True),nClasse * 03) & " Rit  : " & FormatSpace(nRitMax,10,True)
            Call Scrivi(s)
        Else
            ' cerca le sottocolonne che contravvengono al RitMax
            ' e individua quella piu conveniente per far saltare piu  combinazioni possibili
            nPosDaIncr = GetPosDaIncr(aCol,nRitmaxTrovato,aR,nSorte,nFine)
            Call ForzaIncrementoPuntatoreSvilSisInt(nPosDaIncr)
        End If
        If k Mod 100 = 00 Then
            Call AvanzamentoElab(1,100,GetPercCombSviluppate)
            'Call AvanzamentoElab(1,nColonneTot,GetCombSviluppate)
            Call Messaggio("Colonna " & k & " valide " & nColValide)
            If ScriptInterrotto Then Exit Do
        End If
    Loop
    Call Scrivi("svil       : " & k)
    Call Scrivi("Tempo elab : " & FormattaSecondi(Timer - nTimerStart))
End Sub
Function GetPosDaIncr(aCol,nRitMax,aR,nClasse,nFine)
    Dim k,Colonne,j,nRit
    Dim nUltimoNumComb
    Dim nRetIdPosDaIncr,nPosDaIncrPiuBassa
    Dim nNumeriDaPrendere
    ReDim aSubCol(nClasse)
    ' questa funzione riceve la combinazione sviluppata dall'algoritmo principale e la scompone
    ' sviluppando le colonne di classe uguale alla sorte cercata (valore passato in nClasse)
    ' calcola il ritardo delle colonne scomposte , appena trova colonne con ritardo piu basso
    ' di quello massimo conosciuto allora  cerca la colonna migliore.
    ' al termine torna la posizione da incrementare nello sviluppo integrale per fare in modo di saltare colonne
    ' aCol -- > Combinazione da scomporre in classe nClasse
    ' nRitMax -- > Ritardo massimo trovato durante la routine
    ' aR -- > Ruote analizzate
    ' nClasse -- > Sorte per la quale si analizza aCol
    ' nFine -- > Estrazione dalla quale calcolare il ritardo
    nNumeriDaPrendere = UBound(aCol) - 01 ' prendiamo i numeri della colonna escludendo l'ultimo numero
    ' l'ultimo numero va escluso perche le colonne che lo conterrebbero per
    ' via dell'algoritmo non sarebbero utili a far saltare colonne
    nPosDaIncrPiuBassa = 100000 ' si parte da un numero alto impossibile
    ' imposto i numeri da sviluppare creando un array per contenerli
    ' i numeri sono letti dalla combinazione sviluppata passata dall'algoritmo principale
    ReDim aN(nNumeriDaPrendere)
    For k = 01 To nNumeriDaPrendere
        aN(k) = aCol(k)
    Next
    ' sviluppo le colonne in memoria in pratica scompongo aCol
    ' in subcombinazioni della classe uguale alal sorte che analizzo (valore in nClasse)
    Colonne = SviluppoIntegrale(aN,nClasse)
    ' ciclo sulle colone sviluppate per cercare la piu conveniente per saltare piu
    ' colonne possibili nell'algoritmo principale
    For k = 01 To UBound(Colonne)
        ' alimento un array con i numeri per calcolare il ritardo dell subcolonna
        For j = 01 To nClasse
            aSubCol(j) = Colonne(k,j)
        Next
        ' calcola ritardo
        nRit = RitardoCombinazioneTurbo(aR,aSubCol,nClasse,nFine)
        If nRit < nRitMax Then
            'se il ritardo è minore del Ritardo Max conosciuto fino a quel momento allora
            'cerco la colonna che abbia le qualità per far saltare piu colonne possibili
            ' devo individuare in che posizione si trova l'ultimo numero della subcolonna
            ' piu la posizione è bassa maggiore saranno le colonne saltate dall'algoritmo
            For j = 1 To nNumeriDaPrendere 'UBound(aCol)-01
                If aCol(j) = aSubCol(nClasse) Then
                    ' ho individuato il numero contenuto nell'ultima posizione della sub colonna
                    ' e so in che posizione si trova nella colonna aCol
                    If j < nPosDaIncrPiuBassa Then
                        ' cerco la posizione piu bassa possibile
                        nPosDaIncrPiuBassa = j
                    End If
                    ' esce dal ciclo perche il numero è stato trovato
                    Exit For
                End If
            Next
        End If
    Next
    If nPosDaIncrPiuBassa <> 100000 Then
        ' al termine se la variabile nPosDaIncrPiuBassa è diversa dal valore dato per default
        ' vuol dire che sappiamo quale posizione andare ad incrementare per far saltare delle colonne
        GetPosDaIncr = nPosDaIncrPiuBassa
    Else
        ' se nPosDaIncrPiuBassa  rimane al suo valre di default torna 0 e non salta colonne
        GetPosDaIncr = 00
    End If
End Function
Function FormattaSecondi(s)
    'Questa Function trasforma il numero di secondi passato come parametro in una stringa
    ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
    ' s ---> Numero di secondi da formattare
    ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
    Dim hh
    Dim Mm
    Dim Ss
    Dim TimeStr
    hh = s \ 3600
    Mm =(s Mod 3600) \ 60
    Ss = s -((hh * 3600) +(Mm * 60))
    TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
    FormattaSecondi = TimeStr
End Function

 

[Joe91]

Ok ... ringrazio Magia,

per aver ri-proposto il lavoro di LuigiB.

Con esso si evidenzia quanto avevo scritto. Ovvero che uno script per quanto bello e ben organizzato,

se non contiene apposite routine dedicate a svolgere "i compiti" ... in velocità ... diventa particolarmente lento.

Con esso si chiarisce anche il dubbio che avevo espresso e la conseguente mia domanda volta a distinguere ...

se ci si stesse riferendo a questo script ...e/o alle funzioni analoghe e compilate di Spaziometria.

Attendo dunque ... anche le proposte di Ilegend.

Cordiali saluti.

 

[i legend]

Ciao joe
ciao magia
Joe quello che ho in mente non so se è fattibile o se è veloce.
Cmq sto provando a scrivere il tutto il più chiaramente possibile.
Stasera mi ci dedico e domani spero di postare l idea.
Ciao buona serata a tutti.

 

[lotto_tom75]

Ciao a tutti/e non ho capito purtroppo nè il "no comment" di joe.. nè il "Hihihihihi" di legend Me li spiegate carissimi? Grazie . Ps: Non vedo l'ora di vedere cosa ti bolle in pentola mitico legend!

 

[i legend]

Ciao tom
Pensavo che tu avessi fatto una battuta.

Spero che quello che bolle in pentola sia fattibile..
Ciao buona serata

 

[Joe91]

Ciao Tom ...

Non ti curar di loro ma guarda e passa.

E' solo una "cosa tecnica".

Cartina di tornasole rilevatrice dell'attenzione ...

... che evidentemente è soggettiva, e varia da soggetto a soggetto.

A noi!

Lo script proposto al msg #47 eseguito per le cinquine alla data dell' 8 Marzo restituisce tra gli altri i 2 capilista:

04.18.24.62.83 Rit : 64

06.08.49.81.83 Rit : 81

Questo script certifica che a parità di parametri

tra il ritardo 64 ed il ritardo 81

c'è una cinquina che ha ritardo 78 ... non inclusa tra i risultati esposti.

 Option Explicit
Sub Main
Dim L , Nu,RU(1) 
RU(1)= 11
	L = "08.14.33.49.77"
	Nu = Split("0." & L,".")
	Scrivi StringaNumeri (Nu)
	Scrivi RitardoCombinazioneTurbo (RU,Nu,AMBO_)
	
End Sub

Che mi dite ?

 

[fillotto]

Ciao Tom ...

Non ti curar di loro ma guarda e passa.

E' solo una "cosa tecnica".

Cartina di tornasole rilevatrice dell'attenzione ...

... che evidentemente è soggettiva, e varia da soggetto a soggetto.

A noi!

Lo script proposto al msg #47 eseguito per le cinquine alla data dell' 8 Marzo restituisce tra gli altri i 2 capilista:

04.18.24.62.83 Rit : 64

06.08.49.81.83 Rit : 81

Questo script certifica che a parità di parametri

tra il ritardo 64 ed il ritardo 81

c'è una cinquina che ha ritardo 78 ... non inclusa tra i risultati esposti.

 Option Explicit
Sub Main
Dim L , Nu,RU(1)
RU(1)= 11
L = "08.14.33.49.77"
Nu = Split("0." & L,".")
Scrivi StringaNumeri (Nu)
Scrivi RitardoCombinazioneTurbo (RU,Nu,AMBO_)

End Sub

Che mi dite ?

Forite!!! mi riferisco allo script ,qualche riga di codice e...... ma come fai ?!?!

 

[i legend]

Ciao a tutti


Joe ho scritto la sintesi ma al momento non riesco
A postarla. Tento finché ci riesco.
A dopo

 

[Joe91]

Ciao Ilegend, Filotto & Co.

Per Tom ... riporto la piccola sintesi di quanto m'ero permesso di suggerire alternativamente ad una lunghetta:


Cordiali saluti.

 

[Joe91]

Filotto ... il collezionista.

Molti anni fa (nel1982 circa) esistevano calcolatrici programmabili e computer con pochissima "memoria".

Negli Usa pubblicavano una rivista (più un foglio in verità) .. in cui vi era una selezione di "script" (erano "list")

scelti tra quelli di chi .... "riusciva" a far stare un programma completo e possibilmnete utile e bello in 256 caratteri.

La genialità umana, come vedi, non ha confini ... ma collezionisti.

 

[i legend]

Joè credo che quello che mi era venuto in mente sia quello che già fa lo script, non ne sono sicuro perchè oltre ad essere veloce per me è anche complicato.In pratica mi sono accorto di aver scoperto l acqua calda.
Sorry.

 

[Beppignello]

elaborazione di tutte le quartine integrali, circa 23 minuti con lo script, svil. 2.555.190 quartine
08 14 49 60 RaA 113

possibile ridurre ulteriormente il tempo d'impiego.

l'altro script postato, presenta uno sviluppo ridotto e non integrale.

 

[i legend]

Ciao beppignello , potresti dire che script hai utilizzato e i tempi di impiego?
come pensi siano migliorabili? quale utilizza uno sviluppo ridotto e non integrale?
ciao e grazie

 

[lotto_tom75]

Ciao a tutti joe, legend, beppignello, magia e filotto . Per legend e joe amanti del pragmatismo estremo.. dico semplicemente... "ok" e "complimenti per l'A a tutte al 3° colpo joe" Per quanto riguarda le domande su come velocizzare l'elaborazione... fatte da filotto e legend una delle risposte potrebbe essere anche quella di compilare lo script. Togliendo l'interfaccia grafica del programma spaziometria infatti si acquistano minuti preziosi in termini di aumento di velocità dell'elaborazione. La mia domanda riguardo un cod per velocizzare lo script che ha giustamente riportato magia ma che ancora richiede tempi troppo lunghi per il calcolo in lunghette superiori a 10 elementi rimane tuttora "attiva".In particolare sarebbe strafigo per usare una parola oxfordiana.. realizzarne uno per rilevazione integrale in massimo 1 ora delle lunghette superiori o uguali a 10 elementi per T su TUTTE. Un saluto a tutti/e e Good Week End