home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / grcircle.bas < prev    next >
BASIC Source File  |  1997-02-01  |  1KB  |  33 lines
  1. 5 CLEAR 500
  2. 10 REM ******* GREAT CIRCLE CALCULATIONS *********
  3. 20 PRINT "THE GREAT CIRCLE CALCULATOR"
  4. 30 PRINT "BY THE GREAT BIG  WHEEL HISSELF"
  5. 40 PRINT "NAMELY, OLE J. R., OTHERWISE KNOWN AS WB2LEI"
  6. 50 LPRINT "  GREAT CIRCLE BEARINGS FROM CHARLOTTE, N. C.":LPRINT
  7. 60 LPRINT "PREFIX           LAT.            LON.          BEARING":LPRINT STRING$(64,"-")
  8. 65 REM NORTH LAT AND WEST LONG ARE POSITIVE,
  9. 66 REM SOUTH LAT AND EAST LONG ARE NEGATIVE.
  10. 70 INPUT "INPUT PREFIX";A$
  11. 80 INPUT "LATITUDE OF COUNTRY IN DEGREES";B
  12. 90 INPUT "LONGITUDE OF COUNTRY IN DEGREES";F
  13. 95 REM THE LINE BELOW IS MY LAT & LONG, CHANGE FOR YOUR LOCATION
  14. 100 A=35.1333333#:G=80.76666666#
  15. 110 REM A=YOUR LATITUDE, G=YOUR LONGITUDE, B=X LAT, F=X LONG
  16. 120 L=G-F
  17. 130 IF L<180 THEN GOTO 150
  18. 140 L=L-360
  19. 150 IF L>(-180) THEN GOTO 170
  20. 160 L=L+360
  21. 170 R=57.29577951#
  22. 180 A1=A/R:B1=B/R:L1=L/R
  23. 190 D=SIN(A1)*SIN(B1)+COS(A1)*COS(B1)*COS(L1)
  24. 200 D1=-ATN(D/SQR(-D*D+1))+1.5708
  25. 210 C=(SIN(B1)-(SIN(A1)*COS(D1)))/(COS(A1)*SIN(D1))
  26. 220 C1=-ATN(C/SQR(-C*C+1))+1.5708
  27. 230 B2=R*C1
  28. 240 IF L>=0 THEN GOTO 260
  29. 250 B2=360-B2
  30. 260 PRINT B2
  31. 270 LPRINT A$,B,F,INT(B2+.5)
  32. 280 GOTO 70
  33.