Cómo calcular los ángulos en QBasic

Como parte de un programa, a veces es necesario para calcular el ángulo entre dos puntos. Se utiliza la trigonometría para hacer los cálculos . Desde la trigonometría se basa en triángulos rectángulos , usted trata a los dos puntos como vértices de un triángulo rectángulo, y basa sus cálculos en el triángulo . QBasic es un lenguaje de programación para MS- DOS. Está basado en BASIC, de la que heredó sus funciones trigonométricas . Usted puede calcular el ángulo entre dos puntos en QBasic usando una de estas funciones , ATN . Instrucciones
1

Encuentra las distancias horizontal y vertical entre los dos puntos. Estas distancias se forman los lados del triángulo que va a utilizar para sus cálculos. Para este ejemplo, las coordenadas de los dos puntos se almacenan en variables con nombre Point1X , Point1Y , Point2X y Point2Y . Para encontrar cada distancia , restar coordenadas del primer punto de la coordenada correspondiente de la segunda cuestión:

TriangleWidth DIM COMO ÚNICO, triangleHeight COMO ÚNICO

TriangleWidth = Point2X - Point1X

triangleHeight = Point2Y - Point1Y
2

Convertir ambas distancias a los números positivos. TriangleWidth será negativa si el segundo punto está a la izquierda del primer punto , y triangleHeight será negativa si el segundo punto está por debajo del primer punto. Esto es un problema porque hay números positivos para los cálculos. Utilice la función de ABS para encontrar el valor absoluto de cada distancia :

TriangleWidth = ABS ( TriangleWidth )

triangleHeight = ABS ( triangleHeight )
3

calcular la tangente del ángulo . La tangente de un ángulo es la longitud del lado opuesto al ángulo dividido por la longitud del lado adyacente al ángulo . Usted está tratando de encontrar el ángulo desde el primer punto , es decir, la altura del triángulo es el lado opuesto y su base es el lado adyacente. Divida a la altura de la base :

tangente DIM COMO ÚNICO

Tangente = triangleHeight /TriangleWidth
4

Calcular el ángulo con la función ATN . La función ATN (abreviatura de " arco tangente " ) encuentra el ángulo que coincide con la tangente :

ángulo DIM COMO ÚNICO

Angle = ATN ( Tangente )
5

Convertir el ángulo de radianes a grados. La función ATN devuelve un ángulo en radianes . (Pi radianes igualar la mitad de un círculo, o 180 grados. ) Para convertir radianes a grados , se multiplica por 180 y dividir por pi:

Angle = Ángulo * 180 /3.14159