home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug033.ark / VISPOD.BAS < prev   
Encoding:
BASIC Source File  |  1984-04-29  |  2.5 KB  |  76 lines
  1. REM            THIS IS THE PROGRAM 'VISPOD'
  2. REM        WRITTEN BY CAPT R.A.GREGOIRE CAP PAWG GROUP 30
  3. REM
  4. PRINT "-THIS PROGRAM CALCULATES TABLES OF VISUAL SEARCH POD'S"
  5. INPUT "WHAT IS THE SMALLEST TRACK SPACING";SM
  6. INPUT "WHAT IS THE LARGEST TRACK SPACING";LR
  7. INPUT "WHAT IS THE TRACK SPACING INCREMENT";X1
  8. REM
  9. DIM C(5,5), T(4), T$(4), A$(5),VI$(5),P(5)
  10. REM EQUATION CONSTANTS FOLLOW-FORMAT C(ALTITUDE #, CONSTANT #)
  11. REM FOR 200 FT
  12. DATA-3.438060E-02,.2050731,-1.006933E-02,-5.605945E-04,-6.269870E-05
  13. REM FOR 300 FT
  14. DATA .4948905, -.7147783, .535268, -.12496, 9.579662E-03
  15. REM FOR 500 FT
  16. DATA .6070413, -.924985, .7044575, -.1699153, 1.340136E-02
  17. REM FOR 700 FT
  18. DATA .7330137, -1.134626, .8355327,-.1996037,1.568362E-02
  19. REM FOR 1000FT
  20. DATA .4649629, -.5862799, .4975626, -.1146642, 8.416611E-03
  21. REM TERRAIN FACTORS
  22. DATA 1.0,.5,.25,.15
  23. REM TERRAIN TYPE
  24. DATA "OPEN COVER","MODERATE COVER","HEAVY COVER","ROCK OR SNOW COVER"
  25. REM SEARCH ALTITUDE
  26. DATA "200 FT","300 FT","500 FT","700 FT","1000 FT"
  27. REM TABLE COLUMN HEADINGS
  28. DATA " 1 NM"," 2 NM"," 3 NM"," 4 NM"," 5 NM"
  29. REM
  30. REM READ C'S EQUATION CONSTANTS
  31. FOR I=1 TO 5:FOR J=1 TO 5:READ C(I,J):NEXT J: NEXT I
  32. REM READ T'S TERRAIN FACTORS
  33. FOR I=1 TO 4:READ T(I):NEXT I
  34. REM READ T$'S TERRAIN TYPES
  35. FOR I=1 TO 4:READ T$(I):NEXT I
  36. REM READ A$'S ALTITUDES
  37. FOR I=1 TO 5:READ A$(I):NEXT I
  38. REM READ VI$'S VISIBILITIES
  39. FOR I=1 TO 5:READ VI$(I):NEXT I
  40. PRINT CHR$(12):PRINT:PRINT:PRINT CHR$(12)
  41. REM PROGRAM BEGINS HERE
  42. REM TERRAIN LOOP
  43. FOR T1=1 TO 4
  44.   REM SEARCH ALTITUDE LOOP
  45.   FOR A1=1 TO 5
  46.   PRINT:PRINT
  47.   PRINT TAB(14);"THIS POD TABLE IS FOR ";T$(T1);" TERRAIN"
  48.   PRINT TAB(23);A$(A1);" SEARCH ALTITUDE"
  49.   PRINT
  50.   PRINT TAB(26);"SEARCH VISIBILITY"
  51.   PRINT "SPACING";TAB(14);VI$(1);TAB(26);VI$(2);TAB(38);\
  52.   VI$(3);TAB(50);VI$(4);TAB(62);VI$(5)
  53.   PRINT "-------";TAB(14);"------";TAB(26);"------";TAB(38);\
  54.         "------";TAB(50);"------";TAB(62);"------"
  55.   PRINT
  56.     REM TRACK SPACING LOOP
  57.     FOR S=SM TO LR STEP X1
  58.       S=(INT(1000*S+.5))/1000
  59.       REM VISIBILITY LOOP
  60.       FOR V=1 TO 5
  61.       REM
  62.       REM MAIN CALCULATION ROUTINE
  63.       INT1=C(A1,3)+V*(C(A1,4)+V*C(A1,5))
  64.       W=C(A1,1)+V*(C(A1,2)+V*INT1)
  65.       COV=T(T1)*W/S
  66.       P(V)=(INT(1000*(1-EXP(-COV))+.5))/10
  67.       NEXT V
  68.       PRINT S;TAB(7);"NM";TAB(14);P(1);"%";TAB(26);P(2); \
  69.       "%";TAB(38);P(3);"%";TAB(50);P(4);"%";TAB(62);P(5);"%"
  70.     NEXT S
  71.   PRINT CHR$(12):REM NEW PAGE FOR NEW TABLE
  72.   NEXT A1:REM NEXT SEARCH ALTITUDE
  73. NEXT T1:REM NEXT TERRAIN FACTOR
  74. STOP
  75. END
  76.