====================================================
' INDUCTANCE OF CIRCULAR RING
' REF DATA P 6-9
CLS
TOP: INPUT "RING RADIUS, INCHES ", A IF A = 0 THEN GOTO EXX
INPUT "WIRE DIA, INCHES ", D IF D = 0 THEN GOTO EXX
L = (A / 100) * (7.353 * LOG(16 * A / D) / LOG(10) - 6.386)
PRINT USING "L = #####.##### uH"; L
PRINT PRINT GOTO TOP
EXX: END
================================================================
' PROGRAM : MAGFIELD.BAS ' BY : JENNIFER HO ' HIGHLAND TECNHOLOGY, INC. ' FEBRUARY 2, 1995
DEFDBL A-Z
CLS
PRINT "GIVEN A CIRCULAR LOOP OF RADIUS (R) CARRYING CURRENT (I)," PRINT "THIS PROGRAM CALCULATES THE MAGNETIC FIELD (B) AT ALL" PRINT "POINTS ON THE AXIS OF THIS LOOP, WHICH WE TAKE TO BE THE" PRINT "Z AXIS, WITH Z=0 AT THE LOOP CENTER." PRINT PRINT
INPUT "ENTER LOOP RADIUS (R) in Meters : ", R IF R = 0 THEN GOTO EXXON
INPUT "ENTER LOOP CURRENT (I) in Amperes : ", I
INPUT "ENTER THE DISTANCE (Z) ALONG THE AXIS in Meters : ", Z
'Uo IS IN THE UNIT OF "GAUSS METER / AMPERE".
Uo = 12.57 * 10 ^ -3
B = (Uo * I * R ^ 2) / (2 * SQR((Z ^ 2 + R ^ 2) ^ 3))
PRINT PRINT " ggg mmmuuunnn" PRINT USING "FIELD (B) in Gauss IS : ###.#########"; B
EXXON: END
=============================================================
' PROGRAM : MAGFIELD.BAS ' BY : JENNIFER HO ' HIGHLAND TECNHOLOGY, INC. ' FEBRUARY 2, 1995
DEFDBL A-Z
CLS
PRINT "GIVEN A CIRCULAR LOOP OF RADIUS (R) CARRYING CURRENT (I)," PRINT "THIS PROGRAM CALCULATES THE MAGNETIC FIELD (B) AT ALL" PRINT "POINTS ON THE AXIS OF THIS LOOP, WHICH WE TAKE TO BE THE" PRINT "Z AXIS, WITH Z=0 AT THE LOOP CENTER." PRINT PRINT
INPUT "ENTER LOOP RADIUS (R) in Meters : ", R IF R = 0 THEN GOTO EXXON
INPUT "ENTER LOOP CURRENT (I) in Amperes : ", I
INPUT "ENTER THE DISTANCE (Z) ALONG THE AXIS in Meters : ", Z
'Uo IS IN THE UNIT OF "GAUSS METER / AMPERE".
Uo = 12.57 * 10 ^ -3
B = (Uo * I * R ^ 2) / (2 * SQR((Z ^ 2 + R ^ 2) ^ 3))
PRINT PRINT " ggg mmmuuunnn" PRINT USING "FIELD (B) in Gauss IS : ###.#########"; B
EXXON: END
====================================
John