Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · Sabato alle 14:26

nel post 880 non si capisce niente, io lo vedo tutto spezzettato
quindi sono costretto a farti un'altra domanda

la somma delle 7 colonne di quale quadro
il primo il secondo o il terzo?

Matematico · Sabato alle 14:43

salvo50 ha scritto:
nel post 880 non si capisce niente, io lo vedo tutto spezzettato
quindi sono costretto a farti un'altra domanda

la somma delle 7 colonne di quale quadro
il primo il secondo o il terzo?

9	33	43	25	69	68	Differenze
a	b	c	d	e	f	g
64	55	22	69	44	65	87
55	22	69	44	65	87	14
22	69	44	65	87	14	14
69	44	65	87	14	14	26
44	65	87	14	14	26	XX

74	75	17	9	44	26	il 2° quadro
89	58	8	55	18		Differenza delle somme

74+75+17+9+44+26 = 65
87+14+14+26 = 51

51+65 = 26 + 1° estratto 64 = 90

salvo50 · Sabato alle 15:18

salvo50 · Sabato alle 17:27

Fatto, però le equazioni non sono 3 ma una sola, quella che recita
la somma delle 7 colonne + il primo estratto, le altre 2 equazioni
ci sono sempre a 90 perchè non hanno condizioni

Lo script alla prima domanda chiede l'estrazione di partenza
alla seconda domanda chiede l'estrazione di arrivo

quindi il numero messo alla prima domanda deve essere
più grande di quello messo alla seconda domanda

le altre 3 domande sono le esclusioni delle equazioni
con numero 1 sono inserite con qualsiasi altro numero
sono disinserite

Alla sesta domanda si impostano i colpi di gioco dell'ambo

Codice:

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Clp,Caso
   Dim R1,Es1,Es2,Casi,SoC1,SoC2,Compl90_1,Compl90_2
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S11
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok,X1
   Dim Ambata,Salvo50,FInx,Equ1
   Dim Ins1,Ins2,Ins3
   Dim A(5),B(5),S(14),D(16)
   Dim Ambo(2),Ruo(2),Posta(2)
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)'10577
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,10000)'10559
   Ins1 = InputBox("Se vuoi includere la prima equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins2 = InputBox("Se vuoi includere la seconda equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins3 = InputBox("Se vuoi includere la terza equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Clp = InputBox("Quanti colpi di gioco? ",Salvo50,13)
   Posta(2) = 1
   Scrivi Space(8) & " Modifica al Metodo Byron Chiesta da Everita C  - Script Salvo50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FIn,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            Caso = 0
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  A1 = Estratto(Es2,R1,1)
                  If A1 > 0 Then
                     A2 = Estratto(Es2,R1,2)
                     A3 = Estratto(Es2,R1,3)
                     A4 = Estratto(Es2,R1,4)
                     A5 = Estratto(Es2,R1,5)
                     SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                     '-----------------------------------------
                     S1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                     S2 = Fuori90(A2 + A3 + A4 + A5 + B1)
                     S3 = Fuori90(A3 + A4 + A5 + B1 + B2)
                     S4 = Fuori90(A4 + A5 + B1 + B2 + B3)
                     S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
                     S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
                     S7 = Fuori90(B2 + B3 + B4 + B5)
                     S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6 + S7) 'le sette somme
                     D1 = Fuori90(90 +(A1 - A2))
                     D2 = Fuori90(90 +(A2 - A3))
                     D3 = Fuori90(90 +(A3 - A4))
                     D4 = Fuori90(90 +(A4 - A5))
                     D5 = Fuori90(90 +(A5 - B1))
                     D6 = Fuori90(90 +(B1 - B2))
                     '----------------------------
                     D12 = Fuori90((90 + S1) - S2)
                     D13 = Fuori90((90 + S2) - S3)
                     D14 = Fuori90((90 + S3) - S4)
                     D15 = Fuori90((90 + S4) - S5)
                     D16 = Fuori90((90 + S5) - S6)
                     If D1 = D6 And D12 = D13 Then
                        ' INIZIO CALCOLI SECONDO QUADRO
                        B(1) = SoC1
                        B(2) = Fuori90((D1 * 2) + A4)
                        B(3) = Fuori90((SoC1 * 2) + A1)
                        '      B(4) = Fuori90((D12 * 2) +(SoC1 * 2))
                        '     B(5) = Fuori90(D2 + D3 + D4 + D5)
                        A(1) = A1
                        A(2) = A2
                        A(3) = A3
                        A(4) = A4
                        A(5) = A5
                        X1 = Fuori90(B(1) + B(2) + B(3))
                        Compl90_1 = ComplAdX(X1)
                        Compl90_2 = ComplAdX(A1)
                        B(4) = Compl90_1
                        B(5) = Compl90_2
                        '-----------------------------------------
                        S(1) = Fuori90(A(1) + A(2) + A(3) + A(4) + A(5))
                        S(2) = Fuori90(A(2) + A(3) + A(4) + A(5) + B(1))
                        S(3) = Fuori90(A(3) + A(4) + A(5) + B(1) + B(2))
                        S(4) = Fuori90(A(4) + A(5) + B(1) + B(2) + B(3))
                        S(5) = Fuori90(A(5) + B(1) + B(2) + B(3) + B(4))
                        S(6) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
                        S(7) = Fuori90(B(2) + B(3) + B(4) + B(5))
                        S(8) = Fuori90(S(7) + A(1))
                        S(9) = Fuori90(S(8) + B(1))'1a Ambata
                        S(10) = Fuori90(S(6) + S(7))
                        S(11) = Fuori90(S(1) + S(2) + S(3) + S(4) + S(5) + S(6) + S(7))'somme delle 7 colonne
                        S(12) = Fuori90((S(9) + 90) - S(10))'2a Ambata
                        D(1) = Fuori90(90 +(A(1) - A(2)))
                        D(2) = Fuori90(90 +(A(2) - A(3)))
                        D(3) = Fuori90(90 +(A(3) - A(4)))
                        D(4) = Fuori90(90 +(A(4) - A(5)))
                        D(5) = Fuori90(90 +(A(5) - B(1)))
                        D(6) = Fuori90(90 +(B(1) - B(2)))
                        '----------------------------
                        D(12) = Fuori90((90 + S(1)) - S(2))
                        D(13) = Fuori90((90 + S(2)) - S(3))
                        D(14) = Fuori90((90 + S(3)) - S(4))
                        D(15) = Fuori90((90 + S(4)) - S(5))
                        D(16) = Fuori90((90 + S(5)) - S(6))
                        '
                        Equ1 = Fuori90(X1 + Compl90_1)
                        Equ2 = Fuori90(A1 + Compl90_2)
                        Equ3 = Fuori90(A1 + S(11))
                        Ambo(1) = S(9) : Ambo(2) = S(12)
                        If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
                           And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi
                           Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                           Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                           Scrivi
                           Scrivi Space(16) & " Primo Quadro" & Space(24),1,,4,,3,,1
                           Scrivi Space(8) & "Differenze (" & Format2(D1) & ")" & Format2(D2) & " " & Format2(D3),1,0
                           Scrivi " " & Format2(D4) & " " & Format2(D5) & "(" & Format2(D6) & ")",1
                           Scrivi Space(20) & String(20,"-")
                           Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                           Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                           Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                           Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                           Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                           Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1' & Space(33) & "Somma Distanze = ",1,0
                           '  Scrivi Format2(S10),1,,,1
                           Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                           Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                           Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                           Scrivi " " & Format2(B4) & " " & Format2(B5),1
                           ' Scrivi " " & Format2(XX),1,,,2
                           Scrivi Space(20) & String(20,"-")
                           Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                           Scrivi " " & Format2(S5) & " " & Format2(S6) & " " & Format2(S7) & "  Somma delle 7 colonne = ",1,0
                           Scrivi Format2(S11),1,,,1
                           Scrivi "Differ. delle somme(" & Format2(D12) & " " & Format2(D13) & ")" & Format2(D14) & " " & Format2(D15),1,0
                           Scrivi " " & Format2(D16),1
                           Scrivi String(68,"X"),1
                           'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                           '
                           Scrivi Space(15) & " Secondo Quadro" & Space(24),1,,4,,3,,1
                           Scrivi Space(8) & "Differenze (" & Format2(D(1)) & ")" & Format2(D(2)) & " " & Format2(D(3)),1,0
                           Scrivi " " & Format2(D(4)) & " " & Format2(D(5)) & "(" & Format2(D(6)) & ")",1
                           Scrivi Space(20) & String(20,"-")
                           Scrivi Space(20) & Format2(A(1)) & " " & Format2(A(2)) & " " & Format2(A(3)) & " " & Format2(A(4)),1,0
                           Scrivi " " & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)),1
                           Scrivi Space(20) & Format2(A(2)) & " " & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)),1,0
                           Scrivi " " & Format2(B(1)) & " " & Format2(B(2)) & " " & Format2(B(3)),1
                           Scrivi Space(20) & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)) & " " & Format2(B(1)),1,0
                           Scrivi " " & Format2(B(2)) & " " & Format2(B(3)) & " " & Format2(B(4)),1' & Space(33) & "Somma Distanze = ",1,0
                           Scrivi Space(20) & Format2(A(4)) & " " & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)),1,0
                           Scrivi " " & Format2(B(3)) & " " & Format2(B(4)) & " " & Format2(B(5)),1
                           Scrivi Space(20) & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)) & " " & Format2(B(3)),1,0
                           Scrivi " " & Format2(B(4)) & " " & Format2(B(5)),1
                           '   Scrivi " " & Format2(XX),1,,,2
                           Scrivi Space(20) & String(20,"-")
                           Scrivi Space(13) & " Somme " & Format2(S(1)) & " " & Format2(S(2)) & " " & Format2(S(3)) & " " & Format2(S(4)),1,0
                           Scrivi " " & Format2(S(5)) & " " & Format2(S(6)) & " " & Format2(S(7)) & " Somma delle 7 colonne ",1,0
                           Scrivi Format2(S(11)),1,,,1
                           Scrivi "Differ. delle somme(" & Format2(D(12)) & " " & Format2(D(13)) & ")" & Format2(D(14)) & " " & Format2(D(15)),1,0
                           Scrivi " " & Format2(D(16)),1
                           Scrivi
                           Scrivi Space(20) & Format2(X1) & " + " & Format2(Compl90_1) & " = " & Format2(Equ1) & " 1ª Equazione ",1
                           Scrivi Space(20) & Format2(A(1)) & " + " & Format2(Compl90_2) & " = " & Format2(Equ2) & " 2ª Equazione ",1
                           Scrivi Space(20) & Format2(A(1)) & " + " & Format2(S(11)) & " = " & Format2(Equ3) & " 3ª Equazione ",1
                           Scrivi
                           Scrivi Space(20) & Format2(S(7)) & " + " & Format2(A(1)) & " = " & Format2(S(8)),1
                           Scrivi Space(20) & Format2(S(8)) & " + " & Format2(B(1)) & " = " & Format2(S(9)),1,0
                           Scrivi " Ambata ",1'Ambata 1
                           Scrivi Space(20) & Format2(S(6)) & " + " & Format2(S(7)) & " = " & Format2(S(10)),1
                           Scrivi Space(20) & Format2(S(9)) & " - " & Format2(S(10)) & " = " & Format2(S(12)),1,0
                           Scrivi " Ambata ",1'Ambata 2
                           Ruo(1) = R1 : Ruo(2) = TU_
                           ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
                           Gioca Es1
                        End If
                     End If
                  End If
               End If
               If ScriptInterrotto Then Exit For
            Next
         End If
         If ScriptInterrotto Then Exit For
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

EVERITA C · Sabato alle 18:13

Ciao Salvo hai fatto un lavoro superlativo questa volta ti sei superato.

Tutto ottimo come tutti i tuoi lavori.

Ancora una volta un grazie immenso.

salvo50 · Sabato alle 18:18

Ciao Everita
Non ho messo la ricerca dell'ambo perchè non ho capito
qualè

indicami l'ambo che lo inserisco

EVERITA C · Sabato alle 19:03

Ciao Salvo ho notato che c'e' un errore nelle differenze superiori:

( 9 ) 33 43 25 69( 68 )

EVERITA C · Sabato alle 19:08

44 + 90 - 65 = 69 ( e non 89 )

EVERITA C · Sabato alle 19:09

Poi un'altra cosa se possibile altre ruote e non solo MILANO.

EVERITA C · Sabato alle 19:10

Con il 69 corretto l'ambo e' 90-13.

salvo50 · Sabato alle 19:49

l'ho corretto ho messo anche le altre ruote, continuo a non capire dove hai preso l'ambo (90 e 13)

EVERITA C · Sabato alle 19:57

Inserendo il 90 nel quadratino vuoto si ha la somma 51.

Poi sommando 51 + 64 ( primo numero cinquina sopra ) = somma 25.

25 + 65 ( primo numero cinquina sotto ) = somma 90 ( prima ambata ).

Poi si sommano 26 + 51 ( ultimi 2 numeri somma colonne ) = somma 77

90 - 77 = somma 13 ( seconda ambata ).

salvo50 · Sabato alle 20:01

ok ora vedo se riesco e poi inserisco la ricerca dell'ambo

EVERITA C · Sabato alle 20:03

Ok grazie.

salvo50 · Sabato alle 20:15

Lo script del post 884 è da riprendere ho inserito la ricerca dell'ambo

EVERITA C · Domenica alle 16:18

Ciao Salvo hai fatto un lavoro eccellente direi superlativo.

Un grazie infinito.

EVERITA C · Ieri alle 15:58

AMBATA DETERMINATA

ESEMPI: nel giono 04/07/2009 sulla ruota di FIRENZE ed un altra ruota (che non posso dire, altrimente capireste il Metodo) si verifica la previsione. L AMBATA da giocare sulla ruota di FIRENZE in prima I posizione è il numero 64. All 11 colpo in prima posizione su FIRENZE esce il 64. Se avreste giocato esempio 5 Euro avreste guadagnato un netto di 220 EURO

Altro esempio: nel giorno 09/07/2009 sulla ruota Nazionale ed un altrasi verifica la previsione. L AMBATA da giocare sulla ruota NAZIONALE in quinta V posizione é il numero 52. Subito al 1 colpo in quinta posizione sulla ruota NAZIONALE esce il 52. Anche qui con una spesa di 5 Euro avreste VINTO 270 Euro.

Un altro esempio INCREDIBILE. Nel giorno 09/07/2009 sulle ruote di FIRENZE - TORINO ed un altra ruota si verificano la medesima previsione da giocare come primo I estratto su FI - TO il numero 57. All ottavo 8 colpo su TORINO esce il n. 57 ma in seconda II posizione. Ma solo dopo 2 colpi alla decima X estrazione in prima posizione su FIRENZE esce il numero 57.

Nella stessa estrazione del giorno 09/07/2009 sulla ruota di CAGLIARI ed un altra ruota si verifica la previsione. L AMBATA da giocare sulla ruota di CAGLIARI in terza 3 posizione é il numero 13. Al settimo 7 colpo su CAGLIARI in 3 posizione esce il numero 13. Anche questa volta con 5 Euro a puntata avreste VINTO ben 240 Euro.

Sempre nella medesima estrazione del giorno 09/07/2009 sulla ruota di MILANO ed un altra ruota si verifica la previsione. L AMBATA da giocare in seconda 2 posizione é il numero 27. Al settimo 7 colpo su MILANO in 2 posizione esce il numero 27. Come precedentemente con 5 Euro a giocata avreste VINTO ancora 240 Euro.

SPIEGAZIONE DEL METODO DELL AMBATA

nel giono 04/07/2009 sulla ruota di FIRENZE escono i numeri Firenze 77 07 23 (54) 57 e su Torino (44) 05 72 (74) 82 si verifica la previsione. L AMBATA da giocare sulla ruota di FIRENZE in prima I posizione è il numero 64. TORINO : 74+44=118 118-54=64 AMBATA

Altro esempio: nel giorno 09/07/2009 sulla ruota Nazionale escono i numeri Nazionale 14 24 (49) 33 8 e su Genova 76 23 (50) 73 (51) si verifica la previsione. L AMBATA da giocare sulla ruota NAZIONALE in quinta V posizione é il numero 52. GENOVA : 50+51=101 101-49=52 AMBATA

Nel giorno 09/07/2009 sulle ruote di FIRENZE - TORINO escono i numeri Firenze 79 (27) 14 25 90 Torino 22 (27) 66 73 31 e su Roma (47 37) 85 6 70si verificano la medesima previsione da giocare come primo I estratto su FI - TO il numero 57. ROMA 47+37=84 84-27=57 AMBATA

Nella stessa estrazione del giorno 09/07/2009 sulla ruota di CAGLIARI escono i numeri Cagliari 76 57 48 (43) 50 e su Palermo 67 66 (33 23) 4 si verifica la previsione. L AMBATA da giocare sulla ruota di CAGLIARI in terza 3 posizione é il numero 13. PALERMO 33+23=56 56-43=13 AMBATA

Sempre nella medesima estrazione del giorno 09/07/2009 sulla ruota di MILANO escono i numeri Milano (57) 87 33 9 85 e su Roma (47 37) 85 6 70si verifica la previsione. L AMBATA da giocare in seconda 2 posizione é il numero 27. ROMA 47+37=74 84-57=27 AMBATA

ATTENZIONE : Vi consiglio di giocare anche l MABATA normale sulla ruota e di controllare bene se i numeri sono in ciclo orario o antiorario. C é una possibilità maggiore che esca l AMBATA DETERMINATA Esempio : BARI : (2-3)-45-68-78

CAGLIARI : (1)-9-54-36-87 INOLTRE non giocare se l AMBATA é un numero ritardatario o che é gia uscito nella ruota derminata entro le 10 estrazioni prima.

EVERITA C · Ieri alle 16:02

Ciao Salvo vorrei provare a far scriptare questa tecnica di un'amico che vive e lavora all'estero.

La posto cosi come me l'ha mandata qualche anno fa.

Spero sia fattibile.

grazie.

salvo50 · Ieri alle 18:11

Ciao a Tutti
Matematico, Everita, Scarfacetuny
Grazie

Per questa tecnica mi sembra di capire che bisogna cercare 3 numeri di distanza 10, oppure consecutivi in 2 ruote almeno due degli estratti siano isotopi.

per elaborare la previsione a volte fa la somma dei 3 numeri altre volte prevede il numero più piccolo mancante e altre volte prende il numero maggiore mancante, almeno ho capito questo dagli esempi postati. Non capisco con che criterio sceglie le previsioni.

Quindi posso fare lo script che cerca i 3 numeri o consecutivi oppure distanza 10, e che almeno 2 siano isotopi,
ma la previsione la devi fare tu, perché ripeto non capisco con che criterio fa le varie previsioni

EVERITA C · Ieri alle 19:40

Buonasera Salvo ok va bene.

La previsione la faccio io.

Grazie.

Script su Metodi Cabalistici, Ciclometrici & C.

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Allegati

Senior Member

Senior Member

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member