Script su Metodi Cabalistici, Ciclometrici & C.

[capthegamer]

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,F,G,H,I,L,Salvo50
Dim R1,R2,P8,E1,Ind,Es1,Es2,Es3,Caso,Casi
Dim Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10780))
Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare Somma Cinquina? ",Salvo50,50))
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & " Somma Cinquina da Ricercare - Proposto da Capthegamer - Script Salvo50" & Space(5),1,,4,,3,,1
For Es1 = Ini To Fin
Messaggio Es1
AvanzamentoElab Ini,FIn,Es1
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
A = Estratto(Es1,R1,1)
B = Estratto(Es1,R1,2)
C = Estratto(Es1,R1,3)
D = Estratto(Es1,R1,4)
E = Estratto(Es1,R1,5)
Som15 = Fuori90(A + E)
If pari(Som15) Then
F = 3 * A : G = 6 * B : H = 4 * C : I = 4 * D : L = 5 * E
xSom1 = F + G + H + I + L
Som1 = xSom1/2
Som1F90 = Fuori90(Som1)
Es3 = CInt(Es1 - Ind + 1)
For Es2 = Es1 - 1 To Es3 Step - 1
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 = R1 Then
SomR2 = SommaEstratti(Es2,R2)
SomR2F90 = Fuori90(SomR2)
If SomR2F90 = Som1F90 Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"-") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P8 = 1 To 5
E1 = Estratto(Es1,R1,P8)
If E1 = A Or E1 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Somma Evidenziati = " & Format2(Som15) & " PARI",1,,,2
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2),1,0
Scrivi " Somma Estratti " & SomR2 & " Fuori90 ",1,0
Scrivi SomR2F90,1,0,,2
Scrivi " Numero trovato a ritroso",1
Scrivi
Scrivi " 3 * " & Format2(A) & " = " & Format2(F) & Space(5),1,0
Scrivi " 6 * " & Format2(B) & " = " & Format2(G) & Space(5),1,0
Scrivi " 4 * " & Format2(C) & " = " & Format2(H) & Space(5),1,0
Scrivi " 4 * " & Format2(D) & " = " & Format2(I) & Space(5),1,0
Scrivi " 5 * " & Format2(E) & " = " & Format2(L) & Space(5),1
Scrivi
Scrivi " " & F & " + " & G & " + " & H & " + " & I & " + " & L & " = " & xSom1,1,0
Scrivi " / 2 = " & Som1 & " Fuori90 ",1,0
Scrivi Som1F90,1,0,,2
Scrivi " Numero da cercare a ritroso ",1
End If
End If
Next
Next
End If
If ScriptInterrotto Then Exit Sub
Next
Next
End Sub

 

[capthegamer]

Ciao Salvo e' possibile aggiungere a questo script alla somma ricercata calcolare il doppio e il triplo della cinquina.

Faccio un'esempio:

Esempio: 05/FEB/1995
CA 11.86.30.87.81 Somma con il F.90 = 25 =S2, I e V= PARI, 11+81=92
f g h i l

Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81

C)Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e

 

[capthegamer]

66.22.27.65.81 * Numeri estratti
42.44.54.65.72 * il loro doppio
18.66.81.15.63 * il loro triplo

 

[capthegamer]

Grazie in anticipo.

 

[salvo50]

Ciao a Tutti
Bubù
Grazie

Ciao Everita

Il raddoppio e il triplo della cinquina non l'ho fatto, perché
non ho capito di quale cinquina devono essere, della prima
quella di calcolo, oppure della seconda cioè quella trovata.
Poi cosa ci devo fare dei numeri raddoppiati e triplicati,
li visualizzo soltanto oppure servono a qualcosa?

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,H,I,L,Salvo50,Diam_Som1
   Dim R1,R2,P8,E1,Ind,Es1,Caso,Casi
   Dim Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10780))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare Somma Cinquina? ",Salvo50,50))
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " Modifica a Somma Cinquina da Ricercare - Script Salvo50" & Space(5),1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A = Estratto(Es1,R1,1)
         B = Estratto(Es1,R1,2)
         C = Estratto(Es1,R1,3)
         D = Estratto(Es1,R1,4)
         E = Estratto(Es1,R1,5)
         Som15 = Fuori90(A + E)
         If pari(Som15) Then
            F = 3 * A : G = 6 * B : H = 4 * C : I = 4 * D : L = 5 * E
            xSom1 = F + G + H + I + L
            Som1 = xSom1/2
            Som1F90 = Fuori90(Som1)
            Diam_Som1 = Diametrale(Som1F90)
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               If R2 <> R1 Then
                  SomR2 = SommaEstratti(Es1,R2)
                  SomR2F90 = Fuori90(SomR2)
                  If(SomR2F90 = Som1F90)Or(Diam_Som1 = SomR2F90) Then
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(80,"-") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                     Scrivi " " & SiglaRuota(R1) & " ",1,0
                     For P8 = 1 To 5
                        E1 = Estratto(Es1,R1,P8)
                        If E1 = A Or E1 = E Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi " <-- Somma Evidenziati = " & Format2(Som15) & " PARI",1,,,2
                     Scrivi
                     Scrivi " 3 * " & Format2(A) & " = " & Format2(F) & Space(5),1,0
                     Scrivi " 6 * " & Format2(B) & " = " & Format2(G) & Space(5),1,0
                     Scrivi " 4 * " & Format2(C) & " = " & Format2(H) & Space(5),1,0
                     Scrivi " 4 * " & Format2(D) & " = " & Format2(I) & Space(5),1,0
                     Scrivi " 5 * " & Format2(E) & " = " & Format2(L) & Space(5),1
                     Scrivi
                     Scrivi " " & F & " + " & G & " + " & H & " + " & I & " + " & L & " = " & xSom1,1,0
                     Scrivi " / 2 = " & Som1 & " Fuori90 = ",1,0
                     Scrivi Som1F90 & " Diametrale = " & Diam_Som1,1,,,2
                     Scrivi
                     Scrivi " Cercare Nella Stessa Estrazione Altra Ruota Con Somma " & Som1F90 & " Oppure  " & Diam_Som1,1
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                     Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es1,R2),1,0
                     Scrivi " Somma Estratti " & SomR2 & " Fuori90 = ",1,0
                     Scrivi SomR2F90,1,,,2
                  End If
               End If
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
   Next
End Sub

 

[capthegamer]

Ciao Salvo i numeri raddoppiati e triplicati si applicano solo sulla cinquina ricercata con il calcolo :

Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81

Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e

Grazie.