Novità

Armonia Quadratica - di Fabarri

salvo50

Advanced Member >PLATINUM PLUS<
Si l'ho capito, quindi hai risolto l'arcano, adesso devo vedere come modificare lo script in modo che faccia i calcoli giusti.

Grazie Mille!
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Ho applicato l'algoritmo scoperto da Enplein, ed ho inserito anche le combinazioni dove la differenza diversa viene in orizzontale ed in verticale, prima (negli script già postati )avevo inserito solo le combinazioni dove la differenza errata veniva solo nei calcoli incrociati (o diagonali). Però in ogni combinazione vengono quasi sempre 2 numeri uguali e questo avviene perche nei calcoli fatti a mano per far venire le tre differenze tutte uguali, a volte si fa la differenza ed anche la distanza assieme, lo script o fa la differenza oppure fa la distanza, si potrebbe fare in modo di fargli fare le due combinazioni distanza e differenza insieme finche non trova la combinazione giusta, però non ho idea di come farlo. Ecco lo script

Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50 con la collaborazione di Enplein
Option Explicit
Dim r1,p1,p2,es,r2,clp,esq,caso
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol,nn1(2),nn2(2)
Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Sub Main
    Scrivi
    Scrivi
    'poste(1) = 1
    poste(2) = 1
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9160)
    clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,3))
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,150))
    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
                            If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
                                If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
                                    If Differenza(estr2,estr3) <> 45 Then
                                        armoni ' calcoli per differenze
                                        If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
                                            pestr3 = Fuori90((estr1) + dist13or)
                                            mestr3 = Fuori90((estr1) - dist13or)
                                            If pestr3 = estr3 Then estr3 = mestr3
                                        Else
                                            estr3 = pestr3
                                        End If
                                        pestr2 = Fuori90((estr4) + dist24or)
                                        mestr2 = Fuori90((estr4) - dist24or)
                                        If pestr2 = estr2 Then estr2 = mestr2
                                    Else
                                        estr2 = pestr2
                                    End If
                                End If
                            End If
                        End If
                        armoni ' calcoli per differenze
                        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
                        If Differenza(estr2,estr3) = 45 Then
                            If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
                                If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
                                    If Differenza(estr1,estr4) <> 45 Then
                                        armoni ' calcoli per differenze
                                        If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
                                            pestr1 = Fuori90((estr3) + dist13or)
                                            mestr1 = Fuori90((estr3) - dist13or)
                                            If pestr1 = estr1 Then estr1 = mestr1
                                        Else
                                            estr1 = pestr1
                                        End If
                                        pestr4 = Fuori90((estr2) + dist24or)
                                        mestr4 = Fuori90((estr2) - dist24or)
                                        If pestr4 = estr4 Then estr4 = mestr4
                                    Else
                                        estr4 = pestr4
                                    End If
                                End If
                            End If
                        End If
                        armoni ' calcoli per differenze
                        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
                            End If
                            Gioca es
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
Function armoni
    '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)
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
 
Ultima modifica:

vincenzo4221

Advanced Member >PLATINUM<
Ciao a tutti gli amici dei numeri , ieri è stata estratta su NA e PA una struttura ciclometrica.... chiedo un aiuto per defiinire nire eventuale proposta di pronostico...coppia con distanza orizontale 45 oltre alla presenza dl n.ro 4 in comune ed un isotopia con i numeri in terzina simmetrica 07 e 37 ...quindi NA 56 11 04 67 e PA 08 53 04 07...

Si può utilizzare , qualcuno deigli script , di cui sopra?

Si auspica partecipazione. vista l'allettante opportunità di sviluppo.
 

salvo50

Advanced Member >PLATINUM PLUS<
vincenzo4221;n2060300 ha scritto:
Ciao a tutti gli amici dei numeri , ieri è stata estratta su NA e PA una struttura ciclometrica.... chiedo un aiuto per defiinire nire eventuale proposta di pronostico...coppia con distanza orizontale 45 oltre alla presenza dl n.ro 4 in comune ed un isotopia con i numeri in terzina simmetrica 07 e 37 ...quindi NA 56 11 04 67 e PA 08 53 04 07...

Si può utilizzare , qualcuno deigli script , di cui sopra?

Si auspica partecipazione. vista l'allettante opportunità di sviluppo.

Nell'Armonia Quadratica la distanza 45 è tra le due ruote, però (secondo me) se uno vuole farlo con la stessa ruota può farlo, non applicando gli script di cui sopra, perchè per come sono strutturati se non trovano distanza 45 tra le due ruote, quella combinazione trovata da te, gli script la scartano, ma lo script si può modificare, adesso lo faccio e vediamo cosa pronostica per stasera.

Ciao!
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Non riesco a farlo, preso dalla premura di finire prima delle estrazioni, non ci stò riuscendo, mi dispiace.
 

salvo50

Advanced Member >PLATINUM PLUS<
Dopo molti tentativi sono arrivato ad una conclusione, lo script l'avevo modificato bene, anche perchè non c'è molto da modificare, non uscivano i casi giocabili perchè non c'erano casi giocabili, con la differenza 45 in una o l'altra ruota o tutte due, ho appurato che l'Armonia Quadratica non si verifica spesso, dovrebbe essere la stessa cosa ma non è così, per rendermi conto di questo lo script lo rivoltato come un calzino, alla fine ho fatto i calcoli a mano con carta e penna e mi sono reso conto di quello che ho scritto sopra, così ho aggiornato fino alla 9308, l'ultima estrazione, lanciato lo script ripetendo tutte le volte un'estrazione in meno finchè all'estrazione 9295 si è presentato un caso con Armonia Quadratica nelle ruote di Cagliari Palermo, con la differenza 45 nella ruota di Cagliari.

Non ho messo lo script perchè voglio modificarlo in modo da poter decidere se fare la ricerca con la differenza 45 su due ruote o su una sola ruota.
 

Enplein

Super Member >PLATINUM<
vincenzo4221;n2060300 ha scritto:
Ciao a tutti gli amici dei numeri , ieri è stata estratta su NA e PA una struttura ciclometrica.... chiedo un aiuto per defiinire nire eventuale proposta di pronostico...coppia con distanza orizontale 45 oltre alla presenza dl n.ro 4 in comune ed un isotopia con i numeri in terzina simmetrica 07 e 37 ...quindi NA 56 11 04 67 e PA 08 53 04 07...

Si può utilizzare , qualcuno deigli script , di cui sopra?

Si auspica partecipazione. vista l'allettante opportunità di sviluppo.

Ciao a Tutti, volendo la metodica si può applicare anche su ruota, l'importante
è che la differenza delle distanze oriz. e vert. siano identiche; infatti la quartina di
PA 08.53.04.07 si dimostra idonea per l'armonia quadratica.
......................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

Previsione :
Ambi 12.08 / 53.09 su TU+NZ
Ambo 12.08.53.09 su PA


E' semplicemente un mia personale considerazione.

Ciao, Enplein.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao!

Vincenzo4221 mi aveva chiesto se si potevano utilizzare gli script che ho postato, ed io ho risposto di no, perchè gli script fanno i calcoli con la differenza, cioè il più alto meno il più piccolo, perche avevamo visto con Joe che il Fabarri parla di differenza nell'articolo, poi Vincenzo4221 mi aveva detto di combinare i numeri di Napoli con quelli di Palermo, quindi io non ci ho proprio pensato di usare i numeri di una sola ruota, comunque dopo che si sono trovati i numeri con l'algoritmo, bisogna vedere se con quei numeri trovati si raggiunge l'armonia quadratica, quindo copio ed incollo quello che hai scritto

.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

scusa ho sbagliato ed è partito il post, prima di finire il discorso,
continuo con un'altro post
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

riprendo di dove avevo interrotto, quindi adesso abbiamo

.....................................Or.Vr.Dg.
08 12.............................04 01 45
09.53.............................44 41 03
--------------------------------------------
......................................40 40 42

non è venuta l'armonia quadratica, sempre se ho fatto i calcoli giusti.

Io lo script lo fatto così, dopo aver applicato l'algoritmo e trovato i nuovi numeri, gli faccio rifare di nuovo i conteggi per vedere se si è raggiunta l'armonia quadratica, se non si è raggiunta l'armonia quadratica lo script non la conteggia e passa ad un altra combinazione di 4 numeri.

Comunque quello di usare i numeri ottenuti senza fare la verifica, può essere un idea, magari faccio un altro script e vediamo cosa succede.
 

Enplein

Super Member >PLATINUM<
salvo50;n2060494 ha scritto:
.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

riprendo di dove avevo interrotto, quindi adesso abbiamo

.....................................Or.Vr.Dg.
08 12.............................04 01 45
09.53.............................44 41 03
--------------------------------------------
......................................40 40 42

non è venuta l'armonia quadratica, sempre se ho fatto i calcoli giusti.

Io lo script lo fatto così, dopo aver applicato l'algoritmo e trovato i nuovi numeri, gli faccio rifare di nuovo i conteggi per vedere se si è raggiunta l'armonia quadratica, se non si è raggiunta l'armonia quadratica lo script non la conteggia e passa ad un altra combinazione di 4 numeri.

Comunque quello di usare i numeri ottenuti senza fare la verifica, può essere un idea, magari faccio un altro script e vediamo cosa succede.

...scusa salvo, l'armonizzazione viene applicata usando i due ambi trovati una alla volta.

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

1° Quadrato
..............Or.Vr.Dg.
08.12.....04 01 45
07.53.....44 41 05
-----------------------
..............40 40 40

2° Quadrato
..............Or.Vr.Dg.
08.04.....04 01 45
09.53.....44 41 05
-----------------------
..............40 40 40

Ciao, Enplein.
 

avio

Senior Member
ci sono centinaia di combinazioni senza armonizzare, basta controllare i tre numeri che siano uguali
 

salvo50

Advanced Member >PLATINUM PLUS<
Enplein;n2060498 ha scritto:
...scusa salvo, l'armonizzazione viene applicata usando i due ambi trovati una alla volta.

[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09

1° Quadrato
..............Or.Vr.Dg.
08.12.....04 01 45
07.53.....44 41 05
-----------------------
..............40 40 40

2° Quadrato
..............Or.Vr.Dg.
08.04.....04 01 45
09.53.....44 41 05
-----------------------
..............40 40 40

Ciao, Enplein.

Ciao a Tutti!

Allora ho confuso lucciole con lanterne, rifaccio tutto.

Grazie!
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
L'ho fatto, la prima parte dei calcoli con le distanze e la seconda parte con le differenze, perchè con solo le differenze, su 308 estrazioni venivano fuori solo 17 casi possibili di armonia quadratica, invece adesso su 308 estrazioni son venute fuori 1533 casi di armonia quadratica, lo posto, però ha un difetto che non riesco a togliere, i risultati sulle distanze diametrali con differenza 45 negli estratti 1 e 4 li fa, invece con la distanza 45 sugli estratti 2 e 3 i calcoli e visualizzazioni non li fà, non è un errore di calcoli perche ho preso tutta la parte che riguardava la distanza 45 sugli estratti 2 e 3 e messo in un'altro script nuovo e funziona.


Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50 con la collaborazione di Enplein
Option Explicit
Dim r1,p1,p2,es,r2,clp,esq,caso,casi
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol
Dim dist13ve,dist24ve,dist12or,dist34or,dist14in,dist23in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Dim e1,e2,nn1(2),nn2(2),nn3(2),nn4(2),nn5(2),nn6(2),nn7(2),nn8(2)
Sub Main
    Scrivi
    Scrivi
    'poste(1) = 1
    poste(2) = 1
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
    clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,1))
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        ColoreTesto 2
        Scrivi String(99,"*") & " Estraz. " & Format2(es)
        ColoreTesto 0
        Scrivi
        caso = 0
        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)
                        e1 = estr1
                        e2 = estr2
                        ru(1) = r1
                        ru(2) = r2
                        If Differenza(estr1,estr4) = 45 Then
                            If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
                                If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
                                    If Differenza(estr2,estr3) <> 45 Then
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
                                            pestr2 = Fuori90((estr1) + dist12or)
                                            mestr2 = Fuori90((estr1) - dist12or)
                                            If pestr2 = estr2 Then estr2 = mestr2
                                        Else
                                            estr2 = pestr2
                                        End If
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                            If Differenza(estr1,estr4) = 45 Then
                                                scriv
                                                nn1(1) = estr1
                                                nn1(2) = estr2
                                                ImpostaGiocata 1,nn1,ru,poste,clp
                                                nn2(1) = estr3
                                                nn2(2) = estr4
                                                ImpostaGiocata 2,nn2,ru,poste,clp
                                            End If
                                            Gioca es
                                            estr2 = e2
                                            quadratura
                                            pestr3 = Fuori90((estr4) + dist34or)
                                            mestr3 = Fuori90((estr4) - dist34or)
                                            If pestr3 = estr3 Then estr3 = mestr3
                                        Else
                                            estr3 = pestr3
                                        End If
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                            scriv
                                            If Differenza(estr1,estr4) = 45 Then
                                                nn3(1) = estr1
                                                nn3(2) = estr2
                                                ImpostaGiocata 3,nn3,ru,poste,clp
                                                nn4(1) = estr3
                                                nn4(2) = estr4
                                                ImpostaGiocata 4,nn4,ru,poste,clp
                                            End If
                                            Gioca es
                                        End If
                                    End If
                                End If
                            End If
                        End If
                        'Scrivi "***********************************************************************************************************"
                        If Differenza(estr2,estr3) = 45 Then
                            If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
                                If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
                                    If Differenza(estr1,estr4) <> 45 Then
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
                                            pestr1 = Fuori90((estr2) + dist12or)
                                            mestr1 = Fuori90((estr2) - dist12or)
                                            If pestr1 = estr1 Then estr1 = mestr1
                                        Else
                                            estr1 = pestr1
                                        End If
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                            If Differenza(estr2,estr3) = 45 Then
                                                scriv
                                                nn5(1) = estr1
                                                nn5(2) = estr2
                                                ImpostaGiocata 5,nn5,ru,poste,clp
                                                nn6(1) = estr3
                                                nn6(2) = estr4
                                                ImpostaGiocata 6,nn6,ru,poste,clp
                                            End If
                                            Gioca es
                                        End If
                                    End If
                                    estr1 = e1
                                    quadratura
                                    pestr4 = Fuori90((estr3) + dist34or)
                                    mestr4 = Fuori90((estr3) - dist34or)
                                    If pestr4 = estr4 Then estr4 = mestr4
                                Else
                                    estr4 = pestr4
                                End If
                                quadratura ' calcoli per differenze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr2,estr3) = 45 Then
                                        scriv
                                        nn7(1) = estr1
                                        nn7(2) = estr2
                                        ImpostaGiocata 7,nn7,ru,poste,clp
                                        nn8(1) = estr3
                                        nn8(2) = estr4
                                        ImpostaGiocata 8,nn8,ru,poste,clp
                                    End If
                                    Gioca es
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
Function quadratura
    'distanze orizzontali tra i due ambi
    dist12or = Distanza(estr1,estr2)
    dist34or = Distanza(estr3,estr4)
    'distanze verticali tra i due ambi
    dist13ve = Distanza(estr1,estr3)
    dist24ve = Distanza(estr2,estr4)
    'distanze incrociate tra i due ambi
    dist14in = Distanza(estr1,estr4)
    dist23in = Distanza(estr2,estr3)
    'differenze finali
    findiffor = Differenza(dist12or,dist34or)
    findiffve = Differenza(dist13ve,dist24ve)
    findiffin = Differenza(dist14in,dist23in)
End Function
Function scriv
    caso = caso + 1
    casi = casi + 1
    ColoreTesto 1
    Scrivi String(90,"*") & " Caso N" & Format2(caso) & " Estraz. " & Format2(es)
    Scrivi String(90,"*") & " Casi Totali N" & Format2(casi)
    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(estr2) & Space(16) & Format2(dist12or) & Space(19) & Format2(dist13ve) & Space(19) & Format2(dist14in)
    Scrivi "  " & Format2(estr3) & Space(1) & Format2(estr4) & Space(16) & Format2(dist34or) & Space(19) & Format2(dist24ve) & Space(19) & Format2(dist23in)
    Scrivi "---------------------------------------------------------------------------------------"
    Scrivi "Armonia Quadratica     " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
    ColoreTesto 0
End Function
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Posto l'altro script, quello con distanza 45 solo negli estratti 2 e 3.

Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script   - by Salvo50 con la collaborazione di Enplein
'Cerca le combinazioni che hanno la differenza 45 tra gli estratti 2 e 3
Dim r1,p1,p2,es,r2,clp,esq,caso,casi
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol
Dim dist13ve,dist24ve,dist12or,dist34or,dist14in,dist23in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Dim e1,e2,nn1(2),nn2(2),nn3(2),nn4(2)
Sub Main
    Scrivi
    Scrivi
    'poste(1) = 1
    poste(2) = 1
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
    clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,1))
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        ColoreTesto 2
        Scrivi String(99,"*") & " Estraz. " & Format2(es)
        ColoreTesto 0
        Scrivi
        caso = 0
        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)
                        e1 = estr1
                        e2 = estr2

                        ru(1) = r1
                        ru(2) = r2
                        If Differenza(estr2,estr3) = 45 Then
                            If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
                                If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
                                    If Differenza(estr1,estr4) <> 45 Then
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
                                            pestr1 = Fuori90((estr2) + dist12or)
                                            mestr1 = Fuori90((estr2) - dist12or)
                                            If pestr1 = estr1 Then estr1 = mestr1
                                        Else
                                            estr1 = pestr1
                                        End If
                                        quadratura ' calcoli per differenze
                                        If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                            If Differenza(estr2,estr3) = 45 Then
                                                scriv
                                                nn1(1) = estr1
                                                nn1(2) = estr2
                                                ImpostaGiocata 1,nn1,ru,poste,clp
                                                nn2(1) = estr3
                                                nn2(2) = estr4
                                                ImpostaGiocata 2,nn2,ru,poste,clp
                                            End If
                                            Gioca es
                                        End If
                                    End If
                                    estr1 = e1
                                    quadratura
                                    pestr4 = Fuori90((estr3) + dist34or)
                                    mestr4 = Fuori90((estr3) - dist34or)
                                    If pestr4 = estr4 Then estr4 = mestr4
                                Else
                                    estr4 = pestr4
                                End If
                                quadratura ' calcoli per differenze
                                If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
                                    If Differenza(estr2,estr3) = 45 Then
                                        scriv
                                        nn3(1) = estr1
                                        nn3(2) = estr2
                                        ImpostaGiocata 3,nn3,ru,poste,clp
                                        nn4(1) = estr3
                                        nn4(2) = estr4
                                        ImpostaGiocata 4,nn4,ru,poste,clp
                                    End If
                                    Gioca es
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
Function quadratura
    'distanze orizzontali tra i due ambi
    dist12or = Distanza(estr1,estr2)
    dist34or = Distanza(estr3,estr4)
    'distanze verticali tra i due ambi
    dist13ve = Distanza(estr1,estr3)
    dist24ve = Distanza(estr2,estr4)
    'distanze incrociate tra i due ambi
    dist14in = Distanza(estr1,estr4)
    dist23in = Distanza(estr2,estr3)
    'differenze finali
    findiffor = Differenza(dist12or,dist34or)
    findiffve = Differenza(dist13ve,dist24ve)
    findiffin = Differenza(dist14in,dist23in)
End Function
Function scriv
    caso = caso + 1
    casi = casi + 1
    ColoreTesto 1
    Scrivi String(90,"*") & " Caso N" & Format2(caso) & " Estraz. " & Format2(es)
    Scrivi String(90,"*") & " Casi Totali N" & Format2(casi)
    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(estr2) & Space(16) & Format2(dist12or) & Space(19) & Format2(dist13ve) & Space(19) & Format2(dist14in)
    Scrivi "  " & Format2(estr3) & Space(1) & Format2(estr4) & Space(16) & Format2(dist34or) & Space(19) & Format2(dist24ve) & Space(19) & Format2(dist23in)
    Scrivi "---------------------------------------------------------------------------------------"
    Scrivi "Armonia Quadratica     " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
    ColoreTesto 0
End Function
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Vincenzo!

L'ultimo è la seconda parte del penultimo, nel penultimo faccio fare i calcoli della distanza 45 tra i numeri il primo della prima ruota ed il secondo della seconda ruota ed anche (sempre la distanza 45) tra il secondo della prima ruota ed il primo della seconda ruota, e mi ero accorto che la seconda parte non la faceva tutta, allora con la seconda parte ho fatto l'ultimo script, non ho fatto anche la prima parte perchè c'era già nel penultimo script. Però dato che mi dici che il secondo va bene adesso faccio uno script con solo la prima parte del penultimo script.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto