home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hamutil2 / impednce.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  665 b   |  23 lines
  1. 100  CLS :REM IMPED
  2. 110  PRINT TAB(26);"****IMPEDANCE CONVERSION****":PRINT:PRINT
  3. 120  PRINT "PROGRAM TO CONVERT SERIES IMPEDANCE DATA TO PARALLEL IMPEDANCE DATA"
  4. 130  PRINT :PRINT :BEEP :INPUT "ENTER Rs  " ;Z
  5. 140  PRINT :BEEP :INPUT "ENTER Js  ";X
  6. 150  I=Z*(1+(X/Z)^2)
  7. 160  J=(Z^2+X^2)/X
  8. 170  IF SGN(XN)=-1 THEN 200
  9. 180  S$="+"
  10. 190  GOTO 210
  11. 200  S$="-"
  12. 210  R=INT(I*100)/100 :P=INT(J*100)/100
  13. 220  PRINT :PRINT "PARALLEL IMPEDANCE =";R;S$;"J";ABS(P)
  14. 230  PRINT :BEEP :PRINT "HARD COPY REQUIRED?  (Y/N)"
  15. 240  P$=INKEY$ :IF P$="" THEN 240
  16. 250  IF P$="Y" THEN 270
  17. 260  IF P$="N" THEN 280 ELSE 240
  18. 270  LPRINT "SERIES IMPEDANCE ";Z;"Rs;";X;"Js";" EQUAL PARALLEL IMPEDANCE ";R;S$;"J";ABS(P)
  19. 280  PRINT :BEEP :PRINT "CONTINUE?  (Y/N)"
  20. 290  B$=INKEY$ :IF B$="" THEN 290
  21. 300  IF B$="Y" THEN 100
  22. 310  IF P$="N" THEN END ELSE 290
  23.