Re: Vertical ContourPlot, please help!!!
- To: mathgroup at smc.vnet.net
- Subject: [mg42827] Re: Vertical ContourPlot, please help!!!
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 30 Jul 2003 19:30:13 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bg7ul5$hf0$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
something like
f[x_, y_] := Exp[-x^2 - y^2]*x
lines = Table[N[{x, y, f[x, y]}], {y, -2, 2, 2/32}, {x, -2, 2, 2/32}];
plt3d = Graphics3D[
Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}, PlotPoints -> 32,
DisplayFunction -> Identity]]
Show[Graphics3D[Line [ReplacePart[#, -2, 2] & /@ #] & /@ lines],
Graphics3D[Line [ReplacePart[#, 2, 1] & /@ #] & /@ Transpose[lines]],
plt3d,
Axes -> True, BoxRatios -> {1, 1, 1}]
Regards
Jens
Alex Markatis wrote:
>
> Hi everyone!
>
> If anyone can help me with this, I would appreciate it!
>
> I have a 3D graph of the form z=f[x,y]. If I use the
> ContourPlot command, then the curves that are generated
> are the intersections of the surface f[x,y] with a family
> of horizontal planes, which are all parallel
> to the plane x-y.
>
> But I want to make a "vertical" contour graph. I want
> to "cut" my f[x,y] surface with a family of vertical planes, that are
> parallel to the y-z plane, and then project these curves to
> the y-z plane.
>
> Let me also specify that the equation z=f[x,y] cannot
> be written in the form: x=f1[y,z] or y=f1[x,z]
>
> Any ideas on this???
> Thank you very much in advance!
>
> Alex Markatis
> Civil Engineer
> GREECE