Script su Metodi Cabalistici, Ciclometrici & C.

Juri · Mercoledì alle 16:05

salvo50 ha scritto:
Si posso farlo, ma prima devo fare quello di Everita

Grazie.Allora ripasso tra un pò di tempo.Dici che ci vuole un 7-15 giorni circa che me lo segno?
Ti ricordi che mi hai gatto tanti script nel 2019 circa?

EVERITA C · Giovedì alle 16:50

IL QUADTATO MALTESE ( DI A. LONGO)

SI AGISCE IN TRE ESTRAZIONI CONSECUTIVE SU UNA SOLA RUOTA .

ESEMPIO : IN DATA 2/1/2008 SULLA RUOTA DI BARI SI PRENDE IL 5° ESTR. CHE è 49.

IL 3/1/2008 SI PRENDE IL 1° E 5° ESTR. DI BARI 64, E 30,

IL 5/1/2008, SI PRENDE IL 1° ESTR. DI BARI 86

SI METONO IN ORDINE COME LI ABBIAMO PRESI , E ANDIAMO AD OPERARE X RICAVARE IL PRONOSTICO :

OPEREREMO SEMPRRE IN QUESTO MODO OGNI PREVISIONE:

49-64-30-86

49- 30 (3°) = 19 DIFFERENZA

49-86 (5°) = 37 DIFF.

49-19= 30 DIFF.

49x 19 = 931: 37 =25.162162 = 25 ( prenderemo sempre l cifre prima del punto, che siano 1 o 2 ,

se sono 3 faremo il fuori 90)

25-30=5 diff.

49-5=44 diff.

49x30= 1470 : 44= 33.40909 = 33 ( prenderemo sempre le cifre prima del punto che sia 1 o 2 cifre , se sono 3 cifre faremo il fuori 90.)

33+19 = 52

33-19 =14

52- 52- 52- 14+ 14+ 14+

49= 64 = 30 = 49 = 64 = 30 =

____ ______ ______ _______ ______ ______

3 12 22 35 50 16

3+12+22= 37

35+50+16= 101 (che senza fuori 90 va sottratto il 37)

101-37= 64

Il 64 lo moltiplichiamo x il fisso 7 (64x7) =448 -90 =88

88+19 = 17

17+64 = *81*

L *81* SARA L AMBATA PRINCIPALE OVE VERRA ABBINATO IL N° 86

Ambo secco *81-86*

Adesso bisogna rilevare nell ultima estrazione di calcolo(5/1/2008) la presenza su un'altra ruota o piu’, uno dei due numeri (81, 86) + quella di calcolo va giocato il pronostico *81-86* x recupero a tutte infatti giiocheremo solo la previsione sulla ruota di calcolo poiche nessuno dei due numeri era presente su altre ruote.

Esito ambata *81* a colpo su bari.

Il tutto x 6/7 colpi

EVERITA C · Giovedì alle 16:53

Ciao Salvo questa e' una chicca del grande Antonio Longo.

Da scriptare quando puoi.

Intanto grazie infinite per gli script che mi hai fatto e per quelli che mi farai ad ogni richiesta.

Sempre disponibile e professionale verso gli altri.

salvo50 · Ieri alle 18:28

Ciao a Tutti

Claudio8, Everita, Ken, Matematico, Rudivall, Juri
Grazie

La spiegazione di questo metodo è nel post 772

L'autore dice che è meglio giocare quando gli estratti sono uniti e isotopi quindi ho fatto lo script in questo modo, ma oltre ad essere perdente, ci sono pochissimi riscontri.

Quindi ne ho fatto un altro script senza il filtro di uniti ed isotopi e sembra vincente

Primo script con gli estratti uniti e isotopi

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,Salvo50
   Dim SoAB,SoCD
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(3)
   Dim Posta(2),L(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))'L'estrazione 5739 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(7) & " Metodo il Trapezio con ambi uniti e isotopi di Domenico Manna - Script Salvo50" & Space(7),1,,4,,3,,1
   Posta(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            SoAB = Fuori90(A + B)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               SoCD = Fuori90(C + D)
               If A > 0 And C > 0 And SoAB = SoCD Then
                  If A <> C And A <> D And B <> C And B <> D Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                     DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                     If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 _
                        Or DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27_
                        Or DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20_
                        Or DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
                        '---------------------------------
                        If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 Then
                           L(5) = Fuori90(M(2) + 16) : L(6) = Fuori90(L(5) + 2)
                           Ambo1(1) = Fuori90(M(2) + 16)
                           Ambo2(1) = Fuori90(M(2) + 2)
                           Ambo3(1) = Fuori90(M(2) + 2)
                        End If
                        If DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27 Then
                           L(5) = Fuori90(M(1) + 16) : L(6) = Fuori90(L(5) + 2)
                           Ambo1(1) = Fuori90(M(1) + 16)
                           Ambo2(1) = Fuori90(M(1) + 2)
                           Ambo3(1) = Fuori90(M(1) + 2)
                           '
                        End If
                        If DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20 Then
                           L(5) = Fuori90(M(4) + 16) : L(6) = Fuori90(L(5) + 2)
                           Ambo1(1) = Fuori90(M(4) + 16)
                           Ambo2(1) = Fuori90(M(4) + 2)
                           Ambo3(1) = Fuori90(M(4) + 2)
                        End If
                        If DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
                           L(5) = Fuori90(M(3) + 16) : L(6) = Fuori90(L(5) + 2)
                           Ambo1(1) = Fuori90(M(3) + 16)
                           Ambo2(1) = Fuori90(M(3) + 2)
                           Ambo3(1) = Fuori90(M(3) + 2)
                        End If
                        Ambo1(2) = Fuori90(Ambo1(1) + 2)
                        Ambo2(2) = Fuori90(Ambo2(1) + 2)
                        Ambo3(2) = Fuori90(Ambo2(1) + 16)
                        L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                        Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                        Scrivi
                        ReDim MatrCasella(4,1)
                        MatrCasella(1,0) = R1
                        MatrCasella(1,1) = P1
                        MatrCasella(2,0) = R1
                        MatrCasella(2,1) = P2
                        MatrCasella(3,0) = R2
                        MatrCasella(3,1) = P1
                        MatrCasella(4,0) = R2
                        MatrCasella(4,1) = P2
                        Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                        Scrivi
                        Scrivi Space(10) & " La Somma Uguale è " & Format2(SoAB),1
                       Scrivi
                        If Cer = 1 Then
                           DisegnaCerchioCiclometrico M,1,1,,,1,1
                           DisegnaCerchioCiclometrico L,1,1,,,1,1
                        End If
                        Scrivi
                        Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                        ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                        ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                        ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                        Gioca Es,1
                        '
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

Secondo script senza il filtro di estratti uniti e isotopi

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,P3,P4,Salvo50
   Dim SoAB,SoCD
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(3)
   Dim Posta(2),L(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500))'L'estrazione 5739 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " Metodo il Trapezio di Domenico Manna - Script Salvo50" & Space(14),1,,4,,3,,1
   Posta(2) = 1
   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)
               SoAB = Fuori90(A + B)
               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)
                        SoCD = Fuori90(C + D)
                        If A > 0 And C > 0 And SoAB = SoCD Then
                           If A <> C And A <> D And B <> C And B <> D Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                              If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 _
                                 Or DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27_
                                 Or DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20_
                                 Or DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
                                 '---------------------------------
                                 If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 Then
                                    L(5) = Fuori90(M(2) + 16) : L(6) = Fuori90(L(5) + 2)
                                    Ambo1(1) = Fuori90(M(2) + 16)
                                    Ambo2(1) = Fuori90(M(2) + 2)
                                    Ambo3(1) = Fuori90(M(2) + 2)
                                 End If
                                 If DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27 Then
                                    L(5) = Fuori90(M(1) + 16) : L(6) = Fuori90(L(5) + 2)
                                    Ambo1(1) = Fuori90(M(1) + 16)
                                    Ambo2(1) = Fuori90(M(1) + 2)
                                    Ambo3(1) = Fuori90(M(1) + 2)
                                    '
                                 End If
                                 If DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20 Then
                                    L(5) = Fuori90(M(4) + 16) : L(6) = Fuori90(L(5) + 2)
                                    Ambo1(1) = Fuori90(M(4) + 16)
                                    Ambo2(1) = Fuori90(M(4) + 2)
                                    Ambo3(1) = Fuori90(M(4) + 2)
                                 End If
                                 If DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
                                    L(5) = Fuori90(M(3) + 16) : L(6) = Fuori90(L(5) + 2)
                                    Ambo1(1) = Fuori90(M(3) + 16)
                                    Ambo2(1) = Fuori90(M(3) + 2)
                                    Ambo3(1) = Fuori90(M(3) + 2)
                                 End If
                                 Ambo1(2) = Fuori90(Ambo1(1) + 2)
                                 Ambo2(2) = Fuori90(Ambo2(1) + 2)
                                 Ambo3(2) = Fuori90(Ambo2(1) + 16)
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P1
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P2
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 Scrivi Space(10) & " La Somma Uguale è " & Format2(SoAB),1
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico L,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                 ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                                 Gioca Es,1
                                 '
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

Juri

Super Member >GOLD<

EVERITA C

Member

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi