B: PointIn[Circle[(0, 0), 1]]
Then construct the approximate diameter. Note that the Intersect[ ] command has several forms and in the form used below, the third argument is the index of the intersection.