Novità

Script su Metodi Cabalistici, Ciclometrici & C.

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
 
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.
 
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) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 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
 
Ultima modifica:
Ciao Salvo sto facendo dei calcoli carta e penna sull,altro metodo di Antonio Longo che ho inserito sopra.

I numeri da inserire li prendo da un mio programma.

La previsione e' di un solo ambo a tutte con esiti in pochi colpi.

Se fosse possibile aggiungere anche su questo script un imput-box dove inserire i numeri.

Grazie ancora per tutto.
 
EVERITA C ha scritto:
Ciao Salvo sto facendo dei calcoli carta e penna sull,altro metodo di Antonio Longo che ho inserito sopra.

I numeri da inserire li prendo da un mio programma.

La previsione e' di un solo ambo a tutte con esiti in pochi colpi.

Se fosse possibile aggiungere anche su questo script un imput-box dove inserire i numeri.

Grazie ancora per tutto.
Clicca per espandere...
Per adesso sto facendo quello chiesto da juri

A riguardo di quello DI Antonio Longo posso farne 2 uno che prende i numeri in automatico e un altro che inserisci i 4 numeri da tastiera
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 febbraio 2025
    Bari
    13
    49
    17
    39
    48
    Cagliari
    56
    44
    07
    27
    16
    Firenze
    42
    38
    70
    71
    80
    Genova
    08
    11
    55
    61
    47
    Milano
    57
    47
    09
    66
    51
    Napoli
    57
    72
    39
    24
    25
    Palermo
    08
    77
    16
    26
    34
    Roma
    28
    83
    11
    06
    26
    Torino
    71
    52
    60
    28
    61
    Venezia
    33
    38
    12
    66
    82
    Nazionale
    84
    12
    87
    51
    70
    Estrazione Simbolotto
    Cagliari
    30
    37
    22
    08
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto