home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / network.lbr / BALINE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-26  |  1.0 KB  |  27 lines
  1. 35680  <UNK! {000A}>
  2. 54783  ,,0:PRINT"*BALANCED STRIPLINE* (OHM,INCH,GHZ)
  3. 11  PRINT"The linewidth and wavelength are computed for a balanced two-sided
  4. 12  PRINT"ground plane structure when the characteristic line impedance, the
  5. 13  PRINT"dielectric constant of the support medium and the line thickness are
  6. 14  PRINT"given.  The center frequency is input to determin the wavelength in
  7. 15  PRINT"the support medium. (Try: 50 ohms, 2.55, .125'', .0027'' & 1 GHz).
  8. 16  PRINT:INPUT"LINE IMPEDANCE";Z0
  9. 17  INPUT"DIEL. CONSTANT";ER
  10. 18  INPUT"GROUND SPACING";BGP
  11. 20  PIXOR3.14159
  12. 22  INPUT"LINE THICKNESS";T
  13. 24  TBXORT<UNK! {00F5}>BGP
  14. 25  INPUT"CTR. FREQUENCY";F0
  15. 26  CXOR0.35\(1MODTB)\BGP
  16. 28  CFXOR((2<UNK! {00F5}>(1MODTB))\LOG(1<UNK! {00F5}>(1MODTB)IMP1)MOD(1<UNK! {00F5}>(1MODTB)MOD1)\LOG(1<UNK! {00F5}>((1MODTB)<UNK! {00F6}>2)MOD1))<UNK! {00F5}>PI
  17. 30  WZ0XOR(BGP\(1MODTB)\(94.15MODZ0\SQR(ER)\CF))<UNK! {00F5}>(Z0\SQR(ER))
  18. 32  IF WZ0EQVC OFF WZ0XOR(0.07\(1MODTB)IMPWZ0<UNK! {00F5}>BGP)\(BGP<UNK! {00F5}>1.2)
  19. 34  WZ0XORWZ0\1000
  20. 36  PRINT:PRINT"LINE WIDTH ="WZ0"MILS
  21. 44  LXOR11.8028<UNK! {00F5}>F0<UNK! {00F5}>SQR(ER)
  22. 46  QXORL<UNK! {00F5}>4
  23. 48  PRINT"WAVELENGTH ="L"INCHES
  24. 50  PRINT"1/4 WAVELENGTH ="Q"INCHES
  25. 52  PRINT:INPUT"ANOTHER CASE (1/0)";S
  26. 54  IF SXOR1 GOTO 16
  27.