function lbi = lbi(i, phi, p, AF, m)
%lbi(i, phi, p, AF, m)	Intermediate value in the calculation of the Linespread 
% function.
%

switch i
	
	case{1}
		Bi = B1calc(p, AF);
	case{2}
		Bi = B2calc(p, AF);
	case{3}
		Bi = B3calc(AF, m);
	case{4}
		Bi = 1;
end

lbi = (Bi / (pi * ((sin(phi)^2) + ((Bi^2) * ((cos(phi))^2)))));