Due x Due (Per scripter...)

[BaffoBlù]

Salve a Tutte/i

Da tanto che volevo fare uno script di un metodo per verificare
quali fossero le ruote (della condizione)
che assicuravano una percentuale di vincita più elevata entro certi colpi.

Ma non sono capace di rilevare i "4" Elementi della condizione
(me le vado a cercare tutte io...)

Per elaborare dobbiamo considerare per "DUE" volte consecutive
la prima e l'ultima estrazione del mese e del mese successivo di ogni ruota.

individuazione dei 4 elementi :

I 4 elementi della condizione in un ruota sono :

esempio reale :

Bari 31/10/2023 e 02/11/2023 (PRIMA volta prima e ultima estr.)

Il 3° estratto dell'ultima estrazione del mese 31/10/2023 - ( 1° elemento)
il 3° estratto della prima estrazione del mese 02/11/2023 - (2° elemento)

per prendere i 3 ° e il 4° elemento dobbiamo attendere la prossima
PRIMA estrazione del mese che segue :

Bari 30/11/2023 e 01/12/2023 (SECONDA volta prima e ultima estr.)

Il 3° estratto dell'ultima estrazione del mese 30/11/2023 - ( 3° elemento)
il 3° estratto della prima estrazione del mese 01/12/2023 - (4° elemento)

--------------------------------------

i 4 Elementi vanno posti in gioco per Ambo a Tutte le ruote

(ma solo dopo aver verificato quello detto all'inizio, sennò troppo dispersivo...)

se si individuano le ruote o la ruota che dal 1871 hanno una buona media, capitemi,
6 ambi a tutte (di una certa portata) non sono poi na schifezza...

ma tutto sta allo script rivelatore...

l'immagine per capirci visivamente con colori

Condizione / Esito : stessi colori

 

[claudio8]

@BaffoBlù
Provo ad aiutarti andando passo passo nella costruzione.
In questo modo rileviamo i numeri di ogni ultima mese e successiva ( che per forza di cose è la 1a del mese successivo)

Sub Main
     Dim es,r,a,b
     For r = 1 To 11
          If r = 11 Then r = 12
          For es = 1 To EstrazioneFin
               If IsUltimaDelMese(es) Then a =(Estratto es,r,3); b =(Estratto es + 1,r,3)
          Next
     Next
End Sub

adesso occorre ragionare su come individuare il" mese successivo" all'ultima mese e qunto ti ho precedentemente evidenziato in rosso ha un perchè.

fammi cenno che mi segui cosi' vediamo di proseguire

ps:
tu scrivi:
Per elaborare dobbiamo considerare per "DUE" volte consecutive
la prima e l'ultima estrazione del mese e del mese successivo di ogni ruota.
attenzione che è diverso da quanto affermi successivamente e nello screen delle estrazioni
( Per elaborare dobbiamo considerare per "DUE" volte consecutive l'ultima estrazione del mese e la prima
del mese successivo di ogni ruota.)

 

[joe]

Secondo me anche qui la strada in salita, è presa nel verso sbagliato.

Quando c'è la prima estrazione del mese ... c'è quella ULTIMA del mese precedente.

Mentre invece quando c'è l'ultima del mese non è detto che ci sia la prima del mese successivo.

Dunque a parer mio "Es+1" è sbagliato.

 

[BaffoBlù]

Che io possa essere infilzato da un Merlin...

Non fatemi diventare scemo con il più 1 e il meno 1.

"Beccare" (il blocco) di due estrazioni consecutive (l'ultima e la prima) insieme ci riesco.

E' "beccare" (DUE) di questi (BLOCCHI) ovviamente"consecutivi" che non riesco...

nell'immagine si vede benissimo cosa cerco di fare.

guardiamo solo bari

82 e 02 ----- 1° e 2° elemento

49 e 09 ----- 3° e 4° elemento

previsione : 02.09.49.82 per ambo a tutte

esito : 82.49 al 2° colpo a Cagliari (Tutte).

..e questo solo per bari come base per una previsione.
--------------------------------------------------------------------

IMPORTANTE

la prossima previsione che bari fornirà,
il 1° e il 2° elemento li abbiamo già
che sono il 49 e il 09 del 30/11 e del 01/12.

il 3° e il 4° elemento saranno quelli del prossimo blocco (ultima /Prima)
e si trasformeranno nel prossimo 1° - 2° elemento.

e così via, avremo sempre la conoscenza del prossimo (1°- 2° elemento)
che altri non sono che il 3° e il 4° elemento di ogni singola previsione...

CAPITO?

si riesce a fare uno script che faccia questo?

o sono io che cerco la luna?

guardate bene l'immagine e seguite i colori

 

[claudio8]

Secondo me anche qui la strada in salita, è presa nel verso sbagliato.

Quando c'è la prima estrazione del mese ... c'è quella ULTIMA del mese precedente.

Mentre invece quando c'è l'ultima del mese non è detto che ci sia la prima del mese successivo.

Dunque a parer mio "Es+1" è sbagliato.

Bravo joe ottima osservazione, ma campata in aria, e si.... non hai letto bene il costrutto ed aver rilevato errori di scrittura e la smania di scrivere ti ha fatto "cadere" nella prima considerazione che ti è passata per la testa.
Innanzitutto ho scritto di arrivare alla soluzione insieme, con Baffo, non di dare una soluzione immediata.

Tu scrivi: Mentre invece quando c'è l'ultima del mese non è detto che ci sia la prima del mese successivo.
e io ti rispondo:
e siccome non siamo scemi, non lanciamo una elaborazione sapendo che non c'è ancora la 1a del Mese da cui rilevare il 4° numero che servirebbe da mettere in gioco.

Detto questo onde evitare polemiche, lascio a te dare a Baffo le indicazioni passo passo per arrivare a quanto richiesto
Buona giornata

 

[BaffoBlù]

Che io possa essere infilzato da un Merlin...

Non fatemi diventare scemo con il più 1 e il meno 1.

"Beccare" (il blocco) di due estrazioni consecutive (l'ultima e la prima) insieme ci riesco.

E' "beccare" (DUE) di questi (BLOCCHI) ovviamente"consecutivi" che non riesco...

nell'immagine si vede benissimo cosa cerco di fare.

guardiamo solo bari

82 e 02 ----- 1° e 2° elemento

49 e 09 ----- 3° e 4° elemento

previsione : 02.09.49.82 per ambo a tutte

esito : 82.49 al 2° colpo a Cagliari (Tutte).

..e questo solo per bari come base per una previsione.
--------------------------------------------------------------------

IMPORTANTE

la prossima previsione che bari fornirà,
il 1° e il 2° elemento li abbiamo già
che sono il 49 e il 09 del 30/11 e del 01/12.

il 3° e il 4° elemento saranno quelli del prossimo blocco (ultima /Prima)
e si trasformeranno nel prossimo 1° - 2° elemento.

e così via, avremo sempre la conoscenza del prossimo (1°- 2° elemento)
che altri non sono che il 3° e il 4° elemento di ogni singola previsione...

CAPITO?

si riesce a fare uno script che faccia questo?

o sono io che cerco la luna?

guardate bene l'immagine e seguite i colori


Vedi l'allegato 2284815

e te pareva...

Please, leggete quello che scrivo...

 

[maldor006]

Ciao Baffo. Prova a controllare queto.

Option Explicit
Option Explicit
Sub Main
     Dim es,r,r1,r3,a,b,c,d,tm,clp,co,Mese1,Anno1
     Dim Ini
     Dim Fin
     Dim ruote(1)
     Dim posta(10)
     Dim am1(2):Dim am2(2):Dim am3(2):Dim am4(2):Dim am5(2):Dim am6(2)
     Fin = EstrazioneFin
     r3 = 11
     ruote(1) = r3
     posta(2) = 1
     co = 0
     r = CInt(InputBox(" Quale ruota vuoi esaminare ? ",,"1"))
     tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
     clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
     Ini = Fin - tm
           For es = Ini To Fin
               If IsUltimaDelMese(es) And es<Fin-1 Then
                  Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
                  Call AvanzamentoElab(Ini,Fin,es)
                  co = co + 1
                  Mese1 = Mese(es + 1)
                  a = Estratto(es,r,3)
                  b = Estratto(es + 1,r,3)
                  Do Until Mese(es + 1) <> Mese1
                    es = es + 1
                  Loop
                  c = Estratto(es,r,3)
                  d = Estratto(es + 1,r,3)
                  am1(1) = a:am1(2) = b
                  am2(1) = a:am2(2) = c
                  am3(1) = a:am3(2) = d
                  am4(1) = b:am4(2) = c
                  am5(1) = b:am5(2) = d
                  am6(1) = c:am6(2) = d
          
                  ImpostaGiocata 1,am1,ruote,posta,clp,2
                  ImpostaGiocata 2,am2,ruote,posta,clp,2
                  ImpostaGiocata 3,am3,ruote,posta,clp,2
                  ImpostaGiocata 4,am4,ruote,posta,clp,2
                  ImpostaGiocata 5,am5,ruote,posta,clp,2
                  ImpostaGiocata 6,am6,ruote,posta,clp,2
                  
                  Scrivi String(100,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & "   Numeri in gioco per ambo  " & a & "-" & b & "-" & c & "-" & d,1,,,1,2
                  
                  Gioca es+1,1,,1
                  
                  es = es - 1
                                
               End If
               If ScriptInterrotto Then Exit For
         Next
         Scrivi
         Scrivi String(100,"*")
         ColoreTesto 2
         Scrivi" Casi trovati : " & co,1
         ColoreTesto 0
         Scrivi String(100," * ")
         TestoInBandaPassante(" Idea by BaffoBlù "),1,3,0
         ScriviResoconto,True
      End Sub

 

[claudio8]

Scusami @maldor006 , senza polemica e senza voler insegnare niente a nessuno, ma l'obbiettivo di Baffo non e quello da te ottenuto nello script, bensì questo :

Salve a Tutte/i

Da tanto che volevo fare uno script di un metodo per verificare
quali fossero le ruote (della condizione)
che assicuravano una percentuale di vincita più elevata entro certi colpi.

Ma . . ,

saluti

 

[claudio8]

per @BaffoBlù ti lascio un piccolo output dei numeri ricercati mase x mese
Ruota di BA
Al [10024] [ 1 ] 03.01.2022 rileviamo: a = 85 b = 68 precedenti e c = 9 d = 64 correnti

Al [10037] [ 14] 01.02.2022 rileviamo: a = 9 b = 64 precedenti e c = 54 d = 61 correnti

Al [10049] [ 26] 01.03.2022 rileviamo: a = 54 b = 61 precedenti e c = 69 d = 49 correnti

Al [10063] [ 40] 02.04.2022 rileviamo: a = 69 b = 49 precedenti e c = 58 d = 38 correnti

Al [10076] [ 53] 03.05.2022 rileviamo: a = 58 b = 38 precedenti e c = 76 d = 84 correnti

Al [10089] [ 66] 03.06.2022 rileviamo: a = 76 b = 84 precedenti e c = 11 d = 29 correnti

Al [10102] [ 79] 02.07.2022 rileviamo: a = 11 b = 29 precedenti e c = 70 d = 86 correnti

Al [10115] [ 92] 02.08.2022 rileviamo: a = 70 b = 86 precedenti e c = 28 d = 86 correnti

Al [10128] [105] 01.09.2022 rileviamo: a = 28 b = 86 precedenti e c = 9 d = 13 correnti

Al [10141] [118] 01.10.2022 rileviamo: a = 9 b = 13 precedenti e c = 90 d = 58 correnti

Al [10154] [131] 02.11.2022 rileviamo: a = 90 b = 58 precedenti e c = 72 d = 9 correnti

Al [10167] [144] 01.12.2022 rileviamo: a = 72 b = 9 precedenti e c = 81 d = 7 correnti

Al [10181] [ 1 ] 03.01.2023 rileviamo: a = 81 b = 7 precedenti e c = 47 d = 66 correnti

Al [10194] [ 14] 02.02.2023 rileviamo: a = 47 b = 66 precedenti e c = 28 d = 18 correnti

Al [10206] [ 26] 02.03.2023 rileviamo: a = 28 b = 18 precedenti e c = 20 d = 35 correnti

Al [10219] [ 39] 01.04.2023 rileviamo: a = 20 b = 35 precedenti e c = 63 d = 45 correnti

Al [10232] [ 52] 02.05.2023 rileviamo: a = 63 b = 45 precedenti e c = 55 d = 25 correnti

Al [10245] [ 65] 01.06.2023 rileviamo: a = 55 b = 25 precedenti e c = 34 d = 43 correnti

Al [10258] [ 78] 01.07.2023 rileviamo: a = 34 b = 43 precedenti e c = 52 d = 15 correnti

Al [10275] [ 95] 01.08.2023 rileviamo: a = 52 b = 15 precedenti e c = 40 d = 36 correnti

Al [10293] [113] 01.09.2023 rileviamo: a = 40 b = 36 precedenti e c = 26 d = 10 correnti

Al [10311] [131] 03.10.2023 rileviamo: a = 26 b = 10 precedenti e c = 60 d = 74 correnti

Al [10328] [148] 02.11.2023 rileviamo: a = 60 b = 74 precedenti e c = 82 d = 2 correnti

Al [10345] [165] 01.12.2023 rileviamo: a = 82 b = 2 precedenti e c = 49 d = 9 correnti

Al [10363] [ 1 ] 02.01.2024 rileviamo: a = 49 b = 9 precedenti e c = 15 d = 50 correnti

Al [10380] [ 18] 01.02.2024 rileviamo: a = 15 b = 50 precedenti e c = 82 d = 54 correnti

Al [10397] [ 35] 01.03.2024 rileviamo: a = 82 b = 54 precedenti e c = 12 d = 77 correnti

Al [10414] [ 52] 02.04.2024 rileviamo: a = 12 b = 77 precedenti e c = 12 d = 82 correnti

Al [10431] [ 69] 02.05.2024 rileviamo: a = 12 b = 82 precedenti e c = 3 d = 83 correnti

Al [10449] [ 87] 01.06.2024 rileviamo: a = 3 b = 83 precedenti e c = 90 d = 74 correnti

ci si aggiorna altrove.

 

[joe]

Sub Main
Dim es,r,a,b
For r = 1 To 11
If r = 11 Then r = 12
For es = 1 To EstrazioneFin
If IsUltimaDelMese(es) Then a =(Estratto es,r,3); b =(Estratto es + 1,r,3)
Next
Next
End Sub

Come ho detto ... ho detto.

Ho scritto dopo aver letto.

Non ho eseguito lo script.

Perché sei sempre così aggressivo ?

Che vantaggio ne trai ?

Ti va bene come stai ... stacci.

 

[claudio8]

Come ho detto ... ho detto.

Ho scritto dopo aver letto.

Non ho eseguito lo script.

Perché sei sempre così aggressivo ?

Che vantaggio ne trai ?

Ti va bene come stai ... stacci.

Non hai letto con gli occhiali, a =(Estratto es,r,3); b =(Estratto es + 1,r,3) è sbagliato come è scritto e la fretta ti ha suggerito quello che hai scritto.

Io stò benissimo, non sono stato aggressivo bensì specifico.
ho risposto a Baffo con l'intenzione di insegnargli qualcosa che io ritengo corretta, adesso se ci tieni, ho passato la palla a te in modo che Baffo raggiunga il suo obbiettivo, presente al 1° post.

 

[joe]

NO.

Quando l'archivio è all'ultima del mese ed è ES ...

"NESSUNO" può sapere cosa ci sarà nell'estrazione successiva. ES+1

Dunque visto, ho letto, ho capito, ho scritto.

So cosa scrivo, perché a differenza d'altri non mi va di fare figuracce.

 

[claudio8]

Si hai ragione ti ripeto cosa ti ho scritto e che non hai letto perchè usi i paraocchi e preconcetti.

Tu scrivi: Mentre invece quando c'è l'ultima del mese non è detto che ci sia la prima del mese successivo.
e io ti rispondo:
e siccome non siamo scemi, non lanciamo una elaborazione sapendo che non c'è ancora la 1a del Mese da cui rilevare il 4° numero che servirebbe da mettere in gioco.

Ri

pe

ti

ti.

 

[BaffoBlù]

Calmi, state Boni....

Dai, mi fate star male a vedervi battibeccare...

Claudio, come le hai esposte tu è anche giusto...

Ma lo script maldor006 (Grazie maldor) è anche lui giusto, perché fornisce
esattamente e in modo preciso la previsione
che si vede nell'immagine a bari (49-82)...

Vabbè, elabora una ruota alla volta, ma la condizione quella è...



Quindi a mio parere, si tratta di modi diversi di vedere la stessa cosa



tre ultime frasi da rileggere e rileggere...


Che l'algoritmo lo si possa "Guardare in mente"

e comporsi poi in modi differenti,

è un altro discorso...



Dai, Scambiatevi un segno di pace...



... potete pure slinguazzare, tanto non vi vede nessuno...

 

[joe]

Baffo ... per è me fuori discussione ... discutere.

Quando l' Estrazione è Es ... non esiste Es+1.

Si gioca Es e il risultato è in Es+1 (Spesso Es + Enne)

Se no ... siamo tutti capaci!

 

[Oberdan]

Salve a Tutte/i

Da tanto che volevo fare uno script di un metodo per verificare
quali fossero le ruote (della condizione)
che assicuravano una percentuale di vincita più elevata entro certi colpi.

Ma non sono capace di rilevare i "4" Elementi della condizione
(me le vado a cercare tutte io...)

Per elaborare dobbiamo considerare per "DUE" volte consecutive
la prima e l'ultima estrazione del mese e del mese successivo di ogni ruota.

individuazione dei 4 elementi :

I 4 elementi della condizione in un ruota sono :

esempio reale :

Bari 31/10/2023 e 02/11/2023 (PRIMA volta prima e ultima estr.)

Il 3° estratto dell'ultima estrazione del mese 31/10/2023 - ( 1° elemento)
il 3° estratto della prima estrazione del mese 02/11/2023 - (2° elemento)

per prendere i 3 ° e il 4° elemento dobbiamo attendere la prossima
PRIMA estrazione del mese che segue :

Bari 30/11/2023 e 01/12/2023 (SECONDA volta prima e ultima estr.)

Il 3° estratto dell'ultima estrazione del mese 30/11/2023 - ( 3° elemento)
il 3° estratto della prima estrazione del mese 01/12/2023 - (4° elemento)

--------------------------------------

i 4 Elementi vanno posti in gioco per Ambo a Tutte le ruote

(ma solo dopo aver verificato quello detto all'inizio, sennò troppo dispersivo...)

se si individuano le ruote o la ruota che dal 1871 hanno una buona media, capitemi,
6 ambi a tutte (di una certa portata) non sono poi na schifezza...

ma tutto sta allo script rivelatore...

l'immagine per capirci visivamente con colori

Condizione / Esito : stessi colori


Vedi l'allegato 2284800

Ciao Baffoblù,

bellissima idea, ottima per studiare i risultati.
Con lo script di Maldor, che ringrazio anch'io, mi sto divertendo parecchio, modificandolo all'occorrenza, per estrapolare e verificare i casi più favorevoli ruota per ruota.

Oberdan

 

[BaffoBlù]

Baffo ... per è me fuori discussione ... discutere.

Quando l' Estrazione è Es ... non esiste Es+1.

Si gioca Es e il risultato è in Es+1 (Spesso Es + Enne)

Se no ... siamo tutti capaci!

per il mio modo di vedere non c'è nemmeno di cosa discutere

come si dice : " il problema non sussiste"...

maldor ha aperto le danze con quello script " traccia"

e io ci ho lavorato su. Era l'aiuto richiesto...

un aiuto diretto.

Ragà, io sto in fase di rimbambimento, se devo andare appresso a es - 1 + 1, - 4 - 6 divento scemo più di quello che già sono.

osservo l'eventuale script e rubo la tecnica se capisco tutto...

ed è quello che ho fatto.

l'ho detto mille volte , non sono uno scripter, tuttalpiù uno "Scrip" (Sembra na ' patatina...)

 

[BaffoBlù]

Ciao Baffoblù,

bellissima idea, ottima per studiare i risultati.
Con lo script di Maldor, che ringrazio anch'io, mi sto divertendo parecchio, modificandolo all'occorrenza, per estrapolare e verificare i casi più favorevoli ruota per ruota.

Oberdan

Questa è la versione completa

con questo ti divertirai di più...

Option Explicit
Sub Main
   Dim es,r1,r2,r3,a,b,c,d,tm,clp,clpa,co,Mese1,Anno1
   Dim Ini
   Dim Fin
   Dim ruota(1)
   Dim ruote(1)
   Dim posta(10)
   Dim poste(10)
   Dim n(4)
   Dim am1(2):Dim am2(2):Dim am3(2):Dim am4(2):Dim am5(2):Dim am6(2)
   Fin = EstrazioneFin
   r3 = 11
   ruota(1) = r2
   ruote(1) = r3
   posta(1) = 1
   poste(2) = 1
   co = 0
   r1 = CInt(InputBox(" Ruota Base dove prelevare i 4 Elementi per la Previsione ",,"1"))
   r2 = CInt(InputBox(" Scegli Ruota di gioco per le 4 Ambate ",,"10"))' ho messo una ruota qualsiasi...
   tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"6340")) ' 6340 : Circa Fine 1949 / Inizio 1950 ' Estrazioni controllate più affidabili...
   clp = CInt(InputBox(" Per quanti colpi vuoi Analizzare gli Ambi ? ",,"25"))
   clpa = CInt(InputBox(" Per quanti colpi vuoi Analizzare le Ambate ? ",,"15"))
   Ini = Fin - tm
   For es = Ini To Fin
      If IsUltimaDelMese(es) And es < Fin - 1 Then
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         co = co + 1
         Mese1 = Mese(es + 1)
         a = Estratto(es,r1,3)
         b = Estratto(es + 1,r1,3)
         Do Until Mese(es + 1) <> Mese1
            es = es + 1
         Loop
         c = Estratto(es,r1,3)
         d = Estratto(es + 1,r1,3)
         '
         ' inserito n() per Ambate (da trovare la ruota migliore con l'InputBox...)
         n(1) = a
         n(2) = b
         n(3) = c
         n(4) = d
         '
         If a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then ' Non sono ammessi Numeri Ripetuti/Uguali
            ' Devono essere uno diverso dall'altro...
            '----------------------------------------
            am1(1) = n(1):am1(2) = n(2)
            am2(1) = n(1):am2(2) = n(3)
            am3(1) = n(1):am3(2) = n(4)
            am4(1) = n(2):am4(2) = n(3)
            am5(1) = n(2):am5(2) = n(4)
            am6(1) = n(3):am6(2) = n(4)
            ruota(1) = r2
            ruote(1) = r3
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es,r1) & " * ",1
            Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es + 1,r1) & " * ",1
            Scrivi "3°Estratto : [ " & Format2(c) & " ] * 1°Elemento per prossimma Previsione" & " * " & "3°Elemento per previsione Attualmente In Gioco",1,,,1,2
            Scrivi "3°Estratto : [ " & Format2(d) & " ] * 2°Elemento per prossimma Previsione" & " * " & "4°Elemento per previsione Attualmente in Gioco",1,,,1,2
            Scrivi "Quartina per ambo a Tutte : " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,2,2
            Scrivi "4 Ambate a : " & SiglaRuota(r2) & " * " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,1,2
            Scrivi String(65,"-"),1
            ImpostaGiocata 1,am1,ruote,poste,clp,2,,1
            ImpostaGiocata 2,am2,ruote,poste,clp,2,,2
            ImpostaGiocata 3,am3,ruote,poste,clp,2,,3
            ImpostaGiocata 4,am4,ruote,poste,clp,2,,4
            ImpostaGiocata 5,am5,ruote,poste,clp,2,,5
            ImpostaGiocata 6,am6,ruote,poste,clp,2,,6
            ImpostaGiocata 7,n,ruota,posta,clpa,1
            Gioca es + 1,1,,1
            es = es - 1
         End If
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" Casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea by BaffoBlù, Script by maldor/BaffoBlù ***"),1,3,0
   ScriviResoconto,False
End Sub

Lo script adesso fa il suo lavoro (scartando i casi non giocabili)
ho aggiunto la possibilità per le ambate (ruota migliore?)



Ma questo sottostante è solo per quanto riguarda gli Ambi

Da "Circa" fine 1949 Inizio 1950 a Giugno 2024

(lavoro fatto a mano sull'output...)

Casi Totali trovati : 854


----------------------------------------
Casi Esaminati : 854
Attesa media : 7
Ambo su tutte : 879
----------------------------------------

Magari potessi avere questo che segue in automatico
non so se si può fare con lo script...


1°colpo 130 volte
2°colpo 112 "
3°colpo 86 "
4°colpo 66 "
5°colpo 87 "
6°colpo 58 "
7°colpo 39 "
8°colpo 49 "
9°colpo 31 "
10°colpo 35 "
11°colpo 23 "
12°colpo 21 "
13°colpo 23 "
14°colpo 21 "
15°colpo 18 "
16°colpo 12 "
17°colpo 10 "
18°colpo 10 "
19°colpo 14 "
20°colpo 11 "
21°colpo 03 "
22°colpo 00 *
23°colpo 11 "
24°colpo 03 "
25°colpo 01 "
Interrotta per raggiunta durata : 20 volte

*******************************************

 

[Oberdan]

Questa è la versione completa

con questo ti divertirai di più...

Option Explicit
Sub Main
   Dim es,r1,r2,r3,a,b,c,d,tm,clp,clpa,co,Mese1,Anno1
   Dim Ini
   Dim Fin
   Dim ruota(1)
   Dim ruote(1)
   Dim posta(10)
   Dim poste(10)
   Dim n(4)
   Dim am1(2):Dim am2(2):Dim am3(2):Dim am4(2):Dim am5(2):Dim am6(2)
   Fin = EstrazioneFin
   r3 = 11
   ruota(1) = r2
   ruote(1) = r3
   posta(1) = 1
   poste(2) = 1
   co = 0
   r1 = CInt(InputBox(" Ruota Base dove prelevare i 4 Elementi per la Previsione ",,"1"))
   r2 = CInt(InputBox(" Scegli Ruota di gioco per le 4 Ambate ",,"10"))' ho messo una ruota qualsiasi...
   tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"6340")) ' 6340 : Circa Fine 1949 / Inizio 1950 ' Estrazioni controllate più affidabili...
   clp = CInt(InputBox(" Per quanti colpi vuoi Analizzare gli Ambi ? ",,"25"))
   clpa = CInt(InputBox(" Per quanti colpi vuoi Analizzare le Ambate ? ",,"15"))
   Ini = Fin - tm
   For es = Ini To Fin
      If IsUltimaDelMese(es) And es < Fin - 1 Then
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         co = co + 1
         Mese1 = Mese(es + 1)
         a = Estratto(es,r1,3)
         b = Estratto(es + 1,r1,3)
         Do Until Mese(es + 1) <> Mese1
            es = es + 1
         Loop
         c = Estratto(es,r1,3)
         d = Estratto(es + 1,r1,3)
         '
         ' inserito n() per Ambate (da trovare la ruota migliore con l'InputBox...)
         n(1) = a
         n(2) = b
         n(3) = c
         n(4) = d
         '
         If a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then ' Non sono ammessi Numeri Ripetuti/Uguali
            ' Devono essere uno diverso dall'altro...
            '----------------------------------------
            am1(1) = n(1):am1(2) = n(2)
            am2(1) = n(1):am2(2) = n(3)
            am3(1) = n(1):am3(2) = n(4)
            am4(1) = n(2):am4(2) = n(3)
            am5(1) = n(2):am5(2) = n(4)
            am6(1) = n(3):am6(2) = n(4)
            ruota(1) = r2
            ruote(1) = r3
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es,r1) & " * ",1
            Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es + 1,r1) & " * ",1
            Scrivi "3°Estratto : [ " & Format2(c) & " ] * 1°Elemento per prossimma Previsione" & " * " & "3°Elemento per previsione Attualmente In Gioco",1,,,1,2
            Scrivi "3°Estratto : [ " & Format2(d) & " ] * 2°Elemento per prossimma Previsione" & " * " & "4°Elemento per previsione Attualmente in Gioco",1,,,1,2
            Scrivi "Quartina per ambo a Tutte : " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,2,2
            Scrivi "4 Ambate a : " & SiglaRuota(r2) & " * " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,1,2
            Scrivi String(65,"-"),1
            ImpostaGiocata 1,am1,ruote,poste,clp,2,,1
            ImpostaGiocata 2,am2,ruote,poste,clp,2,,2
            ImpostaGiocata 3,am3,ruote,poste,clp,2,,3
            ImpostaGiocata 4,am4,ruote,poste,clp,2,,4
            ImpostaGiocata 5,am5,ruote,poste,clp,2,,5
            ImpostaGiocata 6,am6,ruote,poste,clp,2,,6
            ImpostaGiocata 7,n,ruota,posta,clpa,1
            Gioca es + 1,1,,1
            es = es - 1
         End If
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" Casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea by BaffoBlù, Script by maldor/BaffoBlù ***"),1,3,0
   ScriviResoconto,False
End Sub

Lo script adesso fa il suo lavoro (scartando i casi non giocabili)
ho aggiunto la possibilità per le ambate (ruota migliore?)



Ma questo sottostante è solo per quanto riguarda gli Ambi

Da "Circa" fine 1949 Inizio 1950 a Giugno 2024

(lavoro fatto a mano sull'output...)

Casi Totali trovati : 854


----------------------------------------
Casi Esaminati : 854
Attesa media : 7
Ambo su tutte : 879
----------------------------------------

Magari potessi avere questo che segue in automatico
non so se si può fare con lo script...


1°colpo 130 volte
2°colpo 112 "
3°colpo 86 "
4°colpo 66 "
5°colpo 87 "
6°colpo 58 "
7°colpo 39 "
8°colpo 49 "
9°colpo 31 "
10°colpo 35 "
11°colpo 23 "
12°colpo 21 "
13°colpo 23 "
14°colpo 21 "
15°colpo 18 "
16°colpo 12 "
17°colpo 10 "
18°colpo 10 "
19°colpo 14 "
20°colpo 11 "
21°colpo 03 "
22°colpo 00 *
23°colpo 11 "
24°colpo 03 "
25°colpo 01 "
Interrotta per raggiunta durata : 20 volte

*******************************************

Ciao Baffoblù e grazie per quest'altra fonte di divertimento, ma soprattutto di indagine e studio.
Ora purtroppo sono a corto di tempo da dedicargli. Lo farò con molto piacere e curiosità non appena mi sarà possibile.

Intanto vorrei condividere con te e tutti uno dei miei "divertimenti" con il primo script di Maldor...
Dato che uno degli scopi della tua ricerca, come hai chiarito nel primo post, è l'individuazione delle ruote più, diciamo prolifiche, per porre in gioco gli ambi (mi riferisco sempre allo script di Maldor che non prevedeva il gioco di Ambata); ho modificato lo script sostituendo Ruote(1) con Ruote(10). e attivandole tutte.
In questo modo e sempre a scopo di studio, ho fatto girare lo script, ruota per ruota, per verificare appunto in quali ruote si presentavano più casi positivi. E questo l'ho fatto in prima istanza per le 500 estrazioni previste dallo script e successivamente per 2000 estrazioni, per controllare se i risultati ottenuti con 500 estrazioni, trovassero conferma in un periodo d'indagine più lungo.
E così è stato!
In questo modo, per ognuna delle 10 ruote indagate dalla condizione, ho potuto selezionare le 3 o 4 ruote più prolifiche sulle quali puntare.
E poi, con un'altra piccola modifica, ho simulato la messa in gioco degli ambi sulle sole ruote preferite, per verificare il bilancio economico finale.
Risultati che devo dire sono di sicuro interesse.

Grazie sempre per le tue idee!

Oberdan

 

[claudio8]

Ciao Baffoblù e grazie per quest'altra fonte di divertimento, ma soprattutto di indagine e studio.
Ora purtroppo sono a corto di tempo da dedicargli. Lo farò con molto piacere e curiosità non appena mi sarà possibile.

Intanto vorrei condividere con te e tutti uno dei miei "divertimenti" con il primo script di Maldor...
Dato che uno degli scopi della tua ricerca, come hai chiarito nel primo post, è l'individuazione delle ruote più, diciamo prolifiche, per porre in gioco gli ambi (mi riferisco sempre allo script di Maldor che non prevedeva il gioco di Ambata); ho modificato lo script sostituendo Ruote(1) con Ruote(10). e attivandole tutte.
In questo modo e sempre a scopo di studio, ho fatto girare lo script, ruota per ruota, per verificare appunto in quali ruote si presentavano più casi positivi. E questo l'ho fatto in prima istanza per le 500 estrazioni previste dallo script e successivamente per 2000 estrazioni, per controllare se i risultati ottenuti con 500 estrazioni, trovassero conferma in un periodo d'indagine più lungo.
E così è stato!
In questo modo, per ognuna delle 10 ruote indagate dalla condizione, ho potuto selezionare le 3 o 4 ruote più prolifiche sulle quali puntare.
E poi, con un'altra piccola modifica, ho simulato la messa in gioco degli ambi sulle sole ruote preferite, per verificare il bilancio economico finale.
Risultati che devo dire sono di sicuro interesse.

Grazie sempre per le tue idee!

Oberdan

Potresti postare una videata dell' output ? Ho una curiosutà da verificare.