function [function_R] = Function_R(x)
R = 10;
function_R  = (sqrt(R.^2 - x.^2)) - x.*tan(x);
end