Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "How do I merge 3D graphics?"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:5+1 =



Original Message (ID '498922') By Bill Simpson:
In[1]:= elips = ContourPlot3D[x^2 + 2 y^2 + 6 z^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -0.5, 0.5}]; pBeg = Graphics3D[{PointSize[.05], Point[{1, 2, 3}]}]; pMin = Graphics3D[{PointSize[.05], Point[{0.373, 0.459, 0.271}]}]; pMax = Graphics3D[{PointSize[.05], Point[{-.591, -.456, -.198}]}]; Show[pBeg, pMin, pMax, elips] Out[5]= ...PlotSnipped...