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 l'ho cercato e ho trovato il sito
del libro di Casamia



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
 
Ultima modifica:
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
    giovedì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto