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

Published on 12 May 2024 09:40 PM
#Xbs

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

Source code in the xbs programming language

settype Bearing = {Angle:number}
class Bearing {
    private method construct(Angle:number=0)
    	self.Angle=(((Angle%360)+540)%360)-180;
    method ToString():string
    	send tostring(math.nround(self.Angle,4))+"°";
    private method __sub(b2:Bearing):Bearing{
    	send new Bearing(self.Angle-b2.Angle);
    }
}
 
const BearingAngles:[[number]] = [
    [20,45],
    [-45,45],
    [-85,90],
    [-95,90],
    [-45,125],
    [-45,145],
    [29.4803,-88.6381],
    [-78.3251,-159.036],
    [-70099.74233810938,29840.67437876723],
    [-165313.6666297357,33693.9894517456],
    [1174.8380510598456,-154146.66490124757],
    [60175.77306795546,42213.07192354373]
];
 
foreach(v of BearingAngles){
    set b1:Bearing=new Bearing(v[0]);
    set b2:Bearing=new Bearing(v[1]);
    log(b2::ToString()+" - "+b1::ToString()+" = "+(b2-b1)::ToString());
}

You may also check:How to resolve the algorithm Greatest common divisor step by step in the Joy programming language
You may also check:How to resolve the algorithm Inheritance/Multiple step by step in the M2000 Interpreter programming language
You may also check:How to resolve the algorithm Function definition step by step in the REBOL programming language
You may also check:How to resolve the algorithm Tic-tac-toe step by step in the Lua programming language
You may also check:How to resolve the algorithm Assertions step by step in the zonnon programming language