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 / PIATTEN.BAS < prev    next >
BASIC Source File  |  1986-08-11  |  421b  |  19 lines
  1. 10 PRINT "PI ATTENUATOR PAD"
  2. 20 PRINT
  3. 30 INPUT " ENTER ATTENUATION IN DB";DB
  4. 40 PRINT
  5. 50 INPUT " ENTER IMPEDANCE IN OHMS";ZO
  6. 60 PRINT
  7. 70 A=SQR(10^(DB/10))
  8. 80 R1=ZO*(A^2-1)/(2*A)
  9. 90 R2=ZO*(A+1)/(A-1)
  10. 100 R1=INT(100*R1+.5)/100 : R2=INT(100*R2+.5)/100
  11. 110 PRINT "SERIES ARM="R1"OHMS"
  12. 120 PRINT
  13. 130 PRINT "SHUNT ARM="R2"OHMS"
  14. 140 PRINT
  15. 150 INPUT "DO ANOTHER Y/N";A$
  16. 160 PRINT
  17. 170 IF A$="Y" GOTO 30
  18. 180 END
  19.