x MARCO-ELLE..."il monello"

[Codicebinario]

Ciao Marco,
Mi e' fruzzicata una idea...ora espongo e dimmi che ne pensi...magari verificala con script:

Il triplo sommativo e le VENUS.

Qui non parliamo di ruote diametrali,consecutive o gemelle,ma parliamo di considerare le ruote delle VENUS(a scelta,NORD,CENTRO,SUD) visto che le estrazioni sono state concentrate su UNA sola venus che estrae 20/15 numeri a secondo che sia NORD,CENTRO,SUD e riscontrare due ambi di somma eguale , esclusa la somma 45 , in posizione isotopa e consecutiva ,e che presentino almeno una differenza ciclometrica equivalente alle distanze 9-18-27-36. Alla verifica di questa condizione si opererà nel modo che segue: si calcolerà il diametrale del "triplo sommativo" ed avremo trovato la nostra ambata , mentre come abbinamenti per ambo sceglieremo il diametrale della somma comune ed il doppio del triplo sommativo. L'ambata e i due ambi andranno giocati sulle ruote dove si è verificata la condizione per 8 colpi.

Spiegazione dei termini della tecnica:

Nella tecnica di cui sopra si parla di ruote accomunate solo dalla stessa VENUS estrattrice.
Per posizione isotopa intendiamo combinazioni sortite, in qualsiasi ruota della VENUS scelta, allo stesso posto estrazionale, ad esempio ambi sortiti in 2 ruote al primo e secondo posto , o terzo e quarto ecc., mentre la posizione consecutiva indica la sortita dei numeri , costituenti gli ambi, in posti estrazionali contigui, cioe' 1° e 2° posto, oppure 2 e 3° posto, oppure 3° e 4° posto , oppure 4° e 5°posto , ed inoltre 5° e 1° posto, e questo per dare un senso di circolarità alla posizione estrazionale.

Ora cerchero' di spiegare il significato di triplo sommativo nella maniera piu' semplice, e mi pare opportuno dare questa prima definizione: per triplo sommativo si intende il doppio della somma comune di una coppia di ambi, o ancora piu' semplicemente vi basterà sommare i 4 numeri che costituiscono le due coppie.
Ad esempio abbiamo i seguenti due ambi 84.09 / 90.03


Disponiamo gli ambi a mò di quadrato

84 09
90 03
Somme orizzontali 03
Somme verticali 84.12
Somme diagonali 87.09

Triplo sommativo 06


Si noterà che il triplo sommativo corrisponde alla somma di una tra le somme evidenziate . che è sempre uguale a 6.Tale valore è piu' facilmente ottenibile sommando , col fuori 90, i 4 numeri costituenti gli ambi : infatti 84 + 09 + 90 + 03 = 186 - 90 = 06( triplo sommativo) .

I due ambi rispettano anche la condizione che abbiamo richiesto all'inizio , e cioè che esista tra gli elementi almeno una distanza pari a 3 , o 9, o 18 o 36.

Per distanza tra i numeri intendiamo la differenza ciclometrica ,e che come tale non potrà mai essere superiore a 45.
Ad esempio la distanza ciclometrica tra il 70 ed il 22 non sarà pari alla semplice differenza aritmetica, e cioè 70 - 22 = 48 , in quanto , assumendo come distanza massima il 45, si dovrà calcolare il complemento a 90 della differenza trovata , e quindi 90 - 48 = 42 ( distanza ciclometrica) . Nel nostro caso riscontriamo la presenza di una almeno una distanza pari a 3 , e nel contempo ,anche l'altra condizione di somma tra le coppie di numeri, diversa dal 45,è stata rispettata.

Quindi siamo in grado di calcolare l'ambata : basterà trovare il relativo diametrale, laddove per diametrale si intende quel numero che dista 45 unità o punti dal numero iniziale, e quindi basterà sommare al numero iniziale la distanza 45, effettuando l'eventuale fuori 90..Ad esempio il diametrale del 34 è : 34 + 45 = 79 ; il diametrale del 61 è : 61 + 45 = 106 - 90 = 16.
Il primo abbinamento per ambo sarà uguale al diametrale della somma comune , che nel nostro caso è il 3 , e quindi il relativo diametrale sarà : 03 + 45 = 48.
Il secondo numero di abbinamento sarà pari al doppio del triplo sommativo e cioè 06 x 2 = 12.
In questo modo abbiamo elaborato la nostra previsione : ambata 51 ** Ambi 51-48 / 51-12 , da giuocare sulle ruote VENUS ove si e' riscontrata la condizione,per un max di 8 colpi.I due ambi da noi elaborati verranno posti in gioco sulle ruote di rilevamento e , per il solo recupero anche su tutte.

Ciao e Buona Fortuna. "il folle"

 

[Marco-elle]

Ciao Codice,
qui ci vuole la mano santa di Salvo50,per me è un casino
costruire uno script e a carta e penna diventa caotico,
rilevare la condizione ottimale e bisogna vedere se fruzzica

 

[Rafh]

Ciao, ho provato a scrivere io uno script. La scelta delle ruote si può sempre modificare e ovviamente non so se ho capito bene tutti i passaggi.

Option Explicit
Sub Main
   'IL TRIPLO SOMMATIVO E LE VENUS DI CODICEBINARIO
   'Script by RAFH
   Dim es,n1,n2,n3,n4,p1,p2,r1,r2,casi,Ts,ef,ee,rc,ret,Inizio,fine,a,cn
   ' range di ricerca
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   ' estrazioni da fare
   ef = fine -(Inizio - 1)
   'scelta delle ruote
   a = InputBox("NORD : 1, CENTRO : 2, SUD : 3","SCELTA RUOTE")
   Select Case a
   Case 1
      ReDim aRuote(3)
      aRuote(0) = 5
      aRuote(1) = 9
      aRuote(2) = 10
      aRuote(3) = 4
   Case 2
      ReDim aRuote(2)
      aRuote(0) = 2
      aRuote(1) = 3
      aRuote(2) = 8
   Case 3
      ReDim aRuote(2)
      aRuote(0) = 6
      aRuote(1) = 1
      aRuote(2) = 7
   End Select
   'ricerca condizione
   For es = Inizio To fine
      For r1 = LBound(aRuote) To UBound(aRuote)
         For r2 = r1 + 1 To UBound(aRuote)
            For p1 = 1 To 5
               p2 = p1 + 1
               If p2 = 6 Then p2 = 1
               n1 = Estratto(es,aRuote(r1),p1)
               n2 = Estratto(es,aRuote(r1),p2)
               n3 = Estratto(es,aRuote(r2),p1)
               n4 = Estratto(es,aRuote(r2),p2)
               'condizioni di somma uguale e distanza = 9,18,36 ecc.
               If Fuori90(n1 + n2) = Fuori90(n3 + n4) And Fuori90(n1 + n2) <> 45 And Fuori90(n1 + n2) <> 90 Then
                  If Distanza(n1,n2) Mod 9 = 0 Or Distanza(n3,n4) Mod 9 = 0 Then
                     casi = casi + 1
                     'calcolo previsione
                     Ts = Fuori90(n1 + n2 + n3 + n4)
                     ReDim aN(2)
                     aN(0) = Diametrale(Ts)
                     aN(1) = Diametrale(Fuori90(n1 + n2))
                     aN(2) = Fuori90(Ts*2)
                     ReDim aR(1)
                     aR(0) = aRuote(r1)
                     aR(1) = aRuote(r2)
                     ' verifica l'esito
                     If VerificaEsito(aN,aR,es + 1,2,8,,,rc,ret) Then
                        Scrivi String(90,"o"),True,,,RGB(0,64,64)
                        Scrivi DataEstrazione(es) & Space(3),True,0,,3
                        Scrivi SiglaRuota(aRuote(r1)) & " -> " & n1 & "-" & n2 & " & " & SiglaRuota(aRuote(r2)) & " -> " & n3 & "-" & n4 & Space(3),True,0
                        Scrivi aN(0) & " " & aN(1) & " " & aN(2) & Space(3),True,0,,2
                        Scrivi rc & "° colpo" & Space(3),True,0,,3
                        Scrivi ret,True,,,1
                     Else
                        cn = cn + 1
                     End If
                  End If
               End If
            Next
         Next
      Next
      ee = ee + 1
      AvanzamentoElab 0,ef,ee
      Messaggio "Estrazioni elaborate : " & ee
   Next
   Scrivi String(90,"o"),True,,,2
   Scrivi "CASI : " & casi,True,,,,3
   Scrivi "CASI NEGATIVI : " & cn,True,,,,3
End Sub

 

[Codicebinario]

Ciao, ho provato a scrivere io uno script. La scelta delle ruote si può sempre modificare e ovviamente non so se ho capito bene tutti i passaggi.

Option Explicit
Sub Main
   'IL TRIPLO SOMMATIVO E LE VENUS DI CODICEBINARIO
   'Script by RAFH
   Dim es,n1,n2,n3,n4,p1,p2,r1,r2,casi,Ts,ef,ee,rc,ret,Inizio,fine,a,cn
   ' range di ricerca
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   ' estrazioni da fare
   ef = fine -(Inizio - 1)
   'scelta delle ruote
   a = InputBox("NORD : 1, CENTRO : 2, SUD : 3","SCELTA RUOTE")
   Select Case a
   Case 1
      ReDim aRuote(3)
      aRuote(0) = 5
      aRuote(1) = 9
      aRuote(2) = 10
      aRuote(3) = 4
   Case 2
      ReDim aRuote(2)
      aRuote(0) = 2
      aRuote(1) = 3
      aRuote(2) = 8
   Case 3
      ReDim aRuote(2)
      aRuote(0) = 6
      aRuote(1) = 1
      aRuote(2) = 7
   End Select
   'ricerca condizione
   For es = Inizio To fine
      For r1 = LBound(aRuote) To UBound(aRuote)
         For r2 = r1 + 1 To UBound(aRuote)
            For p1 = 1 To 5
               p2 = p1 + 1
               If p2 = 6 Then p2 = 1
               n1 = Estratto(es,aRuote(r1),p1)
               n2 = Estratto(es,aRuote(r1),p2)
               n3 = Estratto(es,aRuote(r2),p1)
               n4 = Estratto(es,aRuote(r2),p2)
               'condizioni di somma uguale e distanza = 9,18,36 ecc.
               If Fuori90(n1 + n2) = Fuori90(n3 + n4) And Fuori90(n1 + n2) <> 45 And Fuori90(n1 + n2) <> 90 Then
                  If Distanza(n1,n2) Mod 9 = 0 Or Distanza(n3,n4) Mod 9 = 0 Then
                     casi = casi + 1
                     'calcolo previsione
                     Ts = Fuori90(n1 + n2 + n3 + n4)
                     ReDim aN(2)
                     aN(0) = Diametrale(Ts)
                     aN(1) = Diametrale(Fuori90(n1 + n2))
                     aN(2) = Fuori90(Ts*2)
                     ReDim aR(1)
                     aR(0) = aRuote(r1)
                     aR(1) = aRuote(r2)
                     ' verifica l'esito
                     If VerificaEsito(aN,aR,es + 1,2,8,,,rc,ret) Then
                        Scrivi String(90,"o"),True,,,RGB(0,64,64)
                        Scrivi DataEstrazione(es) & Space(3),True,0,,3
                        Scrivi SiglaRuota(aRuote(r1)) & " -> " & n1 & "-" & n2 & " & " & SiglaRuota(aRuote(r2)) & " -> " & n3 & "-" & n4 & Space(3),True,0
                        Scrivi aN(0) & " " & aN(1) & " " & aN(2) & Space(3),True,0,,2
                        Scrivi rc & "° colpo" & Space(3),True,0,,3
                        Scrivi ret,True,,,1
                     Else
                        cn = cn + 1
                     End If
                  End If
               End If
            Next
         Next
      Next
      ee = ee + 1
      AvanzamentoElab 0,ef,ee
      Messaggio "Estrazioni elaborate : " & ee
   Next
   Scrivi String(90,"o"),True,,,2
   Scrivi "CASI : " & casi,True,,,,3
   Scrivi "CASI NEGATIVI : " & cn,True,,,,3
End Sub

GRAZIEEEEE RAFHHHHHHHH !!!!!! dopo pranzo lo provo.Grazie per aver dedicato una parte del tuo tempo.

 

[Rafh]

GRAZIEEEEE RAFHHHHHHHH !!!!!! dopo pranzo lo provo.Grazie per aver dedicato una parte del tuo tempo.

👍
Mi sono dimenticato di scrivere alcune cose 1)il codice scriverà in output questo :
Estrazione della condizione/ numeri della condizione sulle rispettive ruote/ Previsione / Colpo/ Esito.
2) Come esito ho messo ambo, ma si può sempre modificare.
3) La previsione è l'intera terzina, quindi per il momento non c'è distinzione tra Ambata con i rispettivi ambi
4) alla fine il codice scriverà i casi totali e i casi negativi
5) all'inizio ci sarà la scelta tra Nord, Centro, Sud inserendo rispettivamente 1 o 2 o 3. Perciò se le ruote che appartengono a Nord/centro/sud non vanno bene come le ho scritte io, si possono modificare nel select case all'inizio del codice.

 

[Codicebinario]

Rafh,considerazioni:
1) il mio archivio considerato (data della entrata in servizio di tutte le venus) parte dal 15/9/2009 estrz.8117 e finisce alla ultima estrazione 20 / 1/2024 estraz.10374 pari a 2258 estrazioni.

2) Facendo girare lo script hò visto gli output: a prima vista sembra negativo(e ci stà) ma....mi chiedo,è semplicemente "avaro" perchè non sempre le condizioni imposte si trovano oppure semplicemente e' una tecnica che non paga? (o almeno non con l'accorpamento per VENUS).L'intento m era vedere di ridurre le ruote di gioco,tutto da verificare,provare...

NORD casi 119 negativi 108 dal 2014 al 2022 11 casi positivi entro 8 colpi di gioco.
CENTRO casi 66 negativi 60 dal 2012 al 2021 6 casi positivi entro 7 colpi di gioco.
SUD casi 73 negativi 61 dal 2009 al 2022 12 casi positivi entro 8 colpi di gioco

Mi chiedo: ma dal 2022 ad oggi 2024 possibile che non ci sia stato un caso giocabile? (ed è per questo che dico che è"avaro"), abbiamo visto che in caso di condizione valida il max di colpi all'esito e' 8 colpi,e ok, ma se volessi valutare esempio 18 colpi di gioco cosa e' successo dopo l'esito? Come si puo' fare?

Un modo per scoprirlo sarebbe ,fermo restando le regole imposte,farlo giocare e verificare a TUTTE le ruote di gioco,in modo di verificare se le regole sono valide solo su ruote contigue,diametrali ,opposte e affini...l'output dovrebbe farmi vedere l'estrazione di conferma delle regole(condizione trovata ) e mostrarmi l'andamento nei 18 colpi successivi senza fermarsi ad esito raggiunto,ma bensi al compimento del 18° colpo.

Sono solo idee,nulla di certo......Ciao e grazie ancora.

 

[Rafh]

Ciao allora per quanto riguarda il numero di casi giocabili, sono "pochi" essenzialmente perché avendo deciso di fare distinzione tra Nord/Centro/Sud automaticamente il codice ciclerà solo quelle determinate ruote e quindi troverà casi solo con quelle combinazioni di ruote.
Esempio : se consideriamo Sud, avremo tre ruote Bari, Napoli,Palermo. Quindi il codice cercherà tutti gli ambi con somma uguale e almeno uno con distanza 9,18,27 ecc. solo su quelle ruote( Da notare che queste condizioni restringono molto il campo dei casi soprattutto l'isotopia e il fatto dei numeri consecutivi... già togliendo questo i casi sarebbero molti di più) comunque ritornando alle ruote (Sud) : in una determinata estrazione il codice cicla tra Napoli, Bari e Palermo ma non trova nessuno ambo con somma uguale in queste ruote, ma magari in quella estrazione se avesse ciclato tutte le ruote ne avrebbe trovata una con Bari - Cagliari.
Quindi se vuoi aumentare il numero di casi devi "allentare" una di queste condizioni tra ruote di ricerca/isotopia/consecutivà/il fatto della distanza 9,18,36 ecc.
Per quanto riguarda i colpi, se vuoi vedere in 18 colpi cosa succede anziché 8 ti basterà semplicemente scrivere 18 al posto di 8 nella riga dove c'è la funzione "VerificaEsito"