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, que 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. Se basa en BASIC, de la que hereda sus funciones trigonométricas. Se puede calcular el ángulo entre dos puntos en QBasic usando una de estas funciones, ATN.

Instrucciones

1 Encuentra las distancias horizontales y verticales 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 el primer punto de coordenada de coordinar a juego del segundo punto:

DIM TriangleWidth como individuales, triangleHeight COMO SIMPLE

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 es necesario 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 la altura de la base:

DIM Tangente en Sencillas

Tangente = triangleHeight / TriangleWidth

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

DIM ángulo COMO SIMPLE

= Ángulo de ATN (Tangente)

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

Ángulo Ángulo = * 180 / 3.14159