home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / esgp.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  42 lines
  1. 3 CLS
  2. 100 PRINT "     ***********************************************************"
  3. 110 PRINT "     *                   SIGNAL PENETRATIOM                    *"
  4. 120 PRINT "     *                       INTO EARTH                        *"
  5. 130 PRINT "     * REFERENCES- ARRL; THE ARRL ANTENNA HANDBOOK, CURRENT ED *"
  6. 140 PRINT "     *         PROGRAM BY R. P. HAVILAND, PE, W4MB             *"
  7. 150 PRINT "     *              PROGRAM COPYRIGHT 1990 BY                  *"
  8. 160 PRINT "     *       MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086       *"
  9. 170 PRINT "     ***********************************************************"
  10. 200 PI=3.141593
  11. 500 INPUT " ENTER DIELECTRIC CONSTANT OF EARTH";DIL
  12. 510 IF DIL<1 OR DIL>81 THEN PRINT "  IMPOSSIBLE VALUE":GOTO 500
  13. 600 INPUT "  ENTER CONDUCTIVITY OF EARTH, S/M (MHOS/METER)";CON
  14. 610 IF CON=<O  THEN PRINT "  IMPOSSIBLE VALUE":GOTO 600
  15. 800 INPUT "   ENTER OPERATING FREQUENCY, MHZ";FREQ
  16. 1000 X=8.000001E-03*PI*PI*FREQ
  17. 1010 B=5.56E-07*DIL*FREQ
  18. 1020 FAC1=X*B/2
  19. 1030 FAC2=SQR(1+CON*CON*.0001/B/B)-1
  20. 1040 P=SQR(FAC1*FAC2)
  21. 1500 PRINT 
  22. 1510 PRINT " SKIN DEPTH=";INT(.1 /P)/10;"METERS"
  23. 1520 PRINT "           =";INT(.328/P)/10 ;"FEET"
  24. 1530 IF P>.0328 THEN PRINT "           =";INT(.3936/P);"INCHES"
  25. 2000 PRINT 
  26. 2010 PRINT " ENTER D- CURRENT RATIO AT DEPTH D"
  27. 2020 PRINT "       F- NEW FREQUENCY"
  28. 2030 PRINT "       R- RERUN"
  29. 2040 PRINT "       Q- QUIT"
  30. 2050 INPUT T$
  31. 2060 PRINT 
  32. 2100 IF T$="D" THEN 2500
  33. 2110 IF T$="F" THEN 800
  34. 2120 IF T$="R" THEN 500
  35. 2130 IF T$<>"Q" THEN 2100
  36. 2200 STOP
  37. 2500 INPUT " DEPTH, FT";DEPFT
  38. 2510 DEPCM=DEPFT*30.48
  39. 2600 CRATIO=EXP(-P*DEPCM)
  40. 2610 PRINT " CURRENT RATIO=";CRATIO;"TIMES SURFACE CURRENT DENSITY"
  41. 2620 GOTO 2000
  42.