33 lines
1.1 KiB
Plaintext
33 lines
1.1 KiB
Plaintext
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)
|