Received: by 10.68.213.106 with SMTP id nr10mr15549439pbc.2.1335775690624;
        Mon, 30 Apr 2012 01:48:10 -0700 (PDT)
MIME-Version: 1.0
Path: r9ni115159pbh.0!nntp.google.com!news1.google.com!news2.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx01.iad01.newshosting.com!newshosting.com!newspump.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail
From: Andrzej Kozlowski <akozlow...@gmail.com>
Newsgroups: comp.soft-sys.math.mathematica
Subject: Re: Getting only 1 of 3 curves of intersection
Date: Mon, 30 Apr 2012 08:45:15 +0000 (UTC)
Organization: Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Sender: st...@smc.vnet.net
Approved: Steven M. Christensen <st...@smc.vnet.net>, Moderator
Message-ID: <jnljer$n66$1@smc.vnet.net>
References: <201204290609.CAA10817@smc.vnet.net>
Lines: 44
NNTP-Posting-Date: 30 Apr 2012 08:48:09 GMT
NNTP-Posting-Host: 3e6cc330.news.twtelecom.net
X-Trace: DXC==BjN@BKZKRNP;Ll>D9?]MBC_A=>8kQj6M2f3;U>_ojiIYRcTJ8786RMEFiONJ7[GoFH@BIH1d9H@A
X-Complaints-To: abuse@twtelecom.net
X-Received-Bytes: 2257

Try this:

g1 = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}, PlotStyle -> None,
  MeshStyle -> Red, Axes -> True, AxesLabel -> {"x", "y", "z"}];
g2 = Plot3D[Cos[x*y], {x, 0, Pi}, {y, 0, Pi}, Mesh -> None,
  PlotStyle -> {Cyan, Opacity[.8]}];
sols1 = w /. Solve[Sin[w] == Cos[w] && 0 < w < Pi^2, w, Reals] // N;
sols2 = Flatten[Solve[{z == Sin[#], x y == #}, {y, z}] & /@ sols1,
  1];
g3 = ParametricPlot3D[{x, y, z} /. sols2, {x, 0, Pi},
  PlotStyle -> {Magenta, Thickness[.007]}];
Show[g1, g2, g3, Background -> LightYellow, ImageSize -> 500]

Andrzej Kozlowski


On 29 Apr 2012, at 08:09, Bill wrote:

> Hi:
>
> Consider the following plot:
>
> 
g1=Plot3D[Sin[x*y],{x,0,Pi},{y,0,Pi},PlotStyle->None,MeshStyle->Red,Axes->True,AxesLabel->{"x","y","z"}];
> 
g2=Plot3D[Cos[x*y],{x,0,Pi},{y,0,Pi},Mesh->None,PlotStyle->{Cyan,Opacity[.8]}];
> nsSol=NSolve[{z-Sin[x*y],z-Cos[x*y]},{y,z}];//Quiet
> 
g3=ParametricPlot3D[{x,y,z}/.nsSol[[2]],{x,0,Pi},PlotStyle->{Magenta,Thickness[.007]}];
> Show[g1,g2,g3,Background->LightYellow,ImageSize->500]
>
> Using the above Mathematica 8.0.4 code, I can plot one curve of intersection shown in magenta.
> Within the plotted area, I can see 2 more places where intersection curves should be. 
> I've tried using Reduce in place of NSolve, but can't get it to work.
>
> Question: If this can be done, can someone please give me the code?
>
>
> Thanks,
>
> Bill
>