Armonia Quadratica - di Fabarri

[salvo50]

Ciao a Tutti!

Ho intenzione di fare uno script su questo metodo di Fabarri, mi sono arenato con i calcoli dove dice:

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

Cioè, la domanda è come si fa a moltiplicare in senso inverso, qualcuno lo sà?

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s21.postimg.org\/6thy5kc6v\/Armonia_quadratica_Fabarri.jpg"}[/IMG2]

 

[salvo50]

Ciao a Tutti!
Ho fatto un po' di calcoli basandomi sugli esempi dell'articolo ed ho appurato che non si tratta di moltiplicazioni, ma di addizioni e sottrazioni, calcolando in questo modo si hanno fino ad 4 schemini per ricavare il - Differenziale Triplo - si ricavano 2 ambi per ogni schemino, se in tutte e 4 gli schemini si ricava il - Differenziale Armonico - si avranno fino 8 ambi da giocare, per 2 ruote non è poco.

 

[salvo50]

Ciao a Tutti!

I quattro schemini li ho addizionati in modo da risultarne solo uno, e poi ho fatto i calcoli per trovare l'Armonia Quadratica, quindi ho potuto completare lo script, nello script ho sfruttato la funzione - FUNCTION - se gli esperti mi danno qualche consiglio su come migliorarla, lo accetto volentieri.

Ecco il codice

'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq,x1,x2,x
Dim fin,Ini,ru(2),poste(2),estr3,estr4,caso
Dim idestr,col,esqcol,nn1(2),nn2(2)
Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
Dim findiffor,findiffve,findiffin,quacinq
Sub Main
    TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,4,0
    Scrivi
    Scrivi
    'poste(1) = 1
    quacinq = 45
    poste(2) = 1
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9284)
    clp = InputBox("Per quanti colpi vuoi fare la ricerca",,12)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,11))
    caso = 0
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        ru(1) = r1
                        ru(2) = r2
                        If Differenza(estr1,estr4) = 45 Then
                            armoni ' calcoli per distanze
                            If findiffor = findiffve And findiffor <> findiffin Then
                                x = Fuori90(quacinq - findiffor)
                                x1 = Fuori90(estr2 - x)
                                x2 = Fuori90(estr2 + x)
                                estr2 = Fuori90(x1 + x2)
                                x1 = Fuori90(estr3 - x)
                                x2 = Fuori90(estr3 + x)
                                estr3 = Fuori90(x1 + x2)
                                armoni ' calcoli per distanze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr1,estr4) = 45 Then
                                        scriv
                                        nn1(1) = estr1
                                        nn1(2) = estr3
                                        ImpostaGiocata 1,nn1,ru,poste,clp
                                        nn2(1) = estr2
                                        nn2(2) = estr4
                                        ImpostaGiocata 2,nn2,ru,poste,clp
                                    End If
                                End If
                            End If
                        End If
                        If Differenza(estr2,estr3) = 45 Then
                            armoni ' calcoli per distanze
                            If findiffor = findiffve And findiffor <> findiffin Then
                                x = Fuori90(quacinq - findiffor)
                                x1 = Fuori90(estr1 - x)
                                x2 = Fuori90(estr1 + x)
                                estr1 = Fuori90(x1 + x2)
                                x1 = Fuori90(estr4 - x)
                                x2 = Fuori90(estr4 + x)
                                estr4 = Fuori90(x1 + x2)
                                armoni ' calcoli per distanze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr2,estr3) = 45 Then
                                        scriv
                                        nn1(1) = estr1
                                        nn1(2) = estr3
                                        ImpostaGiocata 3,nn1,ru,poste,clp
                                        nn2(1) = estr2
                                        nn2(2) = estr4
                                        ImpostaGiocata 4,nn2,ru,poste,clp
                                        Gioca es
                                    End If
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
Function armoni
    'distanze orizzontali tra i due ambi
    dist13or = Distanza(estr1,estr3)
    dist24or = Distanza(estr2,estr4)
    'distanze verticali tra i due ambi
    dist12ve = Distanza(estr1,estr2)
    dist34ve = Distanza(estr3,estr4)
    'distanze incrociate tra i due ambi
    dist14in = Distanza(estr1,estr4)
    dist32in = Distanza(estr3,estr2)
    'differenze finali
    findiffor = Differenza(dist13or,dist24or)
    findiffve = Differenza(dist12ve,dist34ve)
    findiffin = Differenza(dist14in,dist32in)
End Function
Function scriv
    Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
    Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
    Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
    Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
    Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
    caso = caso + 1
    Scrivi "---------------------------------------------------------------------------------------" & caso
    Scrivi "Armonia Quadratica     " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
    ColoreTesto 1
    Scrivi "***************************************************************************************"
    ColoreTesto 0
End Function

 

[salvo50]

Ciao a Tutti!

Non riesco a capire la differenza tra queste due righe

If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) Or Differenza(estr2,estr3) = 45 Then

Per me dovrebbero essere uguali, invece per lo script non sono uguali

Se metto la prima lo script fa passare solo le combinazioni che nelle diagonali abbiano la differenza di 45

estr1 estr3
estr2 estr4

se invece metto la seconda riga, lo script fa passare tutto, anche le combinazioni che nelle diagonali non hanno la differenza di 45, come se la riga non esistesse, infatti ho fatto la prova a toglierla e non è cambiato niente, quello che è strano per me è che non mi dà errore, cioè con la seconda riga mi dovrebbe dare errore. Metto i due codici

'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Sub Main
    'TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,3,0
    Scrivi
    Scrivi
    Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq
    Dim fin,Ini,estr3,estr4,caso
    Dim idestr,col,esqcol
    Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
    Dim findiffor,findiffve,findiffin
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,fin)
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then
                            'distanze orizzontali tra i due ambi
                            dist13or = Differenza(estr1,estr3)
                            dist24or = Differenza(estr2,estr4)
                            'distanze verticali tra i due ambi
                            dist12ve = Differenza(estr1,estr2)
                            dist34ve = Differenza(estr3,estr4)
                            'distanze incrociate tra i due ambi
                            dist14in = Differenza(estr1,estr4)
                            dist32in = Differenza(estr3,estr2)
                            'differenze finali
                            findiffor = Differenza(dist13or,dist24or)
                            findiffve = Differenza(dist12ve,dist34ve)
                            findiffin = Differenza(dist14in,dist32in)
                            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                            Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
                            Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
                            Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
                            Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------------- " & caso
                            Scrivi "Differenziale Triplo   " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
                            ColoreTesto 1
                            Scrivi "***************************************************************************************"
                            ColoreTesto 0
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub

'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50
Option Explicit
Sub Main
    'TestoInBandaPassante "***** Progetto ARMONIA QUADRATICA by Fabarri, script by Salvo50 ****** ",1,3,0
    Scrivi
    Scrivi
    Dim r1,p1,p2,es,r2,estr1,estr2,clp,esq
    Dim fin,Ini,estr3,estr4,caso
    Dim idestr,col,esqcol
    Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
    Dim findiffor,findiffve,findiffin
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,fin)
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            For r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        estr1 = Estratto(es,r1,p1)
                        estr2 = Estratto(es,r1,p2)
                        estr3 = Estratto(es,r2,p1)
                        estr4 = Estratto(es,r2,p2)
                        If Differenza(estr1,estr4) Or Differenza(estr2,estr3) = 45 Then
                            'distanze orizzontali tra i due ambi
                            dist13or = Differenza(estr1,estr3)
                            dist24or = Differenza(estr2,estr4)
                            'distanze verticali tra i due ambi
                            dist12ve = Differenza(estr1,estr2)
                            dist34ve = Differenza(estr3,estr4)
                            'distanze incrociate tra i due ambi
                            dist14in = Differenza(estr1,estr4)
                            dist32in = Differenza(estr3,estr2)
                            'differenze finali
                            findiffor = Differenza(dist13or,dist24or)
                            findiffve = Differenza(dist12ve,dist34ve)
                            findiffin = Differenza(dist14in,dist32in)
                            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                            Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "   Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
                            Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
                            Scrivi "  " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
                            Scrivi "  " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------------- " & caso
                            Scrivi "Differenziale Triplo   " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
                            ColoreTesto 1
                            Scrivi "***************************************************************************************"
                            ColoreTesto 0
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub

 

[avio]

ciao

f Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) (qui non hai dichiarato niente) Or Differenza(estr2,estr3) = 45 Then

vedendo il primo esempio 15-69 ha usato la funzione "distanza" 69-15 =36 --- differenza 69-15=54

usa distanza e non differenza e vedi se ti trovi

 

[salvo50]

Ciao Avio!

If Differenza(estr1,estr4) = 45 Or Differenza(estr2,estr3) = 45 Then

If Differenza(estr1,estr4) (qui non hai dichiarato niente) Or Differenza(estr2,estr3) = 45 Then

Quindi ogni condizione anche se le condizioni sono uguali, bisogna dichiarle ad una ad una.

Grazie!

Per il fatto di usare Differenza o Distanza li ho usati tutte e due perchè non ho capito il calcolo che fà il Fabarri e quindi ho sperimentato.

 

[salvo50]

Ciao a Tutti!

Volevo capire come il Fabarri fosse arrivato con i calcoli a modificare i due ambi messi in quadrato, ed ho cercato nei vari siti che trattano l'argomento e non nè ho trovato neanche uno che spiegasse passo passo come fare i calcoli, tutti ripetano come una cantilena questo passo

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

anzi, modificato così

- e si modificano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

(quindi avevo intuito bene che non poteva essere moltiplicano),

e si riportano gli esempi del Fabarri, quindi ne deduco che nessuno ha capito come il Fabarri a fatto i cacoli, oppure qualcuno l'ha capito e non lo vuole dire.

 

[rabberto]

Ciao salvo50 anche io sono un appassionate del grande Fabarri soprattutto per spunti ciclometrici , non so fare script pero' dai un occhiata in questa discussione vedi se trovi qualcosa di tuo interesse , ciao.

http://forum.lottoced.com/forum/lottoced/area-download/108149-per-gli-scripter-un-favore

Se hai bisogno di metodi del grande Fabarri fammi sapere ne ho parecchi , ciao.

 

[salvo50]

Ciao Rabberto!

Ho seguito tutti i post, ma quegli script postati da Blackmore, Mike58 e Rosanna (per me tutti e tre come scripter sono dei mostri sacri) sono un pochino diversi da quello che ho fatto qui, li i calcoli richiesti sono specificati bene, non ci sono dubbi come procedere.

In questo periodo mi è venuto il pallino dei metodi di Fabarri, adesso sto facendo due altri script, uno su - IL COEFFICIENTE MEDIO INTEGRATORE - e l'altro sul - QUADRATO ARMONICO - appena li finisco li posto, di metodi del Fabarri ne ho anch'io parecchi, magari faccio un elenco di quelli che ho.

 

[joe]

Ciao Salvo,

Se posso permetermi, Fabarri essendo oltre che amante del Lotto,

anche Avvocato, non ha bisogno della mia difesa ... e neppure della mia interpretazione,

conoscendo da sè il significato delle parole e del modo di esprimersi.

Dunque, suppongo avesse voluto scrivere distanza non avrebbe scritto differenza.

Per quanto riguarda invece gli operatori logici seguono le regole Booleane.

Pur vero quanto scrive Avio: Il primo test era scritto in maniera errata.

Il mio consiglio comunque è quello di dividere i vari-test più linee di script.

If (I° test = vero) Then
   If (II° test = vero) Then
        ' tutte due ... le condizioni sono verificate.
   End If
End If

Altrimenti concatenando i test con And ed Or e/o gli altri operatori logici

può accadere che il "risultato del codice" non corrisponda a quanto si vorrebbe.

Cioè che i test vengano eseguiti, secondo "altre" gerarchie-logiche,

pertanto, con altri schemi che conducono ad altri risultati, diversi da quelli voluti.

 

[salvo50]

Ciao Joe!

.

Dunque, suppongo avesse voluto scrivere distanza non avrebbe scritto differenza.

Anch'io la penso così, però il Fabarri nel primo esempio fa solo differenze, nel secondo esempio li mischia, li usa tutte e due, all'inizio l'avevo fatto solo con le differenze poi con le ricerche avevo visto che risultavano pochissimi casi, quindi ho provato con distanze e ne sono risultate molte di più, comunque penso che per rispettare il metodo, si dovrebbero cercare le differenze.

.

Altrimenti concatenando i test con And ed Or e/o gli altri operatori logici

può accadere che il "risultato del codice" non corrisponda a quanto si vorrebbe.

Cioè che i test vengano eseguiti, secondo "altre" gerarchie-logiche,

cioè con altri schemi e perciò con risultati, diversi da quelli voluti.

Me ne sono accorto.

 

[salvo50]

Ciao salvo50 anche io sono un appassionate del grande Fabarri soprattutto per spunti ciclometrici , non so fare script pero' dai un occhiata in questa discussione vedi se trovi qualcosa di tuo interesse , ciao.

http://forum.lottoced.com/forum/lottoced/area-download/108149-per-gli-scripter-un-favore

Se hai bisogno di metodi del grande Fabarri fammi sapere ne ho parecchi , ciao.

Ciao Rabberto!

Ho controllato, i metodi del Fabarri in mio possesso e ho constatato che non ne ho molti, perche sono quasi tutti doppioni con titoli diversi, quindi se puoi farmeli avere te ne sarei grato.

 

[rabberto]

Ciao salvo50 sicuramente pure io ho parecchi doppioni ti metto quelli che ho , ciao.

https://1drv.ms/u/s!Ar0T3yqnPTipmG9DuiuIxqVGrTpM

 

[salvo50]

Ho scaricato.
Grazie.

 

[Amedeo1972]

Ciao salvo50 sicuramente pure io ho parecchi doppioni ti metto quelli che ho , ciao.

https://.............................. pure io sempre gentile e disponibile , ciao.

 

[Enplein]

Ciao a Tutti!

Volevo capire come il Fabarri fosse arrivato con i calcoli a modificare i due ambi messi in quadrato, ed ho cercato nei vari siti che trattano l'argomento e non nè ho trovato neanche uno che spiegasse passo passo come fare i calcoli, tutti ripetano come una cantilena questo passo

- e si moltiplicano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

anzi, modificato così

- e si modificano gli altri due con numeri corrispondenti alla differenza orizzontale già registrata, ma in senso inverso. -

(quindi avevo intuito bene che non poteva essere moltiplicano),

e si riportano gli esempi del Fabarri, quindi ne deduco che nessuno ha capito come il Fabarri a fatto i cacoli, oppure qualcuno l'ha capito e non lo vuole dire.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Ciao a Tutti, penso di aver capito il procedimento:

Prendo l'ultimo esempio 05.44 / 41.50
...........................Triplo differenziale
...........................Or. Vr. Dg
05 44..................39 36 45
41 50..................09 06 03
----------------------------------
...........................30 30 42

Per armonizzare il quadrato bisogna fare questi calcoli:
Ferno restante l'ambo diametrale 05.50, si opera sulle distanze orizzontali
di segno inverso (+39)-->(-39) e (-9)-->(+9), quindi otteniamo:
(5+90)=95-39=56
50+9=59
Ambi armonizzati sono: 05.56 o 50.59
L'esito dell'ambo 50.59 su PA armonizza il quadrato
.................................Or.Vr.Dg.
05 44.......................39 36 45
59.50.......................09 06 15
--------------------------------------
...............................30 30 30

Nella speranza di non aver commesso errori e di essere stato chiaro, saluto.

Ciao, Enplein.

 

[salvo50]

Ciao!

Visto e controllato, mi sembra un ottimo procedimento, devo vedere se funziona anche con il primo esempio

52 32
21 07

 

[Enplein]

Ciao!

Visto e controllato, mi sembra un ottimo procedimento, devo vedere se funziona anche con il primo esempio

52 32
21 07

Ciao salvo50, funziona con tutti casi ....

..............Or.Vr.Dg.
52.32.....20 31 45
21.07.....14 25 11
-----------------------
..............06 06 34

Calcolo per armonizzare il quadrato:
52+20=72 1° Ambo 52.72
(07+90)=97-14=83 2° Ambo 07.83

1° Quadrato
.............Or.Vr.Dg.
52.72....20 31 45
21.07....14 25 39
-----------------------
.............06 06 06

2° Quadrato
.............Or.Vr.Dg.
52.32....20 31 45
83.07....14 25 39
-----------------------
​​​​​​​.............06 06 06

Ciao, Enplein.

 

[salvo50]

Benissimo, quello che non capisco è perche nel primo esempio 52 32....20, si deve sommare, la riga di sopra e nel secondo esempio 05 44 ......39, si deve sottrarre, lo so che l'hai già spiegato in queste righe
- si opera sulle distanze orizzontali di segno inverso (+39)-->(-39) e (-9)-->(+9) -
però non l'ho capito, vorrei capirlo bene, così posso modificare lo script.

Grazie!

 

[Enplein]

Benissimo, quello che non capisco è perche nel primo esempio 52 32....20, si deve sommare, la riga di sopra e nel secondo esempio 05 44 ......39, si deve sottrarre, lo so che l'hai già spiegato in queste righe
- si opera sulle distanze orizzontali di segno inverso (+39)-->(-39) e (-9)-->(+9) -
però non l'ho capito, vorrei capirlo bene, così posso modificare lo script.

Grazie!

...riporto l'esempio sopra postato...
52.32 dist.20
21.07 dist.14

il numero centrale è il 52, quindi la chiusura simmetrica è data dal [ 72 ] (+20) 52 (-20) 32
l'altro centrale e' il 07, quindi la sua chiusura simmetrica è data da 21 (+14) 07 (-14) [ 83 ]

1^ ambo 72.52
2^ ambo 07.83

Spero che questo esempio possa darti la possibilità di capire il meccanismo.

ciao, Enplein