21 lines
739 B
Plaintext
21 lines
739 B
Plaintext
SUB getDifference (b1!, b2!)
|
|
r! = (b2 - b1) MOD 360!
|
|
IF r >= 180! THEN r = r - 360!
|
|
PRINT USING "#######.###### #######.###### #######.######"; b1; b2; r
|
|
END SUB
|
|
|
|
PRINT " Bearing 1 Bearing 2 Difference"
|
|
CALL getDifference(20!, 45!)
|
|
CALL getDifference(-45!, 45!)
|
|
CALL getDifference(-85!, 90!)
|
|
CALL getDifference(-95!, 90!)
|
|
CALL getDifference(-45!, 125!)
|
|
CALL getDifference(-45!, 145!)
|
|
CALL getDifference(-45!, 125!)
|
|
CALL getDifference(-45!, 145!)
|
|
CALL getDifference(29.4803, -88.6381)
|
|
CALL getDifference(-78.3251, -159.036)
|
|
CALL getDifference(-70099.74233810938#, 29840.67437876723#)
|
|
CALL getDifference(-165313.6666297357#, 33693.9894517456#)
|
|
CALL getDifference(1174.838051059846#, -154146.6649012476#)
|