       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}} /. {%[], %[], %[], %[]}];
curves = ParametricPlot3D[{Out}, {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