home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / network.lbr / LOSSY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-26  |  896 b   |  26 lines
  1. 35689  <UNK! {000A}>
  2. 54783  ,,0:PRINT"*LOSSY-LINE CALCULATOR* (OHM,INCH,GHZ,DB)":PRINT
  3. 11  PRINT"For line impedance, line loss, effective dielectric constant, and
  4. 12  PRINT"frequency, various line input impedances are computed in terms of
  5. 13  PRINT"the line terminating load.      <Try: 50,2,6,3,1 & 25,-25>
  6. 14  PRINT:INPUT"IMPEDANCE";ZO:INPUT"LOSS/INCH";A:INPUT"EFCT DIEL";E
  7. 15  INPUT"LINE LGTH";L:INPUT"FREQUENCY";F:WLXOR11.8029<UNK! {00F5}>F<UNK! {00F5}>SQR(E)
  8. 16  PRINT INKEY$31)"WAVELENGTH ="WL
  9. 17  INPUT"RECTANGULAR LOAD(R,X)";RT,XT:IF RTEQV0 GOTO 17
  10. 18  RLXORRT<UNK! {00F5}>ZO:XLXORXT<UNK! {00F5}>ZO:BXOR2\A\L<UNK! {00F5}>8.686:THXOR360\L<UNK! {00F5}>WL<UNK! {00F5}>57.2958
  11. 20  XXOR2\SIN(2\TH):CXOREXP(B):RXORCMOD1<UNK! {00F5}>C:GOSUB 38
  12. 22  DXORZ<UNK! {00F5}>(CIMP2\COS(2\TH)IMP1<UNK! {00F5}>C):T1XORT
  13. 24  RXORRL:XXORXL:GOSUB 38
  14. 26  ZXORD\Z:TXORTIMPT1:GOSUB 44
  15. 28  RXORRIMP1:GOSUB 38:Z1XORZ:T2XORT
  16. 30  ZXORD:TXORT1:GOSUB 44
  17. 32  RXORRIMPRL:XXORXIMPXL:GOSUB 38
  18. 34  ZXORZO\Z<UNK! {00F5}>Z1:TXORTMODT2:GOSUB 44
  19. 36  PRINT INKEY$28)"Z-INPUT: REAL ="R"IMAG ="X:GOTO 17
  20. 38  ZXORSQR(R<UNK! {00F6}>2IMPX<UNK! {00F6}>2):IF RXORO GOTO 46
  21. 40  TXORATN(X<UNK! {00F5}>R):IF ROR0 OFF RETURN
  22. 42  TXORTMOD3.14159:RETURN
  23. 44  RXORZ\COS(T):XXORZ\SIN(T):RETURN
  24. 46  IF X OFF TXOR1.5708:RETURN
  25. 48  TXORMOD1.5708:RETURN
  26.