       Re: Slicing a surface

• To: mathgroup at smc.vnet.net
• Subject: [mg97386] Re: Slicing a surface
• From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
• Date: Thu, 12 Mar 2009 02:19:23 -0500 (EST)
• References: <gp7vrq\$1c7\$1@smc.vnet.net>

```Perhaps you could use Solve. Example:

some x[s,t],y[s,t],z[s,t] functions as you described:

p1 = ParametricPlot3D[{s + t^2, 3 s t,  t - s }, {s, -1, 1}, {t, -1,
1}]

finding a solution for a fixed z:

In:= Assuming[ {x \[Element] Reals, y \[Element] Reals,
z \[Element] Reals},
Solve[{x == s + t^2, y == 3 s t, z == t - s, z == 0}, {x},=
{s, t}]]

Out= {{x -> 1/3 (-Sqrt Sqrt[y] + y)}, {x ->
1/3 (Sqrt Sqrt[y] + y)}}

Plot the contour together with the surface:

p2 = ParametricPlot3D[{1/3 (-Sqrt Sqrt[y] + y), y, 0}, {y, -3, 3},
PlotStyle -> Red];
p3 = ParametricPlot3D[{1/3 (Sqrt Sqrt[y] + y), y, 0}, {y, -3, 3},
PlotStyle -> Red]
Show[{p3, p2, p1}, PlotRange -> All]

and now in 2D:

Plot[{1/3 (Sqrt Sqrt[y] + y), -(1/3) (Sqrt Sqrt[y] + y)}, {y,
-3, 3}]

Cheers -- Sjoerd

On Mar 11, 11:22 am, SotonJames <james.fre... at soton.ac.uk> wrote:
> Hi,
>
> I've generated a surface in Mathematica 6 by solving some simultaneous eq=
uations for three variables (x[s,t], y[s,t] and z[s,t]) and parametric plot=
ting the variables against each other, with s and t the surface parameters.=
I want to get a one-dimensional cross-section of the surface, ie a slice t=
hrough constant z, but I don't know how to do this. Taking a constant s or =
t is the best I can do, but isn't nearly the same. I'd like the line cross-=
section to be displayed as a flat 2D graph, rather than be embedded in the =
original 3D space.
>
> Any suggestions on how to do this?
>