function d = rtod(r)



d = 180/pi*r;