Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 18:42, 27 October 2023
, 6 months agoAdded Chipmunk Basic
(Added Easylang) |
(Added Chipmunk Basic) |
||
Line 1,557:
=={{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}}===
{{works with|QBasic|1.1}}
| |||