Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Ciao a Tutti.
COME VINCERE LA QUATERNA A RUOTA di FRANCO MONGILLO
Ho fatto lo script e la prima cosa che ho notato è che il terno dello script di Enplein qui non c'è, ho fatto dei controlli, ed ho visto che nello script postato da Enplein non ci sono le quaterne che Mongillo segnala nel metodo, nel primo quello delle basi dispari, risultano 2 ambi, in quello delle basi pari, niente non vede neanche le ruote, allora penso che Enplein lo script l'abbia fatto con altre spiegazioni, non con quelle postate da Matematico, io ho seguito le spiegazioni postate da Matematico e le 2 quaterne ci sono, ho fatto altri controlli ho impostato la ricerca dall'estrazione 7613 - (27-06-2006) all'estrazione 7663 - (21-10-2006) e sono risultate 3 quaterne a tutte ed una a ruota





Nello script alla terza domanda si può decidere se disegnare il cerchio ciclometrico, con risposta 1 lo disegna, con qualsiasi altro numero non lo disegna, quindi impiega meno tempo per le ricerche.

Ecco lo script, salvo errori o dimenticanze

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,Salvo50,X1,X2
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SM14,SM23,DM12,DM43,DM13,DM24,DM14,DM23
   Dim DeX1,DeX2,CaX1,CaX2,Diff1,Abb1,Abb2,Abb3,Abb4
   Dim Amba(1),Penta(5),L(6),M(4),M1(2),Q(6)
   Dim Ruo(2),Ruot(3),Po1(1),Po2(5),Po3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)) '7613 - 7663 esempi nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "COME VINCERE LA QUATERNA A RUOTA - FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po2(3) = 1
   Po2(4) = 1
   Po3(3) = 1
   Po3(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(M(1),M(2)) : DM43 = Distanza(M(4),M(3))' Distanza orizzontale estratti
                        DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
                        SM14 = Fuori90(M(1) + M(4)) : SM23 = Fuori90(M(2) + M(3))'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3)) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE DISPARI
                           If dispari(M1(1)) And dispari(M1(2)) Then
                              X1 = Fuori90((90 + M(1)) - DM12)
                              X2 = Fuori90(M(4) + DM43)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX2 : Abb4 = CaX2 & DeX1
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE DISPARI",1,,,1
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = X1 : L(6) = X2
                                 DisegnaCerchioCiclometrico L,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
            'Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(A,B) : DM43 = Distanza(C,D)' Distanza orizzontale estratti
                        DM13 = Distanza(A,D) : DM24 = Distanza(C,B)' Distanza diagonale estratti
                        SM14 = Fuori90(A + C) : SM23 = Fuori90(B + D)'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(A,C) : DM23 = Distanza(B,D) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE PARI
                           If pari(M1(1)) And pari(M1(2)) Then
                              X1 = M1(2) \ 2 : X1 = Fuori90(X1 + C)
                              X2 = M1(1) \ 2 : X2 = Fuori90(X2 + B)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX1 : Abb4 = CaX2 & DeX2
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Q(1) = A : Q(2) = B : Q(3) = C : Q(4) = D : Q(5) = X1 : Q(6) = X2
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE PARI",1,,,2
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 DisegnaCerchioCiclometrico Q,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Con interruzione giocate alla prima uscita

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,K,Es,Cer,Salvo50,X1,X2
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SM14,SM23,DM12,DM43,DM13,DM24,DM14,DM23
   Dim DeX1,DeX2,CaX1,CaX2,Diff1,Abb1,Abb2,Abb3,Abb4
   Dim Amba(1),Penta(5),L(6),M(4),M1(2),Q(6)
   Dim Ruo(2),Ruot(3),Po1(1),Po2(5),Po3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)) '7613 - 7663 esempi nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Come Vincere La Quaterna a Ruota - Franco Mongillo - Script Salvo50"& Space(9),1,,4,,3,,1
   Scrivi Space(22) & "Con interruzione giocate alla prima uscita"& Space(20),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po2(3) = 1
   Po2(4) = 1
   Po3(2) = 1
   Po3(3) = 1
   Po3(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(M(1),M(2)) : DM43 = Distanza(M(4),M(3))' Distanza orizzontale estratti
                        DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
                        SM14 = Fuori90(M(1) + M(4)) : SM23 = Fuori90(M(2) + M(3))'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3)) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE DISPARI
                           If dispari(M1(1)) And dispari(M1(2)) Then
                              X1 = Fuori90((90 + M(1)) - DM12)
                              X2 = Fuori90(M(4) + DM43)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX2 : Abb4 = CaX2 & DeX1
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE DISPARI",1,,,1
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = X1 : L(6) = X2
                                 DisegnaCerchioCiclometrico L,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp,2
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp,2
                              For K = 1 To 3
                                 ImpostaInterruzioni K,1,1
                                 ImpostaInterruzioni K,2,2
                                 ImpostaInterruzioni K,3,2
                              Next
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
            'Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(A,B) : DM43 = Distanza(C,D)' Distanza orizzontale estratti
                        DM13 = Distanza(A,D) : DM24 = Distanza(C,B)' Distanza diagonale estratti
                        SM14 = Fuori90(A + C) : SM23 = Fuori90(B + D)'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(A,C) : DM23 = Distanza(B,D) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE PARI
                           If pari(M1(1)) And pari(M1(2)) Then
                              X1 = M1(2) \ 2 : X1 = Fuori90(X1 + C)
                              X2 = M1(1) \ 2 : X2 = Fuori90(X2 + B)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX1 : Abb4 = CaX2 & DeX2
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Q(1) = A : Q(2) = B : Q(3) = C : Q(4) = D : Q(5) = X1 : Q(6) = X2
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE PARI",1,,,2
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 DisegnaCerchioCiclometrico Q,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp,2
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp,2
                              For K = 1 To 3
                                 ImpostaInterruzioni K,1,1
                                 ImpostaInterruzioni K,2,2
                                 ImpostaInterruzioni K,3,2
                              Next
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

 

[Matematico]

Ciao a Tutti.
COME VINCERE LA QUATERNA A RUOTA di FRANCO MONGILLO
Ho fatto lo script e la prima cosa che ho notato è che il terno dello script di Enplein qui non c'è, ho fatto dei controlli, ed ho visto che nello script postato da Enplein non ci sono le quaterne che Mongillo segnala nel metodo, nel primo quello delle basi dispari, risultano 2 ambi, in quello delle basi pari, niente non vede neanche le ruote, allora penso che Enplein lo script l'abbia fatto con altre spiegazioni, non con quelle postate da Matematico, io ho seguito le spiegazioni postate da Matematico e le 2 quaterne ci sono, ho fatto altri controlli ho impostato la ricerca dall'estrazione 7613 - (27-06-2006) all'estrazione 7663 - (21-10-2006) e sono risultate 3 quaterne a tutte ed una a ruota


Vedi l'allegato 2208273


Nello script alla terza domanda si può decidere se disegnare il cerchio ciclometrico, con risposta 1 lo disegna, con qualsiasi altro numero non lo disegna, quindi impiega meno tempo per le ricerche.

Ecco lo script, salvo errori o dimenticanze

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,Salvo50,X1,X2
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SM14,SM23,DM12,DM43,DM13,DM24,DM14,DM23
   Dim DeX1,DeX2,CaX1,CaX2,Diff1,Abb1,Abb2,Abb3,Abb4
   Dim Amba(1),Penta(5),L(6),M(4),M1(2),Q(6)
   Dim Ruo(2),Ruot(3),Po1(1),Po2(5),Po3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)) '7613 - 7663 esempi nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "COME VINCERE LA QUATERNA A RUOTA - FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po2(3) = 1
   Po2(4) = 1
   Po3(3) = 1
   Po3(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(M(1),M(2)) : DM43 = Distanza(M(4),M(3))' Distanza orizzontale estratti
                        DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
                        SM14 = Fuori90(M(1) + M(4)) : SM23 = Fuori90(M(2) + M(3))'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3)) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE DISPARI
                           If dispari(M1(1)) And dispari(M1(2)) Then
                              X1 = Fuori90((90 + M(1)) - DM12)
                              X2 = Fuori90(M(4) + DM43)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX2 : Abb4 = CaX2 & DeX1
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE DISPARI",1,,,1
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = X1 : L(6) = X2
                                 DisegnaCerchioCiclometrico L,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
            'Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D And B <> C And B <> D Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        Call OrdinaMatrice(M,1)
                        'M1--M2
                        '|   |
                        'M4--M3
                        DM12 = Distanza(A,B) : DM43 = Distanza(C,D)' Distanza orizzontale estratti
                        DM13 = Distanza(A,D) : DM24 = Distanza(C,B)' Distanza diagonale estratti
                        SM14 = Fuori90(A + C) : SM23 = Fuori90(B + D)'somma verticale estratti
                        If(DM12 = DM43)And(DM13 = DM24)And SM14 = SM23 Then ' Uguaglianza distanze e somme
                           DM14 = Distanza(A,C) : DM23 = Distanza(B,D) ' distanza verticale
                           M1(1) = DM23 : M1(2) = DM14
                           Call OrdinaMatrice(M1,1)
                           'BASE MAGGIORE E MINORE PARI
                           If pari(M1(1)) And pari(M1(2)) Then
                              X1 = M1(2) \ 2 : X1 = Fuori90(X1 + C)
                              X2 = M1(1) \ 2 : X2 = Fuori90(X2 + B)
                              DeX1 = Decina(X1) : CaX1 = Cadenza(X1)
                              DeX2 = Decina(X2) : CaX2 = Cadenza(X2)
                              Abb1 = DeX2 & CaX1 : Abb2 = DeX1 & CaX2
                              Abb1 = Fuori90(Abb1) : Abb2 = Fuori90(Abb2)
                              Diff1 = Differenza(Abb1,Abb2)
                              Diff1 = Diametrale(Diff1)
                              Abb3 = CaX1 & DeX1 : Abb4 = CaX2 & DeX2
                              Abb3 = Fuori90(Abb3) : Abb4 = Fuori90(Abb4)
                              Amba(1) = Diff1
                              Penta(1) = Diff1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                              Q(1) = A : Q(2) = B : Q(3) = C : Q(4) = D : Q(5) = X1 : Q(6) = X2
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(13) & " BASE MAGGIORE E MINORE PARI",1,,,2
                              Scrivi Space(7) & "Estratti " & Space(4) & "Differenze " & Space(6) & "Somme ",1,0
                              Scrivi Space(7) & "Differenze ",1
                              Scrivi Space(7) & " Validi  " & Space(4) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali",1
                              Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(11) & Format2(DM12),1,0
                              Scrivi Space(13) & Format2(SM14) & Space(12) & Format2(DM13),1
                              Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(3)) & Space(11) & Format2(DM43),1,0
                              Scrivi Space(13) & Format2(SM23) & Space(12) & Format2(DM24),1
                              Scrivi
                              If Cer = 1 Then
                                 DisegnaCerchioCiclometrico Q,1,,,,1
                              End If
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              Ruot(1) = TU_
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                              EliminaRipetuti Penta
                              ImpostaGiocata 2,Penta,Ruo,Po2,Clp
                              ImpostaGiocata 3,Penta,Ruot,Po3,Clp
                              Gioca Es,,,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Grazie1000 salvo50, ottimo script come sempre d'altronde

 

[Enplein]

Buongiorno.

Questo lavoro è stato trattato nel 2011 sul mio Forum, con la collaborazione
di Joe, che saluto, con tutte le spiegazioni del caso.
Inizialmente lo script era X Lottodesk e trasformato x Spaziometria inserendo
la funzione DisegnaCerchioCiclometrico(numeri)

Allego lo script che gira su Spaziometria.

Anticipazione (Spoiler): Come Vincere la Quaterna di F. Mongillo by Enplein

Sub Main()
'dichiaro le variabili
Dim num(6)
Dim ruote(2),rtt(1)
Dim n(4),nr(4),amb(1),lg(5),rt(1),ab1(2),ab2(2),ab3(2),ab4(2)
Dim posta(1),poste1(3),poste2(4)
posta(1)=1: poste1(2)=1.50oste1(3)=.50
poste2(3)=1.50: poste2(4)=0.50
'considero le ultime 100 estrazioni
rs=InputBox("Quante estrazioni vuoi controllare?","F.F.",100)
ini=EstrazioneFin -rs
fin=EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45," ")&"****** (By F. Mongillo) ****** ",1
Scrivi String(40," ")&" COME VINCERE LA QUATERNA ",1
Scrivi String(42," ")&"****** 1a PARTE & 2a PARTE ****** Listed by Enplein ",1
Scrivi
ColoreTesto 0
Scrivi String(50," ")&"****** Rendiconto ****** ",1
Scrivi String(50," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'------------------------------------------------------------
t=0 'inizializza la variabile delle giocate.
For es=ini To fin
Messaggio "Estrazione esaminata: " & CStr(es) 'per sapere a che punto stò
'ricerco le condizioni per il gioco
For r1= 1 To 10
For p= 1 To 4
For pp=p+1 To 5
a=Estratto(es,r1,p) : b=Estratto(es,r1,pp)
dso1=Distanza (a,b)
For r2=r1+1 To 11
If r2=11 Then r2=12
c=Estratto(es,r2,p) : d=Estratto(es,r2,pp)
dso2=Distanza (c,d):smv1=Fuori90 (a+c):smv2=Fuori90 (b+d)
dsd1=Distanza (a,d):dsd2=Distanza (b,c)
If a<>c And a<>d And b<>c And b<>d Then
If dso1=dso2 And dsd1=dsd2 And smv1=smv2 Then
n(1)=a: n(2)=b : n(3)=c: n(4)=d
OrdinaMatrice n,1


'-------------------------------------------------------------------------------
ok=0
df1=Fuori90 ((n(2)+90)-n(1)): df2=Fuori90 ((n(3)+90)-n(2))
df3=Fuori90 ((n(4)+90)-n(3)): df4=Fuori90 ((n(1)+90)-n(4))
If df1=df3 And df2<df4 Then nr(1)=n(1):nr(2)=n(2):nr(3)=n(3):nr(4)=n(4) : ok=1 : dx1=df1
If df1=df3 And df2>df4 Then nr(1)=n(3):nr(2)=n(4):nr(3)=n(1):nr(4)=n(2) : ok=1 : dx1=df1
If df2=df4 And df1<df3 Then nr(1)=n(2):nr(2)=n(3):nr(3)=n(4):nr(4)=n(1) : ok=1 : dx1=df2
If df2=df4 And df1>df3 Then nr(1)=n(4):nr(2)=n(1):nr(3)=n(2):nr(4)=n(3) : ok=1 : dx1=df2
If ok=1 Then
bs2=Fuori90 ((nr(1)+90)-nr(4))
'-------------------------------------------------------------------------------
'Quadratura delle Distanze e delle Somme con i numeri ordinati
do1=Distanza (nr(1),nr(2)) : do2=Distanza (nr(3),nr(4))
dv1=Distanza (nr(1),nr(4)) : dv2=Distanza (nr(2),nr(3))'Base minore
dd1=Distanza (nr(1),nr(3)) : dd2=Distanza (nr(2),nr(4))
So1=Fuori90 (nr(1)+nr(2)) : So2=Fuori90 (nr(3)+nr(4))
Sv1=Fuori90 (nr(1)+nr(4)) : Sv2=Fuori90 (nr(2)+nr(3))
Sd1=Fuori90 (nr(1)+nr(3)) : Sd2=Fuori90 (nr(2)+nr(4))
'rileva la condizione, se e' verificata imposta le giocate
If (pari (smv1)=False ) Or (pari (smv1)=True ) Then
ok1=0 : ok2=0
'Calcolo x trovare la chiusura di figura
If pari (smv1)=False And dx1<bs2 Then
nu1=Fuori90 ((nr(1)+90)-do1): nu2=Fuori90 (nr(4)+do1)
sdx1=Fuori90 (do1+do1+dv2)
bs1=Distanza (nu1,nu2)
sdx2=Fuori90 (do1+do1+bs1)
If sdx1+sdx2=90 Then
ok1=1
End If
End If
If pari (smv1)=True And pari (dx1)=True Then
nu1=Fuori90 (nr(1)+(dx1/2)) : nu2=Fuori90 (nr(3)+(dx1/2))
sx=do1+do2+bs2+dv2
If sx=90 Then
ok2=1
End If
End If
If ok1=1 Or ok2=1 Then
nu3=Trasposizione (nu1,nu2):nu4=Trasposizione (nu2,nu1)
nu5=Fuori90 ( Cadenza (nu4)& Decina (nu3))
nu6=Fuori90 ( Cadenza (nu3)& Decina (nu4))

'Previsione
amb(1)=Diametrale (Abs (nu3-nu4))
lg(1)=amb(1):lg(2)=nu3:lg(3)=nu4:lg(4)=nu5:lg(5)=nu6
'Controlla se ci sono elementi ripetuti
g=0
For i=1 To 4 : For j=i+1 To 5
If lg(i)=lg(j) Then
g=g+1
End If
Next : Next
If g=0 Then
t=t+1 'incrementa la variabile delle giocate.
ruote(1)=r1:ruote(2)=r2:rtt(1)=11
Scrivi
Scrivi "-----------------------------------------------------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi Space (53)&"QUADRATURA"& Space (3)&"Distanze"& Space (21)&"Somme",1
ColoreTesto 0
Scrivi DataEstrazione(es) &" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1) & " " & Format2 (a) &" "& Format2 (b)&_
" = "& Format2 (dso1)&" Dist. Oriz."& " " & Format2 (nr(1)) &" "& Format2 (nr(2))&_
" [Do1 "& Format2(do1)&" Dv1 "& Format2(dv1)&_
" Dd1 "& Format2(dd1)&_
"] [So1 "& Format2(so1)&" Sv1 "& Format2(sv1)&" Sd1 "& Format2(sd1)&"]" & Chr (10)&_
Space (33)&"X = "& Format2 (dsd1)&" Dist. Diag."& Chr (10) &_
Space(11)& SiglaRuota (r2)&" "& StringaEstratti (es,r2) & " " & Format2 (c) &" "& Format2 (d)&_
" = "& Format2 (dso2)&" Dist. Oriz."& " " & Format2 (nr(4)) &" "& Format2 (nr(3))&_
" [Do2 "& Format2(do2)&" Dv2 "& Format2(dv2)&_
" Dd2 "& Format2(dd2)&_
"] [So2 "& Format2(so2)&" Sv2 "& Format2(sv2)&" Sd2 "& Format2(sd2)&"]"& Chr (10)&_
Space (31)&" = ="& Chr (10)&_
Space (31)& Format2 (smv1)&" "& Format2 (smv2)&" Som. Vert.",1
If ok1=1 Then
ColoreTesto 1
Scrivi "1° procedimento"& Chr (10)&_
Space (13)& Format2 (nr(2))& Space (2)&"("& Format2 (dv2)&")"& Space (2)& Format2 (nr(3))& Chr (10) &_
Space (10)&"("& Format2 (do1)&")"& Space (10) &"("& Format2 (do2)&")"& Chr (10) &_
Space (8)& Format2 (nr(1))& Space (18)& Format2 (nr(4))& Chr (10)&_
Space (10)&"("& Format2 (do1)&")"& Space (10) &"("& Format2 (do2)&")"& Chr (10) &_
Space (13)& Format2 (nu1)& Space (2)&"("& Format2 (bs1)&")"& Space (2)& Format2 (nu2)& Chr (10),1
ColoreTesto 0
Scrivi "Numeri ordinati crescenti: " & StringaNumeri (nr)&" Chius. Figura "& Format2 (nu1)&"."& Format2 (nu2)&_
" Som. lati "& Format2 (sdx1)&" / "& Format2 (sdx2),1
End If
If ok2=1 Then
ColoreTesto 1
Scrivi "2° procedimento"& Chr (10)&_
Space (16)& Format2 (nr(2))& Space (2)&"("& Format2 (dv2)&")"& Space (2)& Format2 (nr(3))& Chr (10) &_
Space (9)& Format2 (nu1)& Space (1)&"("& Format2 (do1)&")"& Space (11)&"("& Format2 (do2)&")"& Space (1)& Format2 (nu2)& Chr (10)&_
Space (10)& Format2 (nr(1))& Space (8)&"("& Format2 (dv1)&")"& Space (6)& Format2 (nr(4))& Chr (10),1
ColoreTesto 0
Scrivi "Numeri ordinati crescenti: " & StringaNumeri (nr)&" Chius. Figura "& Format2 (nu1)&"."& Format2 (nu2)&_
" Som. lati "& Format2 (sx),1
End If
Scrivi
Scrivi"--------------------------------------------------------------------------------------------------------"& "Giocata n° "& Format2(t)
num(1)=nr(1):num(2)=nr(2):num(3)=nr(3):num(4)=nr(4):num(5)=nu1:num(6)=nu2
DisegnaCerchioCiclometrico num,True
ImpostaGiocata 1,amb,ruote,posta,12,1
ImpostaGiocata 2,lg,ruote,poste1,12,3
ImpostaGiocata 3,lg,rtt,poste2,12,3
'esegue la giocata
Gioca es
End If

End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato da franco florindi",1
ColoreTesto 0
End Sub

Grazie allo script di Salvo, ho riscontrato un errore nella trasposizione degli
elementi di chiusura (nu1,nu2)
Quindi bisogna correggere queste righe:
nu3=Trasposizione (nu1,nu2):nu4=Trasposizione (nu2,nu1)
nu5=Fuori90 ( Cadenza (nu4)& Decina (nu3))
nu6=Fuori90 ( Cadenza (nu3)& Decina (nu4))

con
nu3=Fuori90 (Trasposizione (nu1,nu2)):nu4=Fuori90 (Trasposizione (nu2,nu1))
nu5=Fuori90 ( Cadenza (nu2)& Decina (nu1))
nu6=Fuori90 ( Cadenza (nu1)& Decina (nu2))

Adesso posso controllare anche il perchè mancano delle previsioni.

A presto, Enplein.

 

[Enplein]

perchè mancano delle previsioni.

Riporto una parte del procedimento in mio possesso:

FORMAZIONE DI RICERCA:

1) Bisogna ricercare su due ruote due ambi che abbiano la stessa differenza
2) I due ambi devono avere in diagonale la stessa differenza
3) I due ambi devono avere in verticale la stessa somma

questo caso :

Estrazione n.9850 del 21.11.2020 CA 67 76 61 81 78
Estrazione n.9850 del 21.11.2020 PA 57 76 85 47 54
BASE MAGGIORE E MINORE DISPARI
Estratti Differenze Somme Differenze
Validi Orizzontali Verticali Diagonali
54 61 07 49 24
85 78 07 49 24

54.61.78.85.47.2

Anche se l'interpretazione di Salvo è giusto, non coincide con il procedimento per il semplice fatto
che sia le differenze orizzontali e le somme verticali non sono uguali.
Questo è già un primo motivo per spiegare le mancanze delle previsioni.

Nel controllare altre mancanze , saluto.
Enplein.

 

[salvo50]

Ciao a Tutti.

Ciao Enplein, non sono uguali perchè te hai (giustamente) nei due metodi pari e dispari calcolato direttamente gli estratti per come sono estratti e poi hai anche messo tutte le possibilità, io invece per i dispari li ho calcolati impostandoli in modo ciclometrico perchè l'autore il calcolo lo fa in modo ciclometrico, nel secondo quello delle basi pari invece il calcolo lo fa calcolando gli estratti per come vengono e quindi io per far venire la quaterna ho dovuto adeguarmi, per questo ho dovuto fare doppi calcoli e poi non ho calcolato tutte le possibilità, ma solo quelle che spiega l'autore, secondo me è più realistico per come lo hai impostato e calcolato tu, a parte qualche errorino nella trasposizione delle cadenze e decine.

 

[Franco2761]

Ciao a Tutti.

Non avevo capito che gli ambi dovevano essere isotopi, correggerò.

Ciao a tutti e grazie Enplein per i complimenti, per quanto riguardo gli ambi sì devono essere isotopi in questi casi aumenta l'affidabilità della tecnica. Per Salvo50, è un pochino complicato a fare lo script cmq vediamo se riusciamo a farlo funzionare bene, Enplein ci ha lavorato tantissimo ricordo bene....bei tempi.. Un salutone a tutti
Franco Mongillo

 

[Marco-elle]

Spero di non essere fuori luogo e che il mio metodo sia gradito.Non sono uno scripter esperto com il buon Salvo 50 e molti altri ma,riesco nella mia basicità ad ottenere un tabulato per i miei metodi.
Lo script ricava 10 numeri per a/t/q/c su FI-RO a ogni estrazione,il mio consiglio è quello di prendere una previsione già avanti con i colpi e seguirla per poi passare a quella seguente.

Sub Main()
   ColoreTesto 2
   Scrivi "METODO PER AMBO TERNO QUATERNA CINQUINA  SU FI-RO "
   Scrivi "GIOCA 10 NUMERI x 9 COLPI COLPI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim postee(3)
   Dim posteee(4)
   Dim posteeee(5)
   Dim ruota(2)
   Dim n(10)
   poste(2) = 1
   postee(3) = 1
   posteee(4) = 1
   posteeee(5) = 1
   clp = 9
   ini = EstrazioneFin - 100
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      ok = 0
      a1 = Fuori90(Estratto(es,8,5) * Estratto(es,12,1) + 79)
      a2 = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,2,2) + 80)
      a3 = Fuori90(Estratto(es,1,4) + Estratto(es,10,1) + 6)
      a4 = Fuori90(90 +(Estratto(es,5,1)) - Estratto(es,12,4) + 33)
      a5 = Fuori90(Estratto(es,7,2) * Estratto(es,12,2) + 62)
      a6 = Fuori90(Estratto(es,6,3) + Estratto(es,10,4) + 8)
      a7 = Fuori90(90 +(Estratto(es,9,3)) - Estratto(es,6,1) + 40)
      a8 = Fuori90(90 -(Estratto(es,10,4)) - Estratto(es,1,1) + 33)
      a9 = Fuori90(90 +(Estratto(es,2,5)) - Estratto(es,9,1) + 79)
      a10 = Fuori90(Estratto(es,2,5) + Estratto(es,9,2) + 88)
      ok = 1
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & "  10 numeri su FI-RO x a/t/q/c   " & a & " - " & b,1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         ruota(1) = 3
         ruota(2) = 8
         n(1) = a1
         n(2) = a2
         n(3) = a3
         n(4) = a4
         n(5) = a5
         n(6) = a6
         n(7) = a7
         n(8) = a8
         n(9) = a9
         n(10) = a10
         EliminaRipetuti n
         ImpostaGiocata 1,n,ruota,poste,clp,2
         n(1) = a1
         n(2) = a2
         n(3) = a3
         n(4) = a4
         n(5) = a5
         n(6) = a6
         n(7) = a7
         n(8) = a8
         n(9) = a9
         n(10) = a10
         EliminaRipetuti n
         ImpostaGiocata 2,n,ruota,postee,clp
         n(1) = a1
         n(2) = a2
         n(3) = a3
         n(4) = a4
         n(5) = a5
         n(6) = a6
         n(7) = a7
         n(8) = a8
         n(9) = a9
         n(10) = a10
         EliminaRipetuti n
         ImpostaGiocata 3,n,ruota,posteee,clp
         n(1) = a1
         n(2) = a2
         n(3) = a3
         n(4) = a4
         n(5) = a5
         n(6) = a6
         n(7) = a7
         n(8) = a8
         n(9) = a9
         n(10) = a10
         EliminaRipetuti n
         ImpostaGiocata 4,n,ruota,posteeee,clp
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

[/SIZE]

 

[Alien.]

Bello è una favola ma come si fa a giocare ad ogni estrazione si potrebbe fare ad ID estrazione prima del mese,seconda del mese ecc...........Grazie Marco.

 

[Marco-elle]

Bello è una favola ma come si fa a giocare ad ogni estrazione si potrebbe fare ad ID estrazione prima del mese,seconda del mese ecc...........Grazie Marco.

Prendi una previsione e segui solo quella è poi passi ad altro

 

[salvo50]

Ciao a Tutti.

Ciao MarcoElle, grazie per il tuo contributo.

Riepilogo in ordine di inserimento di Tutti i metodi postati in questo topic, dove non c'è scritto chi ha fatto lo script, l'ho fatto io.

_______________________2017_________________________
01) Il Quadrato Numerico di Urazio
02) Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe
03) Il Quadrato Diametrale di Paolo Carta (incompleto)
04) L'ambo Costante di Fedele Davenal
_______________________2018_________________________
05) Metodo Byron di Lord Byron
06) Metodo Aurum di Roberto Pascale su appunti di Fabarri
07) Quattro Terzine Per Ambo di Domenico Manna
08) Il Trio Vincente (Prima Versione) di Antonio Di Paolo
09) Metodo Diametrale a cura di Luciana Giorgetti
10) Vincere a Colpo a cura di Vasapollo Cosma
11) Vincite Misteriose a cura di Alfio Tirenni
12) Metodo a Grande Richiesta
13) Il Quadrato Mirabile a cura di Carmine Tedesco
14) Un Ambo da Premio Oscar di Elisabetta Masi e Fabio Felici
15) Il Tesoro Nascosto di Domenico Manna (con modifica di Salvo50)
16) Byron: Il Calcolo Complementare di Paolo Carta (mod)
17) Quattro Lati Per Una Quaterna a cura di Gaetano Toti
18) Fra Cabala e Ciclometria a cura di Giacomo Scionti
19) L'Ambata Ciclometrica a di cura di Luciana Giorgetti
_______________________2019_________________________
20) Doppia Ambata Su Una Ruota a cura di Benito Buzzon
21) La Distanza 7 di Angelo Gargiulo
22) Evoluzione Ben II a cura di Michele Pace
23) Il Quadrato D'oro - a cura di Petrazzoli Antonio
24) Le Restrizioni di Ogni Figura di Padre Venanzio (2 Metodi)
25) Gli Ambi Secchi Mensili di Padre Venanzio
26) Metodo Delle 6 Piramidi di Padre Venanzio
27) Metodo di Cavaillac (2 Metodi)
28) Metodo Scorpio di Michele Criscuolo
29) Il Quaterno Perpetuo di Fedele Davenal(3 Metodi)
30) La Piramide di Cheope di Michele Criscuolo
31) L'ambo Assoluto - a cura di Angelo Gargiulo
32) Come Si Ricavano 2 Numeri Ogni Mese di Giovanni Milton
33) Matematica e Ciclometria a cura di Luciana Giorgetti
34) Una Metodologia Molto Efficace - a cura di Salerno Donato
35) L'ambo Costante - a cura di Alfio Tirenni
36) Ambi Quadrati di Giacomo Scionti
37) Memorie Utili di Fedele Davenal a cura di C.Tedesco
38) AMBATA - La Certezza Dell'Esito a cura di Vasapollo Cosma
39) Ambo, Terno o Quaterna a cura di Alfio Tirenni
40) Cromodinamica Quantistica di Giacomo Scionti
41) Il Quadrato Diametrale a cura di Luciana Giorgetti
_______________________2020_________________________
42) Il Vertibile Magico a cura di M. Archidiacono
43) I Quadrati Somma di Posizione a cura di Luciana Giorgetti
44) Ciclometria Facile di Giacomo Scionti
45) Chiesto da Serpico90 - Metodo di A. Longo
46) Ciclometria Applicata Delpas a cura di Roberto Pascale
47) Armonia Ciclometrica a cura di Vasapollo Cosma
48) Metodo BEN II a cura di Michele Pace
49) Modifica al Metodo Byron di Pasqualino C
50) Ciclodecine e Ciclounità
51) Un'Ambata Certa di Patruno
52) La Vincita in Tasca a cura di Luciana Giorgetti
53) L'ambo Binario di Fabarri
54) Il Pentagono Armonico di M. Rosaria Falbo
55) La Chiave D'Oro - La Fortuna Nei Secoli
56) Il 7 Un Vero Artista... di Maria Rosaria Falbo
57) Ciclometria Costante a cura di Luciana Giorgetti
58) La Super Chiave 7 e il Terno Secco di Marco Senesi
59) Armonia Triplare 1-2-3 di Fedele Davenal - 3 metodi
60) I Numeri di Padre Pacifico a cura di Davide Lo Stracco - con Modifica di Matematico
61) Il Medio Triplare 15 di Antonio Longo (solo prima parte)
62) Il Parallelogramma Simmetrico di Pasquale Robbe
63) Ambo Relativo di Giuseppe Pezzella
64) Due Ruote e Spia in Posizione di Ramcolotto
65) Armonia Stellare a cura di Franco Mongillo
66) Forza4 (Gioco Sulla Diagonale) a cura di Giovanni81
67) Il Rettangolo Assoluto di Antonio Fiacco
68) Il Quadrato Diametrale di Franco Mongillo
69) Ambo Quadruplo e Isotopo di Franco Mongillo
70) Come Vincere la Quaterna di Franco Mongillo (script by Enplein)
70) Come Vincere la Quaterna di Franco Mongillo
71) Metodo Per Ambo Terno Quaterna Cinquina su FI-RO - Metodo e script di MarcoElle

 

[rudivall]

Sei grande Salvo...

 

[Matematico]

salvo50 ,the best!

 

[Marco-elle]

Ambata ricavata alla 1° e 6° estrazione mensile da giocare su FI-VE anche in 2° e 4° posizione x 9c

Il passato lo conosciamo,il futuro no!

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "AMBATA SU' FIRENZE-VENEZIA SEMPLICE E 2° E 4° POSIZIONE  ALLA 1° E 6° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim ambata(2):Dim posta(1):Dim postaa(7):Dim poste(9)
   posta(1) = 1
   postaa(7) = 1
   poste(9) = 1
   klp = 9
   ini = 9600
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Or IndiceMensile(es) = 6 Then
         ruote(1) = 3
         ruote(2) = 10
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 1,ambata,ruote,posta,klp,1
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 2,ambata,ruote,postaa,klp,7
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 3,ambata,ruote,poste,klp,9
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[Alien.]

E' mica male ,complimenti ci vorrebbero altri 3 numeri da abbinare per ambo è mica facile............

 

[Marco-elle]

Settina su BA-FI calcolata alla 5° e 11° del mese

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "SETTINA SU BA-FI  ALLA 5° E 11° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim n(7)
   Dim poste(4)
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   klp = 12
   ini = 9450
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 5 Or IndiceMensile(es) = 11 Then
         ruote(1) = 1
         ruote(2) = 3
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         n(1) = Fuori90(Estratto(es,9,2) + Estratto(es,10,5) + 84)
         n(2) = Fuori90(Estratto(es,9,3) + Estratto(es,9,5) + 82)
         n(3) = Fuori90(90 +(Estratto(es,5,2)) - Estratto(es,4,1) + 20)
         n(4) = Fuori90(Estratto(es,1,4) * Estratto(es,6,5) + 81)
         n(5) = Fuori90(Estratto(es,1,5) * Estratto(es,10,1) + 30)
         n(6) = Fuori90(Estratto(es,3,4) + Estratto(es,5,3) + 39)
         n(7) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 58)
         ImpostaGiocata 1,n,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[Alien.]

è però è come avere la lampada di Aladino..............

speriamo , che non sia arrivato al capolinea...........................grazie ottimo lavoro.

è MA QUAL'è CHE DA MAGGIOR VINCITE LA 5 O 11 ESTRAZIONE MESE SI DEVE DECIDERE PER UNA SOLA E AVERE TANTO K

 

[Marco-elle]

è però è come avere la lampada di Aladino..............

speriamo , che non sia arrivato al capolinea...........................grazie ottimo lavoro.

è MA QUAL'è CHE DA MAGGIOR VINCITE LA 5 O 11 ESTRAZIONE MESE SI DEVE DECIDERE PER UNA SOLA E AVERE TANTO K

Il consiglio è di non giocare!...anche se....sicuramente qualche previsione c'azzecca ma d'altronde (vedo) che neppure i metodi dei grandi sapientoni c'hanno fatto diventare milionari

 

[Marco-elle]

Questo metodo,ricava 4 terni su CA-MI alla 1° del mese

Sub Main() ColoreTesto 2
   Scrivi
   Scrivi "4 TERNI  ALLA 1° ESTRAZIONE  SU CA-MI MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim t1(3): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim poste(3)
   poste(2) = 3
   poste(3) = 1
   klp = 12
   ini = 9450
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         ruote(1) = 2
         ruote(2) = 5
         casi = casi + 1
         co = co + 1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(Estratto(es,6,2) + Estratto(es,9,1) + 1)
         t1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 44)
         t1(3) = Fuori90(Estratto(es,2,5) * Estratto(es,4,3) + 48)
         ImpostaGiocata 1,t1,ruote,poste,klp
         t2(1) = Fuori90(Estratto(es,6,2) + Estratto(es,9,1) + 1)
         t2(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 44)
         t2(3) = Fuori90(90 +(Estratto(es,2,3)) - Estratto(es,10,5) + 4)
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(Estratto(es,6,2) + Estratto(es,9,1) + 1)
         t3(2) = Fuori90(90 +(Estratto(es,5,1)) - Estratto(es,2,4) + 74)
         t3(3) = Fuori90(Estratto(es,2,5) * Estratto(es,4,3) + 48)
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(Estratto(es,6,2) + Estratto(es,9,1) + 1)
         t4(2) = Fuori90(90 +(Estratto(es,5,1)) - Estratto(es,2,4) + 74)
         t4(3) = Fuori90(90 +(Estratto(es,2,3)) - Estratto(es,10,5) + 4)
         ImpostaGiocata 4,t4,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[Marco-elle]

Solo a titolo di nota.....i primi 2 listati da me inseriti.....continuano a pagare
Il terno in decina è paragonabile a un ambo in quartina,le ambate determinate le conosciamo

 

[Matematico]

Ciao a tutti , in particolare a salvo50 ......non sò se è stato fatto lo script ...ritengo molto interessante questo studio del grande Ciro Vitale...alllego il tutto.