Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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



  • Prev by Date: Re: Problem Replacing part of NonCommutativeMultiply expresions
  • Next by Date: Re: Problem Replacing part of NonCommutativeMultiply expresions
  • Previous by thread: graphic
  • Next by thread: Re: graphic