function y = R_x_func(t)
    global scatter_coef c;
    ti = t - (2/c) * r(t);
    y = scatter_coef * T_x_func(ti);
end