Wolfram Cloud Document

crcChord5[{h_,k_},r_,line_]:=EvaluateReplaceRepeatedRegionPlotImplicitRegion[line,{x,y}],PlotRange->

h-2r

h+2r

,

k-2r

k+2r

,Epilog->Circle

h

k

,r,Red,PointSize@Large,Point

x

y

/.#&/@Solveline,

x

y

∈Circle

h

k

,r,

a_

b_

{a,b}

ImplicitRegion

:line should be a Boolean combination of equations, inequalities and Element statements.

RegionPlot

:RegionPlot called with 1 argument; 3 arguments are expected.

RegionPlot

:RegionPlot called with 1 argument; 3 arguments are expected.

In[]:=

crcChord4[{1,2},3,y-x+1==0]

Out[]=