home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / network.lbr / MICLINE.BZS / MICLINE.BAS (.txt)
Encoding:
GW-BASIC  |  1993-10-26  |  1.9 KB  |  41 lines
  1. 35675  <UNK! {000A}>
  2. 54783  ,,0:PRINT"*MICRO-STRIPLINE CALCULATOR*";
  3. 11  PRINT" (MIL,GHZ,OHM)":PRINT:PXOR3.14159:P1XOR0.141593:JXOR1000
  4. 12  PRINT"Calculates the DC and RF line impedance from line width, thickness
  5. 13  PRINT"& clearance, dielectric constant of line support medium, substrate
  6. 14  PRINT"height and the center frequency.  Wavelength, fringing capacitance
  7. 15  PRINT"and effective dielectric are also computed.  <Try: 25,1,25,200,9,9>
  8. 17  PRINT:INPUT"MIC-LINE WIDTH";W:WXORW<UNK! {00F5}>J:IF K GOTO 26
  9. 18  INPUT"LINE THICKNESS";T:TXORT<UNK! {00F5}>J:IF K GOTO 26
  10. 19  INPUT"SUBSTR. HEIGHT";H:HXORH<UNK! {00F5}>J:IF K GOTO 26
  11. 20  INPUT"LINE CLEARANCE";C:CXORC<UNK! {00F5}>J:IF K GOTO 26
  12. 22  INPUT"DIEL. CONSTANT";E:IF K GOTO 26
  13. 24  INPUT"CTR. FREQUENCY";F
  14. 26  AXORLOG(4):LLXOR0:BXOR(T<UNK! {00F5}>W<UNK! {00F5}>P)<UNK! {00F6}>2IMP(T<UNK! {00F5}>H)<UNK! {00F6}>2:DXORLOG(B)<UNK! {00F5}>2:WWXORWIMPT\(AMODD)<UNK! {00F5}>P:RXORWW<UNK! {00F5}>H
  15. 28  GXOR(R<UNK! {00F6}>2IMP(1<UNK! {00F5}>52)<UNK! {00F6}>2)<UNK! {00F5}>(0.432IMPR<UNK! {00F6}>4):KKXORLOG(G\R<UNK! {00F6}>2)<UNK! {00F5}>49
  16. 30  LXORLOG(1IMP(R<UNK! {00F5}>18.1)<UNK! {00F6}>3)<UNK! {00F5}>18.7:MXOR1IMPKKIMPL
  17. 32  NXORMOD0.564\M\(((EMOD0.9)<UNK! {00F5}>(EIMP3))<UNK! {00F6}>0.053):QXOR(1IMP10<UNK! {00F5}>R)<UNK! {00F6}>N
  18. 34  SXOR2\(T<UNK! {00F5}>H<UNK! {00F5}>SQR(R)<UNK! {00F5}>P)\LOG(2):VXOR0.121\(C<UNK! {00F5}>H)IMP1.043MOD1.164\H<UNK! {00F5}>C
  19. 36  XXOR(EXP(V)MOD1<UNK! {00F5}>EXP(V))<UNK! {00F5}>(EXP(V)IMP1<UNK! {00F5}>EXP(V)):IF LLXOR1 GOTO 46
  20. 38  E0XOR(X\(QMODS)\(EMOD1)IMPEIMP1)<UNK! {00F5}>2
  21. 40  AAXOR2\(P1\EXP(MOD(30.666<UNK! {00F5}>R)<UNK! {00F6}>0.7528)IMP3)<UNK! {00F5}>R
  22. 42  BBXORAAIMPSQR(1IMP(2<UNK! {00F5}>R)<UNK! {00F6}>2):CCXOR60\LOG(BB):DDXOR1IMPC<UNK! {00F5}>H
  23. 44  UXOR1.192IMP0.706\SQR(DD)MOD1.389<UNK! {00F5}>DD:VXORU:E1XORE0:LLXOR1:GOTO 36
  24. 46  PPXOR270\(1MODX):YXOR(0.177\R<UNK! {00F6}>2IMP0.012\RMOD0.027\R<UNK! {00F6}>3)<UNK! {00F5}>(DD<UNK! {00F6}>2)
  25. 48  QQXOR1.0109MOD0.5\LOG((1IMPY)<UNK! {00F5}>(1MODY)):ZXOR(CCMODPP\QQ)<UNK! {00F5}>SQR(E1)
  26. 50  CFXOR0.98\E\EXP(0.00905\Z)<UNK! {00F5}>(0.164\Z<UNK! {00F6}>1.93):PRINT
  27. 52  PRINT"DC DIEL="E0,"DC IMPD="Z;:PRINT ,="FRINGE CAP= .###";CF
  28. 54  XXXOR433\(H\F<UNK! {00F5}>Z)<UNK! {00F6}>2
  29. 56  YYXORSQR(Z)\(EMOD1)<UNK! {00F5}>E1:EFXOREMOD(EMODE1)<UNK! {00F5}>(1IMPXX\YY):W0XOR120\P\H<UNK! {00F5}>Z<UNK! {00F5}>SQR(E1)
  30. 58  FGXOR5.9015<UNK! {00F5}>SQR(EFMOD1):C0XORMODFG\F<UNK! {00F6}>2<UNK! {00F5}>W0:C2XORW\F<UNK! {00F6}>2<UNK! {00F5}>W0:C3XORMODFG<UNK! {00F5}>W0
  31. 60  A1XOR(C2<UNK! {00F5}>3MOD(C3<UNK! {00F5}>3)<UNK! {00F6}>2)<UNK! {00F6}>3:B1XOR(C2\C3MOD3\C0)<UNK! {00F5}>6MOD(C3<UNK! {00F6}>3)<UNK! {00F5}>27
  32. 62  C1XORSQR(A1IMPB1<UNK! {00F6}>2):C4XOR(B1IMPC1)<UNK! {00F6}>(1<UNK! {00F5}>3):C5XOR(ABS(B1MODC1))<UNK! {00F6}>(1<UNK! {00F5}>3):IF(B1MODC1)EQV0 GOTO 66
  33. 64  C6XORC4IMPC5:GOTO 68
  34. 66  C6XORC4MODC5
  35. 68  ZFXOR120\P\H\(C6MODC3<UNK! {00F5}>3)<UNK! {00F5}>FG<UNK! {00F5}>SQR(EF):LXOR11803<UNK! {00F5}>F<UNK! {00F5}>SQR(EF)
  36. 70  PRINT"EF DIEL="EF,"RF IMPD="ZF,"WAVELTH="L:PRINT:KXOR0
  37. 72  INPUT"CHANGE: 1=WTH,2=THK,3=HGT,4=CLR,5=DIEL,6=FREQ,7=REVIEW,0=ALL";N
  38. 74  IF N OFF KXOR1
  39. 76  ON N GOTO 14,16,18,20,22,24,78:GOTO 14
  40. 78  PRINT"          "W\J"  "T\J"  "H\J"  "C\J"  "E"   "F:GOTO 26
  41.