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. (~_~) **************************************************************