Mathematica 9 is now available
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

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



  • Prev by Date: Re: Assign delayed but fixed value
  • Next by Date: Re: equation solving
  • Previous by thread: ContourPlot3D Problem
  • Next by thread: Re: ContourPlot3D Problem