home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee4 / mstrip.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  3.5 KB  |  114 lines
  1. 10  REM
  2. 20  REM                      MICROSTRIP DESIGN PROGRAM
  3. 30  REM                      -------------------------
  4. 40  REM                         BY KEVIN MCCLANING
  5. 50  REM
  6. 60  REM     THIS PROGRAM IS BASED ON THE ARTICLE "SYNTHESIZE AND ANALYZE
  7. 70  REM MICROSTRIP LINES BY JAMES J. LEV, MICROWAVES AND RF MAGAZINE,
  8. 80  REM JANUARY 1986, PG 111.
  9. 90  REM
  10. 100  REM
  11. 110  REM
  12. 120  CLS:PRINT
  13. 130  PRINT"                 MICROSTRIP DESIGN PROGRAM"
  14. 140  PRINT"                 -------------------------"
  15. 150  PRINT
  16. 160  PRINT "    THIS PROGRAM ALLOWS THE USER TO DESIGN MICROSTRIP TRANSMISSION"
  17. 170  PRINT "LINES FROM USER-SUPPLIED PHYSICAL PARAMETERS."
  18. 180  PRINT
  19. 190  PRINT "    NOTE: THE EQUATIONS USED IN THIS PROGRAM ARE FIRST-"
  20. 200  PRINT "ORDER APPROXIMATIONS, BUT THEY SHOULD BE OK FOR INITIAL DESIGNS."
  21. 210  GOSUB 820
  22. 220  PRINT "WHAT'LL IT BE:"
  23. 230  PRINT "  1 - COMPUTE RELATIVE DIELECTRIC CONSTANT FROM MEASURED"
  24. 240  PRINT "              PHYSICAL PARAMETERS"
  25. 250  PRINT "  2 - FIND THE WIDTH OF A MICROSTRIP T-LINE"
  26. 260  PRINT "  3 - END"
  27. 270  INPUT ANS
  28. 280  IF ANS = 1 THEN 320
  29. 290  IF ANS = 2 THEN 570
  30. 300  IF ANS = 3 THEN END
  31. 310  BEEP:GOTO 210
  32. 320  REM
  33. 330  REM
  34. 340  REM
  35. 350  REM         FIND RELATIVE DIELECTRIC CONSTANT
  36. 360  REM
  37. 370  REM
  38. 380  GOSUB 820:PRINT
  39. 390  PRINT "FIND RELATIVE DIELECTRIC CONSTANT":PRINT
  40. 400  INPUT "ENTER THE AREA OF THE BOARD (SQUARE INCHES)";AREASI
  41. 410  AREA = AREASI*(0.0254)*(0.0254)
  42. 420  INPUT "ENTER THE THICKNESS OF THE DIELECTRIC (INCHES)";DTHICKI
  43. 430  DTHICK = DTHICKI*0.0254
  44. 440  INPUT "ENTER THE MEASURED CAPACITANCE (pF)";CAPPF
  45. 450  CAP = CAPPF*0
  46. 460  ESUBR = (CAP*DTHICK)/(AREA*0)
  47. 470  GOSUB 860
  48. 480  PRINT "WHAT'LL IT BE:"
  49. 490  PRINT "  1 - FIND ANOTHER RELATIVE DIELECTRIC CONSTANT"
  50. 500  PRINT "  2 - PRINT"
  51. 510  PRINT "  3 - MAIN MENU"
  52. 520  INPUT ANS
  53. 530  IF ANS = 1 THEN 380
  54. 540  IF ANS = 2 THEN GOSUB 940:GOSUB 820:GOTO 480
  55. 550  IF ANS = 3 THEN 210
  56. 560  BEEP:GOTO 480
  57. 570  REM
  58. 580  REM
  59. 590  REM
  60. 600  REM         COMPUTE THE WIDTH OF A MICROSTRIP SECTION
  61. 610  REM
  62. 620  REM
  63. 630  GOSUB 820:PRINT
  64. 640  PRINT "COMPUTE WIDTH OF A MICROSTRIP SECTION":PRINT
  65. 650  INPUT "ENTER THE EFFECTIVE DIELECTRIC CONSTANT";ESUBR
  66. 660  INPUT "ENTER THE THICKNESS OF THE DIELECTRIC (INCHES)";DTHICKI
  67. 670  DTHICK = DTHICKI*0.0254
  68. 680  INPUT "ENTER THE DESIRED CHARACTERISTIC IMPEDENCE (OHMS)";Z0
  69. 690  TEMP = EXP(Z0*SQR(1+ESUBR)/42.4)-1
  70. 700  TOP = 8*SQR(TEMP*((7+(4/ESUBR))/11)+((1+(1/ESUBR))/0.81))
  71. 710  TWIDTH = DTHICKI*TOP/TEMP
  72. 720  GOSUB 1010
  73. 730  PRINT "WHAT'LL IT BE:"
  74. 740  PRINT "  1 - FIND ANOTHER MICROSTRIP T-LINE WIDTH"
  75. 750  PRINT "  2 - PRINT"
  76. 760  PRINT "  3 - MAIN MENU"
  77. 770  INPUT ANS
  78. 780  IF ANS = 1 THEN 630
  79. 790  IF ANS = 2 THEN GOSUB 1080:GOSUB 820:GOTO 730
  80. 800  IF ANS = 3 THEN 210
  81. 810  BEEP:GOTO 730
  82. 820  PRINT "----------------------------":RETURN
  83. 830  REM
  84. 840  LPRINT "----------------------------":RETURN
  85. 850  REM
  86. 860  GOSUB 820
  87. 870  PRINT "RELATIVE DIELECTRIC CONSTANT"
  88. 880  PRINT "    BOARD AREA = ";AREASI;" SQUARE INCHES"
  89. 890  PRINT "    DIELECTRIC THICKNESS = ";DTHICKI;" INCHES"
  90. 900  PRINT "    MEASURED CAPACITANCE = ";CAPPF;" pF"
  91. 910  PRINT "    RELATIVE DIELECTRIC CONSTANT = ";INT(ESUBR*1000)/1000
  92. 920  GOSUB 820:RETURN
  93. 930  REM
  94. 940  GOSUB 840
  95. 950  LPRINT "RELATIVE DIELECTRIC CONSTANT"
  96. 960  LPRINT "    BOARD AREA = ";AREASI;" SQUARE INCHES"
  97. 970  LPRINT "    DIELECTRIC THICKNESS = ";DTHICKI;" INCHES"
  98. 980  LPRINT "    MEASURED CAPACITANCE = ";CAPPF;" pF"
  99. 990  LPRINT "    RELATIVE DIELECTRIC CONSTANT = ";INT(ESUBR*1000)/1000
  100. 1000  GOSUB 840:RETURN
  101. 1010  GOSUB 820
  102. 1020  PRINT "WIDTH OF A MICROSTRIP T-LINE (Z0 = ";Z0;" OHMS)"
  103. 1030  PRINT "    DIELECTRIC THICKNESS = ";DTHICKI;" INCHES"
  104. 1040  PRINT "    RELATIVE DIELECTRIC CONSTANT = ";INT(ESUBR*1000)/1000
  105. 1050  PRINT "    COMPUTED WIDTH = ";INT(1000*TWIDTH)/1000;" INCHES"
  106. 1060  GOSUB 820:RETURN
  107. 1070  REM
  108. 1080  GOSUB 840
  109. 1090  LPRINT "WIDTH OF A MICROSTRIP T-LINE (Z0 = ";Z0;" OHMS)"
  110. 1100  LPRINT "    DIELECTRIC THICKNESS = ";DTHICKI;" INCHES"
  111. 1110  LPRINT "    RELATIVE DIELECTRIC CONSTANT = ";INT(ESUBR*1000)/1000
  112. 1120  LPRINT "    COMPUTED WIDTH = ";INT(1000*TWIDTH)/1000;" INCHES"
  113. 1130  GOSUB 840:RETURN
  114.