Per salvo50 una cortesia

Matematico · Oggi alle 09:08

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 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

Ciao salvo50, mi sono rieletto bene tutti i passaggi che fà il Casamia , dove lui scrive dalla pagina 70 in poi che ha trovato soluzioni diverse e le descrive per ottenere numeri validi e non la cinquina già estratta , sarebbe molto utile se tu potessi farne uno script per verificarne la veridicità di queste sue interessanti soluzioni.

salvo50 · Oggi alle 11:30

Ciao a Tutti
Ciao Matematico
Vedo cosa posso fare.
Non è semplice

Matematico · 56 minuti fa

salvo50 ha scritto:
Ciao a Tutti
Ciao Matematico
Vedo cosa posso fare.
Non è semplice

Lo sò caro salvo 50 , ma tu sei davvero un top ! Ma ne varrà la pena se riuscirai nell'intento

Cerca

Cerca

Per salvo50 una cortesia

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi