Πώς να υπολογίσετε τις γωνίες σε QBasic

Ως μέρος του προγράμματος , μερικές φορές πρέπει να υπολογιστεί η γωνία μεταξύ δύο σημείων . Μπορείτε να χρησιμοποιήσετε τριγωνομετρία για να κάνει τους υπολογισμούς . Από τριγωνομετρία βασίζεται στη δεξιά τρίγωνα , θα αντιμετωπίζουν τα δύο σημεία, όπως γωνίες ενός ορθογωνίου τριγώνου , και να στηρίξει τους υπολογισμούς σας στο τρίγωνο . QBasic είναι μια γλώσσα προγραμματισμού για το MS - ​​DOS . Βασίζεται σε BASIC , από την οποία κληρονόμησε τριγωνομετρία λειτουργίες του . Μπορείτε να υπολογίσετε τη γωνία μεταξύ δύο σημείων σε QBasic χρησιμοποιώντας μία από αυτές τις λειτουργίες , ATN . Οδηγίες
Η 1

Βρείτε τις οριζόντιες και κάθετες αποστάσεις μεταξύ των δύο σημείων . Αυτές οι αποστάσεις σχηματίζουν τις πλευρές του τριγώνου που θα χρησιμοποιήσετε για τους υπολογισμούς σας . Για αυτό το παράδειγμα, οι συντεταγμένες των δύο σημείων που αποθηκεύονται στις μεταβλητές που ονομάζεται Point1X , Point1Y , Point2X και Point2Y . Για να βρείτε κάθε απόσταση , αφαιρούμε συντονίζει το πρώτο σημείο από την αντιστοίχισή δεύτερο σημείο είναι να συντονίζει :

ΔΗΜ. TriangleWidth AS SINGLE , TriangleHeight AS SINGLE

TriangleWidth = Point2X - Point1X

TriangleHeight = Point2Y - Point1Y 2

Μετατρέψτε τις δύο αποστάσεις για τους θετικούς αριθμούς . TriangleWidth θα είναι αρνητική, αν το δεύτερο σημείο είναι στα αριστερά του πρώτου σημείου , και TriangleHeight θα είναι αρνητική, αν το δεύτερο σημείο είναι κάτω από το πρώτο σημείο . Αυτό είναι ένα πρόβλημα , επειδή θα πρέπει να έχετε θετικούς αριθμούς για τους υπολογισμούς . Χρησιμοποιήστε τη λειτουργία του ABS για να βρείτε την απόλυτη αξία κάθε απόσταση:

TriangleWidth = ABS ( TriangleWidth )

TriangleHeight = ABS ( TriangleHeight )
εικόνων 3

υπολογίζουν την εφαπτομένη της γωνίας . Η εφαπτομένη μιας γωνίας είναι το μήκος της πλευράς απέναντι από την γωνία διαιρούμενο με το μήκος της πλευρά δίπλα στη γωνία . Προσπαθείς να βρείτε τη γωνία από το πρώτο σημείο , το οποίο σημαίνει ότι το ύψος του τριγώνου είναι η αντίθετη πλευρά και η βάση του είναι η παρακείμενη πλευρά . Διαιρέστε το ύψος από τη βάση :

ΔΗΜ. Tangent AS SINGLE

Tangent = TriangleHeight /TriangleWidth
Η 4

Υπολογίστε τη γωνία χρησιμοποιώντας τη λειτουργία ATN . Η λειτουργία ATN ( συντόμευση για το " τόξο εφαπτομένης » ) βρίσκει τη γωνία που αντιστοιχεί σε ένα εφαπτομένη :

ΔΗΜ. Γωνία AS SINGLE

Γωνία = ATN ( Tangent )
5

Μετατρέψτε τη γωνία από ακτίνια σε μοίρες. Η συνάρτηση ATN επιστρέφει μια γωνία σε ακτίνια . ( Pi ακτίνια ίση μισό κύκλο , ή 180 μοίρες . ) Για να μετατρέψετε ακτίνια σε μοίρες , πολλαπλασιάστε με 180 και διαιρέστε με pi:

Γωνία = Γωνία * 180 /3.14159
εικόνων