% find HPBW using minimum function
clear
% finds the minimum of |AF-0.707| between tmin and tmax
tmin=42;
tmax=45;
thp=fminbnd(@ArrayFactor,tmin,tmax)
