home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / refcoef.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  2.2 KB  |  57 lines
  1. 10  CLS: PRINT "PROGRAM TO CALC REFLECTION COEF <> Z"
  2. 15  PRINT "BY A. KATZ FOR TSC ELECTRONICS PROGRAM V2.2 (12/23/86)
  3. 50  PI=4*ATN(1)
  4. 60  REM COMPLEX ARITHMATIC SUBROUTEENS
  5. 70  DG=180/PI: Z0=50
  6. 80  DEF FNMR(AR,AX,BR,BX)=AR*BR-AX*BX
  7. 90  DEF FNMX(AR,AX,BR,BX)=AR*BX+AX*BR
  8. 100  DEF FNDR(AR,AX,BR,BX)=(AR*BR+AX*BX)/(BR^2+BX^2)
  9. 110  DEF FNDX(AR,AX,BR,BX)=(AX*BR-AR*BX)/(BR^2+BX^2)
  10. 120  DEF FNMG(AR,AX)=SQR(AR^2+AX^2)
  11. 130  DEF FNAG(AR,AX)=DG*(ATN(AX/AR)-(SGN(AR)-1)*PI/2)
  12. 140  DEF FNR(MG,AG)=MG*COS(AG/DG)
  13. 150  DEF FNX(MG,AG)=MG*SIN(AG/DG)
  14. 170  PRINT: INPUT "WANT TO CALC Z OR REF COEF (Z/R) OR (END)"; Q$
  15. 175  IF Q$="END" THEN END
  16. 180  IF Q$="R" THEN 300 ELSE IF Q$<>"Z" THEN 170
  17. 190  REM:******calculate z from ref. coef.************************
  18. 200  PRINT: INPUT "MAG OF REF COEF (IF NEG THEN IN dB)"; MI
  19. 210  INPUT "ANGLE"; AG: IF MI<0 THEN MG=10^(MI/20) ELSE MG=MI
  20. 220  RG=FNR(MG,AG): XG=FNX(MG,AG)
  21. 230  IF RG=1 THEN RG=1.0001
  22. 240  RZ=Z0*FNDR(1+RG,XG,1-RG,-XG): XZ=Z0*FNDX(1+RG,XG,1-RG,-XG)
  23. 250  PRINT: PRINT, "REF COEF MAG =" MG " AT ANGLE" AG "
  24. 260  PRINT "Z IN RECT. FORM :       REAL = ";RZ;:PRINT "      IMAG = ";XZ
  25. 270  PRINT: INPUT "WANT HARD COPY (Y/N)"; H$
  26. 280  IF H$="Y" GOTO 440 ELSE GOTO 170
  27. 290  REM:******calculate ref. coef from z*************************
  28. 300  PRINT: INPUT "REAL PART OF IMPEDANCE"; RZ
  29. 310  INPUT "IMAGINARY PART OF IMPEDANCE"; XZ
  30. 320  RG=FNDR(RZ-Z0,XZ,RZ+Z0,XZ)
  31. 330  XG=FNDX(RZ-Z0,XZ,RZ+Z0,XZ)
  32. 340  IF RG=0 THEN RG=9.9999E-05
  33. 350  REM: IF XG=0 THEN XG=.0001
  34. 360  GM=FNMG(RG,XG): GA=FNAG(RG,XG): PRINT
  35. 365  VS=(1+GM)/(1-GM)
  36. 370  PRINT: PRINT, "REAL Z =" RZ " IMAG Z =" XZ "
  37. 380  PRINT "REFLECTION COEFFICIENT:"
  38. 390  PRINT "     RECTANGULAR FORM:  REAL = ";RG;: PRINT "  IMAG. = ";XG
  39. 400  PRINT "     POLAR FORM      :  MAG. = ";GM;: PRINT "  ANG.  = ";GA
  40. 402  DB=20*LOG(GM)/LOG(10)
  41. 405  PRINT "     RETN LOSS FORM  :  M dB = ";DB;: PRINT "  ANG.  = ";GA
  42. 407  PRINT "     VSWR            :  VSWR = ";VS
  43. 410  PRINT: INPUT "WANT HARD COPY (Y/N)"; H$
  44. 420  IF H$="Y" GOTO  470  ELSE GOTO 170
  45. 430   REM: **********************PRINT ROUTINE*********************
  46. 440  LPRINT, "REF COEF MAG =" MG " AT ANGLE" AG "
  47. 450  LPRINT "Z IN RECT. FORM :       REAL = ";RZ;:LPRINT "      IMAG = ";XZ
  48. 460  GOTO 170
  49. 470  LPRINT: LPRINT, "REAL Z =" RZ " IMAG Z =" XZ "
  50. 480  LPRINT "REFLECTION COEFFICIENT:"
  51. 490  LPRINT "     RECTANGULAR FORM:  REAL = ";RG;:LPRINT "  IMAG. = ";XG
  52. 500  LPRINT "     POLAR FORM      :  MAG. = ";GM;:LPRINT "  ANG.  = ";GA
  53. 505  LPRINT "     RETN LOSS FORM  :  M dB = ";DB;: PRINT "  ANG.  = ";GA
  54. 507  LPRINT "     VSWR            :  VSWR = ";VS
  55. 510  GOTO 170
  56. 520  END
  57.