home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / wave-g.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  3.1 KB  |  75 lines
  1. 10  CLS: PRINT "PROGRAM FOR CALCULATING RECTANGULAR WAVEGUIDE"
  2. 20  PRINT "CHARATERISTICS AND WAVEGUIDE DIMENSIONS FOR"
  3. 30  PRINT "DIFFERENT MODES - V1.3 (2/3/1987)"
  4. 40  PRINT "      *********************************************
  5. 50  PRINT "      *                                           *
  6. 60  PRINT "      *  BY STUDENTS OF / DR. ALLEN KATZ          *
  7. 70  PRINT "      *  DEPT ELECTRONICS ENGINEERING TECHNOLOGY  *
  8. 80  PRINT "      *  TRENTON STATE COLLEGE, CN550             *
  9. 90  PRINT "      *  TRENTON, NEW JERSEY 8625                 *
  10. 100  PRINT "      *                                           *
  11. 110  PRINT "      *  THE AUTHOR RESERVES RIGHTS TO THIS       *
  12. 120  PRINT "      *  PROGRAM; HOWEVER, COPYING AND USE FOR    *
  13. 130  PRINT "      *  EDUCATIONAL PURPOSES IS ENCOURAGED.      *
  14. 140  PRINT "      *                                           *
  15. 150  PRINT "      *  PLEASE REPORT ANY ERRORS OR PROBLEMS     *
  16. 160  PRINT "      *  WITH THIS PROGRAM TO THE AUTHOR.         *
  17. 170  PRINT "      *  TEL (609) 771 2487                       *
  18. 180  PRINT "      *                                           *
  19. 190  PRINT "      *********************************************
  20. 200  PRINT:PRINT"WANT TO CALC. GUIDE CHAR (CHR), OR DIM (DIM)";:INPUT Q$
  21. 210  INPUT "DIMENSIONS IN INCHES OR CENTIMETERS (IN/CM)"; U$
  22. 220  IF U$="IN" THEN UC=1/2.54: GOTO 240
  23. 230  IF U$<>"CM" THEN 210
  24. 240  IF Q$="DIM" THEN 460
  25. 250  PRINT: PRINT "         ---------------------------     "
  26. 260  PRINT "         |                         |
  27. 270  PRINT "         |                         | B "
  28. 280  PRINT"         |                         |  "
  29. 290  PRINT"         ---------------------------   "
  30. 300  PRINT"                     A                  "
  31. 310  PRINT: PRINT "WAVEGUIDE WIDTH A IN "; U$;: INPUT A
  32. 320  PRINT "WAVEGUIDE HEIGHT B IN "; U$;: INPUT B
  33. 330  PRINT: INPUT "TEM MODE OF OPERATION M,N"; C,D
  34. 340  W1=2/SQR((C/A)^2+(D/B)^2)
  35. 350  F1=30/W1: IF U$="IN" THEN F1=F1*UC
  36. 360  PRINT "WAVELENGTH CUTOFF =";W1; U$
  37. 370  PRINT "FREQUENCY CUTOFF =";F1; "GHZ"
  38. 380  PRINT: INPUT "WHAT FREQ. (GHZ) WOULD YOU LIKE TO OPERATE AT"; F3
  39. 385  IF F3<F1 THEN PRINT: PRINT "FREQ BELOW CUTOFF": GOTO 380
  40. 390  W2=30/F3: IF U$="IN" THEN W2=W2*UC
  41. 400  Z1=377/SQR(1-(W2/W1)^2)
  42. 410  W3=W2/SQR(1-(W2/W1)^2)
  43. 420  PRINT "GUIDE CHAR. IMPEADANCE ="; Z1; "OHMS"
  44. 430  PRINT "GUIDE WAVELENGTH =";W3; U$
  45. 440  PRINT: INPUT "DO YOU WANT A HARD COPY? (Y/N)"; Q1$
  46. 450  IF Q1$="Y" THEN 610 ELSE PRINT: INPUT "ANOTHER FREQ (Y/N)"; Q$
  47. 458  IF Q$="Y" THEN 380 ELSE END
  48. 460  PRINT: INPUT "WHAT IS CUTOFF FREQ. IN GHZ"; F2
  49. 470  W4=30/F2: IF U$="IN" THEN W4=W4*UC
  50. 480  A1=W4/2
  51. 490  B1=A1/2
  52. 500  PRINT: PRINT "FOR THE TEM 1,0 MODE,"
  53. 510  PRINT "WAVEGUIDE WIDTH ="; A1; U$
  54. 520  PRINT "WAVEGUIDE HEIGHT ="; B1; U$
  55. 530  PRINT: INPUT "WHAT FREQ. (GHZ) WOULD YOU LIKE TO OPERATE AT"; F4
  56. 540  W5=30/F4: IF U$="IN" THEN W5=W5*UC
  57. 550  Z2=377/SQR(1-(W5/W4)^2)
  58. 560  W6=W5/SQR(1-(W5/W4)^2)
  59. 570  PRINT: PRINT "GUIDE CHAR. IMPEADANCE ="; Z2 "OHMS"
  60. 580  PRINT "GUIDE WAVELENGTH ="; W6; U$
  61. 590  PRINT: INPUT "DO YOU WANT A HARD COPY? (Y/N)"; Q2$
  62. 600  IF Q2$="Y" THEN 670 ELSE END
  63. 610  LPRINT "THE CHARACTERISTICS OF THE WAVEGUIDE ARE": LPRINT,
  64. 620  LPRINT "WAVELENGTH CUTOFF ="; W1; U$
  65. 630  LPRINT "FREQUENCY CUTOFF ="; F1; "GHZ"
  66. 640  LPRINT "GUIDE CHAR. IMPEADANCE ="; Z1; "OHMS"
  67. 650  LPRINT "GUIDE WAVELENGTH ="; W3; U$: LPRINT,
  68. 660  Q1$="N": GOTO 450
  69. 670  LPRINT "THE DIMENSIONS AND CHARACTERISTICS OF THE WAVEGUIDE ARE": LPRINT,
  70. 680  LPRINT "WAVEGUIDE WIDTH ="; A1; U$
  71. 690  LPRINT "WAVEGUIDE HEIGHT ="; B1; U$
  72. 700  LPRINT "GUIDE CHAR. IMPEADANCE ="; Z2; "OHMS"
  73. 710  LPRINT "GUIDE WAVELENGTH ="; W6; U$
  74. 720  END
  75.