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