home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / david4 / windrat.bas < prev   
Encoding:
BASIC Source File  |  1986-12-11  |  768 b   |  23 lines
  1. 12000 REM*TRANSFORMER WINDINGS RATIO BY GILDER AND HEIDNER
  2. 12010 CLS:PRINT
  3. 12020 PRINT" TRANSFORMER TURNS RATIO"
  4. 12030 PRINT: PRINT: PRINT: PRINT
  5. 12040 PRINT"THIS PROGRAM CALCULATES THE TURNS"
  6. 12050 PRINT"RATIO REQUIRED FOR A TRANSFORMER GIVEN"
  7. 12060 PRINT"THE DESIRED INPUT AND OUTPUT IMPEDANCE"
  8. 12070 PRINT: PRINT: PRINT
  9. 12080 INPUT"ENTER PRIMARY IMPEDANCE:";Z1
  10. 12090 INPUT"ENTER SECONDARY IMPEDANCE:";Z2
  11. 12100 PRINT: PRINT: PRINT
  12. 12110 T=SQR(Z1/Z2)
  13. 12115 T= INT(10*T+.5)/10
  14. 12120 PRINT: PRINT: PRINT
  15. 12130 PRINT"THE TURNS RATIO FOR A TRANSFORMER WITH"
  16. 12135 PRINT
  17. 12140 PRINT"PRIMARY IMPEDANCE OF  ";Z1;"  OHMS"
  18. 12145 PRINT
  19. 12150 PRINT"AND A SECONDARY IMPEDANCE OF  ";Z2;"  OHMS"
  20. 12155 PRINT
  21. 12160 PRINT"IS   ";T;"/1"
  22. 12199 END
  23. st  longitude.