home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hamutil2 / micro-t.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.0 KB  |  27 lines
  1. 100  CLS :REM "MICRO-T"
  2. 110  PRINT TAB(32);"****MICRO-T****" :PRINT
  3. 120  PRINT :PRINT "THIS PROGRAM COMPUTES THE TRUE TRANSFORMED IMPEDANCE OF A CIRCUIT USING LITTY'S APPROXIMATIONS."
  4. 130  R=(4*ATN(1)/180) :B$=" "
  5. 140  PRINT :BEEP :INPUT "ENTER Zo of the LINE USED    Zo=";ZO
  6. 150  PRINT :BEEP :INPUT "ENTER REAL LOAD IMPEDANCE    Zl=";Z1
  7. 160  PRINT :BEEP :INPUT "ENTER GUIDED WAVELENGTH      Lg=";LG
  8. 170  PRINT :BEEP :INPUT "ENTER MICROSTRIP LENGTH       l=";X
  9. 180  REAL=ZO*Z1*(1+(TAN((360*X/LG)*R))^2)/(ZO^2+Z1^2*(TAN((360*X/LG)*R))^2)
  10. 190  REAL =REAL*ZO :REAL=INT(REAL*100)/100
  11. 200  IMAG=(ZO^2*TAN((360*X/LG)*R)-Z1^2*TAN((360*X/LG)*R))/(ZO^2+Z1^2*(TAN((360*X/LG)*R)^2))
  12. 210  IMAG=IMAG*ZO :IMAG=INT(IMAG*100)/100
  13. 220  IF IMAG<0 THEN 230 ELSE 250
  14. 230  B$="-"
  15. 240  GOTO 260
  16. 250  B$="+"
  17. 260  PRINT :PRINT TAB(30);"Zx=";REAL;" ";B$;"J";ABS(IMAG)
  18. 270  PRINT :BEEP:PRINT "HARD COPY REQUIRED?  (Y/N)"
  19. 280  P$=INKEY$ :IF P$="" THEN 280
  20. 290  IF P$<>"Y" THEN 320
  21. 300  LPRINT "Zo of line =";ZO;"ohms";"; REAL LOAD Z =";Z1;"; Guided Wavelength =";LG;
  22. 310  LPRINT "MICROSTRIP Length =";X;"; Zx=";REAL;" ";B$;" J";ABS(IMAG)
  23. 320  PRINT :BEEP :PRINT "CONTINUE?  (Y/N)"
  24. 330  C$=INKEY$ :IF C$="" THEN 330
  25. 340  IF C$<>"Y" THEN END
  26. 350  CLS :GOTO 140
  27.