Angle difference between two bearings: Difference between revisions
Content added Content deleted
(Added Easylang) |
(Added Chipmunk Basic) |
||
Line 1,557: | Line 1,557: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|Chipmunk Basic}}=== |
|||
{{trans|Phyton}} |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
{{works with|QBasic}} |
|||
<syntaxhighlight lang="qbasic">100 cls |
|||
110 sub getdifference(b1,b2) |
|||
120 r = (b2-b1) mod 360 |
|||
130 if r >= 180 then r = r-360 |
|||
140 print using "#######.######";b1; |
|||
150 print using " #######.######";b2; |
|||
160 print using " #######.######";r |
|||
170 end sub |
|||
180 print "Input in -180 to +180 range:" |
|||
190 print " b1 b2 difference" |
|||
200 print " -------------------------------------------------" |
|||
210 getdifference(20,45) |
|||
220 getdifference(-45,45) |
|||
230 getdifference(-85,90) |
|||
240 getdifference(-95,90) |
|||
250 getdifference(-45,125) |
|||
260 getdifference(-45,145) |
|||
270 getdifference(-45,125) |
|||
280 getdifference(-45,145) |
|||
290 getdifference(29.4803,-88.6381) |
|||
300 getdifference(-78.3251,-159.036) |
|||
310 getdifference(-70099.742338,29840.674379) |
|||
320 getdifference(-165313.66663,33693.989452) |
|||
330 getdifference(1174.838051,-154146.664901) |
|||
340 print |
|||
350 print "Input in wider range:" |
|||
360 print " b1 b2 difference" |
|||
370 print " -------------------------------------------------" |
|||
380 getdifference(-70099.742338,29840.674379) |
|||
390 getdifference(-165313.66663,33693.989452) |
|||
400 getdifference(1174.838051,-154146.664901) |
|||
410 getdifference(60175.773068,42213.071924)</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Input in -180 to +180 range: |
|||
b1 b2 difference |
|||
------------------------------------------------- |
|||
20.000000 45.000000 25.000000 |
|||
-45.000000 45.000000 90.000000 |
|||
-85.000000 90.000000 175.000000 |
|||
-95.000000 90.000000 -175.000000 |
|||
-45.000000 125.000000 170.000000 |
|||
-45.000000 145.000000 -170.000000 |
|||
-45.000000 125.000000 170.000000 |
|||
-45.000000 145.000000 -170.000000 |
|||
29.480300 -88.638100 -118.000000 |
|||
-78.325100 -159.036000 -80.000000 |
|||
-70099.742338 29840.674379 -140.000000 |
|||
-165313.666630 33693.989452 -73.000000 |
|||
1174.838051 -154146.664901 -161.000000 |
|||
Input in wider range: |
|||
b1 b2 difference |
|||
------------------------------------------------- |
|||
-70099.742338 29840.674379 -140.000000 |
|||
-165313.666630 33693.989452 -73.000000 |
|||
1174.838051 -154146.664901 -161.000000 |
|||
60175.773068 42213.071924 -322.000000</pre> |
|||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |
||
{{works with|QBasic|1.1}} |
{{works with|QBasic|1.1}} |