Re: ContourPlot3D Problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg75213] Re: ContourPlot3D Problem*From*: dimitris <dimmechan at yahoo.com>*Date*: Fri, 20 Apr 2007 00:45:41 -0400 (EDT)*References*: <f079vc$4a0$1@smc.vnet.net>

Could you repost your Mathematica code again? Quite unreadable form! This time select the cells (both inputs & outputs) and press Shif+Ctrl+I in order to convert everything to InputForm. Then select the "Copy as Plain Text". Also avoid the use of special characters like greek letters when you post to the forum. Dimitris =CF/=C7 dennis =DD=E3=F1=E1=F8=E5: > 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