Message Boards Message Boards

GROUPS:

Intersection points of two planes?

Posted 8 days ago
162 Views
|
4 Replies
|
3 Total Likes
|

I am trying to get intersecting points of the two planes. How can I obtain it? enter image description here

4 Replies

You need to plot the intersection? You can try with MeshFunctions and Mesh:

f1[x_, y_] := x + y;
f2[x_, y_] := x^2 + y^2;
Show[Plot3D[f1[x, y], {x, -1, 1}, {y, -1, 1}, 
  MeshFunctions -> {f2[#1, #2] - f1[#1, #2] &}, Mesh -> {{0}}, 
  MeshStyle -> Thick],
 Plot3D[x^2 + y^2, {x, -1, 1}, {y, -1, 1}, Mesh -> None]]

Thanks. I want to get the data points as well. How can I obtain it?

Here is a way:

f1[x_, y_] := x + y;
f2[x_, y_] := x^2 + y^2;
pl = Show[
  Plot3D[f1[x, y], {x, -1, 1}, {y, -1, 1}, 
   MeshFunctions -> {f2[#1, #2] - f1[#1, #2] &}, Mesh -> {{0}}, 
   MeshStyle -> Thick, BoundaryStyle -> None], 
  Plot3D[x^2 + y^2, {x, -1, 1}, {y, -1, 1}, Mesh -> None, 
   BoundaryStyle -> None]]
grCmplx = Normal@Cases[pl, _GraphicsComplex, All];
Cases[grCmplx, _Line, All]

But you may rather try Solve.

Got it. Thanks a lot

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract