shavd - Haversine hav(x)

function shavd (x) 
function shavdf(x)

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