home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / QPROBLEM.BAS < prev    next >
BASIC Source File  |  1986-08-11  |  1KB  |  36 lines
  1. 100 REM     QPROBLEM PROGRAM BY D. McGARRETT 2 NOV 84
  2. 110 REM     PROGRAM FINDS ATTENUATION AT A PARTICULAR SPECIFIED FREQUENCY
  3. 120 REM     FOR A SINGLE POLE FILTER HAVING A SPECIFIED UNLOADED Q AND
  4. 130 REM     A SPECIFIED INSERTION LOSS (DETERMINED BY COUPLING).
  5. 140 INPUT"OPERATING FREQUENCY, MHZ";F0
  6. 150 INPUT"FREQUENCY AT WHICH REJECTION IS DESIRED";F5
  7. 160 FH=ABS(F0-F5)
  8. 170 GOSUB 340
  9. 180 INPUT"Q UNLOADED";QU
  10. 190 INPUT"ALLOWABLE LOSS";L
  11. 200 QL=QU*(1-10^(-L/20))
  12. 210 PRINT "QL="QL
  13. 220 BW=F0/QL
  14. 230 PRINT "BW="BW
  15. 240 FL=BW/2
  16. 250 PRINT "FL="FL
  17. 260 OCT=(LOG(FH/FL)/LOG(2))
  18. 270 PRINT"OCT="OCT
  19. 280 ATP=6*OCT
  20. 290 PRINT "ATTENUATION PER POLE="ATP
  21. 300 PRINT 
  22. 310 DEF FNC(Y)=INT(10*Y+.5)/10
  23. 320 LPRINT "LOSS OF"L" DB"
  24. 330 GOTO 400
  25. 340 GOSUB 360
  26. 350 LPRINT"QU","QL","BW","FL","OCT","AT/P"
  27. 360 LPRINT"___________________________________________________________________________"
  28. 370 RETURN
  29. 380 LPRINT
  30. 390 RETURN
  31. 400 LPRINT FNC(QU),FNC(QL),FNC(BW),FNC(FL),FNC(OCT),FNC(ATP)
  32. 410 LPRINT
  33. 420 PRINT"USE CTRL C TO EXIT"
  34. 430 PRINT 
  35. 440 GOTO 180
  36.