% This file calculates parameters for an LBL style coil.
% Zachary Wolf
% 11/9/00

% Coil parameters
r1 = .02697;
r2 = .015145;
r3 = .02026;
r4 = .008495;
Nm = 150;
Nb = 300;

% Main coil sensitivity factors
n = 1:1:18;
Sm = 1 - (-r3/r1).^n;

% Main + bucking coil sensitivity factors
Sb = 1 - (-r3/r1).^n - (Nb/Nm)*(r2/r1).^n + (Nb/Nm)*(-r4/r1).^n;

% Display the results
fprintf('\n\n')
fprintf('  n        Sm          Sb    \n')
fprintf('-----  ----------  ----------\n')
for nn = n
   fprintf('%5i  %10.7f  %10.7f\n', nn, Sm(nn), Sb(nn))
end

% Coil constant (main coil, r0 = r1)
K = 2 * (Nm * r1 * Sm(2))^-1 / r1;

% Display the result
fprintf('\nMain coil constant (r0 = r1), K = %f T/Vs\n', K)