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 / OPT.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  51 lines
  1. REM THIS IS THE PROGRAM 'OPT'
  2. REM THE PURPOSE OF THIS PROGRAM OPTIMAL ALLOCATION OF SEARCH EFFORT AMONG
  3. REM SEVERAL PROBABILITY CELLS
  4. REM 
  5. REM PROGRAM WRITTEN BY COMMANDER DISCENZA USCG 7/12/78
  6. REM REF CHARNES+COOPER "THE OPTIMUM DISTRIBUTION OF EFFORT",
  7. REM MANAGEMENT SCIENCE, 1958.
  8. REM REF STONE'S "THEORY OF OPTIMAL SEARCH"; ACADEMIC PRESS 1975
  9. REM
  10.     DIM LP(10)
  11.     INPUT "ENTER THE NUMBER OF CELLS";NCELL
  12.     PRINT "NOW ENTER THE SORTED PROBABILITY OF TARGET FOR ";NCELL;"CELLS"
  13.     PRINT "LIST THE GREATEST FIRST, AND THE LEAST POT-CELL LAST"
  14.     PRINT "ENTER THESE POT'S IN PERCENT"
  15.     FOR I=1 TO NCELL
  16.         PRINT "FOR CELL NUMBER ";I;
  17.         INPUT "THE POT IS";PI
  18.         IF PI>0 THEN LP(I)=LOG(PI/100)
  19.     NEXT I
  20. REM
  21. REM ******************************************************************
  22. REM
  23. REM WHAT IS THE SEARCH FORCE AVAILABLE?
  24. REM EF(FOR EACH SATTELITE BASE)=(SWEEP WIDTH)X(NUMBER OF A/C)X(AVE A/C SPEED)X
  25. REM            X(HOURS A/C CAN SEARCH)/(AREA OF ONE SEARCH CELL)
  26. REM
  27. 5    PRINT "ENTER EFFORTS, 0 TO END"
  28.     TOTEF=0:NACFT=0
  29. 10    INPUT EF
  30.     IF EF<>0 THEN TOTEF=TOTEF+EF:NACFT=NACFT+1:GOTO 10
  31.     IF NACFT=0 THEN STOP
  32.     PRINT NACFT;" AIRCRAFT ENTERED WITH A TOTAL EFFECTIVE FORCE OF ";TOTEF
  33. REM
  34. REM ************************************************************************
  35. REM
  36. REM APPORTION AVAILABLE EFFORT
  37. REM
  38.     EFF=0
  39.     FOR I=1 TO NCELL
  40.         EFF=EFF+(LP(I)-LP(I+1))*I
  41.         IF EFF>TOTEF THEN GOTO 30
  42.     NEXT I
  43. 30    BSTAR=LP(I+1)+(EFF-TOTEF)/I
  44.     FOR I=1 TO NCELL
  45.         IF LP(I)>BSTAR THEN COV=LP(I)-BSTAR ELSE COV=0
  46.         PRINT "FOR CELL NUMBER ";I;
  47.         PRINT ",EST POT WAS=";INT(.5+100*EXP(LP(I)));"%,";
  48.         PRINT "AND OPT POD=";INT(1000*(1-EXP(-COV)))/10;"%"
  49.     NEXT I
  50.     GOTO 5                REM TRY AGAIN WITH CHANGED FORCES
  51.