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>

```

• Prev by Date: Re: Footnotes, Endnotes in Mathematica
• Next by Date: Re: Putting Points and Lines into RegionPlot3D
• Previous by thread: Re: Putting Points and Lines into RegionPlot3D
• Next by thread: Re: Putting Points and Lines into RegionPlot3D