function y = batas_R(x)
R = x;
if R <= eps
    y = eps;
else
    y = R;
end