Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963 · 23 Ottobre 2025

Buonasera a Tutti gli Utenti del Forum, in modo particolare agli Scripter che ci aiutano a trasformare le nostre idee di metodi lotto in esempi pratici per testarli. Per questo a chi può farlo mi serve uno script che partendo dagli estratti della Ruota Nazionale, mi ricambi un estratto determinato su un altra delle rimanenti dieci ruote, Spiego in poche parole cosa dovrebbe fare lo script A) Sommare i 5 estratti della nazionale. B) ridurre in figura i 5 estratti della nazionale , unire le cinque figure formando un numero a 5 cifre. C) Sottrarre da questo numero a cinque cifre il numero ottenuto dalla somma dei 5 estratti dalla nazionale, ridurre il numero ottenuto da questa sottrazione con il Fuori90, chiamiamo per convenzione il numero ottenuto il ricercato. D) cercare il Numero ricercato sulle altre 10 ruote partendo al 1° estratto di bari fino al 5° estratto di Venezia a partire dall'estrazione di calcolo per un massimo di altre quattro estrazioni successive. E) Se il numero ricercato viene trovato nei 50 estratti come prima occorrenza segnarsi posizione e ruota dove è stato trovato . verificare il suo isotopo sulla ruota nazionale. F) Se il Numero ricercato è minore del suo isotopo sulla nazionale i due numeri vanno sommati con eventuale fuori90, Se il Numero Ricercato è maggiore del suo isotopo sulla nazionale va calcolata la differenza aritmetica tra i due Numeri, al numero ottenuto con la somma/differenza va aggiunto un numero da 1 a 50 che si calcola in base su quale ruota ed in che posizione è stato trovato il numero ricercato il numero ottenuto è il futuro estratto sulla ruota dove si è trovato il numero ricercato, le posizioni di gioco come estratto determinato sono due è vengono calcolate nel seguente modo. Se il numero ricercato è uscito in 1à estratto determinato va giocato in 2à e 3à , numero ricercato in 2à determinato da giocare in 3à e 4à, numero ricercato in 3à determinato da giocare in 4à e 5a, numero ricercato in 4à determinato da giocare in 3à e 5à, numero ricercato in 5à determinato da giocare in 3à e 4à. Faccio un esempio reale Estrazione del 02-09-2025 Ruota nazionale i cinque estratti sono [49-14-32-19-7] che sommati sono 121, i cinque estratti ridotti in figura formano il numero a cinque cifre 45517 sottraendo da questo numero 121 otteniamo[45517-121=45396] con il fuori90 otteniamo 36 il numero Ricercato, nella stessa estrazione il 36 è uscito in 1à posizione nella prima delle dieci ruote (Bari) in isotopia al 36 sulla nazionale abbiamo il 49 , 36 minore di 49 si fa la somma 36+49=85 a questo numero va aggiunto 1 [36 numero ricercato uscito in 1à posizione sulla 1à ruota] Estratto 85+1=86 da giocare come determinato su Bari in 2à e 3à posizione. il 19-09-2025 su Bari esce 86 in 4à posizione.

salvo50 · 25 Ottobre 2025

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

filippo1963 · 25 Ottobre 2025

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Grazie Salvo50, lo testo Subito

fillott0 · 25 Ottobre 2025

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Dispari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If dispari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Pari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If pari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Buonasera Salvo questi due script li hai fatti tu e' possibile modificarli con le somme in ordine cronologico?

Grazie infinite.

salvo50 · Ieri alle 06:00

Ciao a Tutti
Ciao everita
Non riesco a capire cosa intendi per ordine cronologico
Fai un esempio

capthegamer · Oggi alle 09:33

Buongiorno Salvo dalla somma 1 ala somma 90 in ordine cronologico:

Somma 1 , somma 2 , somma 3 ....... e via discorrendo.

Oppure separando la somma pari da quella dispari.

Con lo stesso ordine cronologico.

capthegamer · Oggi alle 09:35

Sto rispondendo con un'altro account.

Ho avuto problemi con il PC e lentamente sto riprendendo.

LoneWolf · Oggi alle 11:09

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Ringrazio Salvo per lo script; Potevo chiedere guardando questo OutPut: Ma gli estratti Determinati non vengono Conteggiati ?
In corso per altre 14 estrazioni
+----------------------------------------+
| Prima Giocata : 10746 |
| Ultima Giocata : 10765 |
| Range : 20 |
| Casi giocab perc. : 60% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 12 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 6 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 50 % | | BA | | | | | | | BA | | | | | | | BA | 3| |
| Pronostici totali : 20 | | CA | | | | | | | CA | | | | | | | CA | 2| |
| Pronostici vinc. : 9 | | FI | | | | | | | FI | | | | | | | FI | 6| |
| Percentuale pos. : 45 % | | GE | | | | | | | GE | | | | | | | GE | 2| |
| Giocate in corso : 13 | | MI | | | | | | | MI | | | | | | | MI | 2| |
| Giocate terminate : 7 | | NA | | | | | | | NA | | | | | | | NA | 1| |
| Bollette giocate : 191 | | PA | | | | | | | PA | | | | | | | PA | 1| |
| Bollette vincenti : 10 | | RO | | | | | | | RO | | | | | | | RO | 2| |
| Attesa media : 6 | | TO | | | | | | | TO | | | | | | | TO | 1| |
| Spesa : 382,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 517,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 135,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 35,34 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 66,00 € |
| Estratto su ruota : 10 |
| |
+----------------------------------------+

... nella colonna estratti singoli potrebbero essere aggiunti con la Posta anche per Estratto Semplice ;
aggiungendo:
Post1(1) = 1
Post2(1) = 1
Post3(1) = 1
Post4(1) = 1
Post5(1) = 1
,,, Cordiali Saluti

Grazie

salvo50 · Oggi alle 13:26

salvo50 · Oggi alle 13:34

Ciao a Tutti
Ciao Everita

Non riesco a capire questo ordine cronologico
magari se fai degli esempi con numeri, riesco
a capire la tua richiesta

Ciao LoneWolf

Gli estratti semplici non li ho messi, perché l'autore del metodo
Filippo 1963 non li ha chiesti

capthegamer · Oggi alle 15:21

000001 01 02 04 01 + 04 + 12 = 17
000002 01 02 06 01 + 04 + 18 = 23
000003 01 02 08 01 + 04 + 24 = 29
000004 01 02 10 01 + 04 + 30 = 35
000005 01 02 12 01 + 04 + 36 = 41
000006 01 02 14 01 + 04 + 42 = 47
000007 01 02 16 01 + 04 + 48 = 53
000008 01 02 18 01 + 04 + 54 = 59
000009 01 02 20 01 + 04 + 60 = 65
000010 01 02 22 01 + 04 + 66 = 71
000011 01 02 24 01 + 04 + 72 = 77
000012 01 02 26 01 + 04 + 78 = 83
000013 01 02 28 01 + 04 + 84 = 89
000014 01 02 30 01 + 04 + 90 = 05
000015 01 02 32 01 + 04 + 06 = 11
000016 01 02 34 01 + 04 + 12 = 17
000017 01 02 36 01 + 04 + 18 = 23
000018 01 02 38 01 + 04 + 24 = 29
000019 01 02 40 01 + 04 + 30 = 35
000020 01 02 42 01 + 04 + 36 = 41
000021 01 02 44 01 + 04 + 42 = 47
000022 01 02 46 01 + 04 + 48 = 53
000023 01 02 48 01 + 04 + 54 = 59
000024 01 02 50 01 + 04 + 60 = 65
000025 01 02 52 01 + 04 + 66 = 71
000026 01 02 54 01 + 04 + 72 = 77
000027 01 02 56 01 + 04 + 78 = 83
000028 01 02 58 01 + 04 + 84 = 89
000029 01 02 60 01 + 04 + 90 = 05
000030 01 02 62 01 + 04 + 06 = 11
000031 01 02 64 01 + 04 + 12 = 17
000032 01 02 66 01 + 04 + 18 = 23
000033 01 02 68 01 + 04 + 24 = 29
000034 01 02 70 01 + 04 + 30 = 35
000035 01 02 72 01 + 04 + 36 = 41
000036 01 02 74 01 + 04 + 42 = 47
000037 01 02 76 01 + 04 + 48 = 53
000038 01 02 78 01 + 04 + 54 = 59
000039 01 02 80 01 + 04 + 60 = 65
000040 01 02 82 01 + 04 + 66 = 71
000041 01 02 84 01 + 04 + 72 = 77
000042 01 02 86 01 + 04 + 78 = 83
000043 01 02 88 01 + 04 + 84 = 89
000044 01 02 90 01 + 04 + 90 = 05

capthegamer · Oggi alle 15:24

Ciao Salvo questa e' solo una parte per far capire cosa intendo:

Sulla destra trovi dei numeri dispari alla rinfusa ( sono somme ).

Se fosse possibile riordinare le somme pari e dispari in ordine cronologico da somma 1 a somma 89 per i dispari e da somma 2 a somma 90 per le pari.

salvo50 · Oggi alle 17:01

capthegamer ha scritto:
Ciao Salvo questa e' solo una parte per far capire cosa intendo:

Sulla destra trovi dei numeri dispari alla rinfusa ( sono somme ).

Se fosse possibile riordinare le somme pari e dispari in ordine cronologico da somma 1 a somma 89 per i dispari e da somma 2 a somma 90 per le pari.

Ok ho capito, ma non mi sembra un ordine cronologico, ma un ordine sequenziale

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

fillott0

Senior Member

EVERITA C

Senior Member

EVERITA C

Senior Member

EVERITA C

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

capthegamer

Junior Member

capthegamer

Junior Member

LoneWolf

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

capthegamer

Junior Member

capthegamer

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi