Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 2,563: | Line 2,563: | ||
| 1174.8380510598456|-154146.66490124757|-161.5030| |
| 1174.8380510598456|-154146.66490124757|-161.5030| |
||
| 60175.77306795546| 42213.07192354373| 37.2989|</pre> |
| 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}}== |
=={{header|Racket}}== |