Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C · Lunedì alle 14:10

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

EVERITA C · Lunedì alle 14:16

Ciao Salvo inserisco questo script da aggiustare.

Se puoi ti ringrazio tantissimo.

Quando vuoi.

EVERITA C · Lunedì alle 14:16

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 · Lunedì alle 15:05

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

Di nuovo grazie infinite.

salvo50 · Lunedì alle 15:34

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 · Lunedì alle 15:41

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 · Lunedì alle 17:34

EVERITA C ha scritto:
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

Codice:

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 = 0 
            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),0,0
                     Scrivi " somma = " & s1 & "    ",0,0
                     Scrivi Format2(s1b) & " Oppure " & Format2(s1d),1,,,2
                     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 prima estrazione x 2, oppure il suo diametrale"
                     Scrivi "Verifica: 3 x " & f & " + 6 x " & g & " + 4 x " & h & " + 4 x " & i & " + 5 x " & l & " = ",0,0
                     Scrivi Format2 (cond2),1,0,,2
                     Scrivi " 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

EVERITA C · Lunedì alle 18:06

Ciao Salvo credo sia errata la seconda condizione.

Somma prima estrazione x 2 oppure il suo diametrale.(+ / o meno 45 )

Prova a correggere questo.

Con verifica sotto.

E sempre con il complemento a 90 primo numero sopra con la somma cinquina sotto.

Grazie.

salvo50 · Ieri alle 08:26

EVERITA C ha scritto:
Ciao Salvo credo sia errata la seconda condizione.

Somma prima estrazione x 2 oppure il suo diametrale.(+ / o meno 45 )

Prova a correggere questo.

Con verifica sotto.

E sempre con il complemento a 90 primo numero sopra con la somma cinquina sotto.

Grazie.

Ciao a Tutti
Ciao Everita

Le condizioni sono tutte giuste, la seconda condizione dice che deve essere uguale alla somma della prima estrazione moltiplicata per 2, oppure al suo diametrale, adesso ho scritto la parola estrazione per intero, altrimenti ci si può confondere con estratto, e per non calcolare a mente la condizione ho messo accanto alla somma della prima estrazione i numeri di come deve essere la condizione in rosso

Quindi lo script del post 828 è da riprendere

EVERITA C · Ieri alle 13:45

Ciao Salvo ora le condizioni sono giuste adesso lo script deve ricercare all'interno dell'archivio una cinquina sopra con il primo estratto cinquina sopra complemento a 90 somma somma cinquina sotto e con tutte le condizioni calcolate sotto.

salvo50 · Ieri alle 15:03

EVERITA C ha scritto:
Ciao Salvo ora le condizioni sono giuste adesso lo script deve ricercare all'interno dell'archivio una cinquina sopra con il primo estratto cinquina sopra complemento a 90 somma somma cinquina sotto e con tutte le condizioni calcolate sotto.

Scusami ma non riesco a capire, fai degli esempi ,

EVERITA C · Ieri alle 15:41

Ciao Salvo ti faccio un'esempio con la cinquina originale:

41.60.61.59.63 = Somma 14 ( cinquina base )

Lo script mi deve ricercare all'interno dell'archivio una cinquina ( sopra) con primo estratto 76 ( 90 - 14 ) = 76 e somma 9 o 54 ( ricavati dai calcoli sotto) e tutti i calcoli che seguono.

Grazie.

salvo50 · Ieri alle 17:22

EVERITA C ha scritto:
Ciao Salvo ti faccio un'esempio con la cinquina originale:

41.60.61.59.63 = Somma 14 ( cinquina base )

Lo script mi deve ricercare all'interno dell'archivio una cinquina ( sopra) con primo estratto 76 ( 90 - 14 ) = 76 e somma 9 o 54 ( ricavati dai calcoli sotto) e tutti i calcoli che seguono.

Grazie.

Non sono in grado di farti questa modifica

EVERITA C · Ieri alle 18:48

Ciao Salvo non ti preoccupare.

Sono interessata piu ai due ultimi metodi inseriti.

Con calma quando puoi.

salvo50 · Ieri alle 22:05

La spiegazione di questo metodo è nei post 816-817-818

La distanza tra gli estratti gli ho imposto che non deve essere minore di 4,
perché con una distanza minore l'altezza e l'area della piramide hanno lo stesso numero
perché la differenza è nei decimali e i decimali vengono scartati

Piccole Armonie Svelate

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,E1,E2
   Dim Dist_AB,Dist_CD,Som_AB,Som_ABd2
   Dim Diam_Som_ABd2,Dist,h,Mas_AB,Sp,Cer
   Dim DistABd2,Area,Q_Dist,Q_DistABd2,Q_h
   Dim Amba(1),Terno(3),Ruo(2),Posta(1),Poste(3),L(3)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9300)'estrazione 8481 primo esempio nelle spiegazioni
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,13)
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(20) & " Piccole Armonie Svelate - Script Salvo50" & Space(20),1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               Dist_AB = Distanza(A,B) 'distanza estratti prima ruota
               If A > 0 And pari(Dist_AB)And Dist_AB >= 4 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(C = A And D = B) Then'
                              Dist_CD = Distanza(C,D)
                              Som_AB = Fuori90(A + B)'Somma dei 2 estratti
                              Som_ABd2 = Som_AB/2 ' i 2 estratti diviso 2
                              Diam_Som_ABd2 = Diametrale(Som_ABd2) 'Diametrale dei 2 estratti diviso 2 = ambata
                              Mas_AB = Massimo(A,B) ' estratto più alto
                              Dist = Diam_Som_ABd2 - Mas_AB ' ipotenusa
                              DistABd2 = Dist_AB / 2 'Distanza dei (2 estratti diviso 2)
                              If Dist > DistABd2 Then 'L'ipotenusa deve essere più grande di metà base
                                 Q_Dist = Dist * Dist
                                 Q_DistABd2 = DistABd2 * DistABd2
                                 Q_h = Q_Dist - Q_DistABd2
                                 h = Sqr(Q_h) ' altezza Triangolo
                                 h = Int(h) ' Altezza senza decimali
                                 Area = Fuori90(Dist_AB * h / 2)
                                 L(1) = Diam_Som_ABd2 : L(2) = A : L(3) = B
                                 Amba(1) = Diam_Som_ABd2
                                 Terno(1) = Amba(1) : Terno(2) = h : Terno(3) = Area
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  Evidenziati in rosso hanno Distanza " & Format2(Dist_AB),1
                                 Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(16) & Format2(A) & " + " & Format2(B) & " = " & Format2(Som_AB),1,0
                                 Scrivi " Somma Estratti Evidenziai",1
                                 Scrivi Space(16) & Format2(Som_AB) & " / 2  = " & Format2(Som_ABd2),1,0
                                 Scrivi " Somma Estratti Evidenziai Diviso 2",1
                                 Scrivi Space(6) & " Diametrale di " & Format2(Som_ABd2) & " = ",1,0
                                 Scrivi Format2(Diam_Som_ABd2),1,0,,2
                                 Scrivi " Ambata  (vertice triangolo)",1
                                 Scrivi Space(16) & Format2(Diam_Som_ABd2) & " - " & Format2(Mas_AB) & " = " & Format2(Dist),1,0
                                 Scrivi " Distanza dal Vertice",1
                                 Scrivi Space(16) & Format2(Dist_AB) & " / 2  = " & Format2(DistABd2),1,0
                                 Scrivi " Base Diviso 2",1
                                 Scrivi Space(16) & Format2(Dist) & " * " & Format2(Dist) & " = " & Format2(Q_Dist),1,0
                                 Scrivi " Il Quadrato Della Distanza dal Vertice",1
                                 Scrivi Space(16) & Format2(DistABd2) & " * " & Format2(DistABd2) & " = " & Format2(Q_DistABd2),1,0
                                 Scrivi " Il Quadrato di Metà Base",1
                                 Scrivi Space(12) & FormattaStringa(Q_Dist,"0000") & " - " & FormattaStringa(Q_DistABd2,"0000"),1,0
                                 Scrivi " = " & FormattaStringa(Q_h,"0000") & " Il Quadrato Dell'Altezza",1
                                 Scrivi "Radice Quadrata di " & FormattaStringa(Q_h,"0000") & " = ",1,0
                                 Scrivi Format2(h),1,0,,2
                                 Scrivi " Primo Abbinamento (altezza triangolo)",1
                                 Scrivi Space(12) & Format2(Dist_AB) & " * " & Format2(h) & " / 2 = ",1,0
                                 Scrivi Format2(Area),1,0,,2
                                 Scrivi " Secondo Abbinamento   (Area)",1
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Scrivi
                                 If Cer = 1 Then DisegnaCerchioCiclometrico L,1,1,,,1,1
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                 ImpostaGiocata 2,Terno,Ruo,Poste,Clp2
                                 Gioca Es,1
                              End If
                           End If
                        Next
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

EVERITA C · Oggi alle 08:43

Buongiorno Salvo hai fatto un'ottimo lavoro come d'altronte tutti i tuoi lavori sempre di ottima fattura.

Attendo lo script dell'altro metodo con calma quando puoi.

Grazie infinite.

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C

Member

EVERITA C

Member

EVERITA C

Member

EVERITA C

Member

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Member

Ultima estrazione Lotto

Ultimi Messaggi