How to resolve the algorithm Angle difference between two bearings step by step in the PureBasic programming language

Published on 12 May 2024 09:40 PM
#Purebasic

How to resolve the algorithm Angle difference between two bearings step by step in the PureBasic programming language

Table of Contents

Problem Statement

Finding the angle between two bearings is often confusing.[1]

Find the angle which is the result of the subtraction b2 - b1, where b1 and b2 are the bearings. Input bearings are expressed in the range   -180   to   +180   degrees. The  result  is also expressed in the range   -180   to   +180   degrees.

Compute the angle for the following pairs:

Allow the input bearings to be any (finite) value.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Angle difference between two bearings step by step in the PureBasic programming language

Source code in the purebasic programming language

Procedure.f getDifference (b1.f, b2.f)
  r.f = Mod((b2 - b1), 360)
  If r >= 180: r - 360
  EndIf
  PrintN(StrF(b1) + #TAB$ + StrF(b2) + #TAB$ + StrF(r));
EndProcedure

If OpenConsole()
  PrintN("Input in -180 to +180 range:")
  getDifference(20.0, 45.0)
  getDifference(-45.0, 45.0)
  getDifference(-85.0, 90.0)
  getDifference(-95.0, 90.0)
  getDifference(-45.0, 125.0)
  getDifference(-45.0, 145.0)
  getDifference(-45.0, 125.0)
  getDifference(-45.0, 145.0)
  getDifference(29.4803, -88.6381)
  getDifference(-78.3251, -159.036)
  PrintN(#CRLF$ + "Input in wider range:")
  getDifference(-70099.74233810938, 29840.67437876723)
  getDifference(-165313.6666297357, 33693.9894517456)
  getDifference(1174.8380510598456, -154146.66490124757)
  getDifference(60175.77306795546, 42213.07192354373)
  Repeat: Until Inkey() <> ""
EndIf

You may also check:How to resolve the algorithm Aliquot sequence classifications step by step in the RPL programming language
You may also check:How to resolve the algorithm Topic variable step by step in the UNIX Shell programming language
You may also check:How to resolve the algorithm Mutex step by step in the Wren programming language
You may also check:How to resolve the algorithm String interpolation (included) step by step in the Lambdatalk programming language
You may also check:How to resolve the algorithm Multifactorial step by step in the F# programming language