Re: Putting Points and Lines into RegionPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg122630] Re: Putting Points and Lines into RegionPlot3D
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Fri, 4 Nov 2011 05:58:58 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Hi,
Try this:
origin = {0, 0, 0};
pBox = 1.5;
sph = RegionPlot3D[
x^2 + y^2 + z^2 <= 1, {x, -pBox, pBox}, {y, -pBox,
pBox}, {z, -pBox, pBox},
PlotStyle -> Directive[Yellow, Opacity[0.2]], Mesh -> None];
ln = Graphics3D[Line[{origin, {0, 1, 0}}]];
Show[{sph, ln}]
Hope it helps,
Have fun, Alexei
Hello,
How can one put points and lines into a 3D plot?
Here is my non-working code for having a unit sphere with a line inside of
it going from the origin to 1 on the x-axis.
origin = {0, 0, 0};
pBox = 1.5;
RegionPlot3D[
x^2 + y^2 + z^2 <= 1, {x, -pBox, pBox}, {y, -pBox, pBox}, {z, -pBox,
pBox}, PlotStyle -> Directive[Yellow, Opacity[0.2]], Mesh -> None,
Epilog -> {Line[{origin, {0, 1, 0}}]}]
Epilog seems to expect only 2D graphics object, which makes me think its
not the right option to use. But what option would I use? Is there an
available option? Plot3D has the same problem.
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu<mailto:alexei.boulbitch at iee.lu>