home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug033.ark / ELTPOD.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.1 KB  |  73 lines
  1. REM             THIS IS THE PROGRAM 'ELTPOD'
  2. REM         WRITTEN BY CAPT R.A.GREGOIRE CAP PAWG GROUP 30
  3. REM
  4. PRINT "THIS PROGRAM CALCULATES THE VARIOUS ELT SEARCH POD'S FOR"
  5. PRINT "VARIOUS SEARCH ALTITUDES AND TRACK SPACINGS."
  6. PRINT "THERE ARE 4 TABLES, ONE FOR EACH TYPE OF TERRAIN"
  7. PRINT
  8. DIM A(5)
  9. PRINT
  10. INPUT "DO YOU WANT THE 'STANDARD' LISTING OR THE 'CUSTOM' ONE";K$
  11. LET C=0
  12. IF LEFT$(K$,1)="C" THEN GOTO 50
  13. 10 LET C=C+1
  14. READ A1,A2,X1,S1,S2
  15. DATA 0,1500,100,.5,2.5
  16. DATA 0,5000,100,.5,2.5
  17. DATA 0,10000,200,1,5
  18. DATA 0,25000,500,5,25
  19. GOTO 70
  20. 50 INPUT "WHAT IS THE LOWEST ALTITUDES TO BE CONSIDERED (FEET AGL)";A1
  21. INPUT "WHAT IS THE HIGHEST ALTITUDES TO BE CONSIDERED (FEET AGL)";A2
  22. INPUT "WHAT IS THE THE ALTITUDE INCREMENTS (FEET)";X1
  23. INPUT "WHAT IS THE SMALLEST TRACK SPACING (IN NAUTICAL MILES)";S1
  24. INPUT "WHAT IS THE LARGEST TRACK SPACING (IN NAUTICAL MILES)";S2
  25. 70 PRINT CHR$(12):PRINT:PRINT:PRINT:PRINT CHR$(12)
  26. PRINT:PRINT
  27. PRINT"TABLE OF ELT POD'S FOR VARIOUS SEARCH ALTITUDES AND TRACK SPACINGS"
  28. LET T=1.0
  29. PRINT
  30. PRINT TAB(14);" THIS TABLE IS FOR ELT SEARCH OF OPEN TERRAIN"
  31. GOSUB 80
  32. REM
  33. LET T=.5
  34. PRINT:PRINT
  35. PRINT TAB(13);" THIS TABLE IS FOR ELT SEARCH OF MODERATE COVER"
  36. GOSUB 80
  37. REM
  38. LET T=.25
  39. PRINT:PRINT
  40. PRINT TAB(15);" THIS TABLE IS FOR ELT SEARCH OF HEAVY COVER"
  41. GOSUB 80
  42. REM
  43. LET T=.15
  44. PRINT:PRINT
  45. PRINT TAB(14);" THIS TABLE IS FOR ELT SEARCH OF ROCKY TERRAIN"
  46. GOSUB 80
  47. PRINT CHR$(12)
  48. IF C>0 AND C<4 THEN GOTO 10
  49. STOP
  50. REM
  51. 80 PRINT
  52. 90 PRINT "ALTITUDE";TAB(12);"SPACING";TAB(24);"SPACING";TAB(36);\
  53.          "SPACING";TAB(48);"SPACING";TAB(60);"SPACING"
  54. LET SA=(S2-S1)/4
  55. PRINT "  (FT)";TAB(14);S1;"NM";TAB(26);S1+SA;"NM";TAB(38);S1+2*SA;\
  56.       "NM";TAB(50);S1+3*SA;"NM";TAB(62);S2;"NM"
  57. PRINT " ------";TAB(13);"------";TAB(25);"------";TAB(37);"------";\
  58.       TAB(49);"------";TAB(60);"------"
  59. PRINT
  60. FOR H=A1 TO A2 STEP X1
  61. REM H=ALTITUDE IN FEET, W=SWEEP WIDTH, S=TRACK SPACING, T=TERRAIN FACTOR
  62. W=T*1.144*SQR(H)/4
  63. S=S1
  64. FOR Q=1 TO 5
  65. A(Q)=INT(1000*(1-EXP(-W/S))+.5)/10
  66. S=S+(S2-S1)/4
  67. NEXT Q
  68. PRINT " ";H;TAB(14);A(1);"%";TAB(26);A(2);"%";TAB(38);A(3);"%";\
  69.       TAB(50);A(4);"%";TAB(62);A(5);"%"
  70. NEXT H
  71. PRINT CHR$(12):RETURN
  72. END
  73.