here the solution:
function f=Haaland(releps,Re)
if Re<=2300 %if Re <= 2300
f=64/Re;
else % if Re > 2300
answer=0.25/(log10(releps/3.7+5.74/Re^0.9))^2; %calculate f using Swamee..
f2=@(x) 1/sqrt(x)+2*log10(releps/3.7+2.51/(Re*sqrt(x))); %Funcion ColeBrook
f=fsolve(f2,answer); %solve function
end
end

