Extracting points from 3D plot that lie along an arbitrarily oriented lineHow to properly project a Graphics object consisting of line primitivesMapping Contour Plot onto ListPlot3D (or by using color variations)Region projection of multivariable interpolated functionParticle moving on curve which is the intersection of a surface and a planeRendering ListPlot3D SurfaceAnimate a circle “rolling” along a complicated 3D curveListPlot with a histogram of values on the vertical axisFinding optimal points in contours produced by ListContourPlotFinding average of attributed linesListPlot3D label is covered by surface in combined graphic
What does the phrase "head down the rat's hole" mean here?
Addressing unnecessary daily meetings with manager?
Why does wrapping aluminium foil around my food help it keep warm, even though aluminium is a good conductor?
Is there any reason why MCU changed the Snap to Blip
Why doesn't sea level show seasonality?
What's the point of having a RAID 1 configuration over incremental backups to a secondary drive?
Adding labels to a matrix
Why return a static pointer instead of an out parameter?
How can I get a player to accept that they should stop trying to pull stunts without thinking them through first?
What is this little owl-like bird?
Terry Pratchett book with a lawyer dragon and sheep
Is "I do not want you to go nowhere" a case of "DOUBLE-NEGATIVES" as claimed by Grammarly?
Is a request to book a business flight ticket for a graduate student an unreasonable one?
Why would non-kinetic weapons be used for orbital bombardment?
This one's for Matthew:
Has anyone in space seen or photographed a simple laser pointer from Earth?
Integer Lists of Noah
RPI3B+: What are the four components below the HDMI connector called?
How do you move up one folder in Finder?
What happens to unproductive professors?
How are mathematicians paid to do research?
How would vampires avoid contracting diseases?
Indesign - how to change the style of the page numbers?
How to deal with moral/legal subjects in writing?
Extracting points from 3D plot that lie along an arbitrarily oriented line
How to properly project a Graphics object consisting of line primitivesMapping Contour Plot onto ListPlot3D (or by using color variations)Region projection of multivariable interpolated functionParticle moving on curve which is the intersection of a surface and a planeRendering ListPlot3D SurfaceAnimate a circle “rolling” along a complicated 3D curveListPlot with a histogram of values on the vertical axisFinding optimal points in contours produced by ListContourPlotFinding average of attributed linesListPlot3D label is covered by surface in combined graphic
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;
$begingroup$
Starting from i.e. the following 3d plot:
d = RandomReal[1, 100, 3];
ListPlot3D[d]
Is it possible to extract points that lay along an arbitrarily oriented line, i.e. like this:
Show[ListPlot3D[d], Graphics3D[Line[0, -.5, 1, 0.5, 1, 1]]]
?
EDIT: Z values of the plot along the line projected onto the x-y plane
plotting list-manipulation graphics3d mesh
$endgroup$
add a comment |
$begingroup$
Starting from i.e. the following 3d plot:
d = RandomReal[1, 100, 3];
ListPlot3D[d]
Is it possible to extract points that lay along an arbitrarily oriented line, i.e. like this:
Show[ListPlot3D[d], Graphics3D[Line[0, -.5, 1, 0.5, 1, 1]]]
?
EDIT: Z values of the plot along the line projected onto the x-y plane
plotting list-manipulation graphics3d mesh
$endgroup$
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago
add a comment |
$begingroup$
Starting from i.e. the following 3d plot:
d = RandomReal[1, 100, 3];
ListPlot3D[d]
Is it possible to extract points that lay along an arbitrarily oriented line, i.e. like this:
Show[ListPlot3D[d], Graphics3D[Line[0, -.5, 1, 0.5, 1, 1]]]
?
EDIT: Z values of the plot along the line projected onto the x-y plane
plotting list-manipulation graphics3d mesh
$endgroup$
Starting from i.e. the following 3d plot:
d = RandomReal[1, 100, 3];
ListPlot3D[d]
Is it possible to extract points that lay along an arbitrarily oriented line, i.e. like this:
Show[ListPlot3D[d], Graphics3D[Line[0, -.5, 1, 0.5, 1, 1]]]
?
EDIT: Z values of the plot along the line projected onto the x-y plane
plotting list-manipulation graphics3d mesh
plotting list-manipulation graphics3d mesh
edited 8 hours ago


MelaGo
2,0161 gold badge1 silver badge7 bronze badges
2,0161 gold badge1 silver badge7 bronze badges
asked 9 hours ago
ATomekATomek
1098 bronze badges
1098 bronze badges
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago
add a comment |
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago
add a comment |
2 Answers
2
active
oldest
votes
$begingroup$
SeedRandom[5]
d = RandomReal[1, 100, 3];
You can use -.5 + 3 # - #2 &
(or Function[x, y, -.5 + 3 x - y]
) as the setting for MeshFunctions
in ListPlot3D
:
Show[lp3d = ListPlot3D[d, MeshFunctions -> -.5 + 3 # - #2 &,
Mesh -> 0, MeshStyle -> Directive[Red, Thick], BoundaryStyle -> None],
Graphics3D[Thick , Blue, Line[0, -.5, 1, 0.5, 1, 1],
Opacity[.5, Yellow], EdgeForm @ None,
InfinitePlane[0, -.5, 0, 0, -.5, 1, 0.5, 1, 1]]]
To extract the points on the red line:
Cases[Normal @ lp3d, Line[x_] :> x, All][[1]]
0.492655, 0.977959, 0.559503, 0.491386, 0.973947,
0.484116, 0.477966, 0.933211, 0.303948, 0.476062, 0.92816,
0.451244, 0.459746, 0.878862, 0.640324, 0.457492,
0.872273,
0.586974, 0.454029, 0.861943, 0.568448, 0.441994,
0.825895,
0.39336, 0.396855, 0.690417, 0.20754, 0.395551, 0.686462,
0.255852, 0.392548, 0.677572, 0.17963, 0.350269, 0.550753,
0.612022, 0.341512, 0.524435, 0.760695, 0.313441,
0.440292,
0.52727, 0.304016, 0.411343, 0.164743, 0.300216, 0.400556,
0.123016, 0.293312, 0.379549, 0.431375, 0.279583, 0.33874,
0.571648, 0.267421, 0.302245, 0.850239, 0.266698,
0.299818,
0.85685, 0.226072, 0.177329, 0.737677, 0.217928, 0.152775,
0.650557, 0.192837, 0.0784445, 0.831587, 0.187349,
0.0619587,
0.854096, 0.174868, 0.024533, 0.602241
$endgroup$
add a comment |
$begingroup$
You can use the interpolation that ListPlot
uses, which you can then evaluate at any point on the line (within the domain of the interpolation):
zFN = Interpolation[d, InterpolationOrder -> 1,
"ExtrapolationHandler" -> Indeterminate &, "WarningMessage" -> False];
ClearAll[xyline, zSect];
xyline[x_] = (1 - 2 x), 2 x.0, -.5, 0.5, 1;
zSect[x_] := zFN @@ xyline[x];
zSect[0.25] (* test a value *)
(* 0.654833 *)
Show[
ListPlot3D[d],
ParametricPlot3D[Append[xyline[x], zSect[x]], x, 0, 1]
]
$endgroup$
add a comment |
Your Answer
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f201815%2fextracting-points-from-3d-plot-that-lie-along-an-arbitrarily-oriented-line%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
SeedRandom[5]
d = RandomReal[1, 100, 3];
You can use -.5 + 3 # - #2 &
(or Function[x, y, -.5 + 3 x - y]
) as the setting for MeshFunctions
in ListPlot3D
:
Show[lp3d = ListPlot3D[d, MeshFunctions -> -.5 + 3 # - #2 &,
Mesh -> 0, MeshStyle -> Directive[Red, Thick], BoundaryStyle -> None],
Graphics3D[Thick , Blue, Line[0, -.5, 1, 0.5, 1, 1],
Opacity[.5, Yellow], EdgeForm @ None,
InfinitePlane[0, -.5, 0, 0, -.5, 1, 0.5, 1, 1]]]
To extract the points on the red line:
Cases[Normal @ lp3d, Line[x_] :> x, All][[1]]
0.492655, 0.977959, 0.559503, 0.491386, 0.973947,
0.484116, 0.477966, 0.933211, 0.303948, 0.476062, 0.92816,
0.451244, 0.459746, 0.878862, 0.640324, 0.457492,
0.872273,
0.586974, 0.454029, 0.861943, 0.568448, 0.441994,
0.825895,
0.39336, 0.396855, 0.690417, 0.20754, 0.395551, 0.686462,
0.255852, 0.392548, 0.677572, 0.17963, 0.350269, 0.550753,
0.612022, 0.341512, 0.524435, 0.760695, 0.313441,
0.440292,
0.52727, 0.304016, 0.411343, 0.164743, 0.300216, 0.400556,
0.123016, 0.293312, 0.379549, 0.431375, 0.279583, 0.33874,
0.571648, 0.267421, 0.302245, 0.850239, 0.266698,
0.299818,
0.85685, 0.226072, 0.177329, 0.737677, 0.217928, 0.152775,
0.650557, 0.192837, 0.0784445, 0.831587, 0.187349,
0.0619587,
0.854096, 0.174868, 0.024533, 0.602241
$endgroup$
add a comment |
$begingroup$
SeedRandom[5]
d = RandomReal[1, 100, 3];
You can use -.5 + 3 # - #2 &
(or Function[x, y, -.5 + 3 x - y]
) as the setting for MeshFunctions
in ListPlot3D
:
Show[lp3d = ListPlot3D[d, MeshFunctions -> -.5 + 3 # - #2 &,
Mesh -> 0, MeshStyle -> Directive[Red, Thick], BoundaryStyle -> None],
Graphics3D[Thick , Blue, Line[0, -.5, 1, 0.5, 1, 1],
Opacity[.5, Yellow], EdgeForm @ None,
InfinitePlane[0, -.5, 0, 0, -.5, 1, 0.5, 1, 1]]]
To extract the points on the red line:
Cases[Normal @ lp3d, Line[x_] :> x, All][[1]]
0.492655, 0.977959, 0.559503, 0.491386, 0.973947,
0.484116, 0.477966, 0.933211, 0.303948, 0.476062, 0.92816,
0.451244, 0.459746, 0.878862, 0.640324, 0.457492,
0.872273,
0.586974, 0.454029, 0.861943, 0.568448, 0.441994,
0.825895,
0.39336, 0.396855, 0.690417, 0.20754, 0.395551, 0.686462,
0.255852, 0.392548, 0.677572, 0.17963, 0.350269, 0.550753,
0.612022, 0.341512, 0.524435, 0.760695, 0.313441,
0.440292,
0.52727, 0.304016, 0.411343, 0.164743, 0.300216, 0.400556,
0.123016, 0.293312, 0.379549, 0.431375, 0.279583, 0.33874,
0.571648, 0.267421, 0.302245, 0.850239, 0.266698,
0.299818,
0.85685, 0.226072, 0.177329, 0.737677, 0.217928, 0.152775,
0.650557, 0.192837, 0.0784445, 0.831587, 0.187349,
0.0619587,
0.854096, 0.174868, 0.024533, 0.602241
$endgroup$
add a comment |
$begingroup$
SeedRandom[5]
d = RandomReal[1, 100, 3];
You can use -.5 + 3 # - #2 &
(or Function[x, y, -.5 + 3 x - y]
) as the setting for MeshFunctions
in ListPlot3D
:
Show[lp3d = ListPlot3D[d, MeshFunctions -> -.5 + 3 # - #2 &,
Mesh -> 0, MeshStyle -> Directive[Red, Thick], BoundaryStyle -> None],
Graphics3D[Thick , Blue, Line[0, -.5, 1, 0.5, 1, 1],
Opacity[.5, Yellow], EdgeForm @ None,
InfinitePlane[0, -.5, 0, 0, -.5, 1, 0.5, 1, 1]]]
To extract the points on the red line:
Cases[Normal @ lp3d, Line[x_] :> x, All][[1]]
0.492655, 0.977959, 0.559503, 0.491386, 0.973947,
0.484116, 0.477966, 0.933211, 0.303948, 0.476062, 0.92816,
0.451244, 0.459746, 0.878862, 0.640324, 0.457492,
0.872273,
0.586974, 0.454029, 0.861943, 0.568448, 0.441994,
0.825895,
0.39336, 0.396855, 0.690417, 0.20754, 0.395551, 0.686462,
0.255852, 0.392548, 0.677572, 0.17963, 0.350269, 0.550753,
0.612022, 0.341512, 0.524435, 0.760695, 0.313441,
0.440292,
0.52727, 0.304016, 0.411343, 0.164743, 0.300216, 0.400556,
0.123016, 0.293312, 0.379549, 0.431375, 0.279583, 0.33874,
0.571648, 0.267421, 0.302245, 0.850239, 0.266698,
0.299818,
0.85685, 0.226072, 0.177329, 0.737677, 0.217928, 0.152775,
0.650557, 0.192837, 0.0784445, 0.831587, 0.187349,
0.0619587,
0.854096, 0.174868, 0.024533, 0.602241
$endgroup$
SeedRandom[5]
d = RandomReal[1, 100, 3];
You can use -.5 + 3 # - #2 &
(or Function[x, y, -.5 + 3 x - y]
) as the setting for MeshFunctions
in ListPlot3D
:
Show[lp3d = ListPlot3D[d, MeshFunctions -> -.5 + 3 # - #2 &,
Mesh -> 0, MeshStyle -> Directive[Red, Thick], BoundaryStyle -> None],
Graphics3D[Thick , Blue, Line[0, -.5, 1, 0.5, 1, 1],
Opacity[.5, Yellow], EdgeForm @ None,
InfinitePlane[0, -.5, 0, 0, -.5, 1, 0.5, 1, 1]]]
To extract the points on the red line:
Cases[Normal @ lp3d, Line[x_] :> x, All][[1]]
0.492655, 0.977959, 0.559503, 0.491386, 0.973947,
0.484116, 0.477966, 0.933211, 0.303948, 0.476062, 0.92816,
0.451244, 0.459746, 0.878862, 0.640324, 0.457492,
0.872273,
0.586974, 0.454029, 0.861943, 0.568448, 0.441994,
0.825895,
0.39336, 0.396855, 0.690417, 0.20754, 0.395551, 0.686462,
0.255852, 0.392548, 0.677572, 0.17963, 0.350269, 0.550753,
0.612022, 0.341512, 0.524435, 0.760695, 0.313441,
0.440292,
0.52727, 0.304016, 0.411343, 0.164743, 0.300216, 0.400556,
0.123016, 0.293312, 0.379549, 0.431375, 0.279583, 0.33874,
0.571648, 0.267421, 0.302245, 0.850239, 0.266698,
0.299818,
0.85685, 0.226072, 0.177329, 0.737677, 0.217928, 0.152775,
0.650557, 0.192837, 0.0784445, 0.831587, 0.187349,
0.0619587,
0.854096, 0.174868, 0.024533, 0.602241
edited 8 hours ago
answered 8 hours ago
kglrkglr
204k10 gold badges233 silver badges463 bronze badges
204k10 gold badges233 silver badges463 bronze badges
add a comment |
add a comment |
$begingroup$
You can use the interpolation that ListPlot
uses, which you can then evaluate at any point on the line (within the domain of the interpolation):
zFN = Interpolation[d, InterpolationOrder -> 1,
"ExtrapolationHandler" -> Indeterminate &, "WarningMessage" -> False];
ClearAll[xyline, zSect];
xyline[x_] = (1 - 2 x), 2 x.0, -.5, 0.5, 1;
zSect[x_] := zFN @@ xyline[x];
zSect[0.25] (* test a value *)
(* 0.654833 *)
Show[
ListPlot3D[d],
ParametricPlot3D[Append[xyline[x], zSect[x]], x, 0, 1]
]
$endgroup$
add a comment |
$begingroup$
You can use the interpolation that ListPlot
uses, which you can then evaluate at any point on the line (within the domain of the interpolation):
zFN = Interpolation[d, InterpolationOrder -> 1,
"ExtrapolationHandler" -> Indeterminate &, "WarningMessage" -> False];
ClearAll[xyline, zSect];
xyline[x_] = (1 - 2 x), 2 x.0, -.5, 0.5, 1;
zSect[x_] := zFN @@ xyline[x];
zSect[0.25] (* test a value *)
(* 0.654833 *)
Show[
ListPlot3D[d],
ParametricPlot3D[Append[xyline[x], zSect[x]], x, 0, 1]
]
$endgroup$
add a comment |
$begingroup$
You can use the interpolation that ListPlot
uses, which you can then evaluate at any point on the line (within the domain of the interpolation):
zFN = Interpolation[d, InterpolationOrder -> 1,
"ExtrapolationHandler" -> Indeterminate &, "WarningMessage" -> False];
ClearAll[xyline, zSect];
xyline[x_] = (1 - 2 x), 2 x.0, -.5, 0.5, 1;
zSect[x_] := zFN @@ xyline[x];
zSect[0.25] (* test a value *)
(* 0.654833 *)
Show[
ListPlot3D[d],
ParametricPlot3D[Append[xyline[x], zSect[x]], x, 0, 1]
]
$endgroup$
You can use the interpolation that ListPlot
uses, which you can then evaluate at any point on the line (within the domain of the interpolation):
zFN = Interpolation[d, InterpolationOrder -> 1,
"ExtrapolationHandler" -> Indeterminate &, "WarningMessage" -> False];
ClearAll[xyline, zSect];
xyline[x_] = (1 - 2 x), 2 x.0, -.5, 0.5, 1;
zSect[x_] := zFN @@ xyline[x];
zSect[0.25] (* test a value *)
(* 0.654833 *)
Show[
ListPlot3D[d],
ParametricPlot3D[Append[xyline[x], zSect[x]], x, 0, 1]
]
answered 1 hour ago
Michael E2Michael E2
155k12 gold badges213 silver badges502 bronze badges
155k12 gold badges213 silver badges502 bronze badges
add a comment |
add a comment |
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f201815%2fextracting-points-from-3d-plot-that-lie-along-an-arbitrarily-oriented-line%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
$begingroup$
Can you clarify a little, are you looking for the points that exactly intersect that line, or the z values of the plot along the line projected onto the x-y plane?
$endgroup$
– N.J.Evans
8 hours ago
$begingroup$
z values of the plot along the line projected onto the x-y plane
$endgroup$
– ATomek
8 hours ago