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