Skip to main content
edited tags
Link
edited title
Link

How to solve for the intescetionintersection points of two ellipseellipses?

deleted 48 characters in body; edited tags
Source Link
xyz
  • 685
  • 4
  • 40
  • 118

Thanks for J.M's suggestions, with the help of FindIntersectionsGraphics`Mesh`FindIntersections

newSolution[mat1_, mat2_] := Module[{graph, pts}, graph = ParametricPlot[ {mat1.{Sin[θ], Cos[θ]]Cos[θ], 1}, mat2.{Sin[θ], Cos[θ], 1}}, {θ, 0, 2 Pi}]; pts = FindIntersections[First[graph]]; ParametricPlot[ ,Epilog -> {mat1.Point[{Sin[θ], Cos[θ].1, 1.2},]}]; pts = mat2.{Sin[θ],Graphics`Mesh`FindIntersections[First[graph]];  Cos[θ], 1}},graph {θ,/.  0, 2 Pi}, (Epilog -> _) -> Epilog -> {Red, PointSize[Medium], Point[pts]}] ] 

Thanks for J.M's suggestions, with the help of FindIntersections

newSolution[mat1_, mat2_] := Module[{graph, pts}, graph = ParametricPlot[ {mat1.{Sin[θ], Cos[θ]], 1}, mat2.{Sin[θ], Cos[θ], 1}}, {θ, 0, 2 Pi}]; pts = FindIntersections[First[graph]]; ParametricPlot[  {mat1.{Sin[θ], Cos[θ], 1}, mat2.{Sin[θ], Cos[θ], 1}}, {θ, 0, 2 Pi},  Epilog -> {Red, PointSize[Medium], Point[pts]}] ] 

Thanks for J.M's suggestions, with the help of Graphics`Mesh`FindIntersections

newSolution[mat1_, mat2_] := Module[{graph, pts}, graph = ParametricPlot[ {mat1.{Sin[θ], Cos[θ], 1}, mat2.{Sin[θ], Cos[θ], 1}}, {θ, 0, 2 Pi},Epilog -> {Point[{.1, .2}]}]; pts = Graphics`Mesh`FindIntersections[First[graph]];  graph /.  (Epilog -> _) -> Epilog -> {Red, PointSize[Medium], Point[pts]} ] 
added 1176 characters in body
Source Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
Tweeted twitter.com/#!/StackMma/status/614142462035120129
added 1 character in body
Source Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
edited title
Source Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
edited title
Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
edited title
Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
added 20 characters in body
Source Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading
Source Link
xyz
  • 685
  • 4
  • 40
  • 118
Loading