home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / safe.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  54 lines
  1. 3 CLS
  2. 10 ON ERROR GOTO 60000
  3. 100 PRINT "     ***********************************************************"
  4. 110 PRINT "     *                RF RADIATION SAFETY LIMITS               *"
  5. 120 PRINT "     *             BASED ON ANSI STANDARD C95.1-1982           *"
  6. 140 PRINT "     *             FOR FREQUENCIES 3 MHZ TO 100 GHZ            *"
  7. 150 PRINT "     *  REFERENCE- ARRL; THE ARRL ANTENNA HANDBOOK, CURRENT ED *"
  8. 160 PRINT "     *         PROGRAM BY R. P. HAVILAND, PE, W4MB             *"
  9. 170 PRINT "     *              PROGRAM COPYRIGHT 1990 BY                  *"
  10. 180 PRINT "     *       MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086       *"
  11. 190 PRINT "     ***********************************************************"
  12. 500 INPUT " ENTER OPERATING FREQUENCY, MHZ ";FREQ
  13. 510 IF FREQ=>1500 THEN DENS=5:GOTO 1000   'WATTS/CM/CM
  14. 520 IF FREQ=>300 THEN DENS=10^((LOG(FREQ)-LOG(300))/LOG(10)):GOTO 1000
  15. 530 IF FREQ=>30 THEN DENS=1:GOTO 1000
  16. 540 DENS=10^(2*((LOG(30)-LOG(FREQ))/LOG(10)))
  17. 1000 PRINT " ALLOWABLE FLUX DENSITY=";DENS;" MW/CM SQ"
  18. 1010 PRINT "                       =";DENS*10;" WATTS/METER SQUARE"
  19. 1200 SIG=SQR(377*DENS*10)
  20. 1210 PRINT 
  21. 1220 PRINT " THE CORRRESPONDING SIGNAL LEVEL=";SIG;" VOLTS/METER"
  22. 1230 PRINT "                                =";SIG*1000000!;" UV/METER"
  23. 1500 PRINT 
  24. 1510 INPUT " ENTER LENGTH OF LONGEST ANTENNA ELEMENT, FT.";LELEM
  25. 1520 LELEM=LELEM*.3048
  26. 1530 RMIN=2*LELEM*LELEM*FREQ/299.8
  27. 1540 INPUT " ENTER DISTANCE TO POINT, FEET";DISTFT
  28. 1550 DIST=DISTFT/3.28
  29. 1560 IF DIST>RMIN THEN 2000
  30. 1700 PRINT "   POINT IS IN NEAR FIELD"
  31. 1710 PRINT "      USE MININEC 3 TO CALCULATE NEAR-FIELD INTENSITY
  32. 1720 PRINT 
  33. 1730 GOTO 1530
  34. 2000 PRINT 
  35. 2010 INPUT " ENTER ANTENNA GAIN TOWARD POINT, DB";GAINDB
  36. 2020 GAIN =10^(GAINDB/10)
  37. 2030 INPUT "ENTER POWER RADIATER FROM ANTENNA, AVERAGE WATTS";PRAD
  38. 2040 PWRDENS=PRAD*GAIN/12.566/DIST/DIST
  39. 2050 PRINT " ESTIMATED RADIATED POWER DENSITY IS";PWRDENS;" WATTS/METER SQ."
  40. 2200 IF PWRDENS<10*DENS THEN 2300
  41. 2210 PRINT 
  42. 2220 PRINT "  **** WARNING-UNSAFE BY 1982 STANDARDS ****"
  43. 2300 SAFEFACT=INT(10*DENS/PWRDENS)
  44. 2310 PRINT 
  45. 2320 PRINT "    RADIATION SAFETY FACTOR IS";SAFEFACT
  46. 2500 PRINT "  ENTER D- ANOTHER DISTANCE"
  47. 2510 PRINT "        R- RERUN"
  48. 2520 PRINT "        Q- QUIT"
  49. 2530 INPUT T$
  50. 2540 IF T$="D" THEN 1530
  51. 2550 IF T$="R" THEN 500
  52. 2560 IF T$<>"Q" THEN 2500
  53. 60000 END
  54.