Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C · 12 Settembre 2023

In riferimento alla data del documento:

7/8/2010

Prendo in riferimento la ruota di GENOVA e poi dico il perche':

Genova 42.32.54.78.56 = Somma 82

I passaggi sono questi:

Primo estratto 42 (di fianco il settenario del 42 che risulta essere 6)

sotto al 42 la somma della cinquina estratta = 82

Quindi ricapitolando:

42 6
82 34 40
26 74
10
----
34

iniziamo con i calcoli:

42+82=34( a fianco del 82)
6+34 =40( a fianco del 34)
82+34=26(sotto il 34)
34+40=74(sotto il 40)
26+74=10(sotto il 74)
40+74+10 =34
--------------------

Poi si continua secondo estratto settenario 56

Terzo estratto settenario 72

quarto estratto settenario 24

quinto estratto settenario 8

Il settenario di ogni numero (centrale ) e' il corrispondente in alto a sinistra.

Spero di essere stato chiaro nell'esposizione.Grazie di tutto.

P.S. i numeri ricavati dal calcolo per ogni cinquina distanziano sempre 45

ma come in questo caso tutti gli estratti calcolati viene fuori lo stesso numero. ( 34)

salvo50 · 12 Settembre 2023

non ho capito questa riga
P.S. i numeri ricavati dal calcolo per ogni cinquina distanziano sempre 45

Comunque non importa faccio lo script e forse a fine script capirò cosa vuol dire

salvo50 · 12 Settembre 2023

Lo script l'ho fatto ma continuo a non capire quella riga che dice
P.S. i numeri ricavati dal calcolo per ogni cinquina distanziano sempre 45

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,P1,Caso,Salvo50,Somma
   Dim A(5),B(5),C(5),D(5)
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,8257))'8257 esempio nelle spiegazioni
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         Somma = SommaEstratti(Es,R1)
         Somma = Fuori90(Somma)
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Fuori90(A(P1) * 13)
            D(P1) = Fuori90((A(P1)* 6) +(B(P1) * 3) +(Somma * 7))
         Next
         Caso = Caso + 1
         Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000"),1,,,1
         
         Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         'Scrivi
         '
         Scrivi Space(39) & StringaNumeri(D," ",True),1,,,2
         'ImpostaGiocata 1,Ambata,Ruote,Post,Clp
         'Gioca Es
         'Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

salvo50 · 12 Settembre 2023

Ok, ho capito la riga

P.S. i numeri ricavati dal calcolo per ogni cinquina distanziano sempre 45

EVERITA C · 13 Settembre 2023

Buongiorno Salvo grazie per tutto.

salvo50 · 13 Settembre 2023

Everita, Matematico, Rudivall
GRAZIE

EVERITA C · 18 Settembre 2023

Buon pomeriggio Salvo e' possibile aggiungere al byron definitivo un controllo nelle estrazioni passate?

Oppure se a fine ricerca elenca tutte le estrazioni da lui trovate.

Grazie.

salvo50 · 18 Settembre 2023

Ciao Everita

Quel Byron si ferma quando trova le condizioni di equazione perfetta, posso fare come ho fatto per Matematico di inserire dopo quante visualizzazioni fermarsi, perché se vuoi vederle tutte non credo che basteranno giorni anche con un computer velocissimo

salvo50 · 18 Settembre 2023

Questo è il Byron definitivo ho messo le combinazioni da vedere a 10 comunque puoi aumentarle o diminuirle
Per il controllo nelle estrazioni passate, puoi già farlo, quando alla prima domanda ti chiede l'estrazione che vuoi iniziare metti una estrazione del passato ad esempio 3000 e lo script fa solo le estrazioni a partire dal 30-06-1928 e visualizza tutti quelli che trova prima di quella data

Codice:

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok,Comb
   Dim Ambata,Salvo50,FInx,Equ1
   Dim Ins1,Ins2,Ins3,Ins4,Ins5
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   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)
   Ins4 = InputBox("Se vuoi includere la quarta equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins5 = InputBox("Se vuoi includere la quinta equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Pasqualino 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
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               A1 = Estratto(Es1,R1,1)
               If A1 > 0 Then
                  A2 = Estratto(Es1,R1,2)
                  A3 = Estratto(Es1,R1,3)
                  A4 = Estratto(Es1,R1,4)
                  A5 = Estratto(Es1,R1,5)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  B1 = Estratto(Es2,R1,1)
                  If B1 > 0 Then
                     B2 = Estratto(Es2,R1,2)
                     B3 = Estratto(Es2,R1,3)
                     B4 = Estratto(Es2,R1,4)
                     B5 = Estratto(Es2,R1,5)
                     SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                     '-----------------------------------------
                     S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                     S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                     S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                     S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                     S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                     S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                     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))
                     '----------------------------
                     D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
                     D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
                     D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
                     D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
                     D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
                     S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                     Ambata = Fuori90(S10 + B1)
                     S7 = Fuori90(Ambata + B2 + B3 + B4 + B5) : If S7 < 10 Then S7 = S7 + 90
                     S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
                     S11a = Fuori90(S11 + S7)
                     S12 = Fuori90(S11 + S10)'
                     Equ1 = S12
                     Equ2 = Fuori90(SoC1 + A1)
                     Equ3 = Fuori90(A1 + S11a)
                     Equ4 = Fuori90(A2 + A4 + B1 + B3 + B5)
                     Equ5 = Fuori90(S4 + S5 + S6)
                     Ok = 0
                    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))And((Ins4 = 1 And Equ4 = 90)Or(Ins4 <> 1)) _
                        And((Ins5 = 1 And Equ5 = 90)Or(Ins5 <> 1)) Then Ok = 1
                      
                       If Ok = 1 Then
                        Casi = Casi + 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                        Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                        Scrivi
                        Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                        Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                        Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),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) & 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,0
                        Scrivi " " & Format2(Ambata),1,0,,2
                        Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                        Scrivi Space(20) & String(20,"-")
                        Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                        Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                        Scrivi Format2(S11),1,,,1
                        Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                        Scrivi
                        Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione ",1
                        Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
                        Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione ",1
                        Scrivi Space(5) & Format2(A2) & " + " & Format2(A4) & " + " & Format2(B1),1,0
                        Scrivi " + " & Format2(B3) & " + " & Format2(B5) & " = " & Format2(Equ4) & " 4ª Equazione ",1
                        Scrivi Space(15) & Format2(S4) & " + " & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Equ5) & " 5ª Equazione ",1
                        Scrivi
                        Scrivi
                        '---------------------------------------------------------------------------------------------------
                        If Casi = Comb Then Exit Sub
                      
                     End If
                  End If
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi TempoTrascorso
End Sub

EVERITA C · 19 Settembre 2023

Buongiorno Salvo e grazie di tutto.

Serpico 90 · 21 Settembre 2023

Buona serata a chi legge
Per Salvo,,,
Ti chiedo una cortesia,se lo ritieni possibile, al post 663 hai costruito uno script ,non mi fa vedere l'esito di ogni estrazione
lo avrò copiato male oppure è stato creato cosi???
Se possibile puoi verificare .
In attesa di una gradita risposta ti auguro buon proseguimento.
Saluti
Serpico

salvo50 · 21 Settembre 2023

Serpico 90 ha scritto:
Buona serata a chi legge
Per Salvo,,,
Ti chiedo una cortesia,se lo ritieni possibile, al post 663 hai costruito uno script ,non mi fa vedere l'esito di ogni estrazione
lo avrò copiato male oppure è stato creato cosi???
Se possibile puoi verificare .
In attesa di una gradita risposta ti auguro buon proseguimento.
Saluti
Serpico

Ciao Serpico
Quando Everita mi ha chiesto di fare questo script non mi ha detto quali numeri eventualmente giocare, quindi io la ricerca non l'ho predisposta, è stato creato così.

Comunque ho notato che la sequenza dei 5 numeri risultanti dai calcoli possono essere tutti uguali oppure si ottengono massimo 2 soli numeri diversi, quindi togliendo i doppioni a volte rimane un solo numero a volte ne rimangono 2, allora ho impostato lo script per la ricerca dell'ambata per la ruota di calcolo e quando rimangono 2 numeri, la ricerca dell'ambo per tutte le ruote e per la nazionale, c'è un piccolo errore che non sono riuscito ad eliminare ma non ha nessuna influenza sui calcoli, e sarebbe che quando resta un solo numero appare anche la ricerca dell'ambo

Ecco lo script

Codice:

Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,P1,Caso,Salvo50,Somma,Clp1,Clp2,K,N
   Dim A(5),B(5),C(5),D(5)
   Dim Ruo(1),Ru(2),Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10292))'8257 esempio nelle spiegazioni
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo?",Salvo50,10))
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         Somma = Fuori90(Somma)
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Fuori90(A(P1) * 13)
            D(P1) = Fuori90((A(P1)* 6) +(B(P1) * 3) +(Somma * 7))
         Next
         If A(1) > 0 Then
            Caso = Caso + 1
            Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            '
            Scrivi Space(39) & StringaNumeri(D," ",True),1,,,2
            EliminaRipetuti D
            Ruo(1) = R1
            Ru(1) = TT_
            Ru(2) = NZ_
            ImpostaGiocata 1,D,Ruo,Posta,Clp1,1
            ImpostaGiocata 2,D,Ru,Poste,Clp2,1
            Gioca Es,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Serpico 90 · 22 Settembre 2023

Buon di Salvo
Come al solito molto gentile e sempre disponibile.
Ti ringrazio per il nuovo script , perchè fare una ricerca con carta e penna la mia vista non mi aiuta tanto,
Ora diventa tutto piu semplice .
Più tardi faro una ricerca piu approfondita e chissà magari potrà venire fuori qualcosa .
Ti farò sapere.
Sempre grato della tua GRANDE DISPONIBILITA
UN SALUTO AD EVERITA
Buon proseguimenti di giornata
Saluti
Serpico

Serpico 90 · 22 Settembre 2023

Salvo scusa sei in linea???

Serpico 90 · 23 Settembre 2023

Buona sera a chi legge
Salvo sei in linea, mi puoi dare conferma

salvo50 · 23 Settembre 2023

ci sono

Serpico 90 · 23 Settembre 2023

salvo50 · 23 Settembre 2023

Serpico 90 · 23 Settembre 2023

Salvo sto facendo diverse ricerche ......

Codicebinario · 23 Settembre 2023

EVERITA C ha scritto:
In riferimento alla data del documento:

7/8/2010

Prendo in riferimento la ruota di GENOVA e poi dico il perche':

Genova 42.32.54.78.56 = Somma 82

I passaggi sono questi:

Primo estratto 42 (di fianco il settenario del 42 che risulta essere 6)

sotto al 42 la somma della cinquina estratta = 82

Quindi ricapitolando:

42 6
82 34 40
26 74
10
----
34

iniziamo con i calcoli:

42+82=34( a fianco del 82)
6+34 =40( a fianco del 34)
82+34=26(sotto il 34)
34+40=74(sotto il 40)
26+74=10(sotto il 74)
40+74+10 =34
--------------------

Poi si continua secondo estratto settenario 56

Terzo estratto settenario 72

quarto estratto settenario 24

quinto estratto settenario 8

Il settenario di ogni numero (centrale ) e' il corrispondente in alto a sinistra.

Spero di essere stato chiaro nell'esposizione.Grazie di tutto.

P.S. i numeri ricavati dal calcolo per ogni cinquina distanziano sempre 45

ma come in questo caso tutti gli estratti calcolati viene fuori lo stesso numero. ( 34)

Buona sera a tutti gli abitanti del post,un saluta a EVERITA ....consiglio mio....lasciate stare perderete sonno e tempo...questa cosa fu' gia' spiegata a "illo tempore"con risultati disastrosi e che ancora oggi sono disastrosi...da me,Daniel,Blakmoore,silent ,LadyRouge e molti altri per quasi 2 anni....portando solo mal di capa e script su script e notti insonni...se volete sapere la vera storia di questa .....eccovi il link: https://forum.lottoced.com/threads/lessenza-della-tavola-settenaria-parte-seconda.101474/ leggetelo tutto e poi traete le conclusioni...buon male di capa e buon lavoro a tutti voi.....

A poposito,dopo diverse discussioni con evidenze delle varie elucubrazioni mentali ,avvallati da script e prove,si arrivo alla discussione "accesa" ebbbene fui bannato ,io e altri,poi riammessi....

Script su Metodi Cabalistici, Ciclometrici & C.

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM<