%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  soldata.m - Input data for soldes.m, Also called by magckt2.m
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Units of input dimensions - 'MKS' or 'FPS' (British)
dim='FPS';
if dim=='MKS'; k=1; elseif dim=='FPS'; k=39.37; else; end
d=1.27; dc=1.50; db=2.70;    % Plunger dia, coil OD & ID
tb=0.030; lc=4.20;           % Bushing thick, cavity depth
N=2100; Bmax=1.90;           % Coil turns, plunger max B
d=d/k;dc=dc/k;db=db/k;tb=tb/k;lc=lc/k; % Dimensions now MKS
df=sqrt(d^2+db^2); le=d^2/(db+df); lf=lc+4*le; lp=lc/2;
% Areas & length of flux paths
l1=(lp+le)/2; A1=pi*d^2/4; l2=(db+df)/4; A2=pi*(db+df)/4*le;
l3=(lp+le)/2; A3=pi*(df^2-db^2)/4; l4=lc/2; A4=A3;
l5=lp/2; A5=pi*d^2/4; l6=(lp+3*le)/2; A6=A3;
l7=(db+df)/4-tb; A7=pi*(db+df)/4*3*le; l8=tb; A8=pi*(d+tb)*3*le;
l9=l6; A9=A1; A10=A1;