Consider the plane $N: x+y+z-3 q=0$ where $q$ is fixed and the sphere $S: (x-q)^2+(y-q)^2+(z-q)^2=r$ where $r$ is fixed.
I would like to make a 3D plot of $N$ and of $S\cap N$.
Here is my command using the BoundaryStyle
option. However the intersection is poorly represented. I tried to increase to value of
PlotPoints
but i didn't improve the representation. Any thoughts ?
q = 1/(1+2+1/2)
rN = 0.01
eqS = (x-q)^2+(q-q)^2+(z-q)^2
eqNcar = x+y+z-3 q
p = ContourPlot3D[{(eqNcar)==0,eqS==rN},\
{x,-3,3},{y,-3,3},{z,-3,3},\
Mesh->None,ContourStyle->{Automatic,None},\
PlotPoints->100,\
PlotRange->{{q-0.2,q+0.2},{q-0.2,q+0.2},{q-0.2,q+0.2}},\
BoundaryStyle->{{1,2}->{Black,Thick}}]