Per salvo 50 o altro esperto in listati

[Matematico]

Ciao salvo50 e tutti del forum ,
Avrei bisogno di testare questa formula x un calcolo di punti ignoti del Byron a creare la cinquina sotto con uno script perchè a mano mi prende troppo tempo . Mi fareste davvero una cortesia
prendiamo una qualsiasi estrazione del mese:

20/3/2025
BARI: 49-67-56-76-80



A B C D E
49. 67. 56. 76. 80 cinquina reale

F G H I L cinquina ricavata con la formula

C - E - B = F calcolo: 56+90 = 146 - 80= 66 +90 =156 - 67 = F 89

C - A + D = ANGOLO DI CALCOLO ( X ) CALCOLO: 56-49 = 7 + 76 = X 83

X + F = Y calcolo: : 83+ 89 = Y 82

X - F = Z A 90 = L calcolo: 83 +90 = 173 - 89 = Z 84 A 90 = L 6

X + F + L - B = H calcolo: : 83 +89+6 = 178 - 67 = H 21

C - B + E - F = I calcolo: : 56+90 = 146 - 67 = 79 + 80= 69 +90= 159 - 89= I 70

X + F + Z = G calcolo: 83+ 89+84 = G 76


Ringrazio anticipatamente.

 

[salvo50]

Ciao a Tutti

Ciao Matematico

questa come la devo interpretare

X - F = Z A 90 = L

X - F = Z e fino a qui ci siamo

sulla stessa A 90 = L

non capisco

 

[salvo50]

Quella riga in attesa di una tua risposta l'ho interpretata così

X - F = Z * A = L

Quel 90 mi sembra inutile o si interpreta addizionato o moltiplicato dopo col fuori90 sparisce

Naturalmente tutti i calcoli sono fatti col fuori90

Option Explicit
Sub Main
   Dim A,B,C,D,E,X,Y,Z,F,G,H,I,L,aM,Penta
   Penta = InputBox("Inserisci i cinque numeri separati da un puntino",,"49.67.56.76.80")
   aM = Split("0." & Penta,".")
   A = aM(1)
   B = aM(2)
   C = aM(3)
   D = aM(4)
   E = aM(5)
   Scrivi
   F = Fuori90((90 + C) - E)
   F = Fuori90((90 + F) - B)
   X = Fuori90((90 + C) - A)
   X = Fuori90(X + D)
   Y = Fuori90(X + F)
   Z = Fuori90((90 + X) - F)
   L = ComplAdX(Z)
   G = Fuori90(X + F + Z)
   H = Fuori90(X + F + L)
   H = Fuori90((90 + H) - B)
   I = Fuori90((90 + C) - B)
   I = Fuori90((90 + I + E) - F)
   Scrivi Format2(A) & " " & Format2(B) & " " & Format2(C) & " " & Format2(D) & " " & Format2(E) & " Estrazione reali",1
   Scrivi
   Scrivi
   Scrivi Format2(F) & " " & Format2(G) & " " & Format2(H) & " " & Format2(I) & " " & Format2(L) & " Risultato",1
   Scrivi
   Scrivi Format2(X) & " = X ",1
   Scrivi Format2(Y) & " = Y ",1
   Scrivi Format2(Z) & " = Z ",1
End Sub

 

[Matematico]

Ciao salvo50 , grazie 1000 ....ho modificato il post con tutti i calcoli esatti a fianco .

 

[salvo50]

Ciao salvo50 , grazie 1000 ....ho modificato il post con tutti i calcoli esatti a fianco .

Ho corretto lo script con le ultime tue chiarificazioni

 

[Matematico]

Ho corretto lo script con le ultime tue chiarificazioni

Grazie di cuore salvo50, tutto corretto

 

[Matematico]

Ciao salvo50, ti chiedo un'ultima cortesia....potresti aggiungere un imput box x l'inserimento degli estratti desiderati di una qualsiasi cinquina?

Grazie e buona giornata

 

[salvo50]

Ho messo l'inserimento dei numeri da inputbox

 

[Matematico]

Quella riga in attesa di una tua risposta l'ho interpretata così

X - F = Z * A = L

Quel 90 mi sembra inutile o si interpreta addizionato o moltiplicato dopo col fuori90 sparisce

Naturalmente tutti i calcoli sono fatti col fuori90

Option Explicit
Sub Main
   Dim A,B,C,D,E,X,Y,Z,F,G,H,I,L,aM,Penta
   Penta = InputBox("Inserisci i cinque numeri separati da un puntino",,"49.67.56.76.80")
   aM = Split("0." & Penta,".")
   A = aM(1)
   B = aM(2)
   C = aM(3)
   D = aM(4)
   E = aM(5)
   Scrivi
   F = Fuori90((90 + C) - E)
   F = Fuori90((90 + F) - B)
   X = Fuori90((90 + C) - A)
   X = Fuori90(X + D)
   Y = Fuori90(X + F)
   Z = Fuori90((90 + X) - F)
   L = ComplAdX(Z)
   G = Fuori90(X + F + Z)
   H = Fuori90(X + F + L)
   H = Fuori90((90 + H) - B)
   I = Fuori90((90 + C) - B)
   I = Fuori90((90 + I + E) - F)
   Scrivi Format2(A) & " " & Format2(B) & " " & Format2(C) & " " & Format2(D) & " " & Format2(E) & " Estrazione reali",1
   Scrivi
   Scrivi
   Scrivi Format2(F) & " " & Format2(G) & " " & Format2(H) & " " & Format2(I) & " " & Format2(L) & " Risultato",1
   Scrivi
   Scrivi Format2(X) & " = X ",1
   Scrivi Format2(Y) & " = Y ",1
   Scrivi Format2(Z) & " = Z ",1
End Sub

Grazie 1000 salvo50 , sempre al top!