home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG033.ARK
/
ADDPOD.BAS
next >
Wrap
BASIC Source File
|
1984-04-29
|
599b
|
17 lines
REM THE PROGRAM 'ADDPOD'
REM WRITTEN BY CAPT. R.A.GREGOIRE CAP PAWG GROUP 30
REM
REM THE PURPOSE OF THIS PROGRAM IS TO CREATE A TABLE WHICH ENABLES THE USER
REM TO ADD TWO VISUAL AERIAL SEARCH POD'S (PROBABILITY OF DETECTION)
REM THE PROGRAM ASSUMES AN EXPONENTIAL DISTRIBUTION OF TARGETS
REM
REM THE FIRST POD IS IN COLUMN 1 AND THE SECOND IS ON THE LAST LINE
REM
FOR X=0 TO 95 STEP 5:PRINT X;":";
FOR Y=5 TO 95 STEP 5
IF X<Y THEN GOTO 10
Z=INT(.5+100*(1-EXP(LOG(1-X/100)+LOG(1-Y/100))))
PRINT Z;
10 NEXT:PRINT:NEXT
PRINT " ";:FOR X=5 TO 95 STEP 5:PRINT X;:NEXT