Como parte de um programa, às vezes você precisa para calcular o ângulo entre dois pontos. Você pode usar a trigonometria para fazer os cálculos . Desde trigonometria é baseado em triângulos retângulos , você trata os dois pontos como vértices de um triângulo retângulo , e basear seus cálculos no triângulo . QBasic é uma linguagem de programação para MS- DOS. Baseia-se em BASIC , da qual herdou as suas funções de trigonometria . Você pode calcular o ângulo entre dois pontos em QBasic usando uma destas funções , ATN . Instruções
1
Encontrar as distâncias horizontal e vertical entre os dois pontos. Estas distâncias formar os lados do triângulo que você vai usar para seus cálculos. Para este exemplo, as coordenadas dos dois pontos são armazenados em variáveis nomeadas Point1X , Point1Y , Point2X e Point2Y . Para encontrar cada distância , subtrair coordenada do primeiro ponto de correspondência do segundo ponto de coordenadas :
DIM TriangleWidth AS ÚNICO, triangleHeight AS ÚNICO
TriangleWidth = Point2X - Point1X
triangleHeight = Point2Y - Point1Y
2
Converta ambas distâncias para números positivos. TriangleWidth será negativo se o segundo ponto é a esquerda do primeiro ponto, e triangleHeight será negativo se o segundo ponto está abaixo do primeiro ponto. Este é um problema porque você precisa de números positivos para os cálculos. Use a função ABS para encontrar o valor absoluto de cada distância:
TriangleWidth = ABS ( TriangleWidth )
triangleHeight = ABS ( triangleHeight )
3
Calcula-se a tangente do ângulo . A tangente de um ângulo é o comprimento do lado oposto ao ângulo dividido pelo comprimento do lado adjacente ao ângulo . Você está tentando encontrar o ângulo a partir do primeiro ponto, o que significa que a altura do triângulo é o lado oposto e sua base é o lado adjacente. Divida a altura pela base :
DIM Tangent AS ÚNICO
Tangente = triangleHeight /TriangleWidth
4
Calcule o ângulo usando a função ATN . A função ATN (abreviação de " arco tangente " ) encontra o ângulo que corresponde a uma tangente :
DIM ângulo como ÚNICO
Angle = ATN ( Tangent )
5
converter o ângulo de radianos para graus. A função ATN retorna um ângulo em radianos . (Pi radianos igual metade de um círculo, ou 180 graus. ) Para converter radianos em graus , multiplique por 180 e dividir por pi:
Angle = Ângulo * 180 /3,14159