home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / coaximp / coaximp.bas
Encoding:
BASIC Source File  |  1986-08-12  |  512 b   |  19 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 25 REM COAX IMPEDANCE SOLUTION,WB6LLO
  4. 30 DEFDBL A-Z
  5. 40 N=.4342945
  6. 50 INPUT"WHAT IS INSIDE DIAMETER OF OUTER CONDUCTOR?";DD
  7. 60 PRINT
  8. 70 INPUT"WHAT IS OUTSIDE DIAMETER OF INNER CONDUCTOR?";D
  9. 80 PRINT
  10. 85 PRINT"DIELECTRIC: AIR(1),POLYFOAM(1.5),TEFLON(2.0),POLYSOLID(2.3)"
  11. 86 PRINT
  12. 90 INPUT"WHAT IS DIELECTRIC FACTOR ?";X
  13. 95 Y=SQR(X)
  14. 100 Z=(138/Y)*(LOG(DD/D)*N)
  15. 105 PRINT
  16. 110 PRINT "IMPEDANCE";INT (Z);"OHMS
  17. NPUT"WHAT IS DIELECTRIC FACTOR ?";X
  18. 95 Y=SQR(X)
  19. 100 Z=(138/Y)*(LOG(DD/D)