home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / rf3 / wave-g.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-08-18  |  3.0 KB  |  73 lines
  1. 10  CLS: PRINT "PROGRAM FOR CALCULATING RECTANGULAR WAVEGUIDE"
  2. 20  PRINT "CHARATERISTICS AND WAVEGUIDE DIMENSIONS FOR"
  3. 30  PRINT "DIFFERENT MODES - V1.2 (6/10/1986)"
  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. 390  W2=30/F3: IF U$="IN" THEN W2=W2*UC
  40. 400  Z1=377/SQR(1-(W2/W1)^2)
  41. 410  W3=W2/SQR(1-(W2/W1)^2)
  42. 420  PRINT "GUIDE CHAR. IMPEADANCE ="; Z1; "OHMS"
  43. 430  PRINT "GUIDE WAVELENGTH =";W3; U$
  44. 440  PRINT: INPUT "DO YOU WANT A HARD COPY? (Y/N)"; Q1$
  45. 450  IF Q1$="Y" THEN 610 ELSE END
  46. 460  PRINT: INPUT "WHAT IS CUTOFF FREQ. IN GHZ"; F2
  47. 470  W4=30/F2: IF U$="IN" THEN W4=W4*UC
  48. 480  A1=W4/2
  49. 490  B1=A1/2
  50. 500  PRINT: PRINT "FOR THE TEM 1,0 MODE,"
  51. 510  PRINT "WAVEGUIDE WIDTH ="; A1; U$
  52. 520  PRINT "WAVEGUIDE HEIGHT ="; B1; U$
  53. 530  PRINT: INPUT "WHAT FREQ. (GHZ) WOULD YOU LIKE TO OPERATE AT"; F4
  54. 540  W5=30/F4: IF U$="IN" THEN W5=W5*UC
  55. 550  Z2=377/SQR(1-(W5/W4)^2)
  56. 560  W6=W5/SQR(1-(W5/W4)^2)
  57. 570  PRINT: PRINT "GUIDE CHAR. IMPEADANCE ="; Z2 "OHMS"
  58. 580  PRINT "GUIDE WAVELENGTH ="; W6; U$
  59. 590  PRINT: INPUT "DO YOU WANT A HARD COPY? (Y/N)"; Q2$
  60. 600  IF Q2$="Y" THEN 670 ELSE END
  61. 610  LPRINT "THE CHARACTERISTICS OF THE WAVEGUIDE ARE": LPRINT,
  62. 620  LPRINT "WAVELENGTH CUTOFF ="; W1; U$
  63. 630  LPRINT "FREQUENCY CUTOFF ="; F1; "GHZ"
  64. 640  LPRINT "GUIDE CHAR. IMPEADANCE ="; Z1; "OHMS"
  65. 650  LPRINT "GUIDE WAVELENGTH ="; W3; U$: LPRINT,
  66. 660  END
  67. 670  LPRINT "THE DIMENSIONS AND CHARACTERISTICS OF THE WAVEGUIDE ARE": LPRINT,
  68. 680  LPRINT "WAVEGUIDE WIDTH ="; A1; U$
  69. 690  LPRINT "WAVEGUIDE HEIGHT ="; B1; U$
  70. 700  LPRINT "GUIDE CHAR. IMPEADANCE ="; Z2; "OHMS"
  71. 710  LPRINT "GUIDE WAVELENGTH ="; W6; U$
  72. 720  END
  73.