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

Re: graphic

• To: mathgroup at smc.vnet.net
• Subject: [mg104518] Re: graphic
• From: Szabolcs Horvát <szhorvat at gmail.com>
• Date: Tue, 3 Nov 2009 02:52:03 -0500 (EST)
• References: <hcl3qc$btt$1@smc.vnet.net>

On 2009.11.01. 23:58, Nodar 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 ?

The simplest way would be to solve the F1(x,y)==0 equation.  Here's a 
hackish solution for the case when this is not possible:

Suppose F1(x,y) = x^2+y^2-2 and F2(x,y) = x^2

cp = ContourPlot[x^2 + y^2 - 2 == 0, {x, -2, 2}, {y, -2, 2}]

Graphics3D[
  Replace[First[cp],
   GraphicsComplex[points_, data_] :>
    GraphicsComplex[{#1, #2, #1^2} & @@@ points, data]]]


This will work in Mathematica 6 or later.

• Follow-Ups:
  • Re: Re: graphic
    • From: DrMajorBob <btreat1@austin.rr.com>