Sunday, July 19, 2015

HP Prime & TI-84: Bearing and Azimuth Conversions

HP Prime & TI-84:  Bearing and Azimuth Conversions

Azimuth vs Bearing


AZ2BE (Azimuth to Bearing)
Note:  Bearings start clockwise from due north.  Bearings will be reduced to angles between 0° to 360°.

Three outputs will be returned:  bearing, direction string, and quadrant reference number (for reference).  The HP Prime version will return a list.  

HP Prime AZ2BE:
EXPORT AZ2BE(θ)
BEGIN
// Azimuth to Bearing
// EWS 2015-07-19
LOCAL q,b,s;
θ≔θ MOD 360;
q≔IP(θ/90)+1;
// Determining the Bearing Angle
IF q==1 THEN
b≔θ; s:=”NE”;
END;
IF q==2 THEN
b≔ABS(θ-180); s≔”SE”;
END;
IF q==3 THEN
b≔θ-180; s≔”SW”;
END;
IF q==4 THEN
b≔ABS(θ-360); s≔”NW”
END;
RETURN {b,s,q};
END;

TI-84+ AZ2BE:
Input "ANGLE:",θ
360*fPart(θ/360)+360*(θ<0)→θ
iPart(θ/90)+1→Q
If Q=1:Then
θ→B
"NE"→Str1:End
If Q=2:Then
abs(θ-180)→B
"SE"→Str1
End
If Q=3:Then
θ-180→B
"SW"→Str1
End
If Q=4:Then
abs(θ-360)→B
"NW"→Str1
End
Disp "BEARING",B
Disp Str1,Q

BE2AZ  (Bearing to Azimuth)
Note:  Bearings outside of range of 0° to 90° or quadrant numbers outside of 1 to 4 will result in an “UNEXPECTED RESULT” message. 

Quadrants:
Quadrant 1:  Northeast
Quadrant 2:  Southeast
Quadrant 3:  Southwest
Quadrant 4:  Northwest

HP Prime BE2AZ:
EXPORT BE2AZ(b,q)
BEGIN
// Bearing to Azimuth
// bearing, quadrant
// 1 = NE, 2 = SE, 3 = SW, 4 = NW
// 2015-07-19 EWS

LOCAL θ;

// Are b and q in the proper range?
IF b<0 OR b>90 OR q<1 OR q>4 THEN
RETURN “Unexpected Value”;
KILL;
END;

// Calculation
q≔IP(q);
IF q==1 THEN
θ≔b;
END;
IF q==2 THEN
θ≔180-b;
END;
IF q==3 THEN
θ≔b+180;
END;
IF q==4 THEN
θ≔360-b;
END;
RETURN θ;
END;

TI-84+ BE2AZ:
Input "BEARING:",B
Disp "1=NE"
Disp "2=SE"
Disp "3=SW"
Disp "4=NW"
Input "Q:",Q
If B<0 or B>90 or Q<1 or Q>4
Then
Disp "UNEXPECTED VALUE"
Stop
End
iPart(Q)→Q
If Q=1:Then
B→θ:End
If Q=2:Then
180-B→θ:End
If Q=3:Then
B+180→θ:End
If Q=4:Then
360-B→θ:End
Disp "AZIMUTH:",θ

Examples:

Azimuth:  68°, Bearing: 68° bearing NE (q=1)
Azimuth: 164°, Bearing:  16° bearing SE (q=2)
Azimuth: 224°, Bearing:  44° bearing SW (q=3)
Azimuth: 321°, Bearing:  39° bearing NW (q=4)


This blog is property of Edward Shore.  2015

Sum of Sequential Integers (featuring Swiss Micros DM32)

  Sum of Sequential Integers ( featuring Swiss Micros DM32) What is the sum of the following: 100 + 101 + 102 + 103 + 104 + 105 + … + ...