Συνάρτηση Atn

Τριγωνομετρική συνάρτηση που επιστρέφει το τόξο εφαπτομένης μιας αριθμητικής παράστασης. Η επιστρεφόμενη τιμή βρίσκεται μεταξύ -π/2 και +π/2.

Το τόξο εφαπτομένης είναι το αντίστροφο της συνάρτησης εφαπτομένης. Η συνάρτηση Atn επιστρέφει τη γωνία "Α" σε ακτίνια χρησιμοποιώντας την εφαπτόμενη αυτής της γωνίας. Η συνάρτηση μπορεί επίσης να επιστρέψει τη γωνία "Α" συγκρίνοντας την αναλογία του μήκους της απέναντι πλευράς της γωνίας προς το μήκος της προσκείμενης πλευράς σε ένα ορθογώνιο τρίγωνο.

Atn(απέναντι πλευρά της γωνίας/προσκείμενη πλευρά της γωνίας)= Α

Σύνταξη:

Atn (Αριθμός)

Τιμή επιστροφής:

Διπλό

Παράμετροι:

Αριθμός: Κάθε αριθμητική παράσταση που αντιπροσωπεύει το λόγο δύο πλευρών ενός ορθογωνίου τριγώνου. Η συνάρτηση Atn επιστρέφει την αντίστοιχη γωνία σε ακτίνια (τόξο εφαπτομένης).

Για να μετατρέψετε τα ακτίνια σε μοίρες, πολλαπλασιάστε τα ακτίνια με 180/π.

μοίρες=(ακτίνια*180)/π

ακτίνια=(μοίρες*π)/180

Εδώ το π είναι η σταθερά του κύκλου με στρογγυλεμένη τιμή 3,14159.

Παράδειγμα:

' Το ακόλουθο παράδειγμα υπολογίζει για ορθογώνιο τρίγωνο

' η γωνία Α από την εφαπτόμενη της γωνίας Α:

Sub ExampleAtn

' στρογγυλοποιημένο π = 3.14159 ως προκαθορισμένη σταθερά

Dim d1 As Double

Dim d2 As Double

    d1 = InputBox("Εισαγάγετε το μήκος της προσκείμενης στη γωνία: ","προσκείμενη")

    d2 = InputBox("Εισαγάγετε το μήκος της απέναντι πλευράς της γωνίας: ","απέναντι")

    Print "Η γωνία Α είναι"; (atn (d2/d1) * 180 / Pi); " μοίρες"

End Sub