Timeline for Finding intersection points of two surfaces (lists)
Current License: CC BY-SA 3.0
12 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Jan 9, 2017 at 17:47 | vote | accept | ecco | ||
| Jan 9, 2017 at 17:47 | vote | accept | ecco | ||
| Jan 9, 2017 at 17:47 | |||||
| Jan 9, 2017 at 8:58 | comment | added | corey979 | ListPlot3D[Join[{x}, {y}], Axes -> True] gives the range {1, 11}; your plot is inconsistent with your description. | |
| Jan 8, 2017 at 23:34 | history | tweeted | twitter.com/StackMma/status/818239377054793729 | ||
| Jan 8, 2017 at 22:55 | answer | added | m_goldberg | timeline score: 2 | |
| Jan 8, 2017 at 22:02 | comment | added | Daniel Lichtblau | There are already good answers, but here is a way to get approximate common values. In[383]:= fullx = Flatten[MapIndexed[Flatten[{#2, #1}] &, x, {2}], 1]; fully = Flatten[MapIndexed[Flatten[{#2, #1}] &, y, {2}], 1]; nfx = Nearest[fullx]; nbrs = Map[{#, First[nfx[#]]} &, fully]; close = Select[nbrs, Norm[#[[1]] - #[[2]]] < 1/100 &][[All, 1]] Out[387]= {{1, 7, 0.619925}, {2, 7, 0.646621}, {3, 7, 0.66993}, {4, 7, 0.690421}, {5, 7, 0.708556}, {6, 7, 0.724707}, {7, 6, 0.767223}, {7, 7, 0.739173}, {8, 6, 0.778923}, {9, 6, 0.789472}, {10, 6, 0.799035}, {11, 6, 0.807745}} | |
| Jan 8, 2017 at 21:01 | answer | added | J. M.'s missing motivation | timeline score: 6 | |
| Jan 8, 2017 at 20:52 | history | edited | corey979 | CC BY-SA 3.0 | added 132 characters in body; edited tags |
| Jan 8, 2017 at 20:50 | answer | added | corey979 | timeline score: 5 | |
| Jan 8, 2017 at 19:20 | comment | added | ecco | Ye there are no point in common. I want the numerical intersection of the interpolated surfaces. I just want to see the values of k and l for each intersection point (x^*). A list of 3D points can be usefull I guess. | |
| Jan 8, 2017 at 19:00 | comment | added | corey979 | What is it that you really want? If you are talking about the 121 points in each x and y, then there are no points common for both: ContainsAny[Catenate@x, Catenate@y] yields False. I guess you'd want an Interpolation of the surfaces and their (numerical) intersection. But please explain in what form do you want it: a list of 3D points, a function that gives such point given one of the coordinates, an InterpolatingFunction describing the curve in 3D, an analytical approximation? | |
| Jan 8, 2017 at 15:53 | history | asked | ecco | CC BY-SA 3.0 |