Pronostici

Hai un problema con Excel?

Nuova discussione

Pronostici
di Alasque data: 10/05/2013 09:23:36
Ciao a Tutti,

ho un archivio di estrazioni SuperEnalotto e vorrei elaborare un pronostico per un sistema a 7 numeri:

nel file che allego ho una cartella "Ricerca" che elenca tutti i parametri che la ricerca della settina dovrà rispettare tenendo conto che:
vorrei cercare sia tra tutte le combinazioni possibili che solo tra quelle mai sortite
Chi mi da una mano?
Grazie anticipate
di Alasque data: 12/05/2013 19:51:11
Ciao a tutti,

è possibile che non c'è nessuno che mi risponda?
di Vecchio Frac data: 13/05/2013 20:00:01
Una ricerca basata sulla forza bruta? cioè l'analisi delle combinazioni possibili?
Lo scenario è molto vasto :)
di HarryBosch data: 13/05/2013 20:44:43
La statistica è sempre stata uno dei miei campi preferiti ^_^
Concordo appieno con VecchioFrac, lo scenario è molto ampio e dal file caricato non vedo chiarimenti utili, almeno per il sottoscritto.
Dovresti spiegare come intendi utilizzare i parametri inseriti nel foglio "Ricerca" (tra l'altro sarebbe il caso di far calcolare anche in automatico questi valori, giusto?)

Tieni presente che "passare" tutte le combinazioni possibili diventerebbe arduo:
(90*89*88*87*86*85)/(6*5*4*3*2)=622.614.630
Eventualmente, dai parametri si ottiene una sestina (o settina) e si controlla se già uscita (non ci scommetterei ^_^)
di Alasque data: 13/05/2013 21:12:29
sapevo che avreste abboccato... la preda è troppo intrigante!

Passo al concetto:

gli interventi precedenti sono serviti per stabilire alcuni valori va valutare di volta in volta.

Come ben diceva HarryBosch, le combinazioni sono tante.
Quello che sarebbe opportuno sapere tramite macro è quella settina scelta tra le combinazioni mai sortite dalla macro dopo che ha rispettato i parametri presenti nella cartella "Ricerca". è chiaro che la macro potrebbe trovare anche più settine ma deve propormi la migliore ovvero quella composta dai più ritardatari
di totygno71 (utente non iscritto) data: 14/05/2013 10:44:38
cit"sapevo che avreste abboccato"

Li hai scambiati per 2 trote salmonate????
^_^
di Alasque data: 14/05/2013 11:00:29
il problema è che non sapevo proprio come sdrammatizzare la mia richiesta...
di HarryBosch data: 14/05/2013 13:05:56
Sinceramente non mi è ancora chiaro come utilizzare i vari parametri per la ricerca dei 6 numeri.
Puoi fare un esempio pratico su come ottenere una combinazione sulla base dei parametri inseriti nel file che avevi caricato?
di Alasque data: 14/05/2013 13:25:20
tra le 622.614.630 combinazioni (escluse quelle già sortite) nel caso della somma totale tra i 6 numeri in considerazione, il totale dovrà essere tra 275 e 280. cioè dovra' leggere i parametri che periodicamente gli do manualmente.

la varianza è il risultato della somma totale -273. infatti tante somme danno valore negativo

di HarryBosch data: 15/05/2013 22:57:20
Torniamo al "problema" che avvertivo all'inizio. Prendiamo soltanto il parametro della somma: la somma dei sei (o sette) numeri deve rientrare tra 275 e 280.
Per scoprire tutte le combinazioni che rientrano in questo intervallo, dobbiamo comunque scorrere tutte le 622.614.630 possibili, o poco meno con qualche accorgimento.
Soluzione poco praticabile.

Ti mostro un esempio pratico. Se provi la routine qua sotto su un nuovo foglio, ti crea tutti i possibili terni combinando i 90 numeri, e al termine ti mostra il tempo impiegato.
Sul mio pc ho una media di 21 secondi, per ricercare 117.480 combinazioni.
Lascio a te il calcolo successivo...

Sub combinazioni_terni()
    Dim Inizio, fine, TotTempo
    Dim i As Integer, ii As Integer, iii As Integer
    Dim r As Long, c As Long

    Application.ScreenUpdating = False
    Inizio = Timer

    For i = 1 To 90
        c = c + 1
        r = 0
        For ii = i + 1 To 90
            For iii = ii + 1 To 90
                r = r + 1
                Cells(r, c) = "'" & i & "-" & ii & "-" & iii
            Next
        Next
    Next

    Application.ScreenUpdating = True
    fine = Timer
    TotTempo = fine - Inizio
    
    MsgBox ("Tempo Impiegato:" & vbCrLf & _
            "Ore" & " = " & Int(TotTempo / 3600) & vbCrLf & _
            "Min" & " = " & Int((TotTempo - (Int(TotTempo / 3600) * 3600)) / 60) & vbCrLf & _
            "Sec" & " = " & Int(TotTempo) - Int(TotTempo / 60) * 60 & vbCrLf & _
            "1°°°" & " = " & Mid(TotTempo, Len(Int(TotTempo)) + 2, 3))

End Sub

di Alasque data: 16/05/2013 08:32:34
qualcosa mi dice che non è possibile farlo...
di totygno71 data: 16/05/2013 09:05:54
Qualcosa mi dice che si può fare... ma è un bel progetto corposo...
di Alasque data: 16/05/2013 09:12:13
Allora io confido
di Vecchio Frac data: 16/05/2013 11:37:41
Come ottimizzazione, si può provare ad evitare di scrivere nella cella ad ogni ciclo perchè fa perdere tempo.
Caricate i valori in una variabile in memoria.

E forse ci sono funzioni già incorporate per questi calcoli statistici (Combin, Permut, ...).
di Alasque data: 16/05/2013 11:41:42
a me non interessa la combinazione di numeri presenti nella settina. mi interessa solo la settina risultato della ricerca.
di HarryBosch data: 16/05/2013 13:05:44
Ha ragione VecchioFrac ovviamente. Tra gli accorgimenti che intendevo quando ravvisavo il tempo di esecuzione, rientrava anche quello di considerare soltanto le sestine/settine che rispettavano i parametri dati, evitando inutili scritture.
Fatto sta che, secondo me, la ricerca richiederà sempre il suo buon tempo perché le combinazioni sono veramente molte.

Appassionato di numeri e sistemi (più in passato... ora sono un pò arrugginito), non ho mai dedicato molto tempo a ricerche diverse da ambi e terni (per il lotto). Di solito cerco un buon compromesso nel rapporto probabilitàstatisticapremio; e al gioco del Superenalotto non ho mai applicato qualcosa, perché lo ritengo un gioco troppo "giovane" e troppo improbabile per trovare risultati apprezzabili.
Ovviamente questa è una mia personalissima, e contestabile, considerazione ^_^
Il mio gioco preferito rimane la roulette, e non quella online...

Nel frattempo, tempo permettendo, provo a studiare una qualche soluzione efficace.
Magari anche totygno sta pensando ad un progettino :)
di totygno71 data: 16/05/2013 18:45:01
@Harry

nun ce provà ^_^
di Alasque data: 21/05/2013 14:33:03
Ciao,

mi servirebbe sapere se qualcuno sta facendo qualcosa, non ho sentito più nulla

Grazie

Vuoi Approfondire?