Re: How to plot Implicitly Defined Space Curves.
- To: mathgroup at smc.vnet.net
- Subject: [mg38569] Re: [mg38559] How to plot Implicitly Defined Space Curves.
- From: Jan Mangaldan <hokenjan at yahoo.com>
- Date: Fri, 27 Dec 2002 02:15:03 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Your solution will work for the case I gave, but what I need is a general solution.
For one thing, that strategy won't work for the curve defined as the intersection of x^3 +y^4 z^2 ==3 and 4 x y^2 -3x^3 +z^5 ==7.
Thanks for replying.
Jan M. (~_^)
Mihajlo Vanevic <mvane at EUnet.yu> wrote:
A possible solution is the following:
First make ImplicitPlot in order to get xy projection:
In:=
<< Graphics`ImplicitPlot`
In:=
xy = ImplicitPlot[x^2 + y^2 + Sin[x y]^2 == 1, {x, -1, 1}, {y, -1, 1}]
then form {x,y,z} list from the {x,y} points produced by ImplicitPlot
In:=
xyz = (Graphics[xy] /.
List[a_ /; NumberQ[a], b_ /; NumberQ[b]] :>
List[a, b, Sin[a b]])[[1]];
In:=
Show@Graphics3D[xyz]
Regards,
Mihajlo Vanevic
mvane at EUnet.yu
2002-12-26
**************************************************************
* At 2002-12-26, 04:34:00
* Jan Mangaldan, hokenjan at yahoo.com wrote:
**************************************************************
>I want to ask if anyone has tried to write a function that can plot, say, a space curve defined as the intersection of the surfaces x^2 +y^2 +z^2 == 1 and z == Sin[x y].
>
>If not, how can I do it? I'd appreciate any feedback on this.
>
> Jan M. (~_~)
**************************************************************