Terzina/Quartina per AMBO contiene listato esito 100%

[kribio2]

Ciao a tutti,
volevo condividere con gli amici del forum la seguente riflessione che ha come base le famose triadi di fabarri (sono terzine di numeri che hanno le seguenti particolari caratteristiche: uno dei numeri è uguale alla somma degli altri due; deve coincidere anche la somma tra decine e le unità - con il fuori "9" se occorre -)...

l'iter operativo è all'apparenza un pò complesso ma lo spiego subito partendo da un esempio:

Estrazione del giorno 8 marzo 2012 su NA si presenta la Triade 88.53.35. Per i nostri calcoli ci interessano le posizioni isotope delle due ruote che precedono e seguono quella di rilevamento, nel nostro caso MI e PA... ecco come possiamo visualizzare i nostri dati:

MI 58.xx.39.77.xx
NA 88.xx.53.35.xx
PA 58.xx.78.57.xx

La prima operazione si fa con il numero vertice della terzina che nel nostro caso è 88 (perchè 88 è la somma di 53+35)
..si scompone tale numero nelle singole cifre che lo compongono quindi 88 si scompone in 8 e 8

somma 8+8=16 ... se necessario si opera il fuori "9" come in questo caso quindi 16 diventa 7

a questo punto sommiamo il 7 sia con l'isotopo della ruota di MI che è 58 sia con l'isotopo della ruota di PA anch'esso 58 (è un caso) e la somma da 65 che è il nostro primo numero da giocare
... se i due isotopi (58) non fossero stati uguali avremmo avuto due numeri giocabili (primo e secondo della previsione).


andiamo avanti, per calcolare gli altri due numeri sappiamo già che 53.35=88 quello che dobbiamo fare ora è sommare gli isotopi di MI e PA (gli isotopi di 53 e 35) quindi

su MI l'operazione è 39+77=116... ovvero 26 (fuori 90)
su PA l'operazione è 78+57=135... ovvero 45 (fuori 90)

possiamo a questo punto procedere per analogia alle operazioni fatte per calcolare i primi due numeri, quindi:
si ripete 53.35=88 ...si scompone tale numero nelle singole cifre che lo compongono quindi 88 si scompone in 8 e 8; somma 8+8=16 ... se necessario si opera il fuori "9" come in questo caso quindi 16 diventa 7 ...

il nostro 7 ora lo sommiamo con 26 e 45 ottendo così il terzo e quarto numero 33 e 54 da giocare x ambo sulle tre route MI.NA.PA

Riepilogando si gioca, in questo caso, la terzina 65.33.52 (che alla 14 fornisce l'ambo a ruota) normalmente però si gioca la quartina sempre per ambo su tre ruote.

Se Baffoblu fosse così cortese da realizzare uno script potremmo verificare i dati statistici sul lungo periodo...
Ringrazio anticipatamente e in bocca al lupo a tutti....
Kribio2

 

[Baffoblu]

Prendo nota, me lo devo leggere per bene,
ma non credo che lo faccio per oggi.......

 

[kribio2]

Prendo nota, me lo devo leggere per bene,
ma non credo che lo faccio per oggi.......

grazie... a presto

 

[Baffoblu]

Ciao

Me lo sto leggendo con calma adesso.

Potresti farmi qualche altro esempio, con tutti i dettagli e passaggi?

 

[kribio2]

Ciao

Me lo sto leggendo con calma adesso.

Potresti farmi qualche altro esempio, con tutti i dettagli e passaggi?

Le terzine di Fabarri credo tu le conosca...
Cmq per esempio, i numeri 12 27 39 formano la Triade, perché:
12+27=39 (è il vertice)
1+2=3
2+7=9
La terzina 24 58 82, invece, non formano la Triade, in quanto:24+58=82
2+5=7<8
4+8=12 fuori 9 = 3>2​

Dando questo per scontato
la prima operazione dicevo è la scomposizione del numero vertice (1.17 vertice 18; 13.33 vertice 46; 26.60 vertice 86 ect.) nelle sue due cifre, quindi se il vertice è 88 le sue due cifre sono il num. 8 e un'altra volta il num. 8. Se dovessimo scomporre il numero vertice della terzina 1.17.(18) il risultato sarebbe semplicemente 1 e 8; ora queste due cifre - prese singolarmente tra di loro - si sommano e si opera il fuori "9" se la somma è>9. Nel caso della terzina presa come esempio 1+8=9

MI 58.xx.39.77.xx
NA 18.xx.01.17.xx
PA 23.xx.78.57.xx

il 9 lo adiziono al numero in posizione isotopa della ruota che precede MI58 quidi 9+58=67
poi faccio la stessa cosa con la ruota che segue 9 più il numero in posizione isotopa 9+23=32
ecco 67 e 32 sono i primi due numeri da mettere in gioco.


per calcolare gli altri due numeri partiamo sempre dalla terzina di fabarri 18.1.17... questa volta devo fare la somma degli altri due numeri della terzina. Questo passaggio potrei anche evitarlo perchè in sostanza è già stato fatto ed anche perchè una delle regole delle terzine di fabarri è proprio che uno dei numeri (il vertice) equivale alla somma degli altri due elementi, tuttavia lo riporto per capire i vari passaggi; quindi nel nostro caso 1+17=18 scomponendo le cifre 1+8=9


A questo punto faccio la somma della coppia di numeri in posizione isotopa che si trovano sulla ruota antecedente quindi se guardi l'esempio sopra riportato sopra ai num 1.17 della terzina vi sono in posizione isotopa 39.77. Ok facciamo MI 39+77=116... ovvero 26 (fuori 90), analogamente su PA 78+57=135... ovvero 45 (fuori 90)

ora sommiamo la nostra cifra precedentemente ottenuta dalla scomposizione di 1+17=18 ovvero il numero 9 ed avremo ottenuto cosi il terzo numero 9+26=35 e il quarto numero 9+45=54


riepilogo i numeri da giocare 67.32 e poi 35.54 x la sorte dell'AMBO e ambata per il recupero

ciao Kribio2

 

[Baffoblu]

Ciao

Allora, dato che lo script in questione è un po complesso,
mi ci vorrà qualche giorno per farlo.
Per la verità, ancora non ci metto mano, e non so se riesco a farlo.
Te lo dico così non aspetti inutilmente, se riesco non mancherò di postarlo.

Gli script che vedi che ogni tanto faccio qui e li, sono facili da fare,
perchè le condizioni sono facili da stabilire, e li faccio fra una cosa e l'altra,
dato che sto costruendo l'Help per il programma spaziometria, ogni tanto fare uno script,
mi distoglie dalla noia di fare sempre le stesse cose.......

 

[kribio2]

Ciao

Allora, dato che lo script in questione è un po complesso,
mi ci vorrà qualche giorno per farlo.
Per la verità, ancora non ci metto mano, e non so se riesco a farlo.
Te lo dico così non aspetti inutilmente, se riesco non mancherò di postarlo.

Gli script che vedi che ogni tanto faccio qui e li, sono facili da fare,
perchè le condizioni sono facili da stabilire, e li faccio fra una cosa e l'altra,
dato che sto costruendo l'Help per il programma spaziometria, ogni tanto fare uno script,
mi distoglie dalla noia di fare sempre le stesse cose.......

Ok. Mi fa piacere sapere che ci dedichi così tanto impegno nelle cose che fai... non è da tutti.
Nello stesso tempo mi dispiace "romperti ogni tanto" anche perchè io sono solo uno dei tanti iscritti al forum... quindi mi rendo conto che seguire tutte le richieste etc. etc. diventa molto impegnativo x te. Proprio x questo ti rinnovo il mio grazie (a prescindere dal fatto che si possa o meno avere uno script o un listato)
Il programma spaziometria, come ho avuto modo già di dirti, è bellissimo... aspetterò con ansia la versione con l'Help aggiornato....

Saluti
Kribio2

 

[Baffoblu]

Lo script è in costruzione,
dopo aver letto bene,
è più facile a farsi che a dirsi.

 

[Baffoblu]

Ecco lo script !

Lo devo ancora ottimizzare per il fatto delle ruote adiacenti a bari e venezia.

di conseguenza si potranno scegliere le ruote base da cagliari a torino.....

Intanto usatelo così che i calcoli li fa giusti.

Quando ho un po di tempo lo ottimizzo.....

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim poste(10)
    Dim r
    Dim p1
    Dim p2
    Dim p3
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(4)
    poste(1) = 1
    poste(2) = 1
    r = CInt(InputBox(" Scegli la ruota ",,"6"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        For p1 = 1 To 5
            For p2 = p1 + 1 To 5
                For p3 = p2 + 1 To 5
                    a = Estratto(idEstr,r,p1)
                    b = Estratto(idEstr,r,p2)
                    c = Estratto(idEstr,r,p3)
                    a1 = Estratto(idEstr,r - 1,p1)
                    b1 = Estratto(idEstr,r - 1,p2)
                    c1 = Estratto(idEstr,r - 1,p3)
                    a2 = Estratto(idEstr,r + 1,p1)
                    b2 = Estratto(idEstr,r + 1,p2)
                    c2 = Estratto(idEstr,r + 1,p3)
                    If a = b + c Or b = a + c Or c = a + b Then
                        ok = 0
                        If a = b + c Then
                            de1 = Decina(b)
                            de2 = Decina(c)
                            ca1 = Cadenza(b)
                            ca2 = Cadenza(c)
                            de3 = de1 + de2
                            If de3 > 9 Then
                                de3 = de3 - 9
                            End If
                            ca3 = ca1 + ca2
                            If ca3 > 9 Then
                                ca3 = ca3 - 9
                            End If
                            z = de3 * 10
                            z1 = z + ca3
                            If z1 = a Then
                                k1 = Decina(a)
                                k2 = Cadenza(a)
                                k3 = k1 + k2
                                If k3 > 9 Then
                                    k3 = k3 - 9
                                End If
                                ok = 1
                                n(1) = Fuori90(k3 + a1)
                                n(2) = Fuori90(k3 + a2)
                                w1 = Fuori90(b1 + c1)
                                w2 = Fuori90(b2 + c2)
                                n(3) = Fuori90(k3 + w1)
                                n(4) = Fuori90(k3 + w2)
                                EliminaRipetuti n
                            End If
                        End If
                        If b = a + c Then
                            de1 = Decina(a)
                            de2 = Decina(c)
                            ca1 = Cadenza(a)
                            ca2 = Cadenza(c)
                            de3 = de1 + de2
                            If de3 > 9 Then
                                de3 = de3 - 9
                            End If
                            ca3 = ca1 + ca2
                            If ca3 > 9 Then
                                ca3 = ca3 - 9
                            End If
                            z = de3 * 10
                            z1 = z + ca3
                            If z1 = b Then
                                k1 = Decina(b)
                                k2 = Cadenza(b)
                                k3 = k1 + k2
                                If k3 > 9 Then
                                    k3 = k3 - 9
                                End If
                                ok = 1
                                n(1) = Fuori90(k3 + b1)
                                n(2) = Fuori90(k3 + b2)
                                w1 = Fuori90(a1 + c1)
                                w2 = Fuori90(a2 + c2)
                                n(3) = Fuori90(k3 + w1)
                                n(4) = Fuori90(k3 + w2)
                                EliminaRipetuti n
                            End If
                        End If
                        If c = a + b Then
                            de1 = Decina(a)
                            de2 = Decina(b)
                            ca1 = Cadenza(a)
                            ca2 = Cadenza(b)
                            de3 = de1 + de2
                            If de3 > 9 Then
                                de3 = de3 - 9
                            End If
                            ca3 = ca1 + ca2
                            If ca3 > 9 Then
                                ca3 = ca3 - 9
                            End If
                            z = de3 * 10
                            z1 = z + ca3
                            If z1 = c Then
                                k1 = Decina(c)
                                k2 = Cadenza(c)
                                k3 = k1 + k2
                                If k3 > 9 Then
                                    k3 = k3 - 9
                                End If
                                ok = 1
                                n(1) = Fuori90(k3 + c1)
                                n(2) = Fuori90(k3 + c2)
                                w1 = Fuori90(a1 + b1)
                                w2 = Fuori90(a2 + b2)
                                n(3) = Fuori90(k3 + w1)
                                n(4) = Fuori90(k3 + w2)
                                EliminaRipetuti n
                            End If
                        End If
                        If ok = 1 Then
                            ruote(1) = r
                            ruote(2) = r - 1
                            ruote(3) = r + 1
                            co = co + 1
                            Scrivi String(100,"°") & " Caso n°" & co,1
                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r - 1) & " - " & StringaEstratti(idEstr,r - 1),1
                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r + 1) & " - " & StringaEstratti(idEstr,r + 1),1
                            ColoreTesto 1
                            Scrivi
                            Scrivi "Triade :  " & a & " - " & b & " - " & c,1
                            ColoreTesto 0
                            Scrivi String(100,"°"),1
                            ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
                            Gioca idEstr,1
                        End If
                    End If
                    If ScriptInterrotto Then Exit For
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

 

[kribio2]

Ciao Baffoblu, è fantastico si riscontra una percentuale di esiti positivi quasi sempre del 100%....
grazie per aver creato lo script che, tra l'altro, mi pare molto complesso... (ma questa è una questione tecnica che riguarda la mia limitata conoscenza del linguaggio di programmazione).
tanti complimenti ... e un saluto a te e a tutti gli amici del forum...
a presto
Kribio2

 

[ermis]

Complimenti.
So di essere ignorante. Chi è così gentile da dirma cosa c'è in gioco ora??
Grazie e scusate

 

[kribio2]

Complimenti.
So di essere ignorante. Chi è così gentile da dirma cosa c'è in gioco ora??
Grazie e scusate

Ciao ermis, la descrizione del metodo (descritta all'inizio del post) mi rendo conto è un pò farraginosa ma proprio per questo si cerca di automatizzare certi procedimenti e vedere a livello statistico cosa succede.
Al momento è possibile giocare la seguente previsione

Numeri in gioco : 16.24.54.58 su FI GE MI per Estratto,Ambo
In corso per altre 5 estrazioni

... ma non è l'unica combinazione di numeri che ha elaborato lo script (leggasi anche programma creato da Baffoblu) ...
il mio invito quindi è quello, se ne hai la possibilità, di installare il programma spaziometria e vedere lo script in funzione.
Ciao
Kribio2

 

[ermis]

Grazie kribio2. Troppo gentile e comprensivo. Dato che me lo hai proposto..... Dove posso acquistare questo genere di programmi???
Ciao

 

[kribio2]

Grazie kribio2. Troppo gentile e comprensivo. Dato che me lo hai proposto..... Dove posso acquistare questo genere di programmi???
Ciao

nel forum alla sezione download trovi questo link
http://www.mediafire.com/?1awhr29q2mpnz15

da questa pagina potrai scaricare il programma Spaziometria, software free realizato da Luigi B con la supervisione di Baffoblu e Ramco...
ti resta solo da divertirti

Ciao
Kribio2

 

[giluge]

Ciao ermis, la descrizione del metodo (descritta all'inizio del post) mi rendo conto è un pò farraginosa ma proprio per questo si cerca di automatizzare certi procedimenti e vedere a livello statistico cosa succede.
Al momento è possibile giocare la seguente previsione

Numeri in gioco : 16.24.54.58 su FI GE MI per Estratto,Ambo
In corso per altre 5 estrazioni

... ma non è l'unica combinazione di numeri che ha elaborato lo script (leggasi anche programma creato da Baffoblu) ...
il mio invito quindi è quello, se ne hai la possibilità, di installare il programma spaziometria e vedere lo script in funzione.
Ciao
Kribio2

ciao kribio
come mai a me non esce la tua previsione facendola con lo script di baffo?
grazie

 

[giluge]

ops ora me lo da , ma mi dice ancora per 14 estrazioni

 

[Baffoblu]

Ho verificato, lo script funziona è non ci sono errori questa volta.

28.04.2012 -- FI - 39.69.49.58.43
28.04.2012 -- GE - 02.77.59.09.50
28.04.2012 -- MI - 54.09.53.40.69

Triade :  59 - 9 - 50
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 08528 [ 51 - 28/04/2012]
G 0001
Numeri in gioco : 16.24.54.58 su FI GE MI per Estratto,Ambo

 

[giluge]

Ho verificato, lo script funziona è non ci sono errori questa volta.

28.04.2012 -- FI - 39.69.49.58.43
28.04.2012 -- GE - 02.77.59.09.50
28.04.2012 -- MI - 54.09.53.40.69

Triade :  59 - 9 - 50
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 08528 [ 51 - 28/04/2012]
G 0001
Numeri in gioco : 16.24.54.58 su FI GE MI per Estratto,Ambo

ciao baffo
ma per quante estrazioni ancora in gioco, a me 14

 

[kribio2]

PRESE TRE AMBATE CON L'ESTRAZIONE DEL 10 MAGGIO 2012... CHI SI ACCONTENTA GODE!!!

Triade : 83 - 3 - 80
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 08528 [ 51 - 28/04/2012]
G 0001
Numeri in gioco : 02.13.29.41 su BA CA FI per Estratto,Ambo
V N. [02.13.29.41 ] [BA] [.. .. 02 .. ..] C. 1 Estratto 08529 [ 52 - 02/05/2012]
V N. [02.13.29.41 ] [BA] [.. 13 .. .. ..] C. 2 Estratto 08530 [ 53 - 03/05/2012]
V N. [02.13.29.41 ] [CA] [.. .. .. 02 ..] C. 3 Estratto 08531 [ 54 - 05/05/2012]
V N. [02.13.29.41 ] [FI] [.. 13 .. .. ..] C. 3 Estratto 08531 [ 54 - 05/05/2012]
V N. [02.13.29.41 ] [FI] [.. .. 41 .. ..] C. 5 Estratto 08533 [ 56 - 10/05/2012]

Triade : 10 - 36 - 26
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 08532 [ 55 - 08/05/2012]
G 0001
Numeri in gioco : 52.59.73.74 su NA PA RO per Estratto,Ambo
V N. [52.59.73.74 ] [NA] [.. 73 .. .. ..] C. 1 Estratto 08533 [ 56 - 10/05/2012]
Triade : 41 - 61 - 20
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 08521 [ 44 - 12/04/2012]
G 0001
Numeri in gioco : 05.06.35.62 su PA RO TO per Estratto,Ambo
V N. [05.06.35.62 ] [PA] [.. .. .. .. 06] C. 5 Estratto 08526 [ 49 - 24/04/2012]
V N. [05.06.35.62 ] [TO] [.. .. 35 .. ..] C. 5 Estratto 08526 [ 49 - 24/04/2012]
V N. [05.06.35.62 ] [PA] [35 .. .. .. ..] C. 7 Estratto 08528 [ 51 - 28/04/2012]
V N. [05.06.35.62 ] [RO] [.. .. 06 .. ..] C. 7 Estratto 08528 [ 51 - 28/04/2012]
V N. [05.06.35.62 ] [TO] [.. 62 .. .. ..] C. 7 Estratto 08528 [ 51 - 28/04/2012]
V N. [05.06.35.62 ] [RO] [.. 35 .. .. ..] C. 8 Estratto 08529 [ 52 - 02/05/2012]
V N. [05.06.35.62 ] [RO] [.. 06 .. .. ..] C. 9 Estratto 08530 [ 53 - 03/05/2012]
V N. [05.06.35.62 ] [TO] [.. .. .. .. 05] C. 12 Estratto 08533 [ 56 - 10/05/2012]

 

[ermis]

Grazie Kribio per la tua risposta. Ora sono al lavoro ma stasera provo con il computer di casa. Spero di capirci!!!!!!
Ciao
Cristina (ermis)