schav - Complex Haversine hav(x)

function schav (x) 
function schavf(x)

Given a value $x$ this function computes the haversine of $x$ , $hav(x)$ .