Hvordan beregne Angles i QBasic

Som en del av et program, noen ganger må du beregne vinkelen mellom to punkter. Du bruker trigonometri å gjøre beregningene. Siden trigonometri er basert på rettvinklede trekanter, behandler deg de to punktene som hjørner i en rettvinklet trekant, og basere dine beregninger på trekanten. QBasic er et programmeringsspråk for MS-DOS. Den er basert på BASIC, som det arvet sine trigonometriske funksjoner. Du kan regne ut vinkelen mellom to punkter i QBasic bruker en av disse funksjonene, ATN.

Bruksanvisning

1 Finn den horisontale og vertikale avstand mellom de to punktene. Disse avstandene danner sidene i trekanten du vil bruke for beregningene. For dette eksempelet, er koordinatene til de to punktene som er lagret i variabler som heter Point1X, Point1Y, Point2X og Point2Y. For å finne hver distanse, trekker den første punktets koordinat fra det andre punktet er samsvarende koordinat:

DIM TriangleWidth AS SINGLE, TriangleHeight AS SINGLE

TriangleWidth = Point2X - Point1X

TriangleHeight = Point2Y - Point1Y

2 Konverter begge distanser til positive tall. TriangleWidth vil være negativ hvis det andre punktet er til venstre for det første punktet, og TriangleHeight vil være negativ hvis det andre punktet er under det første punktet. Dette er et problem fordi du trenger positive tall for beregningene. Bruk av ABS-funksjonen for å finne den absolutte verdi av hver distanse:

TriangleWidth = ABS (TriangleWidth)

TriangleHeight = ABS (TriangleHeight)

3 Beregn tangens til vinkelen. Tangens til en vinkel er lengden av den side som er motsatt vinkelen dividert med lengden av den side som grenser til vinkelen. Du prøver å finne vinkelen fra det første punktet, noe som betyr at trekanten høyde er det motsatt side, og sin base er den tilstøtende side. Del høyden ved basen:

DIM Tangent AS SINGLE

Tangent = TriangleHeight / TriangleWidth

4 Beregn vinkel ved hjelp av ATN funksjon. ATN-funksjonen (forkortelse for "arctangent") finner den vinkelen som passer en tangent:

DIM Angle AS SINGLE

Angle = ATN (Tangent)

5 Konverter vinkelen fra radianer til grader. ATN funksjonen returnerer en vinkel i radianer. (. Pi radianer lik en halv sirkel, eller 180 grader) For å konvertere radianer til grader, multiplisere med 180 og dele av pi:

Angle = Vinkel * 180 / 3,14159