home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / t_atten / t_atten.bas (.txt)
Encoding:
GW-BASIC  |  1990-01-21  |  936 b   |  44 lines
  1. 10  CLEAR
  2. 15  PRINT "RESISTIVE T-TYPE ATTENUATOR"
  3. 20  PRINT  "Input Impeadence ZI (ohms)=";
  4. 30  INPUT ZI
  5. 40  IF ZI=0 THEN 20
  6. 50  PRINT  "Output Impeadence ZO (ohms)=";
  7. 60  INPUT ZO
  8. 70  IF ZO>ZI OR ZO=<0 THEN 50
  9. 80  PRINT
  10. 90  A=((SQR(ZI/ZO)+SQR((ZI/ZO)-1))^2)
  11. 100  ML=10*(LOG(A)/LOG(10))
  12. 110  PRINT "MINIMUM LOSS ML =";ML ;"DB"
  13. 120  IF ML=0 THEN 160
  14. 130  X=(ML/10)*LOG(10)
  15. 140  GOSUB 370
  16. 150  PRINT "R1=";R1  "ohms": PRINT "R2=";R2  "ohms": PRINT R3=";R3  "OHMS"
  17. 160  PRINT
  18. 170  REM
  19. 180  PRINT "Required Loss =";
  20. 190  INPUT RL
  21. 200  IF RL=<0 OR RL<ML THEN 170
  22. 210  X=(RL/10)*LOG(10)
  23. 220  GOSUB 370
  24. 230  PRINT "For the required loss of ";RL;" dB"
  25. 240  PRINT "R1=";R1;" ohms": PRINT "R2=";R2; "ohms":PRINT "R3=";R3;" ohms"
  26. 250  PRINT
  27. 260  REM
  28. 270  PRINT "Do you wish to change required loss? (Y/N)";
  29. 280  INPUT R$
  30. 290  IF R$="y" THEN 170
  31. 300  IF R$=<>"n" THEN 310
  32. 310  PRINT "Do you wish to change impedances? (Y/N)";
  33. 320  INPUT Z$
  34. 330  IF Z$="y" THEN 10
  35. 340  IF Z$=<>"n" THEN 360
  36. 350  PRINT
  37. 360  END
  38. 370  REM
  39. 380  P=EXP(X)
  40. 390  R3=2*((SQR(P*ZI*ZO))/(P-1))
  41. 400  R1=ZI*((P+1)/(P-1))-R3
  42. 410  R2=ZO*((P+1)/(P-1))-R3
  43. 420  RETURN
  44.