function [ OK ] = Appartient( X1,Y1,X2,Y2,R )
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here
OK = 0;

if (Distance(X1,Y1,X2,Y2) <= R)
    OK=1;
end

end