function [r_x,r_y,r_z] = get_xryrzr(r)

r_x=r(1);
r_y=r(2);
r_z=r(3);


end

