Re: graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg104545] Re: [mg104501] graphic
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Tue, 3 Nov 2009 02:57:12 -0500 (EST)
- Reply-to: hanlonr at cox.net
f1[x_, y_] = Cos[x] + Cos[y];
cp = ContourPlot[f1[x, y] == 0,
{x, -Pi, Pi}, {y, -Pi, Pi}]
pts = Cases[cp, {_?NumericQ, _?NumericQ}, 3];
f2[x_, y_] = 3*x*Cos[y] + 2 y;
pts3D = {Sequence @@ ##, f2 @@ ##} & /@ pts;
Show[
ListPointPlot3D[pts3D,
Filling -> 0],
Graphics3D[Line[pts3D]]]
Bob Hanlon
---- Nodar <shubi at nusun.jinr.ru> wrote:
=============
Dear All,
May I build 3D curve graphic z=F2(x,y), where x and y are the
solutions of equation F1(x,y)==0 ?
May I receive list of points from a "ImplicitPlot" graphic ?
Best regards
Nodar Shubitidze