Conoscere gli angoli acuti di un triangolo rettangolo dai cateti noti

Per trovare l'ampiezza degli angoli che in un triangolo rettangolo si oppongono ai cateti (gli angoli acuti), bisogna considerare il lato opposto all'angolo cercato.

Sotto tale profilo il lato, che si oppone all'angolo acuto, rappresenta il Seno di detto angolo in una circonferenza immaginaria di cui l'ipotenusa del triangolo rettangolo in questione è il raggio.

Tenuto conto che in tali circostanze l'angolo acuto è così calcolato:

angolo  = Seno-1(lato_opposto / ipotenusa)

E' possibile considerare anche il lato adiacente all'angolo in questione, il quale rappresenta però così il Coseno di quell'angolo, che andrà calcolato come segue:

angolo  = Coseno-1(lato_adiacente / ipotenusa)

In Gambas vanno usate rispettivamente nel primo caso la funzione inversa di "Sen^-1", ossia l'Arcoseno: "ASin()", e nel secondo caso la funzione inversa di "Cos^-1", ossia l'Arcocoseno: "ACos()".

Poiché le funzioni "ASin()" e "ACos()" ritornano un valore espresso in radianti, per ottenere la rappresentazione in gradi, bisognerà trasformare i radianti in gradi mediante la funzione "Deg()".

Mostriamo un esempio:

Public Sub Main()

 Dim a, b, ipo As Float

 a = 3
 b = 2
 ipo = Hyp(a, b)

 Print ipo, Deg(ASin(a / ipo)), Deg(ASin(b / ipo))
 Print ipo, Deg(ACos(b / ipo)), Deg(ACos(a / ipo))

End