Re: Costruttore metodi lotto (proviamo)

[papiriof]

Vediamo se posto bene quest'immagine........



Uploaded with ImageShack.us

Come fare per farla venire più grande?

[papiriof]

questto il codice fatto da Anthony47 e adattato per scovare gli ambi comuni nei 13 cicli di 9 estrazioni

Codice: Seleziona tutto

Sub speedc1()
Dim VArr
Dim I As Integer, J As Integer, M As Integer, N As Integer
'"M" è = da 1 a 90---- "N" è = a "M" + 1 ma sempre fino a 90 (sono i 2 elementi dell'ambo)
Dim Ctr As Integer, Ambi As Integer, LastR As Long
'
TargAm = [al1]
Range("AK4:AM1000").Clear 'pulisce l'intervallo dove si piazzeranno gli ambi trovati che abbiano le caratteristiche
'giuste cioè  siano usciti in un numero maggiore di quello indicato nella cella "AL1" TargAm = [AL1]
LastR = Cells(Rows.Count, 2).End(xlUp).Row
VArr = Range("J7:N" & LastR).Value ' " J7 " è la cella d'inizio " N "& LastR cioè 5 colonne fino all'ultima riga(variabile)
aaaa = UBound(VArr, 1)
For M = 1 To 90 ' "M" è il primo elemento dell'ambo
   ' Application.ScreenUpdating = False
    For N = M + 1 To 90 ' "N" è il secondo elemento dell'ambo
        Ambi = 0 'per adesso gli ambi sono ZERO
        For I = 1 To UBound(VArr, 1)
            Ctr = 0
            For J = 1 To 5
                If VArr(I, J) = M Then Ctr = Ctr + 1
                If VArr(I, J) = N Then Ctr = Ctr + 1
            Next J
            If Ctr = 2 Then Ambi = Ambi + 1
        Next I
        If Ambi > TargAm Then 'se "Ambi" è in un numero maggiore di quello indicato nella cella "AL1" TargAm = [AL1] Allora....
            NRow = Cells(Rows.Count, "AK").End(xlUp).Offset(1, 0).Row
            Cells(NRow, "AK") = M: Cells(NRow, "AL") = N: Cells(NRow, "AM") = Ambi
            End If
    Next N
   ' Application.ScreenUpdating = True
Next M
End Sub


[Flash30005]

Quindi?

[papiriof]

Quindi?

Adesso sto partendo tornerò questa sera spero di riuscire a postare il file di excel , per ora la ricerca della copertura dei 13 cicli è fatta in modo un po empirico per tentativi con l'aiuto della macro di Anthony47 è da perfezionare.

Mi dareste una mano? ...spiegherò meglio questa sera

[Flash30005]

Siamo qui

[papiriof]

Siamo qui

Tenteò di spiegare in che cosa consiste (con l'aiuto dell'imagine su posta) un costruttore di metodi:
Prendiamo una ruota a caso nel nostro caso (quello dell'immagine) FI estrazioni 117 dividiano queste 117 estraz x 9
otterremo 13 intervalli da 9 estrazion1
Il nostro scopo sarà quello di trovare quei numeri che per caratteristiche ( meno numeri possibile giacchè se per
paradosso giocassimo, con un gigantesco sistema, tutti e 90i numeri è evidente che faremo anche cinquina )
abbiano la presenza in tutti e 13 gruppi sotto forma di almeno un ambo.Certo detta così non troveremo mai un
ambo che si ripeta sempre nei 13 allora proveremo se con 3 numeri giocandoli per 9 estrazioni x ambo e cosi via
fino ad un numero tale che giocandoli avremo un utile.
La cosa non è tanto semplice come si crede anche con 8 numeri sulla sorte di almeno un ambo perchè spesso si trovano
delle super frequenze condensate tutte in pochi cicli e quindi inutibilizzabile dovremo pittosto trovare una sorta
di regolarità.
Tornando al nostro esempio i numeri in verde situati in K1 ed L1 in Q1 e R1 in V1 e W1 e in AA1 e AB1
rispettivamente 26-39-22-60-25-89-17-44 sono quei numeri chiamati nel gergo "ADATTAtORI"
Prendiamo il 1° e 2° degli adattatori 26 e 39 cosa fanno? come si sfruttano?
Notiamo nell'intervallo J5:L6 rispettivamente il num 37 , 1 , "RO" e 45 dove quel 45 rappresenta il primo
estratto della ruota di ROmA del 9/4/2011 ricavato con un cerca vert dall'archivio aggiornabile via Web
ora giocando i numeri risultanti dall'addizionifuori90 di 45(il primo estratto della ruota di ROmA)+il 1° adattatore
26 avremo come risultato 71 (questo sarebbe il numero reale quello che giocheremo x 9 volte a partire dall'estrazione
12/4/2011) analogamente al 2° adattatore(39) sempre con il 45 = 84
Giocheremo quindi(virtualmente) i num reali 71 e 84 su firenze dal 12/4/2011 al 30/4/2011 9 volte
successivamente ogni 9 estrazioni fermo restando gli adattatori sempre gli stessi: 26 e 39 e sempre il 1° di roma
che adesso però sarà 25 quindi per 9 estraz giocheremo 51 e 64 al 3° ciclo avremo i num da giocare 3 e 16 ottenuti
26+67=3 e 39+67=16 e qui avremo il primo dei risultati .
Con questo sistema notiamo che avremo coperto il ciclo 3 4 5 e 9 con la seconda coppia di adattatori copriamo
i cicli 2 7 e 12 ecc .
La cosa come si vede è un po laboriosa chiedo a flash se posso mandare a lui un MP per migliorare ed ottimizzare la cosa
e di mettere poi successivamente il file in bella copia

[Flash30005]

Ho letto con interesse per capire almeno il concetto e sinceramente, pensando di essermi distratto nella lettura, l'ho riletto più volte senza successo.
Ti posso dire che, pur avendo realizzato macro complesse inerenti giochi popolari a premi, io stesso ho acquistato programmi commerciali che fanno analisi di gran lunga superiori e inimmaginabili ad una velocità di gran lunga superiore a qualsiasi macro ottimizzata che esegua lo stesso tipo di analisi.

Ciò che chiedi non è una "semplice" informazione sull'utilizzo di una formula/codice/funzione e pertanto potrebbe essere considerata anche OT visto che questa sezione riguarda l'uso delle Apllicazioni Office per Windows e la realizzazione richiederebbe un dispendio di risorse, tempo ed energie, vane soprattutto perché, come detto prima, esistono programmi commerciali che fanno analisi migliori.

Ciao

[papiriof]

Grazie comunque Flash immaginavo una risposta di questo tenore, è vero in commercio c'è tanta roba,forse adesso mi capirete della risposta finale che a suo tempo diedi a Anthony47 di un mio precedente post su un aiuto per modificare una macro, quella macro mi ha portato a fare questo file un po elaborato rispetto alle mie intenzioni, lo so di più non posso chiedervi buona serata!!

[freetime78]

Ciao Papirof

ho letto questo tuo post


ma non vedo il link per scaricare il file.

Siccome mi piace tanto la tua ricerca potresti indicarmi come scaricarlo

ciao

P.s mi piace davvero tanto

[giorgioa]

Ciao Papirof

ho letto questo tuo post


ma non vedo il link per scaricare il file.

Siccome mi piace tanto la tua ricerca potresti indicarmi come scaricarlo

ciao

P.s mi piace davvero tanto

[giorgioa]

Salve
quando lancio questa macro mi fa presente che la variabile "PargAm" non è dichiarata.
Di questo programma vorrei utilizzarlo per il 1o e lotto.
Quali sono le modifiche da apportare e dell' archio quale è la sua posizione
ecc. ecc.
Si può fare?
Saluti e grazie

[vengio]

se non ho capito male l'utente che ha proposto il thread ha abbandonato, probabilmente per non far capire il programma in suo possesso. Ma visto lo screen per i progarammatori come come flash ed Anthony47 dovrebbe essere uno scherzo per riprodurre il file. Dato che a quanto si vede dalle richieste qualcuno è ormai interessato allo stesso non sarebbe possibile ad una sua ricostruzione. Se ho detto una stupidagine prego di non tenerne conto. Grazie.