Sådan Beregn Angles i QBasic

Som en del af et program, man nogle gange nødt til at beregne vinklen mellem to punkter. Du bruger trigonometri til at gøre beregningerne. Da trigonometri er baseret på rigtige trekanter, du behandler de to punkter som hjørner af en retvinklet trekant, og basere dine beregninger på trekanten. QBasic er et programmeringssprog til MS-DOS. Den er baseret på BASIC, hvorfra den har arvet sine trigonometri funktioner. Du kan beregne vinklen mellem to punkter i QBasic hjælp af en af ​​disse funktioner, ATN.

Instruktioner

• Find de vandrette og lodrette afstande mellem de to punkter. Disse afstande udgør siderne af trekanten, du vil bruge til dine beregninger. I dette eksempel er koordinaterne for de to punkter er gemt i variabler navngivne Point1X, Point1Y, Point2X og Point2Y. For at finde hver afstand, trække det første punkt er koordinat fra det andet punkt er blevet matchet koordinere: DIM TriangleWidth som single, TriangleHeight som single TriangleWidth = Point2X - Point1X TriangleHeight = Point2Y - Point1Y

• Konverter begge afstande til positive tal. TriangleWidth vil være negativ, hvis det andet punkt er til venstre for det første punkt, og TriangleHeight vil være negativ, hvis det andet punkt er under det første punkt. Dette er et problem, fordi du har brug for positive tal for beregningerne. Brug ABS-funktionen for at finde den absolutte værdi af hver distance: TriangleWidth = ABS (TriangleWidth) TriangleHeight = ABS (TriangleHeight)

• Beregn tangens af vinklen. Tangens af en vinkel er længden af ​​den modsatte side af vinklen divideret med længden af ​​den side, der støder op til vinklen. Du forsøger at finde vinklen fra det første punkt, hvilket betyder trekanten højde er den modsatte side, og dens base er den tilstødende side. Divider højden af ​​bunden: DIM Tangent som single Tangent = TriangleHeight / TriangleWidth

4. Beregn vinklen ved hjælp af ATN-funktionen. ATN-funktionen (forkortelse for "arctangens") finder den vinkel, der passer en tangent: DIM Vinkel som single Vinkel = ATN (Tangent)

• Konverter vinklen fra radianer til grader. ATN funktionen giver en vinkel i radianer. (. Pi radianer lige en halv cirkel, eller 180 grader) for at konvertere radianer til grader, ganges med 180 og dividere med pi: Vinkel = Vinkel * 180 / 3,14159