more Calculate Distance

R