MathGroup Archive 2010

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

Search the Archive

Re: intersecting surfaces

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107205] Re: intersecting surfaces
  • From: Bill <WDWNORWALK at aol.com>
  • Date: Fri, 5 Feb 2010 03:24:19 -0500 (EST)

Hi Eric:

This isn't exactly what you asked for, but perhaps it will suffice...

Solve[{((x - 1)^2 + (y)^2) Cos[Pi/4]^2 - ((z) Sin[Pi/4])^2 == 0, 
    0 == (x^2 + y^2) Cos[Pi/6]^2 - (z Sin[Pi/6])^2}, {x, z}] // N;
Flatten[{{x, y, z}} /. {%[[1]], %[[2]], %[[3]], %[[4]]}];
curves = ParametricPlot3D[{Out[2]}, {y, -Pi, Pi}, PlotRange -> All, 
   PlotStyle -> {Magenta, Thickness[.01]}];
cones = ContourPlot3D[{((x - 1)^2 + (y)^2) Cos[
         Pi/4]^2 - ((z) Sin[Pi/4])^2 == 0, 
    0 == (x^2 + y^2) Cos[Pi/6]^2 - (z Sin[Pi/6])^2}, {x, -5, 6}, {y, -5,
     5}, {z, -5, 5}, Mesh -> False, ImageSize -> 600];
Show[cones, curves]



Hth,

Bill


(Mathematica 6.0.1, Win XP on a pc.)


  • Prev by Date: Re: Complex conjugate differentiation
  • Next by Date: Re: DeleteDuplicates is too slow?
  • Previous by thread: intersecting surfaces
  • Next by thread: Re: intersecting surfaces