Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
Grazie Salvo anche se non ti ho fatto una richiesta specifica, comunque rinnovo e auguro buana vincita a tutti!

Ciao Mister1729, ho controllato di nuovo le spiegazioni dell'Ambo Ripetuto e non ho controllato tutti gli esempi che fa l'autore, perchè è un lavoraccio, però ho controllato gli ultimi 5 perchè si capiscono un po' meglio degli altri esempi

metodo ambo ripetuto.5jpg.jpg


come vedi in questi 5 esempi non ce ne neanche uno con ambi incrociati, quindi io nello script ho rispettato questa disposizione
per non essere incrociati intendo prendendo ad esempio l'ultimo dell'immagine sopra

BA 75 51
PA 75 51

che non devono essere

BA 75 51
PA 51 75

Però se tu chiedi di vedere anche quelli incrociati, non c'è problema, nel post 442, ho messo un'altro script che cerca riscontri anche di ambi ripetuti incrociati
 
Ultima modifica:
Ciao salvo50, cosa dire ti ringrazio per il tuo interessamento ed è chiaro ciò che fai notare.
In realtà a me servivano solo come diciamo così numeri spia dato che con excel si perde un sacco di tempo rintracciarli!
Invece approfitto della tua bontà chiedendoti se e quando vuoi avrei sotto mano un metodo che ha per esempio con l'estrazione di oggi ha dato un bel ambo sulla ruota designata!
Ti saluto e arrigrazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao salvo50, cosa dire ti ringrazio per il tuo interessamento ed è chiaro ciò che fai notare.
In realtà a me servivano solo come diciamo così numeri spia dato che con excel si perde un sacco di tempo rintracciarli!
Invece approfitto della tua bontà chiedendoti se e quando vuoi avrei sotto mano un metodo che ha per esempio con l'estrazione di oggi ha dato un bel ambo sulla ruota designata!
Ti saluto e arrigrazie.
Mettilo se sono in grado lo faccio volentieri
Naturalmente attenersi al titolo
Metodi Cabalisti, Ciclometrici ecc..
 
Ultima modifica:
Grazie salvo , vorrei essere sicuro prima di non fare brutta figura e non farti perdere tempo è per questo vorrei
ricontrollarmi i vari passaggi ed essere più chiaro e sintetico possibile , grazie intanto !
 

Matematico

Advanced Member >PLATINUM<
Buona domenica a tutti ed in particolare a salvo50 , questo ch allego è un grande metodo di ottima fattura di Giorgio Bononcini ...raro da trovare e che dà ancora ad oggi ottime soddisfazioni , speriamo che salvo 50 riesca quando potrà a fare lo script per la gioia di tutti noi :)pag 1.jpgpag 2.jpgpag 3.jpgpag 4.jpgpag 5.jpgpag 6.jpgpag 7.jpgpag 8.jpgpag 9.jpgpag 10.jpg
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs.

Grazie.

Metodo lunghissimo ma con molte spiegazioni, il metodo si basa su una spiegazione generale e poi con una miriade di varianti, riguardo allo script ho fatto il metodo principale che cerca un ambo unito e poi in un'altra ruota andando a ritroso per 20 estrazioni (per questo numero ho messo un inputbox, quindi si può variare) trovare un ambo unito chiamato TRASPORTO e poi ci sono una serie di calcoli e si arriva all'ambata e agli ambi, una variante è quella di cercare l'ambo TRASPORTO NON UNITO che ho inserito ed i calcoli sono diversi dal metodo principale, nonostante si veda che l'ambo TRASPORTO non è unito, gli ho messo una segnalazione, per le altre varianti i calcoli ci sono già, sono visibili basta seguire le disposizioni.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Clp1,Salvo50
   Dim C2,D2,Sp,Caso,Casi,A,B,C,D,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P,PP,G,X,Ind,SoDi
   Dim DeA,DeB,CaA,CaB ' Decine e Cadenze
   Dim DiOr1,DiOr2,DiVe1,DiVe2 ' Distanze Orizzontali e verticali
   Dim PSe1,PSe2,PSe3,PSe4 'Prima Serie
   Dim SSe1,SSe2,SSe3,SSe4 'Seconda Serie
   Dim S1,S2,S3,Abb1,Abb2,Amba1 'Somme Prima Serie
   Dim S4,S5,S6,Abb3,Abb4,Amba2 'Somme Seconda Serie
   Dim M1(4),Num(5),Amba(1),Ambo(2)
   Dim Posta(1),Poste(2),Posts(5),Ruo(3),Ruote(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10274)'Estrazione 5421 esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",Salvo50,7)
   Ind = InputBox("Quante estrazioni a Ritroso Controllare per Ricerca Ambo Trasporto?",Salvo50,20)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "LA TECNICA TRASPOSIZIONALE - di GIORGIO BONONCINI - Script by Salvo50" & Space(8),1,,4,1,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   Sp = " "
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            If A > 9 And B > 9 Then
               DeA = Decina(A) : DeB = Decina(B)
               CaA = Cadenza(A) : CaB = Cadenza(B)
               C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
               Es3 = CInt(Es1 - Ind)
               For Es2 = Es1 To Es3 Step - 1
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 <> R1 Then
                        For P3 = 1 To 4
                           P4 = P3 + 1
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
                              If A <> C And A <> D Then
                                 M1(1) = A : M1(2) = B : M1(3) = C : M1(4) = D
                                 Call OrdinaMatrice(M1,1)
                                 DiOr1 = Distanza(M1(4),M1(1)) : DiOr2 = Distanza(M1(3),M1(2))
                                 DiVe1 = Distanza(M1(4),M1(3)) : DiVe2 = Distanza(M1(1),M1(2))
                                 'CALCOLI PRIMA SERIE
                                 PSe1 = Fuori90(M1(4) + DiVe2) : PSe2 = Differenza(DiVe2,M1(3))
                                 PSe3 = Fuori90(M1(2) + DiVe1) : PSe4 = Differenza(DiVe1,M1(1))
                                 S1 = Fuori90(PSe4 + PSe3) : S2 = Fuori90(PSe3 + PSe2) : S3 = Fuori90(PSe2 + PSe1)
                                 Abb1 = Fuori90(S1 + S2) : Abb2 = Fuori90(S2 + S3) : Amba1 = Fuori90(Abb1 + Abb2)
                                 'CALCOLI SECONDA SERIE
                                 SSe1 = Fuori90(DiOr2 + M1(4)) : SSe2 = Fuori90(90 +(M1(1)) - DiOr2)
                                 SSe3 = Fuori90(DiOr1 + M1(3)) : SSe4 = Fuori90(90 +(M1(2)) - DiOr1)
                                 S4 = Fuori90(SSe1 + SSe3) : S5 = Fuori90(SSe4 + SSe3) : S6 = Fuori90(SSe4 + SSe2)
                                 Abb3 = Fuori90(S4 + S5) : Abb4 = Fuori90(S5 + S6) : Amba2 = Fuori90(Abb3 + Abb4)
                                 '
                                 Amba(1) = Amba1
                                 If Amba1 <> Amba2 Then Amba(1) = Fuori90(Amba1 + Amba2)
                                 Num(1) = Abb1 : Num(2) = Abb2 : Num(3) = Abb3 : Num(4) = Abb4
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                                 Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es1,R1,P)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati Ambo Base",1,,,7
                                 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For PP = 1 To 5
                                    E2 = Estratto(Es2,R2,PP)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
                                 Scrivi
                                 Scrivi "   Estratti Evid. in " & Space(11) & " Distanze" & Space(7) & " Distanze",1
                                 Scrivi "   Ordine Crescente  " & Space(10) & " Orizontali" & Space(7) & "Verticali",1
                                 Scrivi Space(8) & Format2(M1(4)) & Sp & Format2(M1(1)) & Space(23),1,0
                                 Scrivi Format2(DiOr1) & Space(14) & Format2(DiVe1),1
                                 Scrivi Space(8) & Format2(M1(3)) & Sp & Format2(M1(2)) & Space(23),1,0
                                 Scrivi Format2(DiOr2) & Space(14) & Format2(DiVe2),1
                                 Scrivi
                                 Scrivi Space(1) & "PRIMA SERIE" & Space(36) & "SECONDA SERIE",1
                                 Scrivi Space(1) & Format2(M1(4)) & " + " & Format2(DiVe2) & " = " & Format2(PSe1),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr2) & " + " & Format2(M1(4)) & " = " & Format2(SSe1),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(3)) & " - " & Format2(DiVe2) & " = " & Format2(PSe2),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr2) & " - " & Format2(M1(1)) & " = " & Format2(SSe2),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(2)) & " + " & Format2(DiVe1) & " = " & Format2(PSe3),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr1) & " + " & Format2(M1(3)) & " = " & Format2(SSe3),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(1)) & " - " & Format2(DiVe1) & " = " & Format2(PSe4),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr1) & " - " & Format2(M1(2)) & " = " & Format2(SSe4),1 'Seconda Serie
                                 Scrivi
                                 Scrivi Space(1) & Format2(PSe4) & " + " & Format2(PSe3) & " = " & Format2(S1),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(S1) & " + " & Format2(S2) & " = " & Format2(Abb1),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(Abb1) & " + " & Format2(Abb2) & " = ",1,0 'Prima Serie
                                 Scrivi Format2(Amba1),1,0,,2 'Prima Serie
                                 Scrivi Space(5) & Format2(SSe1) & " + " & Format2(SSe3) & " = " & Format2(S4),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(S4) & " + " & Format2(S5) & " = " & Format2(Abb3),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(Abb3) & " + " & Format2(Abb4) & " = ",1,0 'Seconda Serie
                                 Scrivi Format2(Amba2),1,,,2 'Seconda Serie
                                 Scrivi Space(1) & Format2(PSe3) & " + " & Format2(PSe2) & " = " & Format2(S2),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(S2) & " + " & Format2(S3) & " = " & Format2(Abb2),1,0 'Prima Serie
                                 Scrivi Space(20) & Format2(SSe3) & " + " & Format2(SSe4) & " = " & Format2(S5),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Abb4),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(PSe2) & " + " & Format2(PSe1) & " = " & Format2(S3),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(SSe4) & " + " & Format2(SSe2) & " = " & Format2(S6),1 'Seconda Serie
                                 Scrivi
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
                                 EliminaRipetuti Num
                                 G = 1
                                 ImpostaGiocata G,Amba,Ruote,Posta,Clp1
                                 For X = 1 To UBound(Num)
                                    If Amba(1) <> Num(X)Then
                                       Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                       If Ambo(2) > 0 Then
                                          G = G + 1
                                          ImpostaGiocata G,Ambo,Ruo,Poste,Clp1
                                       End If
                                    End If
                                 Next
                                 Gioca Es1,1,,1
                              End If
                           End If
                        Next
                     End If
                  Next
               Next
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            If A > 9 And B > 9 Then
               DeA = Decina(A) : DeB = Decina(B)
               CaA = Cadenza(A) : CaB = Cadenza(B)
               C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
               Es3 = CInt(Es1 - Ind)
               For Es2 = Es1 To Es3 Step - 1
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 <> R1 Then
                        For P3 = 1 To 3
                           For P4 = P3 + 2 To 5
                              C = Estratto(Es2,R2,P3)
                              D = Estratto(Es2,R2,P4)
                              If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
                                 If A <> C And A <> D Then
                                    SoDi = Fuori90(A + D)
                                    '
                                    Num(1) = A : Num(2) = B : Num(3) = C : Num(4) = D : Num(5) = SoDi
                                    Amba(1) = SoDi
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,2
                                    Scrivi Space(22) & "Ambo di Trasporto non Unito",1,,,1,3
                                    Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                       E1 = Estratto(Es1,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati Ambo Base",1,,,7
                                    Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es2,R2,PP)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
                                    Scrivi
                                    Scrivi "   Estratti Evid. in " & Space(12) & " Somma ",1
                                    Scrivi "    Ordine Naturale  " & Space(10) & " Diagonale",1
                                    Scrivi Space(8) & Format2(A) & Sp & Format2(B) & Space(23),1,0
                                    Scrivi Format2(SoDi),1
                                    Scrivi Space(8) & Format2(C) & Sp & Format2(D) & Space(23),1
                                    Scrivi
                                    Ruote(1) = R1 : Ruote(2) = R2
                                    Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
                                    EliminaRipetuti Num
                                    G = 1
                                    ImpostaGiocata G,Amba,Ruote,Posta,Clp1
                                    For X = 1 To UBound(Num)
                                       If Amba(1) <> Num(X)Then
                                          Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                          If Ambo(2) > 0 Then
                                             G = G + 1
                                             ImpostaGiocata G,Ambo,Ruo,Poste,Clp1
                                          End If
                                       End If
                                    Next
                                    G = G + 1
                                    ImpostaGiocata G,Num,Ruo,Posts,Clp1
                                    Gioca Es1,1,,1
                                 End If
                              End If
                           Next
                        Next
                     End If
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Matematico

Advanced Member >PLATINUM<
Ciao a Tutti.

Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs.

Grazie.

Metodo lunghissimo ma con molte spiegazioni, il metodo si basa su una spiegazione generale e poi con una miriade di varianti, riguardo allo script ho fatto il metodo principale che cerca un ambo unito e poi in un'altra ruota andando a ritroso per 20 estrazioni (per questo numero ho messo un inputbox, quindi si può variare) trovare un ambo unito chiamato TRASPORTO e poi ci sono una serie di calcoli e si arriva all'ambata e agli ambi, una variante è quella di cercare l'ambo TRASPORTO NON UNITO che ho inserito ed i calcoli sono diversi dal metodo principale, nonostante si veda che l'ambo TRASPORTO non è unito, gli ho messo una segnalazione, per le altre varianti i calcoli ci sono già, sono visibili basta seguire le disposizioni.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Clp1,Salvo50
   Dim C2,D2,Sp,Caso,Casi,A,B,C,D,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P,PP,G,X,Ind,SoDi
   Dim DeA,DeB,CaA,CaB ' Decine e Cadenze
   Dim DiOr1,DiOr2,DiVe1,DiVe2 ' Distanze Orizzontali e verticali
   Dim PSe1,PSe2,PSe3,PSe4 'Prima Serie
   Dim SSe1,SSe2,SSe3,SSe4 'Seconda Serie
   Dim S1,S2,S3,Abb1,Abb2,Amba1 'Somme Prima Serie
   Dim S4,S5,S6,Abb3,Abb4,Amba2 'Somme Seconda Serie
   Dim M1(4),Num(5),Amba(1),Ambo(2)
   Dim Posta(1),Poste(2),Posts(5),Ruo(3),Ruote(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9860)'Estrazione 5421 esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",Salvo50,7)
   Ind = InputBox("Quante estrazioni a Ritroso Controllare per Ricerca Ambo Trasporto?",Salvo50,20)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "LA TECNICA TRASPOSIZIONALE - di GIORGIO BONONCINI - Script by Salvo50" & Space(8),1,,4,1,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   Sp = " "
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            If A > 9 And B > 9 Then
               DeA = Decina(A) : DeB = Decina(B)
               CaA = Cadenza(A) : CaB = Cadenza(B)
               C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
               Es3 = CInt(Es1 - Ind)
               For Es2 = Es1 To Es3 Step - 1
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 <> R1 Then
                        For P3 = 1 To 4
                           P4 = P3 + 1
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
                              If A <> C And A <> D Then
                                 M1(1) = A : M1(2) = B : M1(3) = C : M1(4) = D
                                 Call OrdinaMatrice(M1,1)
                                 DiOr1 = Distanza(M1(4),M1(1)) : DiOr2 = Distanza(M1(3),M1(2))
                                 DiVe1 = Distanza(M1(4),M1(3)) : DiVe2 = Distanza(M1(1),M1(2))
                                 'CALCOLI PRIMA SERIE
                                 PSe1 = Fuori90(M1(4) + DiVe2) : PSe2 = Differenza(DiVe2,M1(3))
                                 PSe3 = Fuori90(M1(2) + DiVe1) : PSe4 = Differenza(DiVe1,M1(1))
                                 S1 = Fuori90(PSe4 + PSe3) : S2 = Fuori90(PSe3 + PSe2) : S3 = Fuori90(PSe2 + PSe1)
                                 Abb1 = Fuori90(S1 + S2) : Abb2 = Fuori90(S2 + S3) : Amba1 = Fuori90(Abb1 + Abb2)
                                 'CALCOLI SECONDA SERIE
                                 SSe1 = Fuori90(DiOr2 + M1(4)) : SSe2 = Fuori90(90 +(M1(1)) - DiOr2)
                                 SSe3 = Fuori90(DiOr1 + M1(2)) : SSe4 = Fuori90(90 +(M1(3)) - DiOr1)
                                 S4 = Fuori90(SSe1 + SSe3) : S5 = Fuori90(SSe4 + SSe3) : S6 = Fuori90(SSe4 + SSe2)
                                 Abb3 = Fuori90(S4 + S5) : Abb4 = Fuori90(S5 + S6) : Amba2 = Fuori90(Abb3 + Abb4)
                                 '
                                 Amba(1) = Amba1
                                 If Amba1 <> Amba2 Then Amba(1) = Fuori90(Amba1 + Amba2)
                                 Num(1) = Abb1 : Num(2) = Abb2 : Num(3) = Abb3 : Num(4) = Abb4
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                                 Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es1,R1,P)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati Ambo Base",1,,,7
                                 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For PP = 1 To 5
                                    E2 = Estratto(Es2,R2,PP)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
                                 Scrivi
                                 Scrivi "   Estratti Evid. in " & Space(11) & " Distanze" & Space(7) & " Distanze",1
                                 Scrivi "   Ordine Crescente  " & Space(10) & " Orizontali" & Space(7) & "Verticali",1
                                 Scrivi Space(8) & Format2(M1(4)) & Sp & Format2(M1(1)) & Space(23),1,0
                                 Scrivi Format2(DiOr1) & Space(14) & Format2(DiVe1),1
                                 Scrivi Space(8) & Format2(M1(3)) & Sp & Format2(M1(2)) & Space(23),1,0
                                 Scrivi Format2(DiOr2) & Space(14) & Format2(DiVe2),1
                                 Scrivi
                                 Scrivi Space(1) & "PRIMA SERIE" & Space(36) & "SECONDA SERIE",1
                                 Scrivi Space(1) & Format2(M1(4)) & " + " & Format2(DiVe2) & " = " & Format2(PSe1),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr2) & " + " & Format2(M1(4)) & " = " & Format2(SSe1),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(3)) & " - " & Format2(DiVe2) & " = " & Format2(PSe2),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr2) & " - " & Format2(M1(1)) & " = " & Format2(SSe2),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(2)) & " + " & Format2(DiVe1) & " = " & Format2(PSe3),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr1) & " + " & Format2(M1(2)) & " = " & Format2(SSe3),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(M1(1)) & " - " & Format2(DiVe1) & " = " & Format2(PSe4),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(DiOr1) & " - " & Format2(M1(3)) & " = " & Format2(SSe4),1 'Seconda Serie
                                 Scrivi
                                 Scrivi Space(1) & Format2(PSe4) & " + " & Format2(PSe3) & " = " & Format2(S1),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(S1) & " + " & Format2(S2) & " = " & Format2(Abb1),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(Abb1) & " + " & Format2(Abb2) & " = ",1,0 'Prima Serie
                                 Scrivi Format2(Amba1),1,0,,2 'Prima Serie
                                 Scrivi Space(5) & Format2(SSe1) & " + " & Format2(SSe3) & " = " & Format2(S4),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(S4) & " + " & Format2(S5) & " = " & Format2(Abb3),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(Abb3) & " + " & Format2(Abb4) & " = ",1,0 'Seconda Serie
                                 Scrivi Format2(Amba2),1,,,2 'Seconda Serie
                                 Scrivi Space(1) & Format2(PSe3) & " + " & Format2(PSe2) & " = " & Format2(S2),1,0 'Prima Serie
                                 Scrivi Space(3) & Format2(S2) & " + " & Format2(S3) & " = " & Format2(Abb2),1,0 'Prima Serie
                                 Scrivi Space(20) & Format2(SSe3) & " + " & Format2(SSe4) & " = " & Format2(S5),1,0 'Seconda Serie
                                 Scrivi Space(3) & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Abb4),1 'Seconda Serie
                                 Scrivi Space(1) & Format2(PSe2) & " + " & Format2(PSe1) & " = " & Format2(S3),1,0 'Prima Serie
                                 Scrivi Space(35) & Format2(SSe4) & " + " & Format2(SSe2) & " = " & Format2(S6),1 'Seconda Serie
                                 Scrivi
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
                                 EliminaRipetuti Num
                                 G = 1
                                 ImpostaGiocata G,Amba,Ruote,Posta,Clp1
                                 For X = 1 To UBound(Num)
                                    If Amba(1) <> Num(X)Then
                                       Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                       If Ambo(2) > 0 Then
                                          G = G + 1
                                          ImpostaGiocata G,Ambo,Ruo,Poste,Clp1
                                       End If
                                    End If
                                 Next
                                 Gioca Es1,1,,1
                              End If
                           End If
                        Next
                     End If
                  Next
               Next
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            If A > 9 And B > 9 Then
               DeA = Decina(A) : DeB = Decina(B)
               CaA = Cadenza(A) : CaB = Cadenza(B)
               C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
               Es3 = CInt(Es1 - Ind)
               For Es2 = Es1 To Es3 Step - 1
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R2 <> R1 Then
                        For P3 = 1 To 3
                           For P4 = P3 + 2 To 5
                              C = Estratto(Es2,R2,P3)
                              D = Estratto(Es2,R2,P4)
                              If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
                                 If A <> C And A <> D Then
                                    SoDi = Fuori90(A + D)
                                    '
                                    Num(1) = A : Num(2) = B : Num(3) = C : Num(4) = D : Num(5) = SoDi
                                    Amba(1) = SoDi
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,2
                                    Scrivi Space(22) & "Ambo di Trasporto non Unito",1,,,1,3
                                    Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                       E1 = Estratto(Es1,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati Ambo Base",1,,,7
                                    Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es2,R2,PP)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
                                    Scrivi
                                    Scrivi "   Estratti Evid. in " & Space(12) & " Somma ",1
                                    Scrivi "    Ordine Naturale  " & Space(10) & " Diagonale",1
                                    Scrivi Space(8) & Format2(A) & Sp & Format2(B) & Space(23),1,0
                                    Scrivi Format2(SoDi),1
                                    Scrivi Space(8) & Format2(C) & Sp & Format2(D) & Space(23),1
                                    Scrivi
                                    Ruote(1) = R1 : Ruote(2) = R2
                                    Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
                                    EliminaRipetuti Num
                                    G = 1
                                    ImpostaGiocata G,Amba,Ruote,Posta,Clp1
                                    For X = 1 To UBound(Num)
                                       If Amba(1) <> Num(X)Then
                                          Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                          If Ambo(2) > 0 Then
                                             G = G + 1
                                             ImpostaGiocata G,Ambo,Ruo,Poste,Clp1
                                          End If
                                       End If
                                    Next
                                    G = G + 1
                                    ImpostaGiocata G,Num,Ruo,Posts,Clp1
                                    Gioca Es1,1,,1
                                 End If
                              End If
                           Next
                        Next
                     End If
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Grazie di cuore salvo50 , sempre al top!
 

Matematico

Advanced Member >PLATINUM<
Ciao a tutti , per salvo50 ...quando e se ne hai voglia ti metto 2 ottimi metodi di Angelo Gargiulo ....sempre grazie :)
 

Allegati

  • ambo da 250 Gargiulo_21-01-16_23-25-25.png
    ambo da 250 Gargiulo_21-01-16_23-25-25.png
    317,7 KB · Visite: 49
  • sequenza 9 Grgiulo21-01-16_23-50-18.png
    sequenza 9 Grgiulo21-01-16_23-50-18.png
    380,3 KB · Visite: 57

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

MarcoElle, Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs, Paki144.

Grazie.

Mister.PNG
Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,Salvo50
   Dim R1,Caso,Casi,Sp,IniR,FinR
   Dim Estr1,Estr2,Estr4,Ruota
   Dim AmbaP,AmbaS,Abb1,Abb2,Abb3,Abb4,Abb5
   Dim Settina(7),Ambata(2),Ambo(2)
   Dim Posta(1),Poste(5),Post(2),Ruo(1),Ruot(4)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9822)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e la settina?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   'Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - " & _
   "Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,1)
   If Ruota = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruota
      FinR = Ruota
   End If
   Scrivi Space(8) & " Sommativo-Vertibile di Mister1729 - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FinR
         If R1 = 11 Then R1 = 12
         Estr1 = Estratto(Es,R1,1)
         Estr2 = Estratto(Es,R1,2)
         Estr4 = Estratto(Es,R1,4)
         AmbaP = Fuori90(Estr1 + Estr2)
         AmbaS = Differenza(Estr1,Estr2)
         Abb1 = Fuori90(AmbaS + 10)
         Abb2 = Vert(Abb1)
         Abb3 = Fuori90(Abb1 + 10)
         Abb4 = Fuori90(Abb3 + 1)
         Abb5 = Vert(Abb4)
         Ambata(1) = AmbaP : Ambata(2) = AmbaS
         Ambo(1) = AmbaP : Ambo(2) = AmbaS
         Settina(1) = AmbaP : Settina(2) = AmbaS : Settina(3) = Abb1 : Settina(4) = Abb2
         Settina(5) = Abb3 : Settina(6) = Abb4 : Settina(7) = Abb5
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         Scrivi
         Scrivi
         Scrivi Space(6) & Format2(Estr1) & " + " & Format2(Estr2) & " = " & Format2(AmbaP),1,0
         Scrivi " Ambata Principale",1
         Scrivi Space(6) & Format2(Estr1) & " - " & Format2(Estr2) & " = " & Format2(AmbaS),1,0
         Scrivi " Ambata Secondaria",1
         Scrivi Space(6) & Format2(AmbaS) & " + 10 = " & Format2(Abb1),1,0
         Scrivi " Abbinamento 1",1
         Scrivi Space(1) & "Vertibile " & Format2(Abb1) & " = " & Format2(Abb2),1,0
         Scrivi " Abbinamento 2",1
         Scrivi Space(6) & Format2(Abb1) & " + 10 = " & Format2(Abb3),1,0
         Scrivi " Abbinamento 3",1
         Scrivi Space(6) & Format2(Abb3) & " + 01 = " & Format2(Abb4),1,0
         Scrivi " Abbinamento 4",1
         Scrivi Space(1) & "Vertibile " & Format2(Abb4) & " = " & Format2(Abb5),1,0
         Scrivi " Abbinamento 5",1
         Scrivi
         Scrivi Space(6) & "Settina " & StringaNumeri(Settina," ",True),1
         Scrivi
         Ruo(1) = R1
         Ruot(1) = BA_
         Ruot(2) = NA_
         Ruot(3) = VE_
         Ruot(4) = NZ_
         ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
         ImpostaGiocata 2,Ambo,Ruo,Post,Clp2
         EliminaRipetuti Settina
         ImpostaGiocata 3,Settina,Ruot,Poste,Clp2
         Gioca Es,,,1
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub




Dei 2 metodi postate da matematico, per il momento ho fatto solo il primo, il secondo lo farò in seguito quando mi libero di faccende personali.
Riguardo a questo metodo ho fatto delle prove, e ce ne sono pochissime in tutto l'archivio, solo 6, quindi per averne di più ho messo la ricerca a ritroso che si può cambiare tramite inputbox, l'ho impostata a 25 e ne sono venute molte di più, ho messo la visualizzazione del cerchio ciclometrico, il primo è il trapezio con i 4 numeri di figura 8, nel secondo ci sono gli altri numeri pronosticati anche i cerchi ciclometrici si possono non visualizzare tramite inputbox.


ambo da 250 Gargiulo_21-01-16_23-25-25.png

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,E1,E2,E3
   Dim FgA,FgB,FgC,FgD,FgE,FgF,Ind,Es2,Es3,Caso,Casi
   Dim X,XX,X1,X2,X3,X4,X5,DM12,DM34,DM13,DM24,DM14,DM23
   Dim Amba(1),Ambo(2),Terno(3),L(8),M(4)
   Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9644))'9644 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo figura 8?",Salvo50,25))
   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(5) & "Ambo da 250 VLP Oppure Terno da 4500 VLP - Angelo Gargiulo  - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   X = 45
   XX = 9
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         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 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D)
                           If FgA = 8 And FgB = 8 And FgC = 8 And FgD = 8 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)) : DM34 = Distanza(M(3),M(4))' Distanza orizzontale estratti
                              DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
                              DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3))' Distanza Verticale estratti
                              '
                              If(DM13 = DM24 Or DM14 = DM23) And DM13 <> X Then
                                 If DM12 = X Or DM23 = X Or DM34 = X Or DM14 = X Then
                                    Es3 = CInt(Es - Ind)
                                    For Es2 = Es - 1 To Es3 Step - 1
                                       For R3 = 1 To 12
                                          If R3 = 11 Then R3 = 12
                                          For P5 = 1 To 4
                                             For P6 = P5 + 1 To 5
                                                E = Estratto(Es2,R3,P5)
                                                F = Estratto(Es2,R3,P6)
                                                If E <> A And E <> B And E <> C And E <> D And F <> A And F <> B And F <> C And F <> D Then
                                                   FgE = Figura(E) : FgF = Figura(F)
                                                   If FgE = 8 And FgF = 8 Then
                                                      X1 = 0 : X2 = 0 : X3 = 0 : X4 = 0 : X5 = 0
                                                      If Diametrale(M(1)) = M(2) Then
                                                         X1 = Fuori90(M(1) + XX) :
                                                         Call Pippo(XX,X1,X2,X3,X4)
                                                         X5 = M(2)
                                                      End If
                                                      If Diametrale(M(2)) = M(3) Then
                                                         X1 = Fuori90(M(2) + XX)
                                                         Call Pippo(XX,X1,X2,X3,X4)
                                                         X5 = M(3)
                                                      End If
                                                      If Diametrale(M(3)) = M(4) Then
                                                         X1 = Fuori90(M(3) + XX)
                                                         Call Pippo(XX,X1,X2,X3,X4)
                                                         X5 = M(4)
                                                      End If
                                                      If Diametrale(M(4)) = M(1) Then
                                                         X1 = Fuori90(M(4) + XX)
                                                         Call Pippo(XX,X1,X2,X3,X4)
                                                         X5 = M(1)
                                                      End If
                                                      If(E = X1 And F = X2) Or(E = X2 And F = X1) Then
                                                         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 P7 = 1 To 5
                                                            E1 = Estratto(Es,R1,P7)
                                                            If E1 = A Or E1 = B Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E1) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 8",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                         For P8 = 1 To 5
                                                            E2 = Estratto(Es,R2,P8)
                                                            If E2 = C Or E2 = D Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E2) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 8",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                         Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                         For P9 = 1 To 5
                                                            E3 = Estratto(Es2,R3,P9)
                                                            If E3 = E Or E3 = F Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E3) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 8",1,,,1
                                                         Scrivi Space(25) & "PRONOSTICO",1
                                                         Scrivi Space(25) & "Ambata " & Format2(X4),1
                                                         Scrivi Space(25) & "Ambo   " & Format2(X4) & Sp & Format2(X3),1
                                                         Scrivi Space(25) & "Terno  " & Format2(X4) & Sp & Format2(X5) & Sp & Format2(X2),1
                                                         If Cer = 1 Then
                                                            DisegnaCerchioCiclometrico M,1,,,,1
                                                         End If
                                                         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 : L(7) = X3 : L(8) = X4
                                                            DisegnaCerchioCiclometrico L,1,,,,1
                                                         End If
                                                         Scrivi
                                                         Scrivi
                                                         Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                         Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
                                                         Amba(1) = X4
                                                         ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                                         Ambo(1) = X4 : Ambo(2) = X3
                                                         ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
                                                         Terno(1) = X4 : Terno(2) = X5 : Terno(3) = X2
                                                         ImpostaGiocata 3,Terno,Ruote,Po3,Clp
                                                         Gioca Es,,,1
                                                      End If
                                                   End If
                                                End If
                                             Next
                                          Next
                                       Next
                                    Next
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
Function Pippo(XX,X1,X2,X3,X4)
   X2 = Fuori90(X1 + XX)
   X3 = Fuori90(X2 + XX)
   X4 = Fuori90(X3 + XX)
End Function
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
MarcoElle, Matematico, Mister1729, Rudivall, Xeroxs.

Grazie.

Ho fatto anche il secondo, l'ho provato ci sono pochissimi riscontri in tutto l'archivio dal numero 1 al numero 9877 solo 3 pronostici, dimenticavo nelle spiegazioni del metodo c'è un errore l'ambata non è 47 ma 48 quindi il diametrale è 3 non 2

Modificato il 28-01-21 la figura si può scegliere

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
   Dim FgT,FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
   Dim X1,X2,X3,DM12,DM23,DM34,DM45
   Dim Amba(1),Ambo(2),Terno(3),M(5)
   Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   FgT = CInt(InputBox(" Inserisce quale figura vuoi controllare ",Salvo50,3))
   Ind = CInt(InputBox(" Inserisci Quante Estrazioni a Ritroso per Cercare l'Ambo Figura ?",Salvo50,25))
   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(5) & "La Sequenza Passo 9 con Scelta Figura - Angelo Gargiulo  - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         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 12
                  If R1 <> R2 Then
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 3
                        For P4 = P3 + 1 To 4
                           For P5 = P4 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              E = Estratto(Es,R2,P5)
                              If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
                                 FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
                                 If FgA = FgT And FgB = FgT And FgC = FgT And FgD = FgT And FgE = FgT Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
                                    Call OrdinaMatrice(M,1)
                                    DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                    DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
                                    If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
                                       Es3 = CInt(Es - Ind)
                                       For Es2 = Es - 1 To Es3 Step - 1
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P6 = 1 To 4
                                                For P7 = P6 + 1 To 5
                                                   F = Estratto(Es2,R3,P6)
                                                   G = Estratto(Es2,R3,P7)
                                                   FgF = Figura(F) : FgG = Figura(G)
                                                   If FgF = FgT And FgG = FgT Then
                                                      X1 = 0 : X2 = 0 : X3 = 0
                                                      If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
                                                         X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
                                                         X3 = Fuori90(M(5) + 9)
                                                         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 P8 = 1 To 5
                                                            E1 = Estratto(Es,R1,P8)
                                                            If E1 = A Or E1 = B Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E1) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                         For P9 = 1 To 5
                                                            E2 = Estratto(Es,R2,P9)
                                                            If E2 = C Or E2 = D Or E2 = E Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E2) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                         Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                         For P10 = 1 To 5
                                                            E3 = Estratto(Es2,R3,P10)
                                                            If E3 = F Or E3 = G Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E3) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                         Scrivi Space(25) & "PRONOSTICO",1
                                                         Scrivi Space(25) & "Ambata " & Format2(M(5)),1
                                                         Scrivi Space(25) & "Ambo   " & Format2(M(5)) & Sp & Format2(X2),1
                                                         Scrivi Space(25) & "Terno  " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
                                                         If Cer = 1 Then
                                                            DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                         End If
                                                         Scrivi
                                                         Scrivi
                                                         Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                         Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
                                                         Amba(1) = M(5)
                                                         ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                                         Ambo(1) = M(5) : Ambo(2) = X2
                                                         ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
                                                         Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
                                                         ImpostaGiocata 3,Terno,Ruote,Po3,Clp
                                                         Gioca Es,,,1
                                                      End If
                                                   End If
                                                Next
                                             Next
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     Next
                  End If
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Inserito il 28-01-21
Con controllo figura in automatico

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
   Dim FgT,FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
   Dim X1,X2,X3,DM12,DM23,DM34,DM45
   Dim Amba(1),Ambo(2),Terno(3),M(5)
   Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ind = CInt(InputBox(" Inserisci Quante estrazioni a ritroso per cercare l'ambo figura ",Salvo50,25))
   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(5) & "La Sequenza Passo 9 - Angelo Gargiulo  - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         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 12
                  If R1 <> R2 Then
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 3
                        For P4 = P3 + 1 To 4
                           For P5 = P4 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              E = Estratto(Es,R2,P5)
                              If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
                                 FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
                                 For FgT = 1 To 9
                                    If FgA = FgT And FgB = FgT And FgC = FgT And FgD = FgT And FgE = FgT Then
                                       M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
                                       Call OrdinaMatrice(M,1)
                                       DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                       DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
                                       If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
                                          Es3 = CInt(Es - Ind)
                                          For Es2 = Es - 1 To Es3 Step - 1
                                             For R3 = 1 To 12
                                                If R3 = 11 Then R3 = 12
                                                For P6 = 1 To 4
                                                   For P7 = P6 + 1 To 5
                                                      F = Estratto(Es2,R3,P6)
                                                      G = Estratto(Es2,R3,P7)
                                                      FgF = Figura(F) : FgG = Figura(G)
                                                      If FgF = FgT And FgG = FgT Then
                                                         X1 = 0 : X2 = 0 : X3 = 0
                                                         If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
                                                            X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
                                                            X3 = Fuori90(M(5) + 9)
                                                            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 P8 = 1 To 5
                                                               E1 = Estratto(Es,R1,P8)
                                                               If E1 = A Or E1 = B Then
                                                                  ColoreTesto 2
                                                               Else
                                                                  ColoreTesto 0
                                                               End If
                                                               Scrivi Format2(E1) & " ",1,0
                                                               ColoreTesto 0
                                                            Next
                                                            Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                            Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                            For P9 = 1 To 5
                                                               E2 = Estratto(Es,R2,P9)
                                                               If E2 = C Or E2 = D Or E2 = E Then
                                                                  ColoreTesto 2
                                                               Else
                                                                  ColoreTesto 0
                                                               End If
                                                               Scrivi Format2(E2) & " ",1,0
                                                               ColoreTesto 0
                                                            Next
                                                            Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                            Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                            Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                            For P10 = 1 To 5
                                                               E3 = Estratto(Es2,R3,P10)
                                                               If E3 = F Or E3 = G Then
                                                                  ColoreTesto 2
                                                               Else
                                                                  ColoreTesto 0
                                                               End If
                                                               Scrivi Format2(E3) & " ",1,0
                                                               ColoreTesto 0
                                                            Next
                                                            Scrivi "  <-- Evidenziati Figura " & FgT,1,,,1
                                                            Scrivi Space(25) & "PRONOSTICO",1
                                                            Scrivi Space(25) & "Ambata " & Format2(M(5)),1
                                                            Scrivi Space(25) & "Ambo   " & Format2(M(5)) & Sp & Format2(X2),1
                                                            Scrivi Space(25) & "Terno  " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
                                                            If Cer = 1 Then
                                                               DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                            End If
                                                            Scrivi
                                                            Scrivi
                                                            Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                            Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
                                                            Amba(1) = M(5)
                                                            ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                                            Ambo(1) = M(5) : Ambo(2) = X2
                                                            ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
                                                            Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
                                                            ImpostaGiocata 3,Terno,Ruote,Po3,Clp
                                                            Gioca Es,,,1
                                                         End If
                                                      End If
                                                   Next
                                                Next
                                             Next
                                          Next
                                       End If
                                    End If
                                 Next
                              End If
                           Next
                        Next
                     Next
                  End If
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
 
Ultima modifica:

Matematico

Advanced Member >PLATINUM<
MarcoElle, Matematico, Mister1729, Rudivall, Xeroxs.

Grazie.

Ho fatto anche il secondo, l'ho provato ci sono pochissimi riscontri in tutto l'archivio dal numero 1 al numero 9877 solo 3 pronostici, dimenticavo nelle spiegazioni del metodo c'è un errore l'ambata non è 47 ma 48 quindi il diametrale è 3 non 2

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
   Dim FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
   Dim X1,X2,X3,DM12,DM23,DM34,DM45
   Dim Amba(1),Ambo(2),Terno(3),M(5)
   Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo figura 3?",Salvo50,25))
   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(5) & "La Sequenza Passo 9 - Angelo Gargiulo  - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         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 12
                  If R1 <> R2 Then
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 3
                        For P4 = P3 + 1 To 4
                           For P5 = P4 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              E = Estratto(Es,R2,P5)
                              If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
                                 FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
                                 If FgA = 3 And FgB = 3 And FgC = 3 And FgD = 3 And FgE = 3 Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
                                    Call OrdinaMatrice(M,1)
                                    DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                    DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
                                    If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
                                       Es3 = CInt(Es - Ind)
                                       For Es2 = Es - 1 To Es3 Step - 1
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P6 = 1 To 4
                                                For P7 = P6 + 1 To 5
                                                   F = Estratto(Es2,R3,P6)
                                                   G = Estratto(Es2,R3,P7)
                                                   FgF = Figura(F) : FgG = Figura(G)
                                                   If FgF = 3 And FgG = 3 Then
                                                      X1 = 0 : X2 = 0 : X3 = 0
                                                      If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
                                                         X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
                                                         X3 = Fuori90(M(5) + 9)
                                                         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 P8 = 1 To 5
                                                            E1 = Estratto(Es,R1,P8)
                                                            If E1 = A Or E1 = B Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E1) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                         For P9 = 1 To 5
                                                            E2 = Estratto(Es,R2,P9)
                                                            If E2 = C Or E2 = D Or E2 = E Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E2) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                         Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                         For P10 = 1 To 5
                                                            E3 = Estratto(Es2,R3,P10)
                                                            If E3 = F Or E3 = G Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E3) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi Space(25) & "PRONOSTICO",1
                                                         Scrivi Space(25) & "Ambata " & Format2(M(5)),1
                                                         Scrivi Space(25) & "Ambo   " & Format2(M(5)) & Sp & Format2(X2),1
                                                         Scrivi Space(25) & "Terno  " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
                                                         If Cer = 1 Then
                                                            DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                         End If
                                                         Scrivi
                                                         Scrivi
                                                         Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                         Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
                                                         Amba(1) = M(5)
                                                         ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                                         Ambo(1) = M(5) : Ambo(2) = X2
                                                         ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
                                                         Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
                                                         ImpostaGiocata 3,Terno,Ruote,Po3,Clp
                                                         Gioca Es,,,1
                                                      End If
                                                   End If
                                                Next
                                             Next
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     Next
                  End If
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
Grazie 1000 salvo50...quindi sono rare condizioni di gioco , speriamo si presentino a breve :)
 

Matematico

Advanced Member >PLATINUM<
MarcoElle, Matematico, Mister1729, Rudivall, Xeroxs.

Grazie.

Ho fatto anche il secondo, l'ho provato ci sono pochissimi riscontri in tutto l'archivio dal numero 1 al numero 9877 solo 3 pronostici, dimenticavo nelle spiegazioni del metodo c'è un errore l'ambata non è 47 ma 48 quindi il diametrale è 3 non 2

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
   Dim FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
   Dim X1,X2,X3,DM12,DM23,DM34,DM45
   Dim Amba(1),Ambo(2),Terno(3),M(5)
   Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo figura 3?",Salvo50,25))
   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(5) & "La Sequenza Passo 9 - Angelo Gargiulo  - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         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 12
                  If R1 <> R2 Then
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 3
                        For P4 = P3 + 1 To 4
                           For P5 = P4 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              E = Estratto(Es,R2,P5)
                              If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
                                 FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
                                 If FgA = 3 And FgB = 3 And FgC = 3 And FgD = 3 And FgE = 3 Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
                                    Call OrdinaMatrice(M,1)
                                    DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                    DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
                                    If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
                                       Es3 = CInt(Es - Ind)
                                       For Es2 = Es - 1 To Es3 Step - 1
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P6 = 1 To 4
                                                For P7 = P6 + 1 To 5
                                                   F = Estratto(Es2,R3,P6)
                                                   G = Estratto(Es2,R3,P7)
                                                   FgF = Figura(F) : FgG = Figura(G)
                                                   If FgF = 3 And FgG = 3 Then
                                                      X1 = 0 : X2 = 0 : X3 = 0
                                                      If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
                                                         X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
                                                         X3 = Fuori90(M(5) + 9)
                                                         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 P8 = 1 To 5
                                                            E1 = Estratto(Es,R1,P8)
                                                            If E1 = A Or E1 = B Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E1) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                         For P9 = 1 To 5
                                                            E2 = Estratto(Es,R2,P9)
                                                            If E2 = C Or E2 = D Or E2 = E Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E2) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                         Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                         For P10 = 1 To 5
                                                            E3 = Estratto(Es2,R3,P10)
                                                            If E3 = F Or E3 = G Then
                                                               ColoreTesto 2
                                                            Else
                                                               ColoreTesto 0
                                                            End If
                                                            Scrivi Format2(E3) & " ",1,0
                                                            ColoreTesto 0
                                                         Next
                                                         Scrivi "  <-- Evidenziati Figura 3",1,,,1
                                                         Scrivi Space(25) & "PRONOSTICO",1
                                                         Scrivi Space(25) & "Ambata " & Format2(M(5)),1
                                                         Scrivi Space(25) & "Ambo   " & Format2(M(5)) & Sp & Format2(X2),1
                                                         Scrivi Space(25) & "Terno  " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
                                                         If Cer = 1 Then
                                                            DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                         End If
                                                         Scrivi
                                                         Scrivi
                                                         Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                         Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
                                                         Amba(1) = M(5)
                                                         ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                                         Ambo(1) = M(5) : Ambo(2) = X2
                                                         ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
                                                         Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
                                                         ImpostaGiocata 3,Terno,Ruote,Po3,Clp
                                                         Gioca Es,,,1
                                                      End If
                                                   End If
                                                Next
                                             Next
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     Next
                  End If
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
Ti chiedo una piccola cortesia , se volessi cambiare la figura...ad essempio invece della 3 metto la 4 ...cos a devo modificare?
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Matematico, ho modificato lo script del post 495, alla terza domanda chiede quale figura vuoi cercare e quindi puoi cambiarla a piacere.

Dopo ho messo un altro script, dove le figure le cerca tutte dall'uno al nove in automatico
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 , non sò se questo script è stato fatto del grande Fabarri , il metodo è : Ambi Massimi ...spero si comprenda bene il procedimento.1580117728.jpg1580117729.jpg1580117730.jpg1580118109.jpg1580118110.jpg
 

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
Alto