I più frequenti

[giorgioa]

Salve Flash,
pare che tutto va bene anzi OK
Eventualmente ti faro sapere.
Ti posso dire una cosa? sei

[giorgioa]

Ora hai trova gli ambi più frequenti.
Di questi ambi più frequenti con riferimento ai primi 10 (+ o -)
notiamo ad esempio che un numero è presente 2, 3 volte e
mi spiego (questo è solo un esempio):
12-15= 17 volte frequente
15-30= 16 volte frequente
in questi 2 ambi si nota la presenza del 15 due volte e vado a formare la terna
12-15-17 che ritengo ottimale e da digitare per la ricerca.
Ora indicando solo questa terna si può fare un confronto con tutti gli altri
ambi e vedere quali sono quelli che con la terna si sono combinati,
tenendo presente che nel confronto la terna abbia almeno la presenza
di uno dei 3 numeri e che la coppia abbia almeno anch'essa una presenza.
Quindi una statistica così composta: t=terna(punti); a=ambo(punti); f=frequenza(punteggi ottenuti)
t a f
1 1 ?
1 2 ?
2 1 ?
2 2 ?
3 1 ?
3 2 ?
Si può fare?
Se si e c'è qualcosa di poco chiaro ...

[Flash30005]

Procediamo per gradi
Aggiungi un foglio alla cartella
Rinomina il foglio in "AnalisiA"
In un modulo inserisci questa macro

Codice: Seleziona tutto

Sub Analisi()
Set Ws1 = Worksheets("Ambi")
Set Ws2 = Worksheets("AnalisiA")
Ws2.Cells.ClearContents
For CC = 1 To 2
    For RR = 1 To 12
    Riga2 = Ws1.Cells(RR, CC).Value
    Ws2.Cells(Riga2, 1).Value = Riga2
    UC2 = Ws2.Cells(Riga2, 255).End(xlToLeft).Column + 1
    If CC = 1 Then
    Ws2.Cells(Riga2, UC2).Value = Ws1.Cells(RR, CC + 1).Value
    Else
    Ws2.Cells(Riga2, UC2).Value = Ws1.Cells(RR, CC - 1).Value
    End If
    Next RR
Next CC
End Sub

Avvia la macro

Avrai nel foglio AnalisiA
le combinazioni dei primi 12 ambi del foglio "Ambi"
Nella colonna A c'è il "Capogioco"
(il numero che si è combinato con gli altri, a tal porposito colora il fondo di verde da A1 a A90)
Come potrai notare alcuni "capogiochi" hanno anche 5 combinazioni

Cosa dovrei fare?
Alllego il file sul quale ho apportato anche altre modifiche che a richiesta ti spiegherò
Ciao

[giorgioa]

Salve Flash,
ho appena scaricato il file ANALISI
e per esempio non ho capito i numeri del foglio AMBI
di colonna D - F - G;
NB si dovrebbero creare bollette di 5 o 6 numeri (questa è la premessa)
quindi quando troviamo un numero presente in 2 o 3 ambi tra i più frequenti
il numero più presente diventa capogioco(OK) che con gli altri 2 o 3 formano la terna o quaterna(OK);
questa terna o quaterna si deve confontare con altri 2 numeri e vedere statisticamente
quali sono quei 2 che con la terna o quaterna otteniamo ALMENO un punteggio utile (con 2 numeri su 5
si recupera la spesa mentre con 3 su 6 si prende la spesa + 1 giocata), quindi con le relative frequenze
dei punteggi conseguiti.

Sto utilizzando il file scaricato perchè le macro che ho copiato non mi danno lo stesso risultato del file.
Ma va bene lo stesso.
Spero di essere stato chiaro ma andiamo avanti.
Ti saluto

[Flash30005]

Spiego subito la funzione delle colonne F e G
F è la copia della colonna E prima di effettuare l'aggiornamento
quindi E cambia dopo l'aggiornamento e queste variazioni le potrai notare sia dal valore 1 della colonna G
sia vedendo in corrispondenza di queste righe (con 1 in G) la variazione subita tra E e F
(esempio che, un ambo, da 8 frequenze è passato a 9)

La colonna D dà un'ordine iniziale da 1 a 4005 degli ambi per mostrare a distanza di più estrazioni la salita o la "discesa" di una coppia rispetto ad un'altra.
Quest'ordine andrebbe fatto però a metà mattinata e non alla prima estrazione delle ore 5:00
Se si ritiene una cosa sensata posso vincolare quest'ordinamento, ad esempio, dopo le ore 10 (ho il dato in J2).

Inoltre ho inserito la colonna N che fornisce l'indicazione, tramite formula dello sfaldamento di ogni numero da 1 a 90 con tutti gli altri numeri (89 è il massimo delle combinazioni di ogni numero)
quindi se in N ho 86 significa che quel numero ancora deve combinarsi con altri 3 numeri.
Non vorrei sbagliarmi ma nell'arco di un'intera giornata di estrazioni tutti i numeri hanno 89
quindi alle ore 22, se esiste qualche numero che non ha 89 val la pena giocare la coppia mancante che troverai in fondo al foglio con frequenza 0 (ovvero cella vuota)

Ciao

P.s. non ho ben capito cosa dovrei fare con i numeri riportati nel foglio AnalisiA

[giorgioa]

della colonna D se la condizione non è vincolante può andare
Per quanto riguarda lo sfaldamento non devi terne conto invece proprio
con l'alternanza dell'uscita di quei numeri occorre tenerne conto:
Questo è il gioco del momento e beccare proprio l'uscita momentanea
(parlo di una decina di estrazioni consecutive) di quei numeri.
Poi perchè chiedo che questa terna o quaterna ha bisogno di
almeno altri 2 numeri, se vai a guardare per esempio nella quaterna
l'uscita contemporanei dei numeri avviene di 2 casi rari di 3 numeri,
ecco perchè occorrono almeno altri 2 numeri diversi dai 4 con capogioco.
Non ho capito a cosa fare dei numeri cioè di che cosa ti ho accennato.

[Flash30005]

Mi occorre un esempio pratico
Fai così:
Quando hai un'analisi valida non aggiornare più il file
mi invii il foglio analisi o il file stesso spiegandomi quali sono i numeri (terne, quaterne, terne + ambo, quaterne + ambo etc) da ricercare, credo, nell'archivio (?)
e una volta trovati, eventualmente, cosa vorresti tirare fuori

Solo congelando i dati possiamo realizzare qualcosa perché se tu aggiorni e io no o viceversa, abbiamo dati diversi
quindi invia le istruzioni su e con i dati effettivi

Ciao

[giorgioa]

Apri il file che mi hai fatto scaricare aggiornato alle ore 10.35 di oggi.
Foglio Ambi,
di colonna A & B prendo i numeri di rigo 1 - 3 - 4
ambi considerati: 23-25; 23-34; 23 54 ottengo la quaterna
23-25-34-54

poi di rigo 3 - 5 - 8
ambi considerati: 34-23; 34- 54; 34-7 ottengo l'altra quaterna
34-23-54-7

poi di rigo 4 e 5
un terno 54-23; 54-34
54-23-34

poi di rigo 7-8-9
7-30; 7-34; 7-44
7-30-34-44
Praticamente ho considerato fino a rigo 9, oltre non credo che convenga).
Di queste formazioni i numeri che vanno a confrontarsi con l'archivio per trovare altri 2 numeri
che hanno dato maggiore frequenza.
La frequenza deve dare quante volte ha conseguito 3 oppure 4 oppure 5 punti(quante volte).
Questi dati devono essere conservati a parte per poterli confrontare con le altre.
Torno alla 1^ quaterna 23-25-34-54 con gli altri 2 numeri trovati(es.70 -80) formeranno la
bolletta 23-25-34-54 e 70-80.
Delle quattro con abbinati i 2 numeri ottenuti (più frequenti) si farà un confronto con le altre
ecco perchè i dati ottenuti a ogni ricerca devono essere conservati in un quadretto.
Quando mi riscrivi dimmi come si fa ad inviare un allegato.

[Flash30005]

Una domanda al volo
devo sempre prendere in considerazione e raggruppare sempre così le righe
1-3-4
poi
3-5-8
e poi
4-5
e poi
7-8-9
Oppure c'è un'altra logica da seguire?

Come mai hai saltato la riga 2 (ambo 12-82) che se aggiorni ad ora ha dato il massimo delle frequenze ?


P.s. Per allegare segui questa procedura: http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395

[giorgioa]

Assolutamente no
se noti in ogni ambo c'è un numero presente più volte
ad esempio 7-8-9
in ogni ambo è sempre presente il 7
+ i numeri che formano l'ambo col sette.
Su 12.82 è vero ma qui non si possono giocare tutte le combinazioni
l'obiettivo è quello di prendere il 5 su 5 numeri ma anche il 5 su 6 numeri che
pagherebbe sempre 100 euro.
Il mio modo di giocare è che valutata la giocata da fare la gioco per 6-7 giocate consecutive
e vado via.
Rimabnere nella sala da gioco è una tentazione che il più delle volte ti lascia a bocca asciutta
cioè senza moneta.
Mi sono fermato a considerare le prime 9 righe perchè le frequenze sono state messe
in ordine ascendente quindi non vado a scegliere diversamente.
E' questo un modo di ridurre il campo delle giocate, almeno secondo il mio punto di vista.
Ti saluto

[Flash30005]

Penso di aver capito!
Quei terni e quaterne li ho già in AnalisiA
ho:
7-30-34-44
23-25-34-54
34-54-23-7-18
54-23-34
Ora dovrei cercare se la qauterna 7-30-34-44 si è presentata nel foglio archivio, se sì, rimangono 16 numeri da scansionare in combinazione di ambi (120 ambi) e controllare le loro frequenze
se non si è presentata la quaterna cercare di scombinare i 4 numeri in 4 terni
7-30-34
7-30-44
7-34-44
30-34-44
per ogni terno verificare se si è presentato nell'archivio e, se sì, verificare nei 17 numeri dell'estrazione i 136 ambi
per ogni terno da controllare. quindi 136*4 = 544
Finito questo
passare alla seconda quaterna
23-25-34-54
stesso discorso dell'operazione precedente....
Ora abbiamo una cinquina da sola sviluppa con i rimanenti numeri dell'estrazione 105 ambi (15*14/2)
ma si può scomporre anche in 5 quaterne e 20 terni
per ogni combinazione scovare gli ambi ....
etc etc
tutto questo tra un'estrazione e l'altra, ovvero entro 5 minuti

Ho capito bene? O sto sbagliando qualcosa?

Ciao

P.s. mi spieghi perché hai preso, come esempio, l'ambo 70-80 da aggiungere ai 3 numeri visto che era uscito una volta sola quando altri ambi hanno avuto frequenze maggiori?

[giorgioa]

Ho preso 70-80 in modo casuale perchè dovevo cercare le frequenze quini mi è venuto così
anche perchè non è detto che prendendo combinazioni frequenti con un'altra combinazione frequente
fra essi si combinano cioè c'è frequenza.

Per quanto riguarda le quaterne ma vale anche per i terni perchè le scomponi?
tutta la quaterna deve ricercare nell'archivio gli altri 2 numeri che durante la giornata e cioè fino a quel
momento si sono maggiormente frequentati. Tutto qui

Secondo me sei partito bene (foglio analisi) nella colonna verde il numero che con gli altri è sempre
presente in forma di ambo, quindi hai creato la quaterna, questa quaterna va a controllare l'archivio
e trova quali altri due numeri che si sono frequentati.
tutto qui ora non so i tempi che ci vorrano per l'elaborazione.
Fatti sentire se ancora non mi sono spiegato

[Flash30005]

Prima di cominciare a realizzare qualcosa è bene chiarire anche perché, in questo caso vedo molto complesso il lavoro con notevole perdita di tempo e ti spiego il perché
La quaterna 7-30 34-44 è composta da 2 ambi che si sono verificati ma non per questo i 4 numeri li puoi trovare nella stessa estrazione quindi se si effettua una ricerca dei 4 numeri potresti, anzi sicuramente, non la troverai nell'archivio (proprio per questo motivo scomponevo in 4 terni: più facili da trovare).
In ogni caso trovati i 4 numeri in una estrazione significa memorizzare 120 ambi che avranno frequenza 1
1) dove li memorizzo (e dove memorizzerò gli altri)?
2) cosa ci fai con ambi che hanno frequenza 1, pensi che escano di nuovo con gli stessi 4 numeri presi in considerazione nelle successive estrazioni?

Quello che vorrei che tu facessi è proprio questo (appurato che ora hai uno strumento molto più di niente): trovare/provare praticamente che ciò che stai cercando di spiegare sia una cosa che si verifica nella realtà, perché, come dicevo, qui sopra, perdere inutilmente tempo è la cosa peggiore che mi si possa chiedere

Secondo me sarebbe già un successo centrare la giocata con 3 numeri che ti permette una vincita di 50 volte la posta
ma qui stiamo andando OT, per rimanere all'interno della discussione e della sezione di office dovresti specificare dove hai i dati inizio (input) e dove vuoi avere l'output

Ciao

[giorgioa]

Ho immaginato che ci saranno delle difficoltà per la compilazione del programma.
Ti volevo fare una domanda:
se per effettuare la ricerca di un solo terno specifico (cioè da digitare)quanto ci vuole ?
Nel terno non deve trovare solo il punteggio pieno cioè 3 punti su 3 ma deve tenere conto
anche dei due punti su 3 numeri quindi deve trovare un'altra coppia di numeri quindi diventano
5 numeri dove si deve tenere conto della frequenza minima di 3 punti.
se puoi rispondermi.

[Flash30005]

Il tempo non è importante per scansionare i tre numeri su n estrazioni ma come distribuire gli ambi e assegnare loro le frequenze nel caso in cui si verifichino di nuovo la combinazione dei 3 numeri.

Nel caso di un solo terno si potrebbe pensare a creare un altro foglio con i 4005 ambi e segnare le frequenze come quelle del foglio attuale "Ambi"
non saprei, altrimenti

[giorgioa]

Sull'archivio abbino delle formule del tipo conta.se però mi succede quando si effettua l'aggiornamento
nella formula si crea il castelletto cosa fare per evitare questo?

[Flash30005]

Ok
Allora aggiungi un nuovo foglio che chiamerai "AbbTA"
Da O2 a Q11, in orizzontale potrai inserire 10 terni
con numeri crescenti da sinistra verso destra
Nelle colonne A1:B8010 dovranno essere inserite tutte le combinazioni tra due numeri da 1 a 90
che puoi ottenere con questa macro

Codice: Seleziona tutto

Sub CreaAmbiS()
Riga = 0
For A1 = 1 To 89
For A2 = 1 To 90
Riga = Riga + 1
Cells(Riga, 1).Value = A1
Cells(Riga, 2).Value = A2
Next A2
Next A1
End Sub

In R2 inserisci questa formula

Codice: Seleziona tutto

=MAX(E1:E8010)

In R3 stessa formula ma riferita alla colonna F
Fino ad arrivare a R11 che calcolerà il valore massimo della colonna N
poi in S2 scrivi "E"
S3 = "F"
S4 = "G"
etc fino a S11 = "N"

Nel Vba del foglio inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "S2:S11"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Col = Target
    Call OrdinaFreqA
    End If
End Sub

E rendi pubbblica la variabile Col (con "Public Col as integer" in cima al modulo)
e in un modulo queste macro

Codice: Seleziona tutto

Sub TrovaTA()
[T1] = Int(Timer)
Set Ws1 = Sheets("Archivio")
Set Ws2 = Sheets("AbbTA")
Application.EnableEvents = False
Ws2.Range("U1:V1").ClearContents
OrdinaAA
Ws2.Columns("E:N").ClearContents
Application.Calculation = xlManual
Application.ScreenUpdating = False
UR1 = Ws1.Range("C" & Rows.Count).End(xlUp).Row + 1
UR2 = Ws2.Range("O" & Rows.Count).End(xlUp).Row
For RR2 = 2 To UR2
    NT1 = Ws2.Range("O" & RR2).Value
    NT2 = Ws2.Range("P" & RR2).Value
    NT3 = Ws2.Range("Q" & RR2).Value
        With Ws1.Range("C2:V" & UR1)
            Set C = .Find(NT1, LookIn:=xlValues, LookAt:=xlWhole)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    RC1 = C.Row
                    CC1 = C.Column
                    Call ConfrT
                    Do
                        Set C = .FindNext(C)
                        If firstAddress = C.Address Then Exit Do
                        RC1 = C.Row
                        CC1 = C.Column
                    Call ConfrT
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
Next RR2
[U1] = Int(Timer)
[V1] = [U1] - [T1]
OrdinaFreqA
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Sub ConfrT()
UC = 21
    For CC2 = CC1 + 1 To UC
    If NT2 = Ws1.Cells(RC1, CC2).Value Then
            For CC3 = CC2 + 1 To 22
                If NT3 = Ws1.Cells(RC1, CC3).Value Then
                        For CCA = 3 To 21
                        AA1 = Ws1.Cells(RC1, CCA).Value
                         If AA1 = NT1 Or AA1 = NT2 Or AA1 = NT3 Then GoTo SaltaCCA
                            For CCB = CCA + 1 To 22
                            AA2 = Ws1.Cells(RC1, CCB).Value
                            If AA2 = NT1 Or AA2 = NT2 Or AA2 = NT3 Then GoTo SaltaCCB
                                   RA = (AA1 - 1) * 90 + AA2
                                    Ws2.Cells(RA, RR2 + 3).Value = Ws2.Cells(RA, RR2 + 3).Value + 1
SaltaCCB:
                            Next CCB
SaltaCCA:
                        Next CCA
                End If
            Next CC3
    End If
    Next CC2
End Sub
Sub OrdinaFreqA()
If Col = "" Then Col = "E"
    Columns("A:N").Sort Key1:=Range(Col & "1"), Order1:=xlDescending, Key2:=Range("A1") _
        , Order2:=xlAscending, Key3:=Range("B1"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub
Sub OrdinaAA()
    Columns("A:N").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub

Con un comando avvia la macro "TrovaTA"

Fammi sapere se tutto ok

ciao

[giorgioa]

I conta se li ho messi nel foglio AbbTa
da colonna Z a colonna AE
al rigo 1 indico i numeri che ho ricavato cioè i 3 del terno + 2 degli ambi(ho aggiunto 1 in più,6 conta.se, può capitare
che i 2 ambi in frequena abbiano in comune oltre la frequenza anche un numero ad es. 7-9 e 7-10 allora possono
diventare 2 o 3 + 3 dei dei terni;
cioè conta.se(Archivio!$c2:$v2;abbta!z$1 ecc
a seguire in colonna AF il conta.se dei segni 1 riga per riga da Z ad AE
in AF1 la quantita di colonna AF4:AF228 dei segni 2, 3, 4, 5, 6 che indico in AG1
cioè in AG scrivo 4 che AF1 conta quanti ce ne sono in colonna AF4:AF228
il conteggio avviene dal rigo 4 di AbbTa ;

nelle colonne AH e fino ad AL sempre di rigo 4 i ritardi o frequenze che si verificano durante le estrazioni
della colonna AF cioè 2 numeri escono ogni... ; 3 numeri escono ogni... ecc. segnalare che il ritardo di 2 numeri
è di...
Scasami ma nelle formule ci nuoto
sperando sempre nella chiarezza
Ciao

[giorgioa]

Nel nuovo appena aperto del foglio AbbTa ho visto che le colonne per i conta.se
sono occupate, puoi spostarli a seguire (i conta.se e altro).

[giorgioa]

Ciao Flash ora ti è più chiaro?
Aspetto tue notizie