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 / PWRDIV.BAS < prev    next >
BASIC Source File  |  1986-08-11  |  2KB  |  46 lines
  1. 10 'THIS PROGRAM WILL CALC. COUPLING AND IMPEDANCES FOR UNEQUAL SPLIT
  2. 20 'IN-LINEPOWER DIVIDERS.
  3. 30 '******* CALCULATION OF P(A),P(B),AND K *******
  4. 50 CLS
  5. 60 PRINT "ENTER KNOWN COUPLING,P(A),IN DB FOR ONE ARM OF THE DIVIDER."
  6. 70 INPUT "P(A)=";PA
  7. 80 PAR=10^(-ABS(PA)/10)
  8. 90 PBR=1-PAR
  9. 100 PB=10*LOG(PBR)/LOG(10)
  10. 110 K=SQR(PBR/PAR)
  11. 120 PRINT:PRINT
  12. 130 PRINT "P(A)=";-ABS(PA);"DB"
  13. 140 PRINT "P(B)=";PB;"DB"
  14. 150 PRINT "K=";K
  15. 160 PRINT:PRINT
  16. 170 INPUT "DO YOU WANT TO CHANGE COUPLING,Y/N";R$
  17. 180 IF INSTR(1,"Yy",LEFT$(R$,1))<>0 THEN 50
  18. 190 '******* DATA ENTRY *******
  19. 200 PRINT:PRINT
  20. 210 INPUT "ENTER CHARACTERISTIC IMPEDANCE,Z0,IN OHMS";Z0
  21. 220 INPUT "ENTER CENTER FREQUENCY,F0,IN GHZ";F0
  22. 230 INPUT "ENTER RELATIVE DIELECTRIC CONSTANT,ER";ER
  23. 240 QW=11.803/(F0*SQR(ER)*4)
  24. 250 PRINT:PRINT
  25. 260 '******* SELECTION OF UNCOMPENSATED OR COMPENSATED DIVIDER *******
  26. 270 INPUT "DO YOU WANT 1)UNCOMPENSATED OR 2)COMPENSATED DIVIDER, ENTER 1 OR 2";R
  27. 280 PRINT:PRINT
  28. 290 ON R GOTO 310,390
  29. 300 '******* UNCOMPENSATED DIVIDER *******
  30. 310 PRINT "Z2=";Z0*SQR(K*(1+K^2));"OHMS"
  31. 320 PRINT "Z3=";Z0*SQR((1+K^2)/(K^3));"OHMS"
  32. 330 PRINT "Z4=";Z0*SQR(K);"OHMS"
  33. 340 PRINT "Z5=";Z0/SQR(K);"OHMS"
  34. 350 PRINT " R=";Z0*(1+K^2)/K;"OHMS"
  35. 360 PRINT "1/4 WAVELENGTH AT";F0;"GHZ=";QW;"INCHES"
  36. 370 GOTO 460
  37. 380 '******* COMPENSATED DIVIDER *******
  38. 390 PRINT "Z1=";Z0*(K/(1+K^2))^(1/4);"OHMS"
  39. 400 PRINT "Z2=";Z0*(K^(3/4)*(1+K^2)^(1/4));"OHMS"
  40. 410 PRINT "Z3=";Z0*((1+K^2)^(1/4)/(K^(5/4)));"OHMS"
  41. 420 PRINT "Z4=";Z0*SQR(K);"OHMS"
  42. 430 PRINT "Z5=";Z0/SQR(K);"OHMS"
  43. 440 PRINT " R=";Z0*((1+K^2)/K);"OHMS"
  44. 450 PRINT "1/4 WAVELINGTH AT";F0;"GHZ=";QW;"INCHES"
  45. 460 END
  46.