home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / evanesce.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  879 b   |  31 lines
  1. 5   INPUT "WHAT IS F0";FO
  2. 6  INPUT "BANDWIDTH";BW
  3. 7  PRINT"ENTER ALL DIMENSIONS IN CENTIMETERS
  4. 8  PRINT
  5. 10  INPUT "WHAT IS PROPAGATING WAVEGUIDE DIMENSION A";AP
  6. 20  INPUT "WHAT IS PROPAGATING WAVEGUIDE DIMENSION B";BP
  7. 30  INPUT "WHAT IS EVANESCENT WAVEGUIDE DIMENSION A";AE
  8. 40  INPUT "WHAT IS EVANESCENT WAVEGUIDE DIMENSION B";BE
  9. 50  LAMDAC=2*AE
  10. 60  LAMDAO=1.18E+10/FO
  11. 61  R=LAMDAO/LAMDAC
  12. 62  P=R^2-1
  13. 63  Q=SQR(P)
  14. 70  GAMMA=(6.28319/LAMDAO)*Q
  15. 80  LO=1.83178/GAMMA
  16. 90  DELTA=2/(1+1/(1-(LAMDAC/LAMDAO)^2))
  17. 100  INPUT"NUMBER OF COMPONENTS FROM FILT-ELE PROGRAM";NUM
  18. 110  FOR N=1 TO NUM
  19. 120  PRINT "ENTER G";N:INPUT G(N)
  20. 125  NEXT
  21. 130  WO=FO*6.28319
  22. 135  FOR N=1 TO NUM-1
  23. 140  RAD=0.5*WO*DELTA*SQR(G(N)*G(N+1))/(BW*6.28319)
  24. 150  LR=LOG(RAD+SQR((RAD)^2+1))/GAMMA
  25. 152  PRINT "L";N;"EQUALS"; LR; "CENTIMETERS"
  26. 155  NEXT
  27. 160  POSTDIA=0.2*AP
  28. 170  POSTH=0.5*BE
  29. 175  PRINT " POST DIAMETER IN CENTIMETERS =" POSTDIA
  30. 176  PRINT " POST HEIGHT IN CENTIMETERS =" POSTH
  31.