Novità

Per salvo50 una cortesia

Attualmente non è utilizzabile da altri.

Perché incorpora e richiede, 'modifiche', anche profonde,

che si applicano diversamente ad ogni nuova esecuzione.

Ovvero a seguito della scrittura e riscrittura del programma, ogni volta che si è cambiata strategia.

In pratica esso non esiste per come lo hai visto o l'ho proposto di volta in volta,

perchè nel poco tempo disponibile, ho sempre riscritto e sovrascritto le poche linee di codice.

che avevo già pubblicato, e che ho utilizzato di volta in volta ... alle nuove condizioni,

che si erano presentate.

:)
 
joe;n2116092 ha scritto:
Ok ... però purtroppo il computer conferma i miei dubbi.

2it3l2q.jpg


:) Buona serata a tutte/i.
Clicca per espandere...

Ed ecco l'ambo secchissimo 79-01 !!!!
 
Ciao a Tutti

Nei calcoli del - TRINO SETTENARIO - c'è questo procedimento, però i primi due numeri e la chiave si trovano in altri modi, ecco perchè non me lo ricordavo, mi è venuto in mente che quando feci tutti i calcoli del - TRINO SETTENARIO - Rosanna58 mi fece notare che se mi serviva solo il risultato finale, potevo evitare tutte le somme con questo algoritmo

Primo numero moltiplicato per 6
Secondo numero moltiplicato per 3
La Chiave moltiplicata per 7
il tutto con il fuori90

se può interessare, ho modificato un pochino lo script di Joe

Codice: 
 Option Explicit
Sub Main
   'Calcoli Cabalistici - Casamia x Il Matematico  'C = chiave
   'Script By Joe - modificato da Salvo50, applicando algoritmo
   'di Rosanna58  
   Dim R,Es,Se,Nu,X,Y
   Dim A,B,C,D,S
   R = BA_
   Es = 9460
   C = 1 * 7
   Se = StringaEstratti(Es,R)
   Nu = Split("0." & Se,".")
   Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaNumeri(Nu,,True)
   Scrivi
   For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = Fuori90(CInt(Nu(X))* 6)
      B = Fuori90(CInt(Nu(Y))* 3)
      D = Fuori90(A + B + C)
      S = S & Format2(D) & " "
   Next
   Scrivi S
End Sub
 
Ciao Salvo.

... penso possano nascere malintesi da questa trattazione.

La setteneria è una tabella redatta secondo regole specifiche.

I 5 numeri di ogni cella sono legati tra loro da regole e calcoli matematici.

Questi calcoli, sono uguali in ognuna delle celle di cui si compone tutta la tabella.

Calcoli-fissi secondo regole matematiche. Cabalisticamente definiti come Settenaria.

Nei casi ... trattati si utilizzano e sono 2-Numeri-Estratti-Casualmente.

Quindi, necessariamente "variabili" ed anche "indipendenti" l'uno dall'altro.

Indurli ad essere elementi di una tabella è attribuzione del tutto arbitraria.

Una forzatura, ad una regola, che essi non hanno. Tra loro ... e ... nella tabella.

Cioè non hanno nulla a che fare con la tabella a cui li si attribuisce.

Nulla, tranne il fatto, di essere 2 numeri di 90 in una tabella ove ci sono 90 caselle.

90 caselle di 5 numeri caduna. Cioè tra 2 tra 450 numeri.

Stando così le cose .. della settenaria ... non rimane, quasi nulla.

Il metodo si ridurrebbe ad un classico sommativo / moltiplicativo.

Secondo me sarebbe meglio attendere il nuovo pronostico ...

che dipende (come è stato scritto) da cose non scritte.

:)
 
Ultima modifica:
Esatto in parte quello che dici joe , i miei calcoli sono derivati dalla settenaria e non inventati...intanto io ho dimostrato che si può vincere con essa,.non dimenticare l'ambo secco 79-1 sortito come da me previsto ,e guarda che non è casualità, è tutto scritto:-)...non rivelerò mai ilmetodo completo in nessun forum...qui tutti fanno molte chiacchere e non postano neanche previsioni della tavola, perchè mai dovrei farlo io...anche se indizi ne ho postati :-)
 
Ultima modifica:
joe;n2118697 ha scritto:
Ciao Salvo.

... penso possano nascere malintesi da questa trattazione.

La setteneria è una tabella redatta secondo regole specifiche.

I 5 numeri di ogni cella sono legati tra loro da regole e calcoli matematici.

Questi calcoli, sono uguali in ognuna delle celle di cui si compone tutta la tabella.

Calcoli-fissi secondo regole matematiche. Cabalisticamente definiti come Settenaria.

Nel casi ... come qui trattati si utilizzano e sono 2-Numeri-Estratti-Casualmente.

Quindi, necessariamente "variabili" ed anche "indipendenti" l'uno dall'altro.

Indurli ad essere elementi di una tabella è attribuzione del tutto arbitraria.

Una forzatura, ad una regola, che essi non hanno. Tra loro ... e ... nella tabella.

Cioè non hanno nulla a che fare con la tabella a cui li si attribuisce.

Nulla, tranne il fatto, di essere 2 numeri di 90 in una tabella ove ci sono 90 caselle.

90 caselle di 5 numeri caduna. Cioè tra 2 tra 450 numeri.

Stando così le cose .. della settenaria ... non rimane, quasi nulla.

Il metodo si ridurrebbe ad un classico sommativo / moltiplicativo.

Secondo me sarebbe meglio attendere il nuovo pronostico ...

che dipende (come è stato scritto) da cose non scritte.

:)
Clicca per espandere...

Ciao Joe, io non ho fatto nessun pronostico, non ho parlato di settenaria, ho solo detto che se prendi tre numeri qualsiasi in cui uno di questi tre numeri è la chiave e dei due rimanenti stabilisci qual'è il primo ed il secondo, facendo tutte le somme del procedimento di Casamia, come ultimo numero ottieni lo stesso risultato che hai con l'algoritmo di Rosanna58.
 
Ultima modifica:
salvo50;n2118732 ha scritto:
Ciao Joe, io non ho fatto nessun pronostico, non ho parlato di settenaria, ho solo detto che se prendi tre numeri qualsiasi in cui uno di questi tre numeri è la chiave e dei due rimanenti stabilisci qual'è il primo ed il secondo, facendo tutte le somme del procedimento di Casamia, come ultimo numero ottieni lo stesso risultato che hai con l'algoritmo di Rosanna58.
Clicca per espandere...

Ciao Salvo

Io ... ho scritto che, secondo me, sommare e/o moltiplicare ... serve a poco ...

al fine di formulare un pronostico "attendibile"

Ovvero un pronostico che abbia maggiore probabilità di successo.

A scanso di equivoci ... non ti rimprovero nulla. Ci mancherebbe.

Semplicemente ... dicevo (in senso astratto), che se i pronostici sono solo redatti da chi li sa fare,

rispettando le regole ed il metodo che solo lui conosce,

possiamo dire se essi sono validi o no.

Altrimenti rischiamo di porre a confronto "cose" che hanno una loro natura differente

... da altre simili... e da questo dedurre attendibilità "solo in parte" a favore e/o contraria all'ipotesi in oggetto.

:)
 
Ultima modifica:
joe;n2118745 ha scritto:
Ciao Salvo

Io ... ho scritto che, secondo me, sommare e/o moltiplicare ... serve a poco ...

al fine di formulare un pronostico "attendibile"

Ovvero un pronostico che abbia maggiore probabilità di successo.

A scanso di equivoci ... non ti rimprovero nulla. Ci mancherebbe.

Semplicemente ... dicevo (in senso astratto), che se i pronostici sono solo redatti da chi li sa fare,

rispettando le regole ed il metodo che solo lui conosce,

possiamo dire se essi sono validi o no.

Altrimenti rischiamo di porre a confronto "cose" che hanno una loro natura differente

... da altre simili... e da questo dedurre attendibilità "solo in parte" a favore e/o contraria all'ipotesi in oggetto.

:)
Clicca per espandere...

Ciao a Tutti, d'accordissimo con te.
 
Ciao a Tutti
Matematico
Quando nel Maggio 2018, mi chiedesti di fare uno script sulle piramidi di Pietro Casamia
non sapevo niente di questo autore, dopo lo cercato e ho trovato un sito questo

'https://books.google.it/books?id=Lz4GSZAR7CYC&hl=it

dove puoi scaricare gratuitamente il libro di Pirtro Casamia
Nel libro c'è un po' di tutto delle scienze e parla anche
di gioco del Lotto, da pagina 64 a pagina 69 è spiegato
come pronosticare una cinquina a colpo con la chiave fissa 1 (uno)

ed ho fatto uno script

Codice: 
Option Explicit
Sub Main
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5),k,S1(5),S2(5),Som(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5)
   A(1) = 61 : A(2) = 25 : A(3) = 01 : A(4) = 53 : A(5) = 06
   B(1) = 20 : B(2) = 16 : B(3) = 60 : B(4) = 27 : B(5) = 55
   'Inizio Calcoli Primo Gruppo Piramidi
   'Calcoli Prima Piramide
   D(1) = Fuori90(A(1) + A(3))
   E(1) = Fuori90(A(2) + D(1))
   F(1) = Fuori90(A(3) + D(1))
   G(1) = Fuori90(D(1) + E(1))
   H(1) = Fuori90(F(1) + G(1))
   I(1) = Fuori90(E(1) + G(1) + H(1))
   'Calcoli Seconda Piramide
   D(2) = Fuori90(A(2) + A(3))
   E(2) = Fuori90(A(3) + D(2))
   F(2) = Fuori90(A(3) + D(2))
   G(2) = Fuori90(D(2) + E(2))
   H(2) = Fuori90(F(2) + G(2))
   I(2) = Fuori90(E(2) + G(2) + H(2))
   'Calcoli Terza Piramide
   D(3) = Fuori90(A(3) + A(3))
   E(3) = Fuori90(A(4) + D(3))
   F(3) = Fuori90(A(3) + D(3))
   G(3) = Fuori90(D(3) + E(3))
   H(3) = Fuori90(F(3) + G(3))
   I(3) = Fuori90(E(3) + G(3) + H(3))
   'Calcoli Quarta Piramide
   D(4) = Fuori90(A(4) + A(3))
   E(4) = Fuori90(A(5) + D(4))
   F(4) = Fuori90(A(3) + D(4))
   G(4) = Fuori90(D(4) + E(4))
   H(4) = Fuori90(F(4) + G(4))
   I(4) = Fuori90(E(4) + G(4) + H(4))
   'Calcoli Quinta Piramide
   D(5) = Fuori90(A(5) + A(3))
   E(5) = Fuori90(A(1) + D(5))
   F(5) = Fuori90(A(3) + D(5))
   G(5) = Fuori90(D(5) + E(5))
   H(5) = Fuori90(F(5) + G(5))
   I(5) = Fuori90(E(5) + G(5) + H(5))
   'Fine Calcoli Primo Gruppo Piramidi
   For k = 1 To 5
      PrimoMezzoPeso(k) = Fuori90(I(k) * 13)
      PrimoMezzoPeso(k) = 91 - PrimoMezzoPeso(k)
      SecondoMezzoPeso(k) = Fuori90(B(k) * 13)
      Som(k) = Fuori90(PrimoMezzoPeso(k) + SecondoMezzoPeso(k))
      S1(k) = "Al Numero " & Format2(I(k)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(k))
      S2(k) = " Al secondo mezzo peso corrisponde " & Format2(SecondoMezzoPeso(k))
   Next
   'Inizio Calcoli Ultimo Gruppo Piramidi
   'Calcoli Prima Piramide
   D2(1) = Fuori90(A(1) + Som(1))
   E2(1) = Fuori90(A(2) + D2(1))
   F2(1) = Fuori90(Som(1) + D2(1))
   G2(1) = Fuori90(D2(1) + E2(1))
   H2(1) = Fuori90(F2(1) + G2(1))
   I2(1) = Fuori90(E2(1) + G2(1) + H2(1))
   'Calcoli Seconda Piramide
   D2(2) = Fuori90(A(2) + Som(2))
   E2(2) = Fuori90(A(3) + D2(2))
   F2(2) = Fuori90(Som(2) + D2(2))
   G2(2) = Fuori90(D2(2) + E2(2))
   H2(2) = Fuori90(F2(2) + G2(2))
   I2(2) = Fuori90(E2(2) + G2(2) + H2(2))
   'Calcoli Terza Piramide
   D2(3) = Fuori90(A(3) + Som(3))
   E2(3) = Fuori90(A(4) + D2(3))
   F2(3) = Fuori90(Som(3) + D2(3))
   G2(3) = Fuori90(D2(3) + E2(3))
   H2(3) = Fuori90(F2(3) + G2(3))
   I2(3) = Fuori90(E2(3) + G2(3) + H2(3))
   'Calcoli Quarta Piramide
   D2(4) = Fuori90(A(4) + Som(4))
   E2(4) = Fuori90(A(5) + D2(4))
   F2(4) = Fuori90(Som(4) + D2(4))
   G2(4) = Fuori90(D2(4) + E2(4))
   H2(4) = Fuori90(F2(4) + G2(4))
   I2(4) = Fuori90(E2(4) + G2(4) + H2(4))
   'Calcoli Quinta Piramide
   D2(5) = Fuori90(A(5) + Som(5))
   E2(5) = Fuori90(A(1) + D2(5))
   F2(5) = Fuori90(Som(5) + D2(5))
   G2(5) = Fuori90(D2(5) + E2(5))
   H2(5) = Fuori90(F2(5) + G2(5))
   I2(5) = Fuori90(E2(5) + G2(5) + H2(5))
   'Fine Calcoli Ultimo Gruppo Piramidi
   Scrivi "Estratti Ruota Di Roma Del 19-10-1775 " & StringaNumeri(A," ",True),1,0,,1
   Scrivi "  Estazione base per calcoli",1,,,1
   Scrivi "Estratti Ruota Di Roma Del 29-10-1775 " & StringaNumeri(B," ",True),1,0,,2
   Scrivi "  Estazione successiva",1,,,2
   Scrivi
   Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
   Scrivi
   Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
   Scrivi
   Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(A(3)) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(5)) & " " & Format2(E(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
   Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
   Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
   Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
   Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
   Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
   Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
   Scrivi
   Scrivi "Per ognuno di questi numeri si deve prendere il corrispondente ",1
   Scrivi "numero nei mezzi pesi della tavola settenaria ",1
   Scrivi
   Scrivi S1(1) & " " & S2(1),1
   Scrivi S1(2) & " " & S2(2),1
   Scrivi S1(3) & " " & S2(3),1
   Scrivi S1(4) & " " & S2(4),1
   Scrivi S1(5) & " " & S2(5),1
   Scrivi
   Scrivi Space(20) & " Sommare i 2 mezzi pesi corrispondenti ",1
   Scrivi
   Scrivi Space(32) & StringaNumeri(PrimoMezzoPeso," ",True) & " + ",1
   Scrivi Space(32) & StringaNumeri(SecondoMezzoPeso," ",True) & " = ",1
   Scrivi Space(32) & String((16),"-")
   Scrivi Space(19) & " Pesi Interi " & StringaNumeri(Som," ",True),1
   Scrivi
   Scrivi Space(16) & " Rifare di nuovo la piramidi e invece di mettere la chiave",1,,,2
   Scrivi Space(16) & " uno al terzo posto, mettere i pesi interi calcolati  ",1,,,2
   Scrivi
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(Som(1)) & " " & Format2(D2(1)) & " " & Format2(E2(1)),1,0
   Scrivi Space(5) & Format2(Som(2)) & " " & Format2(D2(2)) & " " & Format2(E2(2)),1,0
   Scrivi Space(5) & Format2(Som(3)) & " " & Format2(D2(3)) & " " & Format2(E2(3)),1,0
   Scrivi Space(5) & Format2(Som(4)) & " " & Format2(D2(4)) & " " & Format2(E2(4)),1,0
   Scrivi Space(5) & Format2(Som(5)) & " " & Format2(D2(5)) & " " & Format2(E2(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F2(1)) & " " & Format2(G2(1)),1,0
   Scrivi Space(8) & Format2(F2(2)) & " " & Format2(G2(2)),1,0
   Scrivi Space(8) & Format2(F2(3)) & " " & Format2(G2(3)),1,0
   Scrivi Space(8) & Format2(F2(4)) & " " & Format2(G2(4)),1,0
   Scrivi Space(8) & Format2(F2(5)) & " " & Format2(G2(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H2(1)) & Space(11) & Format2(H2(2)) & Space(11) & Format2(H2(3)),1,0
   Scrivi Space(11) & Format2(H2(4)) & Space(11) & Format2(H2(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I2(1)) & Space(11) & Format2(I2(2)) & Space(11) & Format2(I2(3)),1,0,,2
   Scrivi Space(11) & Format2(I2(4)) & Space(11) & Format2(I2(5)),1,,,2
   Scrivi
   Scrivi Space(25) & "Pronostico " & StringaNumeri(I2," ",True),1
End Sub
 
Se vi leggete bene le spigazioni da pagina 64 a pagina 69
vedrete che non c'è niente di miracoloso perché i secondi
mezzi pesi vengono calcolati con l'estrzione successiva
e a pagina 69 lo ribadisce.

Quindi è solo una curiosità non pronostica niente
detto questo ho fatto uno script per tutte le ruote

Codice: 
Option Explicit
Sub Main
   Dim Es,R1,Ini,Fin,P1,Clp,Salvo50,K,Casi,R2
   Dim Som_A,Som_B,Som_I,Som_I2,Som_H,Som_H2
   Dim Spia
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5),S1(5),S2(5),Som(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5)
   Dim Posta(5),Ruo(1)
   Spia = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10710)
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,1)
   Posta(5) = 1
   For Es = Ini To Fin - 1
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
         Next
         Som_A = SommaEstratti(Es,R1)
         Som_A = Fuori90(Som_A)
         Som_B = SommaEstratti(Es + 1,R1)
         Som_B = Fuori90(Som_B)
         'Inizio Calcoli Primo Gruppo Piramidi
         'Calcoli Prima Piramide
         D(1) = Fuori90(A(1)) + Spia
         E(1) = Fuori90(A(2) + D(1))
         F(1) = Fuori90((Spia) + D(1))
         G(1) = Fuori90(D(1) + E(1))
         H(1) = Fuori90(F(1) + G(1))
         I(1) = Fuori90(E(1) + G(1) + H(1))
         'Calcoli Seconda Piramide
         D(2) = Fuori90(A(2)) + Spia
         E(2) = Fuori90(A(3) + D(2))
         F(2) = Fuori90((Spia) + D(2))
         G(2) = Fuori90(D(2) + E(2))
         H(2) = Fuori90(F(2) + G(2))
         I(2) = Fuori90(E(2) + G(2) + H(2))
         'Calcoli Terza Piramide
         D(3) = Fuori90(A(3)) + Spia
         E(3) = Fuori90(A(4) + D(3))
         F(3) = Fuori90((Spia) + D(3))
         G(3) = Fuori90(D(3) + E(3))
         H(3) = Fuori90(F(3) + G(3))
         I(3) = Fuori90(E(3) + G(3) + H(3))
         'Calcoli Quarta Piramide
         D(4) = Fuori90(A(4)) + Spia
         E(4) = Fuori90(A(5) + D(4))
         F(4) = Fuori90((Spia) + D(4))
         G(4) = Fuori90(D(4) + E(4))
         H(4) = Fuori90(F(4) + G(4))
         I(4) = Fuori90(E(4) + G(4) + H(4))
         'Calcoli Quinta Piramide
         D(5) = Fuori90(A(5)) + Spia
         E(5) = Fuori90(A(1) + D(5))
         F(5) = Fuori90((Spia) + D(5))
         G(5) = Fuori90(D(5) + E(5))
         H(5) = Fuori90(F(5) + G(5))
         I(5) = Fuori90(E(5) + G(5) + H(5))
         'Fine Calcoli Primo Gruppo Piramidi
         For K = 1 To 5
            PrimoMezzoPeso(K) = Fuori90(I(K) * 13)
            PrimoMezzoPeso(K) = 91 - PrimoMezzoPeso(K)
            SecondoMezzoPeso(K) = Fuori90(B(K) * 13)
            Som(K) = Fuori90(PrimoMezzoPeso(K) + SecondoMezzoPeso(K))
            S1(K) = "Al Numero " & Format2(I(K)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(K))
            S2(K) = " Al secondo mezzo peso corrisponde " & Format2(SecondoMezzoPeso(K))
         Next
         'Inizio Calcoli Ultimo Gruppo Piramidi
         'Calcoli Prima Piramide
         D2(1) = Fuori90(A(1) + Som(1))
         E2(1) = Fuori90(A(2) + D2(1))
         F2(1) = Fuori90(Som(1) + D2(1))
         G2(1) = Fuori90(D2(1) + E2(1))
         H2(1) = Fuori90(F2(1) + G2(1))
         I2(1) = Fuori90(E2(1) + G2(1) + H2(1))
         'Calcoli Seconda Piramide
         D2(2) = Fuori90(A(2) + Som(2))
         E2(2) = Fuori90(A(3) + D2(2))
         F2(2) = Fuori90(Som(2) + D2(2))
         G2(2) = Fuori90(D2(2) + E2(2))
         H2(2) = Fuori90(F2(2) + G2(2))
         I2(2) = Fuori90(E2(2) + G2(2) + H2(2))
         'Calcoli Terza Piramide
         D2(3) = Fuori90(A(3) + Som(3))
         E2(3) = Fuori90(A(4) + D2(3))
         F2(3) = Fuori90(Som(3) + D2(3))
         G2(3) = Fuori90(D2(3) + E2(3))
         H2(3) = Fuori90(F2(3) + G2(3))
         I2(3) = Fuori90(E2(3) + G2(3) + H2(3))
         'Calcoli Quarta Piramide
         D2(4) = Fuori90(A(4) + Som(4))
         E2(4) = Fuori90(A(5) + D2(4))
         F2(4) = Fuori90(Som(4) + D2(4))
         G2(4) = Fuori90(D2(4) + E2(4))
         H2(4) = Fuori90(F2(4) + G2(4))
         I2(4) = Fuori90(E2(4) + G2(4) + H2(4))
         'Calcoli Quinta Piramide
         D2(5) = Fuori90(A(5) + Som(5))
         E2(5) = Fuori90(A(1) + D2(5))
         F2(5) = Fuori90(Som(5) + D2(5))
         G2(5) = Fuori90(D2(5) + E2(5))
         H2(5) = Fuori90(F2(5) + G2(5))
         I2(5) = Fuori90(E2(5) + G2(5) + H2(5))
         'Fine Calcoli Ultimo Gruppo Piramidi
         Som_H2 = Fuori90(H2(1) + H2(2) + H2(3) + H2(4) + H2(5))
         Som_I2 = Fuori90(I2(1) + I2(2) + I2(3) + I2(4) + I2(5))
         Casi = Casi + 1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " casi " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & "  Somma Fuori90 " & Som_A,1
         '
         Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1) & "  Somma Fuori90 " & Som_B,1
         Scrivi
         Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
         Scrivi
         Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
         Scrivi
         Scrivi Space(18) & "Prima Piramide Per Ogni Gruppo Di 2 Numeri ",1,,,2
         Scrivi
         'PRIMA FILA
         Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
         'SECONDA FILA
         Scrivi Space(10) & Format2(Spia) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
         Scrivi Space(5) & Format2(Spia) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
         Scrivi Space(5) & Format2(Spia) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
         Scrivi Space(5) & Format2(Spia) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
         Scrivi Space(5) & Format2(Spia) & " " & Format2(D(5)) & " " & Format2(E(5)),1
         'TERZA FILA
         Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
         Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
         Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
         Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
         Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
         'QUARTA FILA
         Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
         Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
         'QUINTA FILA
         Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
         Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
         'SESTA FILA
         Scrivi
         Scrivi "Per ognuno di questi numeri si deve prendere il corrispondente ",1
         Scrivi "numero nei mezzi pesi della tavola settenaria ",1
         Scrivi
         Scrivi S1(1) & " " & S2(1),1
         Scrivi S1(2) & " " & S2(2),1
         Scrivi S1(3) & " " & S2(3),1
         Scrivi S1(4) & " " & S2(4),1
         Scrivi S1(5) & " " & S2(5),1
         Scrivi
         Scrivi Space(20) & " Sommare i 2 mezzi pesi corrispondenti ",1
         Scrivi
         Scrivi Space(32) & StringaNumeri(PrimoMezzoPeso," ",True) & " +  ",1
         Scrivi Space(32) & StringaNumeri(SecondoMezzoPeso," ",True) & " =  ",1
         Scrivi Space(32) & String((16),"-")
         Scrivi Space(19) & " Pesi Interi " & StringaNumeri(Som," ",True),1
         Scrivi
         Scrivi Space(15) & " Rifare di nuovo la piramidi e invece di mettere la chiave",1,,,2
         Scrivi Space(15) & " uno al terzo posto, mettere i pesi interi calcolati  ",1,,,2

         Scrivi
         'PRIMA FILA
         Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
         'SECONDA FILA
         Scrivi Space(10) & Format2(Som(1)) & " " & Format2(D2(1)) & " " & Format2(E2(1)),1,0
         Scrivi Space(5) & Format2(Som(2)) & " " & Format2(D2(2)) & " " & Format2(E2(2)),1,0
         Scrivi Space(5) & Format2(Som(3)) & " " & Format2(D2(3)) & " " & Format2(E2(3)),1,0
         Scrivi Space(5) & Format2(Som(4)) & " " & Format2(D2(4)) & " " & Format2(E2(4)),1,0
         Scrivi Space(5) & Format2(Som(5)) & " " & Format2(D2(5)) & " " & Format2(E2(5)),1
         'TERZA FILA
         Scrivi Space(13) & Format2(F2(1)) & " " & Format2(G2(1)),1,0
         Scrivi Space(8) & Format2(F2(2)) & " " & Format2(G2(2)),1,0
         Scrivi Space(8) & Format2(F2(3)) & " " & Format2(G2(3)),1,0
         Scrivi Space(8) & Format2(F2(4)) & " " & Format2(G2(4)),1,0
         Scrivi Space(8) & Format2(F2(5)) & " " & Format2(G2(5)),1
         'QUARTA FILA
         Scrivi Space(16) & Format2(H2(1)) & Space(11) & Format2(H2(2)) & Space(11) & Format2(H2(3)),1,0
         Scrivi Space(11) & Format2(H2(4)) & Space(11) & Format2(H2(5)),1
         'QUINTA FILA
         Scrivi Space(16) & Format2(I2(1)) & Space(11) & Format2(I2(2)) & Space(11) & Format2(I2(3)),1,0,,2
         Scrivi Space(11) & Format2(I2(4)) & Space(11) & Format2(I2(5)),1,,,2
         Scrivi
         Scrivi Space(28) & "Pronostico " & StringaNumeri(I2," ",True),1
         Ruo(1) = R1
         ImpostaGiocata 1,I2,Ruo,Posta,1
         Gioca Es,,,1
      Next
   Next
   ScriviResoconto
End Sub
 
Ringrazio salvo50 per lo script che facilità i calcoli giusti , ci sono altre strade partendo da questi calcoli che io studiato di testa mia, ovviamente nulla di certo perchè la certezza non esiste!
Buona serata a tutti :)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto