Metodo delle piramidi di Padre Venenziano

[Enzoflora]

 

[Enzoflora]

 

[Enzoflora]

Nuova previsione
Napoli
Ambate 54,9
ambo e ambetto più TT
X 8 colpo dal 13/04/24

 

[tony68]

grande enzo

 

[PANTERA ROSA]

Scusa Enzo mi puoi spiegare lo sviluppo dei numeri a scendere delle piramidi .
GRRRRAAAAziiieeeeeeee!!!!

 

[Gordon9]

La nuova previsione se l'hai calcolata la prima di aprile andrà giocata il mese dopo e cioè maggio, no? E non adesso
Saluti

 

[massimo1972]

Ringrazio Enzoflora,
ma dopo aver scritto in prima riga 1° 2° e 3° estratto,
non capisco come si riduce la piramide dalla 2°a riga in poi, fino ad assottigliarla ad ogni passaggio....
Puoi spiegare? Grazie

 

[Sheena1]

Grazie Enzo mi chiedo la previsione in corso su Na 54 9 calcolata alla 1del mese si gioca ora? Non ho capito il passaggio di aprile e giocata ad aprile

 

[Nek Kina]

Ringrazio Enzoflora,
ma dopo aver scritto in prima riga 1° 2° e 3° estratto,
non capisco come si riduce la piramide dalla 2°a riga in poi, fino ad assottigliarla ad ogni passaggio....
Puoi spiegare? Grazie

Buon pomeriggio Massimo ,devi addizionare i numeri e fare la sua figura esempio , 798851 cominci con i primi due 7+9=16 figura 7 perché 1+6=7
Poi passi dal secondo al terzo 9+8=17\\1+7=8
Poi terzo col quarto 8+8=16 \\1+6=7 , poi il quarto col quinto , il quinto col sesto , poi dopo cominci a fare stesso calcolo partendo con i numeri ottenuti dalla prima ,fino a ridurre in due

 

[GioRyuKen72]

Ciao, ho fatto lo script non tenendo conto del gioco al mese successivo e facendo il +45 in caso di numeri ripetuti.
Spero sia di vs gradimento

Anticipazione (Spoiler): Metodo delle sei piramidi di Padre Venanzio

Sub Main
   ' https://forum.lottoced.com/threads/metodo-delle-piramidi-di-padre-venenziano.2216870/
   ColoreTesto 0
   Scrivi "                            Metodo delle SEI piramidi di Padre Venanzio   -- listato GioRyuKen72                        ",1,,2,5,4
   Scrivi
   ColoreTesto 0
   Dim Fin,Ini,Es,R1,Caso,Casi,Ruo,Ruota(2)
   Dim PostaABT(1),PostaA(2)
   Dim Ambo1(2),Pira1,Pira2,Pira3,Pira123,PiraStringa
   Dim N1,N2,N3,N4,N5,im,Nn(2)
   PostaA(1) = 2
   PostaA(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare.. 9416=dal 2018, 9572= dal 2019, 9729 = dal 2020",,10000)
   im = CInt(InputBox("IN QUALE ESTRAZIONE MENSILE ? per ultima del mese si metta 0 ","NUMERO ESTRAZIONE",1))
   R1 = ScegliRuota
   'Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      If(((eval(im) = 0)And(Es = ultest))Or((IndiceMensile(Es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(Es + 1) = 1)And(eval(im) = 0)))) Then
         N1 = Estratto(Es,R1,1) ' 61
         N2 = Estratto(Es,R1,2) ' 80
         N3 = Estratto(Es,R1,3) ' 40
         N4 = Estratto(Es,R1,4) ' 26
         N5 = Estratto(Es,R1,5) ' 16
         Pira1 = Fuori90(Piramide(N1 & N2 & N3,,2))
         Pira2 = Fuori90(Piramide(N2 & N3 & N4,,2))
         Pira3 = Fuori90(Piramide(N3 & N4 & N5,,2))
         Pira123 = Fuori90(Piramide(Pira1 & Pira2 & Pira3,,2))
         Nn(1) = Fuori90(Piramide(N1 & N2 & N3 & N4 & N5,,2))
         Nn(2) = Fuori90(Piramide(Nn(1) & Pira123,,2))
         Ruota(1) = R1
         Caso = Caso + 1
         Casi = Casi + 1
         K = 18
         imo = im
         If im = 0 Then imo = "ultima"
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
         Scrivi
         Scrivi("Ricerca effettuata alla " & Format2(imo) & " estrazione sulla ruota di " & NomeRuota(R1)),1,,,1
         ColoreTesto 0
         Scrivi(" Piramide UNO = " & Format2(Pira1)),1
         Scrivi(" Piramide DUE = " & Format2(Pira2)),1
         Scrivi(" Piramide TRE = " & Format2(Pira3)),1
         Scrivi(" Piramide QUATTRO = " & Format2(Pira123)),1
         ColoreTesto 2
         Scrivi(" Piramide CINQUE  = " & Format2(Nn(1))),1
         Scrivi(" Piramide SEI     = " & Format2(Nn(2))),1
         ColoreTesto 0
          If NumeriRipetuti(Nn) Then
            While NumeriRipetuti(Nn)
               For x = 01 To 1
                  For y = x + 01 To 2
                     If Nn(x) = Nn(y) Then Nn(y) = Fuori90(Nn(y) + 45)'se ripetuti aggiunge 45
                  Next
               Next
            Wend
         End If
         Ambo1(1) = Nn(1)
         Ambo1(2) = Nn(2)
         ImpostaGiocata 2,Ambo1,Ruota,PostaA,K,1
         If ScriptInterrotto Then Exit Sub
         Gioca (Es),1,,1
      End If
   Next
   ColoreTesto 0
   Scrivi String(65,"•")
   TestoInBandaPassante " *****  Metodo delle SEI piramidi di Padre Venanzio  -- listato GioRyuKen72 ***** ",1,2,5
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Saluti, Gio.

 

[Zac]

Per verificare se i miei calcoli sono esatti, per maggio è giusta l'ambata 12, calcolata allla prima estrazione di aprile?
Grazie buona serata