Script su Metodi Cabalistici, Ciclometrici & C.

[EVERITA C]

 

[EVERITA C]

Ciao Salvo questa e' una tecnica del grande Antonio Longo.
Da scriptare.
Spero sia fattibile.
Grazie infinite.

 

[EVERITA C]

Ciao Salvo inserisco questo script da aggiustare.

Se puoi ti ringrazio tantissimo.

Quando vuoi.

 

[EVERITA C]

Ti chiedo se possibile che faccia la ricerca della cinquina sopra all'interno di tutto l'archivio cioe' dal 07 /01 / 1871 e che il primo estratto della cinquina sopra deve essere il complemento a 90 della somma della cinquina sotto.

'IL TESORO NASCOSTO di Domenico Manna

Grazie infinite.

Sub main()
Dim rt(1),nu(1),pt(1)
Dim a,b,c,d,e,f,g,h,i,l,s1,s2,s1b,s1d,fl
pt(1)=1
clp=18

ini=7850
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 11
If r=11 Then r=12
rt(1)=r
a=Estratto(es-1,r,1)
b=Estratto(es-1,r,2)
c=Estratto(es-1,r,3)
d=Estratto(es-1,r,4)
e=Estratto(es-1,r,5)
s1=Fuori90(SommaEstratti(es-1,r)) : s1b=Fuori90(s1*2) : s1d=Diametrale(s1b)
f=Estratto(es,r,1)
g=Estratto(es,r,2)
h=Estratto(es,r,3)
i=Estratto(es,r,4)
l=Estratto(es,r,5)
s2=Fuori90(SommaEstratti(es,r))
fl=Fuori90 (f+l)
If Pari (fl) Then
cond2=Fuori90((3*f)+(6*g)+(4*h)+(4*i)+(5*l))
If cond2=s1b Or cond2=s1d Then
eq1=Fuori90((3*s1)+s2+c+(2*d)+(3*e)+(3*f)+g+h+l)
If eq1=90 Then
co=co+1
byron=Fuori90(90+(s1-s2+a+f-g))
nu(1)=byron

Scrivi String (70,"=")&" Caso n°"& co,1
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r)&" somma estr. "& s1 &" (S1)"
Scrivi Space(14)&" a. b. c. d. e"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" somma estr. "& s2 &" (S2)"
Scrivi Space(14)&" f. g. h. i. l"
Scrivi "Prima condizione: F+L somma pari ("& Format2(f)&"+"& Format2(l)&" "& fl
Scrivi "Seconda condizione: formula 3xf + 6xg + 4xh + 4xi + 5xl = somma 1^ estr. x 2, oppure il suo diametrale"
Scrivi "Verifica: 3 x "& f &" + 6 x "& g &" + 4 x "& h &" + 4 x "& i &" + 5 x "& l &" = "&cond2 &" condizione verificata!"
Scrivi "Terza condizione: formula 3xS1 + S2 + c + 2xd + 3xe + 3xf + g + h - l = deve essere 90"
Scrivi "Verifica: 3 x "& s1 &" + "& s2 &" + "& c &" + 2 x "& d &" + 3 x "& e &" + 3 x "& f &" + "& g &" + "& h &" - "& l &" = "&eq1
Scrivi "Con tutte le condizioni verificate, si ricava l'Ambata da giocare",1
Scrivi "FORMULA: S1 - S2 + a + f - g ... (tradotto in "& s1 &" - "& s2 &" + "& a &" + "& f &" - "& g &") = "& byron
Scrivi

ImpostaGiocata 1,nu,rt,pt,clp
Gioca es
End If
End If
End If
Next
Next

ScriviResoconto 1

End Sub

 

[EVERITA C]

Se proprio non fosse fattibile ti chiedo se possibile lo script sulla ricerca delle terne come da metodo.

Di nuovo grazie infinite.

 

[salvo50]

Ciao a Tutti
Ciao Everita

Per adesso sto facendo quello del post 816, per quello di Antonio Longo ho dato un occhiata veloce e penso che si possa fare, riguardo allo script che hai postato non ho capito qualè la modifica da fare.

 

[EVERITA C]

Ciao Salvo in pratica lo script non ricerca le condizioni descritte.

I calcoli sono giusti ma la condizione fondamentale non la cerca.

Ammettiamo che la cinquina sotto sommi 14 il primo estratto cinquina sopra deve essere 76.

90-14=76

E se puo fare la ricerca della cinquina sopra all'interno dell'archivio.

Grazie.

 

[salvo50]

Ti chiedo se possibile che faccia la ricerca della cinquina sopra all'interno di tutto l'archivio cioe' dal 07 /01 / 1871 e che il primo estratto della cinquina sopra deve essere il complemento a 90 della somma della cinquina sotto.

'IL TESORO NASCOSTO di Domenico Manna

Grazie infinite.

Sub main()
Dim rt(1),nu(1),pt(1)
Dim a,b,c,d,e,f,g,h,i,l,s1,s2,s1b,s1d,fl
pt(1)=1
clp=18

ini=7850
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 11
If r=11 Then r=12
rt(1)=r
a=Estratto(es-1,r,1)
b=Estratto(es-1,r,2)
c=Estratto(es-1,r,3)
d=Estratto(es-1,r,4)
e=Estratto(es-1,r,5)
s1=Fuori90(SommaEstratti(es-1,r)) : s1b=Fuori90(s1*2) : s1d=Diametrale(s1b)
f=Estratto(es,r,1)
g=Estratto(es,r,2)
h=Estratto(es,r,3)
i=Estratto(es,r,4)
l=Estratto(es,r,5)
s2=Fuori90(SommaEstratti(es,r))
fl=Fuori90 (f+l)
If Pari (fl) Then
cond2=Fuori90((3*f)+(6*g)+(4*h)+(4*i)+(5*l))
If cond2=s1b Or cond2=s1d Then
eq1=Fuori90((3*s1)+s2+c+(2*d)+(3*e)+(3*f)+g+h+l)
If eq1=90 Then
co=co+1
byron=Fuori90(90+(s1-s2+a+f-g))
nu(1)=byron

Scrivi String (70,"=")&" Caso n°"& co,1
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r)&" somma estr. "& s1 &" (S1)"
Scrivi Space(14)&" a. b. c. d. e"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" somma estr. "& s2 &" (S2)"
Scrivi Space(14)&" f. g. h. i. l"
Scrivi "Prima condizione: F+L somma pari ("& Format2(f)&"+"& Format2(l)&" "& fl
Scrivi "Seconda condizione: formula 3xf + 6xg + 4xh + 4xi + 5xl = somma 1^ estr. x 2, oppure il suo diametrale"
Scrivi "Verifica: 3 x "& f &" + 6 x "& g &" + 4 x "& h &" + 4 x "& i &" + 5 x "& l &" = "&cond2 &" condizione verificata!"
Scrivi "Terza condizione: formula 3xS1 + S2 + c + 2xd + 3xe + 3xf + g + h - l = deve essere 90"
Scrivi "Verifica: 3 x "& s1 &" + "& s2 &" + "& c &" + 2 x "& d &" + 3 x "& e &" + 3 x "& f &" + "& g &" + "& h &" - "& l &" = "&eq1
Scrivi "Con tutte le condizioni verificate, si ricava l'Ambata da giocare",1
Scrivi "FORMULA: S1 - S2 + a + f - g ... (tradotto in "& s1 &" - "& s2 &" + "& a &" + "& f &" - "& g &") = "& byron
Scrivi

ImpostaGiocata 1,nu,rt,pt,clp
Gioca es
End If
End If
End If
Next
Next

ScriviResoconto 1

End Sub

Ho fatto la modifica di partire dal 1871 fino al 2025 e ci sono solo 11 casi, con l'altra modifica di fare coincidere il complemento a 90 della somma di una estrazione con il primo numero della estrazione prima non si verifica nessun caso quindi non l'ho inserita
perché in quei 11 casi non sono uguali i 2 numeri

Sub Main()
   Dim rt(1),nu(1),pt(1)
   Dim a,b,c,d,e,f,g,h,i,l,s1,s2,s1b,s1d,fl
   pt(1) = 1
   clp = 18
   ini = 2
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      For r = 1 To 11
         If r = 11 Then r = 12
         rt(1) = r
         a = Estratto(es - 1,r,1)
         b = Estratto(es - 1,r,2)
         c = Estratto(es - 1,r,3)
         d = Estratto(es - 1,r,4)
         e = Estratto(es - 1,r,5)
         s1 = Fuori90(SommaEstratti(es - 1,r)) : s1b = Fuori90(s1*2) : s1d = Diametrale(s1b)
         f = Estratto(es,r,1)
         g = Estratto(es,r,2)
         h = Estratto(es,r,3)
         i = Estratto(es,r,4)
         l = Estratto(es,r,5)
         If a > 0 And f > 0 Then
            s2 = Fuori90(SommaEstratti(es,r))
            fl = Fuori90(f + l)
            If pari(fl) Then
               cond2 = Fuori90((3*f) +(6*g) +(4*h) +(4*i) +(5*l))
               If cond2 = s1b Or cond2 = s1d Then
                  eq1 = Fuori90((3*s1) + s2 + c +(2*d) +(3*e) +(3*f) + g + h + l)
                  If eq1 = 90 Then
                     co = co + 1
                     byron = Fuori90(90 +(s1 - s2 + a + f - g))
                     nu(1) = byron
                     Scrivi String(70,"=") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r) & " somma estr. " & s1 & " (S1)"
                     Scrivi Space(14) & " a. b. c. d. e"
                     Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " somma estr. " & s2 & " (S2)"
                     Scrivi Space(14) & " f. g. h. i. l"
                     Scrivi "Prima condizione: F+L somma pari (" & Format2(f) & "+" & Format2(l) & "?? " & fl
                     Scrivi "Seconda condizione: formula 3xf + 6xg + 4xh + 4xi + 5xl = somma 1^ estr. x 2, oppure il suo diametrale"
                     Scrivi "Verifica: 3 x " & f & " + 6 x " & g & " + 4 x " & h & " + 4 x " & i & " + 5 x " & l & " = " & cond2 & " condizione verificata!"
                     Scrivi "Terza condizione: formula 3xS1 + S2 + c + 2xd + 3xe + 3xf + g + h - l = deve essere 90"
                     Scrivi "Verifica: 3 x " & s1 & " + " & s2 & " + " & c & " + 2 x " & d & " + 3 x " & e & " + 3 x " & f & " + " & g & " + " & h & " - " & l & " = " & eq1
                     Scrivi "Con tutte le condizioni verificate, si ricava l'Ambata da giocare",1
                     Scrivi "FORMULA: S1 - S2 + a + f - g ... (tradotto in " & s1 & " - " & s2 & " + " & a & " + " & f & " - " & g & ") = " & byron
                     Scrivi
                     ImpostaGiocata 1,nu,rt,pt,clp
                     Gioca es,1
                  End If
               End If
            End If
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto 1
End Sub