Angle difference between two bearings: Difference between revisions
Content deleted Content added
m →{{header|Factor}}: more accurate version info |
PARI/GP |
||
Line 1,553: | Line 1,553: | ||
60175.77 42213.07 37.30 |
60175.77 42213.07 37.30 |
||
</pre> |
</pre> |
||
=={{header|PARI/GP}}== |
|||
<lang parigp>centerliftmod1(x)=frac(x+1/2)-1/2; |
|||
anglediff(x,y)=centerliftmod1((y-x)/360)*360; |
|||
vecFunc(f)=v->call(f,v); |
|||
apply(vecFunc(anglediff), [[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]])</lang> |
|||
{{out}} |
|||
<pre>%1 = [25, 90, 175, -175, 170, -170, -118.11840000000000000000000000000000000, -80.710900000000000000000000000000000000, -139.58328312339000000000000000000000023, -72.343918518700000000000000000000000733, -161.50295230741560000000000000000000000, 37.298855588269999999999999999999999909]</pre> |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |