home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / z-invt.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1989-01-22  |  503 b   |  15 lines
  1. 10  PI=4*ATN(1): DG=180/PI: Z0=50
  2. 20  REM COMPLEX ARITHMATIC SUBROUTEENS
  3. 30  DEF FNMR(AR,AX,BR,BX)=AR*BR-AX*BX
  4. 40  DEF FNMX(AR,AX,BR,BX)=AR*BX+AX*BR
  5. 50  DEF FNDR(AR,AX,BR,BX)=(AR*BR+AX*BX)/(BR^2+BX^2)
  6. 60  DEF FNDX(AR,AX,BR,BX)=(AX*BR-AR*BX)/(BR^2+BX^2)
  7. 70  DEF FNMG(AR,AX)=SQR(AR^2+AX^2)
  8. 80  DEF FNR(MG,AG)=MG*COS(AG/DG)
  9. 90  DEF FNX(MG,AG)=MG*SIN(AG/DG)
  10. 100  CLS: PRINT "TSC PROGRAM TO CALC PARALLEL EQIV"
  11. 110  PRINT: INPUT "SERIES R"; RS
  12. 120  INPUT "SERIES X"; XS: RP=1/FNDR(1,0,RS,XS)
  13. 130  XP=-1/FNDX(1,0,RS,XS): PRINT: PRINT "RP="; RP, "XP="; XP
  14. 140  PRINT: END
  15.