Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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