Help Me per chi vuole...

[joe]

Questi casi , secondo il mio metodo, vanno eliminati e la ricerca andrebbe effettuata nelle successive estrazioni, sino al raggiungimento di una condizione favorevole.

E' chiaro che la componente cabalistica è molto presente nella definizione del metodo.

Tuttavia pur avendo strutturato il mio elaborato per renderlo "versatile" (nel limite di quanto mi è possibile),

al momento non ho ancora trovato una soluzione, che mi soddisfi.

O che sia anche semplicemente adatta.

Per riferimento, escludendo i Gemelli, Vertibili Zerati

nelle ultime 200 estrazioni i casi residui al filtraggio severo mi risultano questi:


30.03.2021 14.13.62.69.43 FI 14.43
30.03.2021 21.66.55.68.14 GE 21.14
29.04.2021 28.89.10.09.86 RO 28.86
29.05.2021 73.54.86.52.35 TO 73.35
29.05.2021 85.10.81.54.53 VE 85.53
31.07.2021 73.10.19.26.34 BA 73.34
31.08.2021 47.32.74.19.73 TO 47.73
30.09.2021 38.26.10.23.87 CA 38.87
30.11.2021 26.65.59.14.63 MI 26.63
29.01.2022 14.15.24.77.45 MI 14.45
26.02.2022 87.47.69.31.79 BA 87.79
31.03.2022 68.80.31.56.87 GE 68.87
31.05.2022 56.01.76.08.64 TO 56.64
30.06.2022 31.49.01.06.12 MI 31.12

 

[Mike58]

Forse mi sono perso qualcosa.
Le condizioni di ricerca non erano queste sottostanti in formato script

a = Estratto(es,r,1)
b = Estratto(es,r,5)
If Cadenza(a) = Decina(b) Then ' i numeri centrali sono uguali
If Not Gemello(a) And Not Gemello(b) Then ' a-b non sono gemelli
If Cadenza(a) <> 9 And Cadenza(b) <> 9 Then ' a e b non sono di cadenza 9
If a > 9 And b > 9 Then ' a e b non sono numeretti

le mie risultanze

1 30.03.2021 FI 14.13.62.69.43 14.43
2 30.03.2021 GE 21.66.55.68.14 21.14
3 29.04.2021 RO 28.89.10.09.86 28.86
4 29.05.2021 TO 73.54.86.52.35 73.35
5 29.05.2021 VE 85.10.81.54.53 85.53
6 31.07.2021 BA 73.10.19.26.34 73.34
7 31.08.2021 TO 47.32.74.19.73 47.73
8 30.09.2021 CA 38.26.10.23.87 38.87
9 30.11.2021 MI 26.65.59.14.63 26.63
10 29.01.2022 MI 14.15.24.77.45 14.45
11 29.01.2022 TO 71.42.41.57.17 71.17
12 31.03.2022 GE 68.80.31.56.87 68.87
13 31.05.2022 TO 56.01.76.08.64 56.64
14 30.06.2022 MI 31.49.01.06.12 31.12

 

[joe]

Ciao Mike.

Diciamo che io li ho calcolati diversamente,

ma se sono uguali sono uguali.

Io li lascerei pure così.

Poco meno di 1 caso al mese.

Se ho inteso bene la richiesta sarebbe:

Quando all'ultima del mese non c'è nessun caso giocabile,

si prova a cercarlo nelle estrazioni a a seguire.

Questa condizione non è facile da inserire perché

il computer non ha tutti i neuroni che abbiamo noi.

Quindi si tratterebbe di fargli evitare sovrapposizioni, sconfinamenti nel mese successivo, oltre il limite dell' archivio...

Dunque trovare una soluzione che non rallenti

o complichi troppo lo script non è facile.

 

[Mike58]

Ciao Joe e toon e tutti, una buona domenica.

Ho scritto quello in quanto la conzidizione del tuo precedente script diceva di escludere la ricerce degli zerati, invece toon diceve cadenza 9 e numeretti, poi sarebbe opportuna ecsludere numero e vertibile in quando trovato 71-17 poi nei numeri calcolati ripete i numeri.

Poi se ad una estrazione ultima del mese non trova la condizione secondo me è inutile cercarla l'estrazione sucessiva, in quanto come dici è complicato impostarla.

Anche se questa essendo una sfida scriptica ( che a volte ci piacciono ) si potrebbe impostare con la condizione
If contatore estrazioni trovate = 0 then Es = (codice) PrimaSuccessiva(es).

Sto andando a mente libera , magari la provo in script.

Un saluto a tutti.

 

[Sakti]

Mike, come avevo già ribadito sei una Mente eccelsa....

If contatore estrazioni trovate = 0 then Es = (codice) PrimaSuccessiva(es).

ma cosa devo aggiungere ?

 

[Mike58]

Grazie Toon, cerchiamo visto l'età che avanza di tenerci allenati.
Come ho sempre detto gli script sono palestra per la mente.

Circa la condizione ancora neanche io sono riuscito ad impostarla ( mi soffermo anche poco a ragionarci )
la descrizione era solo un modus per operare, ma poi va ben codificata.

Palla scriptica lanciata , vediamo se con l'aiuto di qualche scripter volenteroso ci arriviamo.

Ciao

 

[joe]

Ho scritto per prova una soluzione al problema in forma di Test

Cerca all' "ultima del mese" a Bari il primo suo estratto.

Cioè un estratto che sia "PARI".

Se c'è va bene e considerare giusta l' ultima estrazione del mese.

Altrimenti cerca nelle estrazioni del mese successivo finché il primo estratto di Bari sia un numero Pari.



In sintesi In NERO ci sono gli estratti PARI DI BARI all'ultima del mese ... o nella prima estrazione successiva disponibile.

In rosso le estrazioni NON VALIDE (da saltare) a partire dall'ultima del mese.

 

[Sakti]

Joe.... certo che neppure tu scherzi come luminare in script, già solo lo quello di prova è interessante.
Se hai risolto inseriscilo nel metodo, così vediamo se funziona .

 

[joe]

Vi ringrazio.

Questo è il piccolo script.

L'ho già, semplificato dopo averne controllato l'output.

Così è più facile ricavarne la struttura ed i suoi risultati sono ridotti all'essenziale.

Option Explicit
Sub Main
'Primo Estratto Pari "All'ultima del mese" -O- Nella prima estrazione utile successiva. V.Test By Joe 
   Dim Ini,Fin,Es,E,R,P,S
   R = 1 : P = 1
   Ini = EstrazioneFin - 200
   Fin = EstrazioneFin
   For Es = Ini To Fin 
      If IsUltimaDelMese(Es) Or S = True Then
      E= Estratto(Es,R,P)
         If pari(E) Then
            Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & E
            S = False
         Else
            S = True
         End If
      End If
   Next
End Sub

 

[Mike58]

Ciao Joe , a beneficio di chi vuol capire e mettere da parte ( anche per me ), ci spieghi il ragionamento algoritmico che hai usato e fatto.
Io vedo una variabile S vero o falso ma non mi è chiaro come possa funzionare ed essere funzionale allo scopo.
Soprattutto se non trova la condizione non capisco come va a prendere estraz. successiva e far fare i calcoli.

Grazie

 

[Sakti]

Ma la variabile importante, non è la "(E)" ?
Che però non saprei come tradurre nel metodo iniziale..
Nel caso mi sbagli perdonate l'ignoranza..

 

[joe]

Ciao Joe , a beneficio di chi vuol capire e mettere da parte ( anche per me ), ci spieghi il ragionamento algoritmico che hai usato e fatto.
Io vedo una variabile S vero o falso ma non mi è chiaro come possa funzionare ed essere funzionale allo scopo.
Soprattutto se non trova la condizione non capisco come va a prendere estraz. successiva e far fare i calcoli.

Grazie

Ciao Mike,

Non ho studi e non sono insegnante.

Inoltre e purtroppo non so sviluppare i diagrammi di flusso, dunque non mi è facile spiegare ... come.

Parafrasando il Vasco i miei script

Nascono da soli ... "Vengono fuori già con le parole."

Dunque mi perdonerai se mi spiego così:

L' ultima del mese è "un impulso di trigger" scelto dall'utente per attivare la ricerca.

In questo preciso istante si verifica, se ci sono le altre condizioni necessarie per formare un pronostico.

SE SI ... lo si formula e si stabilisce di non cercare oltre. "S = False"

SE NO occorrerà cercare nelle Estrazioni "Successive". "Else S = True"

Si abilità dunque questa ricerca (ulteriore) con un flag (cioè con la bandierina) "S = True"

Dunque il primo If dipende(va) SIA da IsUltimaDelMese che da S(uccesiva) perché è una condizione OR (una o l'altra).

Successiva è True ... e rimane True fintanto che non viene formulato un pronostico ...

Se c'è il pronostico ... "S = False" rimane tale per tutte le altre estrazioni "fintanto che" non viene di nuovo,

Cambiato di stato dopo un nuovo impulso presente alla fine del mese, senza che per esso ci sia un pronostico valido.

 

[Mike58]

Joe, hai trovato una soluzione magistrale, la spiegazione penso di averla compresa, non era semplice, ma è funzionale e performante.
Bravo !!!

Messo in script funge...

Sub Main
   Dim Nu(2),aN(5),aNumGioco(6),Ru(1),posta(3),S
   posta(2) = 1.5
   posta(3) = .5
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Metodo toon",1,,,1,3,,1
   For es = Ini To fin
      If IsUltimaDelMese(es) Or S = True Then
         For r = 1 To 10
            For p = 1 To 5
               aN(p) = Estratto(es,r,p)
            Next
            If Not Gemello(aN(1)) And Not Gemello(aN(5)) Then
               If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                  If aN(1) > 9 And aN(5) > 9 Then
                     If Cadenza(aN(1)) = Decina(aN(5)) Then ' condizione vera
                        ' If Cadenza(aN(1)) <> Decina(aN(5)) Then ' condizione falsa
                        If Decina(aN(1)) <> Cadenza(aN(5)) Then
                        k = k + 1
                        Nu(1) = aN(1)
                        Nu(2) = aN(5)
                        Ru(1) = r
                        '--------- Numeri in Gioco ----------------
                        aNumGioco(1) = Nu(1)
                        aNumGioco(2) = Nu(2)
                        aNumGioco(3) = Vert(Nu(1))
                        aNumGioco(4) = Vert(Nu(2))
                        aNumGioco(5) = Decina(Nu(1)) & Cadenza(Nu(2))
                        aNumGioco(6) = Vert(aNumGioco(5))
                        '------------------------------------------
                        For x = 1 To 6
                        If Not Gemello(aNumGioco(x)) Then
                        End If
                        Next
                        Call VerificaEsitoTurbo(aNumGioco,Ru,es + 1,2,13,,esito,clp,estr,id)
                        '------------------------------------------------------------------------
                        ImpostaGiocata 1,aNumGioco,Ru,posta,13,2
                        Gioca es,,,,,False
                        Scrivi FormatSpace(k,2)  & " - Ind.Mens " & FormatSpace(IndiceMensile(es),2) & vbTab & DataEstrazione(es) &_
                         vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu) & _
                        vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1) & _
                        vbTab & "Clp " & clp & vbTab & estr & vbTab & GetInfoEstrazione(id)
                        S = False
                        Else
                        S = True
                    
                     End If
                     End If
                  End If
               End If
            End If
         Next
         k = 0
         Scrivi String(165,"=")
      End If
   Next
   ColoreTesto(1)
   ScriviResoconto
   ColoreTesto(0)
End Sub

 

[joe]

Ciao Mike,

Ti ringrazio.

E' una soluzione, ma la complicazione del metodo fa si che ci possano essere ANCHE molte altre soluzioni differenti.

Personalmente penso, con specifico riferimento all'ultima del mese (che spesso neppure lo è perché spostata al mese successivo)

che in essa ci sia "poco peso" per addivenire ad un "valore" pur statistico che sia.

Poi, anche mescolare i risultati di tutte le ruote usandole assieme, non rende facile, selezionarne come preferibili alcune tra esse.

Ma ... le istruzioni, vanno seguite e codificate per quelle che sono.

Aggiungo solo che "Else" potrebbe essere allo stesso livello di indentazione dell' If (cioè del test condizionale con cui si inizia e si termina con End If ).

Ma ... si diceva che il pronostico può essere formato in più condizioni differenti contemporaneamente.

Uscire ANCHE al primo pronostico (anziché all'ultimo) può essere una soluzione che potrebbe essere (ANCHE) più valida.

 

[joe]

Mike, ripensavo a quello che avevi scritto ed effettivamente probabilmente è più giusto contare tutti i pronostici e continuare solo se nessuno dei 10-11 è presente.

Perché diversamente anche se sembra funzionare e non si vedono c'è la possibilità che si intrufolino pronostici che non dovrebbero esserci.

 

[Mike58]

Ciao Joe, rivedendo anche io lo script e analizzandone le risultanze, riscontro anomalia, sul mese di feb 2022.
Non trovando la condizione, mi va a prendere la prima o successiva estrazione ma riferita al mese di feb 2022 e non marzo 2022.

Mi sà anche a me che dobbiamo rivedere l'algoritmo, certo il mio suggerimento sembra giusto ma metterlo in codice per il momento io faccio fatica.

Pensiamoci su.

 

[joe]

Buon giorno a tutte/i.

Con le modifiche che ho immaginato i risultati, mi sembrano maggiormente aderenti alle richieste fatte.

In sintesi ho sostituito un test binario "0-1" incentrato sulla variabile "S" con uno di tipo analogico.

Cioè con un contatore dei casi presenti da cui far discendere questi risultati:

 

[joe]

Mike, scusa se non ho risposto nel merito,

ma avendo già inserito un messaggio che poi non sarebbe correggibile e che era ... illeggibile ...

Leggendo invece assieme l'immagime adesso presente penso si sia dato un buon passo avanti

nella correzione degli errori ancora presenti.

In essa il l 29/06 si vede che non c'è pronostico come nelle successive estrazioni fino al 10/07.

Dunque il primo pronostico successivo è presente all' "indice mensile 6" del mese di Luglio.

Quello del 30 Ottobre slitta al 2 Novembre e così via.

Ti chiedo nuovamente scusa perché scrivo a te che sicuramente sai leggere autonomamente.

Ma la lettura di debug ... non è semplice per chi segue o a seguito più distrattamente.

 

[Mike58]

Tranquillo joe, tutto chiaro nell'immagine che hai postato, anzi è molto ntuitiva e allo stesso tempo esplicativa.
Si !!! questa mi sembra l'algoritmo più corretto in termini di risultanze.
Quando puoi ri-spiegaci il modus operandi che hai utilizzato per il beneficio di chi vuol apprendere e capire.

Di nuovo un grazie con i complimenti dovuti.

Ciao

 

[joe]

La spiegazione è +/- la stessa.

Ci sono estrazioni (a fine mese) in cui si genera un pronostico

e quindi non è il caso di cercare nelle successive.

Altre estrazioni , in cui in nessuna delle 10 ruote si genera un pronostico.

In questo caso "la conta" dei pronostici rimane a zero ed occorre cercare nelle estrazioni successive.

Ogni estrazione successiva all'ultima del mese non è più l'ultima del mese,

ed il controllo di eventuali pronostici si attiva solo se si verifica la condizione Conta = "S" = Zero.

Rimane valida LA CONDIZIONE del test Or S = 0 e lo script cerca in quell'estrazione e/o nelle successive.

Lo script con le correzioni descritte (anche nei miei messaggi precedenti):

Option Explicit
Sub Main
'Metodo Toon Script per Spaziopmetria di Mike58 / Rev By Joe
   Dim Ini,Fin,Es,R,P,K,S,X
   Dim Nu(2),aN(5),aNumGioco(6),Ru(1),posta(3)
   Dim Esito,clp,estr,id
 
   posta(2) = 1.5
   posta(3) = .5
   Ini = EstrazioneFin - 200
   Fin = EstrazioneFin
 
   Scrivi "Metodo toon",1,,,1,3,,1
 
         S = 1 ' EVITA UN ENENTUALE CASO iniziale che non sia all' ultima_del_mese.
       
   For Es = Ini To Fin
      If IsUltimaDelMese(Es) Or S = 0 Then
         S = 0 'Azzeramento Flag/Contatore
         For R = 1 To 10
            For P = 1 To 5
               aN(P) = Estratto(Es,R,P)
            Next
            If Not Gemello(aN(1)) And Not Gemello(aN(5)) Then
               If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                  If aN(1) > 9 And aN(5) > 9 Then
                     If Cadenza(aN(1)) = Decina(aN(5)) Then ' condizione vera
                        ' If Cadenza(aN(1)) <> Decina(aN(5)) Then ' condizione falsa
                        If Decina(aN(1)) <> Cadenza(aN(5)) Then
                           K = K + 1
                           Nu(1) = aN(1)
                           Nu(2) = aN(5)
                           Ru(1) = R
                           '--------- Numeri in Gioco ----------------
                           aNumGioco(1) = Nu(1)
                           aNumGioco(2) = Nu(2)
                           aNumGioco(3) = Vert(Nu(1))
                           aNumGioco(4) = Vert(Nu(2))
                           aNumGioco(5) = Decina(Nu(1)) & Cadenza(Nu(2))
                           aNumGioco(6) = Vert(aNumGioco(5))
                           '------------------------------------------
                           For X = 1 To 6
                              If Not Gemello(aNumGioco(X)) Then
                              End If
                           Next
                           Call VerificaEsitoTurbo(aNumGioco,Ru,Es + 1,2,13,,Esito,clp,estr,id)
                           '------------------------------------------------------------------------
                           ImpostaGiocata 1,aNumGioco,Ru,posta,13,2
                           Gioca Es,,,,,False
                           Scrivi FormatSpace(K,2) & " - Ind.Mens " & FormatSpace(IndiceMensile(Es),2) & vbTab & DataEstrazione(Es) & _
                           vbTab & SiglaRuota(R) & vbTab & StringaNumeri(Nu) & _
                           vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1) & _
                           vbTab & "Clp " & clp & vbTab & estr & vbTab & GetInfoEstrazione(id)
                           S = S + 1 ' Contatore pronostici
                        End If
                     End If
                  End If
               End If
            End If
         Next
         K = 0
      End If
      If S = 0 Then Scrivi String (20,"-") & vbTab & DataEstrazione(Es)
   Next
   ColoreTesto(1)
   ScriviResoconto
   ColoreTesto(0)
End Sub