Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 2,563:
| 1174.8380510598456|-154146.66490124757|-161.5030|
| 60175.77306795546| 42213.07192354373| 37.2989|</pre>
=={{header|Quackery}}==
Using the Quackery big number rational arithmetic library <code>bigrat.qky</code>.
<lang Quackery> [ $ "bigrat.qky" loadfile ] now!
[ v- -v
proper rot
360 mod
unrot improper
180 1 2over v< iff
[ 360 1 v- ] done
2dup -180 1 v< if
[ 360 1 v+ ] ] is angledelta ( n/d n/d --> n/d )
' [ [ $ "20" $ "45" ]
[ $ "-45" $ "45" ]
[ $ "85" $ "90" ]
[ $ "-95" $ "90" ]
[ $ "-45" $ "125" ]
[ $ "45" $ "145" ]
[ $ "29.4803" $ "-88.6361" ]
[ $ "-78.3251" $ "-159.0360" ]
[ $ "-70099.74233810938" $ "29840.67437876723" ]
[ $ "-165313.6666297357" $ "33693.9894517456" ]
[ $ "1174.8380510598456" $ "-154146.66490124757" ]
[ $ "60175.773067955546" $ "42213.07192354373" ] ]
witheach
[ do
dip [ $->v drop ]
$->v drop
angledelta
20 point$ echo$ cr ]</lang>
{{out}}
<pre>25
90
5
-175
170
100
-118.1164
-80.7109
-139.58328312339
-72.3439185187
-161.5029523074156
37.298855588184</pre>
=={{header|Racket}}==
| |||