Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

ContourPlot3D Problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75171] ContourPlot3D Problem
  • From: dennis <dwangsness at earthlink.net>
  • Date: Thu, 19 Apr 2007 04:33:04 -0400 (EDT)

I am trying to plot a cone with a spherical cap.  The code I am using
is shown below.

=CE=B8 = 10.*Degree;
sMax = 10;
a = {1., 1., 1}/Sqrt[3.];
{x0, y0, z0} = sMax*(1 + Tan[=CE=B8]^2)*a;
rCirc = sMax*(Tan[=CE=B8]/Cos[=CE=B8]);
g1 = ContourPlot3D[
If[{x, y, z} . a <= sMax, {x, y, z} . a -
      Sqrt[x^2 + y^2 + z^2]*Cos[=CE=B8], (x - x0)^2 + (y - y0)^2 + (z -
z0)^2 -
      rCirc^2], {x, 0, 10}, {y, 0, 10}, {z, 0, 10}, PlotPoints -> {8,
6},
    ViewPoint -> {2.651, -2.103, -0.026}, PlotRange ->
     {{0, 12}, {0, 12}, {0, 10}}];

This produces the cone with a spherical cap, but it also produces a
plane perpendicular to the cone axis at the junction of the cone and
sphere.  How can I get the cone-sphere without the plane?

Thanks,
Dennis



  • Prev by Date: Re: neat way to program minimum of sum
  • Next by Date: Complex bessel function
  • Previous by thread: Re: Eliminate white border around DensityPlot?
  • Next by thread: Re: ContourPlot3D Problem