Som en del av ett program , behöver du ibland att beräkna vinkeln mellan två punkter . Du använder trigonometri för att göra beräkningarna . Eftersom trigonometri bygger på rätvinkliga trianglar , behandlar dig de två punkter som hörnen på en rätvinklig triangel , och basera dina beräkningar på triangeln . QBasic är ett programmeringsspråk för MS - DOS . Den bygger på BASIC , från vilken den ärvt sina trigonometriska funktioner . Du kan beräkna vinkeln mellan två punkter i QBasic använda någon av dessa funktioner , ATN . Instruktioner
en
Hitta de horisontella och vertikala avstånden mellan de två punkterna. Dessa avstånd bildar triangelns sidor du använder för dina beräkningar . För detta exempel , är koordinaterna för de två punkterna lagras i variabler namngivna Point1X , Point1Y , Point2X och Point2Y . För att hitta varje avstånd , subtrahera den första punkten har koordinaten från den andra punkten har matchande koordinat :
DIM TriangleWidth som singel , triangleHeight som singel
TriangleWidth = Point2X - Point1X
triangleHeight = Point2Y - Point1Y
2
konvertera både avstånd till positiva tal . TriangleWidth blir negativt om den andra punkten är till vänster om den första punkten , och triangleHeight kommer att vara negativt om den andra punkten är under den första punkten . Detta är ett problem eftersom du behöver positiva tal för beräkningarna . Använd ABS -funktionen för att hitta det absoluta värdet för varje sträcka :
TriangleWidth = ABS ( TriangleWidth ) katalog
triangleHeight = ABS ( triangleHeight ) Addera 3
beräkna tangenten av vinkel. Tangenten för en vinkel är längden på sidan mittemot vinkeln dividerat med längden på den sida intill vinkel. Du försöker hitta den vinkel från den första punkten , vilket innebär triangelns höjd är den motsatta sidan och dess bas är den intilliggande sida . Dividera höjden av basen :
DIM Tangent som singel
Tangent = triangleHeight /TriangleWidth
4
Beräkna vinkel med ATN -funktionen . ATN -funktion ( kort för " arcus " ) finner den vinkel som motsvarar en tangent :
DIM Angle som singel
Angle = ATN ( Tangent )
5
Konvertera vinkeln från radianer till grader . ATN funktionen returnerar en vinkel i radianer . ( Pi radianer motsvara en halv cirkel , eller 180 grader . ) För att omvandla radianer till grader multiplicerar med 180 och dividera med PI :
Angle = Vinkel * 180 /3,14159 Addera
