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

Published on 12 May 2024 09:40 PM
#Maple

How to resolve the algorithm Angle difference between two bearings step by step in the Maple 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 Maple programming language

Source code in the maple programming language

getDiff := proc(b1,b2)
	local r:
	r := frem(b2 - b1, 360):
	if r >= 180 then r := r - 360: fi:
	return r:
end proc:
getDiff(20,45);
getDiff(-45,45);
getDiff(-85,90);
getDiff(-95,90);
getDiff(-45,125);
getDiff(-45,145);
getDiff(29.4803, -88.6381);
getDiff(-78.3251,-159.036);
getDiff(-70099.74233810938,29840.67437876723);
getDiff(-165313.6666297357,33693.9894517456);
getDiff(1174.8380510598456,-154146.66490124757);
getDiff(60175.77306795546,42213.07192354373)

You may also check:How to resolve the algorithm Special variables step by step in the Nim programming language
You may also check:How to resolve the algorithm Law of cosines - triples step by step in the XPL0 programming language
You may also check:How to resolve the algorithm Pascal's triangle step by step in the q programming language
You may also check:How to resolve the algorithm FASTA format step by step in the Common Lisp programming language
You may also check:How to resolve the algorithm Four bit adder step by step in the Wren programming language