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 / ORLOFF.BAS < prev    next >
BASIC Source File  |  1986-08-11  |  625b  |  26 lines
  1. 5 PRINT
  2. 10 PRINT"L.ORLOFF'S UNEQUAL TERMINATED FILTER DESIGN"
  3. 15 PRINT
  4. 20 INPUT"LARGER TERMINATION";R0
  5. 30 INPUT"SMALLER TERMINATION";R1
  6. 40 INPUT"CENTER FREQUENCY IN MHZ";F0
  7. 50 INPUT"BANDWIDTH IN MHZ";B
  8. 55 PRINT
  9. 60 W=2*3.14159
  10. 70 T=SQR(2)
  11. 80 F0=F0*1000000!
  12. 90 WB=W*B*1000000!
  13. 95 W0=W*F0
  14. 100 N=SQR(R0/R1)
  15. 110 C0=T/(R0*WB)
  16. 120 L1=(N^2-N)*(R1*WB/(T*(W*F0)^2))
  17. 130 L2=N*R1*WB/(T*(W*F0)^2)
  18. 140 L3=(T*R1/WB)*(1+((1-N)/2)*(WB/W0)^2)
  19. 150 CS=WB/(T*R1*(W*F0)^2)
  20. 160 PRINT"FROM LARGER TERMINATION"
  21. 170 PRINT"SHUNT C="C0
  22. 180 PRINT"SERIES L="L1
  23. 190 PRINT"SHUNT L="L2
  24. 200 PRINT"SERIES L="L3
  25. 210 PRINT"SERIES C="CS
  26.