Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C · 29 Agosto 2023

Basta invertire somma seconda cinquina ( sotto ) con + primo estratto prima cinquina ( sopra ) = 90

salvo50 · 29 Agosto 2023

EVERITA C ha scritto:
Basta invertire somma seconda cinquina ( sotto ) con + primo estratto prima cinquina ( sopra ) = 90

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,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,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
               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)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     A1 = Estratto(Es2,R2,1)
                     If A1 > 0 Then
                        A2 = Estratto(Es2,R2,2)
                        A3 = Estratto(Es2,R2,3)
                        A4 = Estratto(Es2,R2,4)
                        A5 = Estratto(Es2,R2,5)
                        XX = Fuori90((A3 * 6) + A1)
                        SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        If Distanza(B3,A4) = 45 Then
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(XX + 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
                           Som_S2_S6 = Fuori90(S2 + S6)
                           Ok = 0
                           If Som_S2_S6 = 45 Then
                              D1 = Fuori90(90 +(A1 - A2))
                              D2 = Fuori90(90 +(A2 - XX))
                              D3 = Fuori90(90 +(XX - A4))
                              D4 = Fuori90(90 +(A4 - A5))
                              D5 = Fuori90(90 +(A5 - B1))
                              D6 = Fuori90(90 +(B1 - B2))
                              '----------------------------
                              D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
                              D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
                              D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
                              D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
                              D11 = Fuori90(90 +(S5 - S6)) : 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 'somma settima colonna
                              S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                              S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                              S12 = Fuori90(S11 + S10)' 1a Equazione
                              S13 = Fuori90(B1 + S11a) '2a Equazione
                              S14 = Fuori90(A1 + Ambata) '3a Equazione
                              If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
                              If Ok = 1 Then
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
                                 Scrivi " Seconda Ruota",1
                                 Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
                                 Scrivi " Prima ruota",1
                                 Scrivi
                                 Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                                 Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
                                 Scrivi Format2(S10),1,,,1
                                 Scrivi Space(20) & String(20,"-"),1
                                 Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
                                 Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                                 Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
                                 Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                 Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                 Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),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,,,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) & " ",1,0
                                 Scrivi Format2(S7),1,0,,1
                                 Scrivi " - Somma delle 6 Colonne ",1,0
                                 Scrivi Format2(S11),1,,,1
                                 Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                 Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                                 Scrivi
                                 Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                                 Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
                                 Scrivi Space(20) & Format2(B1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                                 Scrivi " Somma Del 1° Estratto 1ª Ruota, Somma Delle 7 colonne",1,,,2
                                 Scrivi Space(20) & Format2(A1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                                 Scrivi " Somma tra 1° Estratto 2ª Ruota più Ambata",1,,,1
                                 Scrivi
                                 Scrivi
                                 If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                                 '---------------------------------------------------------------------------------------------------
                                 If Casi = Comb Then Exit Sub
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

EVERITA C · 29 Agosto 2023

Ciao Salvo non ci siamo ancora tu confondi prima ruota e seconda ruota.

Dov'e' scritto prima ruota la somma deve avere integrazione a 90 con il primo estratto seconda ruota.

EVERITA C · 29 Agosto 2023

Mancherebbe questa piccola rettifica.

salvo50 · 29 Agosto 2023

Scrivi quello che vuoi leggere nelle equazioni, perché con sopra sotto non ci ho capito niente.

EVERITA C · 29 Agosto 2023

Scusa Salvo e' facile;

quella che tu intendi la prima ruota devi integrare la somma al primo estratto della seconda ruota come la intendi tu.

Estrazione n.06056 del 31.01.1987 NA 26.52.89.59.87 Somma = 43 Seconda Ruota
Estrazione n.10280 del 16.08.2023 RO 77.41.14.71.87 Somma = 20 Prima ruota

Distanze *64 32 51 62 10 36 - Somma Delle 11 Distanze = 29
--------------------
26 52 20 59 87 77 41
52 20 59 87 77 41 14
20 59 87 77 41 14 71
59 87 77 41 14 71 87
87 77 41 14 71 87 16
--------------------
Somme 64 25 14 98 20 20 49 - Somma delle 6 Colonne 61
Distanze *39 11 96 78 90
Somma Delle 7 colonne 20

61 + 29 = 90 1ª Equazione Somma Tra Somma Delle 6 colonne e Somma Delle Distanze
77 + 20 = 07 2ª Equazione Somma Del 1° Estratto 1ª Ruota, Somma Delle 7 colonne
26 + 16 = 42 3ª Equazione Somma tra 1° Estratto 2ª Ruota più Ambata

Prima ruota ROMA somma 20

Seconda ruota il primo estratto NA deve essere 70

20 + 70 = 90

Queste sono le tre equazioni.

Prima equazione:

Somma delle somme + somma delle differenze = 90

Seconda equazione:

Somma seconda cinquina + primo estratto prima cinquina = 90

Terza equazione :

Somma di tutte le differenze + somma delle sei colonne = 90

E questo e' lo script da aggiustare:

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,R2,Es1,Es2,Casi,SoC1,SoC2
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
Dim FIn,Ini,S12,S13,S11a,S14
Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
Dim Ambata,Salvo50,FInx,Comb
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FInx,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
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)
Diam_B3 = Diametrale(B3)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
A1 = Estratto(Es2,R2,1)
If A1 > 0 Then
A2 = Estratto(Es2,R2,2)
A3 = Estratto(Es2,R2,3)
A4 = Estratto(Es2,R2,4)
A5 = Estratto(Es2,R2,5)
XX = Fuori90((A3 * 6) + A1)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
If Distanza(B3,A4) = 45 Then
'-----------------------------------------
S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(XX + 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
Som_S2_S6 = Fuori90(S2 + S6)
Ok = 0
If Som_S2_S6 = 45 Then
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - XX))
D3 = Fuori90(90 +(XX - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : 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 'somma settima colonna
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
S11a = Fuori90(S11 + S7) 'somma delle Sette somme
S12 = Fuori90(S11 + S10)' 1a Equazione
S13 = Fuori90(A1 + S11a) '2a Equazione
S14 = Fuori90(B1 + Ambata) '3a Equazione
If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
If Ok = 1 Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
Scrivi " Seconda Ruota",1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
Scrivi " Prima ruota",1
Scrivi
Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & String(20,"-"),1
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),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,,,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) & " ",1,0
Scrivi Format2(S7),1,0,,1
Scrivi " - Somma delle 6 Colonne ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
Scrivi
Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
Scrivi
Scrivi
If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
'---------------------------------------------------------------------------------------------------
If Casi = Comb Then Exit Sub
End If
End If
End If
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
End If
If ScriptInterrotto Then Exit Sub
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

Questi sono 4 esempi reali:

21/12/1946 CA 67-22-26-65-28 8 ( il 26 diventa 30)

20/04/2023 NAZ. 57-62-20-78-76

23/02/2012 NA 67-18-48-65-71 ( il 48 diventa 81 )

20/04/2023 NAZ. 57-62-20-78-76

19/04/1958 FI 4-19-36-31-65 ( il 36 diventa 45 )

22/04/2023 BA 69-64-76-90-57

31/01/1981 NA 83-15-23-71-49 ( il 23 diventa 53 )

22/04/2023 VE 30-57-26-89-75

salvo50 · 29 Agosto 2023

La terza equazione l'ho cambiata perché era uguale alla prima

Codice:

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim B1,B2,B3,B4,B5,A1,A2,A3,A4,A5,K
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " 1ª Estrazione " & Es1 & " 2ª 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)
                  Diam_B3 = Diametrale(A3)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     B1 = Estratto(Es2,R2,1)
                     If B1 > 0 Then
                        B2 = Estratto(Es2,R2,2)
                        B3 = Estratto(Es2,R2,3)
                        B4 = Estratto(Es2,R2,4)
                        B5 = Estratto(Es2,R2,5)
                        ' XX = Fuori90((B3 * 6) + B1)'---------------------------------------------------------
                        For K = 1 To 90
                        XX = Fuori90(B3 + K)
                           SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                           If Distanza(A3,B4) = 45 Then
                              '-----------------------------------------
                              S1 = Fuori90(B1 + B2 + XX + B4 + B5) : If S1 < 10 Then S1 = S1 + 90
                              S2 = Fuori90(B2 + XX + B4 + B5 + A1) : If S2 < 10 Then S2 = S2 + 90
                              S3 = Fuori90(XX + B4 + B5 + A1 + A2) : If S3 < 10 Then S3 = S3 + 90
                              S4 = Fuori90(B4 + B5 + A1 + A2 + A3) : If S4 < 10 Then S4 = S4 + 90
                              S5 = Fuori90(B5 + A1 + A2 + A3 + A4) : If S5 < 10 Then S5 = S5 + 90
                              S6 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S6 < 10 Then S6 = S6 + 90
                              Som_S2_S6 = Fuori90(S2 + S6)
                              Ok = 0
                              If Som_S2_S6 = 45 Then
                                 D1 = Fuori90(90 +(B1 - B2))
                                 D2 = Fuori90(90 +(B2 - XX))
                                 D3 = Fuori90(90 +(XX - B4))
                                 D4 = Fuori90(90 +(B4 - B5))
                                 D5 = Fuori90(90 +(B5 - A1))
                                 D6 = Fuori90(90 +(A1 - A2))
                                 '----------------------------
                                 D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
                                 D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
                                 D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
                                 D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
                                 D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
                                 S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                                 Ambata = Fuori90(S10 + A1)
                                 S7 = Fuori90(Ambata + A2 + A3 + A4 + A5)
                                 If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                                 S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                                 S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                                 S12 = Fuori90(S11 + S10)' 1a Equazione
                                 S13 = Fuori90(SoC2 + A1) '2a Equazione
                                 S14 = Fuori90(S10 + S11a) '3a Equazione
                                 If S12 = 90 And S13 = 90 And S14 = 90 Then Ok = 1
                                 If Ok = 1 Then
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
                                    Scrivi " Seconda Ruota",1
                                    Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
                                    Scrivi " Prima ruota",1
                                    Scrivi
                                    Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                                    Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
                                    Scrivi Format2(S10),1,,,1
                                    Scrivi Space(20) & String(20,"-"),1
                                    Scrivi Space(20) & Format2(B1) & " " & Format2(B2) & " " & Format2(XX) & " " & Format2(B4),1,0
                                    Scrivi " " & Format2(B5) & " " & Format2(A1) & " " & Format2(A2),1
                                    Scrivi Space(20) & Format2(B2) & " " & Format2(XX) & " " & Format2(B4) & " " & Format2(B5),1,0
                                    Scrivi " " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3),1
                                    Scrivi Space(20) & Format2(XX) & " " & Format2(B4) & " " & Format2(B5) & " " & Format2(A1),1,0
                                    Scrivi " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1
                                    Scrivi Space(20) & Format2(B4) & " " & Format2(B5) & " " & Format2(A1) & " " & Format2(A2),1,0
                                    Scrivi " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
                                    Scrivi Space(20) & Format2(B5) & " " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3),1,0
                                    Scrivi " " & Format2(A4) & " " & Format2(A5),1,0
                                    Scrivi " " & Format2(Ambata),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) & " ",1,0
                                    Scrivi Format2(S7),1,0,,1
                                    Scrivi " - Somma delle 6 Colonne ",1,0
                                    Scrivi Format2(S11),1,,,1
                                    Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                    Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                                    Scrivi
                                    Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                                    Scrivi " Somma Tra Somma Delle somme più Somma Delle Distanze ",1,,,1
                                    Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                                    Scrivi " Somma Della 2ª Cinquina PIù 1° Estratto Prima Cinquina",1,,,2
                                    Scrivi Space(20) & Format2(S10) & " + " & Format2(S11a) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                                    Scrivi " Somma di Tutte le Differenze  più somma delle 7 colonne",1,,,1
                                    Scrivi
                                    Scrivi
                                    If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                                    '---------------------------------------------------------------------------------------------------
                                    If Casi = Comb Then Exit Sub
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

EVERITA C · 30 Agosto 2023

Buongiorno Salvo scusa la mia insistenza;

Lo script e' perfetto tranne questo benedetto passaggio:

Seconda equazione:

Somma seconda cinquina + primo estratto prima cinquina = 90

Nel tuo caso il contrario.

Non capisco perche' non viene elaborato.

salvo50 · 30 Agosto 2023

Ciao Everita

Non l'avevo messo operativo, perché ho il computer molto lento

adesso l'ho modificato quindi devi riprenderlo, io come detto non riesco a provarlo.

EVERITA C · 30 Agosto 2023

Ciao Salvo ho fatto girare lo script per un'ora e non e' successo niente.

Modificando il numero delle combinazioni da visualizzare da 10 a 1

Le cose sono due :

o non ha trovato niente sino ad un'ora o di nuovo siamo alle prese con il secondo passaggio.

salvo50 · 30 Agosto 2023

Questo script non incrementa il numero da aggiungere al terzo estratto della seconda ruota, lo cambia perché io ho messo una formula a piacere mio, quindi con la mia formula non trova niente, appena posso vedrò di fare incrementare questo numero in automatico, ma poi non posso provarlo, e quindi lo proverai tu.

EVERITA C · 30 Agosto 2023

Ok Salvo grazie mille.

salvo50 · 31 Agosto 2023

Ciao a Tutti

Ho messo l'incremento in automatico, cioè il terzo estratto viene incrementato di uno per 90 volte, quindi lo script del post 647 è da riprendere, poi dei 4 esempi da te trovati mi dovresti dire qual è la data della prima ruota, cioè nella schermata dove le 3 equivalenze sono tutte e 3 a 90 la prima ruota che data ha?

i legend · 31 Agosto 2023

Ciao qualcuno può indicare post dove è spiegata l operazione?
Cosa si deve sommare, e in quale caso trasformare il numero.
Ciao.

salvo50 · 31 Agosto 2023

i legend ha scritto:
Ciao qualcuno può indicare post dove è spiegata l operazione?
Cosa si deve sommare, e in quale caso trasformare il numero.
Ciao.

Non è spiegato da nessuna parte, la spiegazione originale è quella che ti avevo già detto che si trova al post 20 di questo topic, al post 561 Matematico mi da una spiegazione di una modifica al Byron originale che deve avere questi parametri aggiunti
----------------------------------------------------------------------------------------------------------------------------------------------------
nel frattempo ho trovato questo lavoro di Genlotto sul metodo del Lord Byron interessante ....
Spiegazione :
Lo script , per ogni estrazione deve cercare nell' intero archivio un' altra cinquina che abbia questi requisiti.
1)Terzo numero cinquina base e quarto numero cinquina cercata distanza 45
2)Seconda colonna e sesta colonna somma 45.
3)Modificare terzo numero cinquina cercata per avere le tre equazioni
------------------------------------------------------------------------------------------------------------------------------------------------------
e mi mostra anche questa immagine

senza nessun altra spiegazione

faccio lo script con le modifiche al Byron originale, poi faccio le prove per vedere se tutto va bene (le prove le faccio nelle date che si vedono nell'immagine) e non corrisponde niente ed inizio a cercare il perché non corrisponde niente e dopo un po' mi accorgo come prima fila nella tavola c'è la seconda ruota, quindi per non modificare tutto all'inizio inverto le 2 estrazioni e va bene, faccio le prove e qualcosa corrisponde ma non tutto, di nuovo cerco il perché e mi accorgo dall'immagine che le distanze dal 7 all'11 non sono calcolate come nel Byron originale ma sono calcolate dalle somme delle 6 colonne, quindi faccio ancora queste modifiche ed alla fine corrisponde tutto, tranne l'incremento del terzo estratto della seconda ruota (cinquina) non avendo idea di come fare l'incremento, faccio un algoritmo (formuletta) per avere il valore che c'è nell'immagine e così corrisponde tutto.

Ma io non ho capito dall'immagine quali sono le 3 equazioni con somma 90.

E quindi matematico mi posta quest'altra immagine

Quindi metto nello script le 3 equazioni che ci sono nell'immagine, e va bene così, anche se giustamente Matematico non trova riscontri, dato che il terzo estratto della seconda ruota non viene incrementato, funziona solo nell'estrazione dell'esempio perché l'ho fatto su misura per quella estrazione.

Dopo qualche giorno Everita C. mi dice che le 3 equazioni non sono quelle che ho inserito, ma altre e le mette nel post 607, alla fine metto dopo varie prove metto queste 3 equazioni postate da Everita, ed anche qui Everita non trova riscontri, quindi alla fine ho provato ad incrementare il terzo estratto e lo messo nell'ultimo script, non mi piace postare degli script senza averli provati, ma per questo ho fatto una eccezione.

i legend · 31 Agosto 2023

Ciao a tutti.
non posso essere d aiuto.

EVERITA C · 12 Settembre 2023

Ciao Salvo volevo porti all'attenzione di un fascicolo chiamato:

RIVELAZIONI i segreti e le meravigliose virtu' dei numeri nella TAVOLA SETTENARIA

di FERNANDO di BERARDINO

dove all'interno si parla di un procedimento a mio avviso interessante chiamato " L'infallibile "

per ambata determinata e' interessante.

se hai difficolta' a trovarlo ti scrivo tutti i passaggi per i relativi calcoli.

Grazie per tutto.Buona giornata.

EVERITA C · 12 Settembre 2023

Sarebbe interessante uno script.

Grazie in anticipo.

salvo50 · 12 Settembre 2023

Ciao Everita inserisci il metodo così vedo se riesco a farlo

EVERITA C · 12 Settembre 2023

Buon pomeriggio Salvo non so postare le foto provo a scrivere tutto sperando di non saltare niente.

Script su Metodi Cabalistici, Ciclometrici & C.

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member