home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug033.ark / ADDPOD.BAS next >
Encoding:
BASIC Source File  |  1984-04-29  |  599 b   |  17 lines
  1. REM            THE PROGRAM 'ADDPOD'
  2. REM        WRITTEN BY CAPT. R.A.GREGOIRE CAP PAWG GROUP 30
  3. REM
  4. REM  THE PURPOSE OF THIS PROGRAM IS TO CREATE A TABLE WHICH ENABLES THE USER
  5. REM     TO ADD TWO VISUAL AERIAL SEARCH POD'S (PROBABILITY OF DETECTION)
  6. REM        THE PROGRAM ASSUMES AN EXPONENTIAL DISTRIBUTION OF TARGETS
  7. REM
  8. REM  THE FIRST POD IS IN COLUMN 1 AND THE SECOND IS ON THE LAST LINE
  9. REM
  10. FOR X=0 TO 95 STEP 5:PRINT X;":";
  11. FOR Y=5 TO 95 STEP 5
  12. IF X<Y THEN GOTO 10
  13. Z=INT(.5+100*(1-EXP(LOG(1-X/100)+LOG(1-Y/100))))
  14. PRINT Z;
  15. 10 NEXT:PRINT:NEXT
  16. PRINT "     ";:FOR X=5 TO 95 STEP 5:PRINT X;:NEXT
  17.