Re: Stack graphics
- To: mathgroup@smc.vnet.net
- Subject: [mg11672] Re: Stack graphics
- From: "Xah" <xah@best.com>
- Date: Sat, 21 Mar 1998 18:35:09 -0500
- Organization: Venus & Xah Love Factory
- References: <6esmn4$636@smc.vnet.net>
In article <6esmn4$636@smc.vnet.net> , "Marcia T. Fontenelle"
<fontenelle@atom.kth.se> wrote:
>I would like to plot a set of curves, say f[x,t], for several different
>t's, almost like a 3D plot, but with mesh just on t.
I assume you want to generate a rendered surface with the wireframes
going in only one direction. There isn't a build-in option to do it.
The following is one technique.
This technique is based on the fact that EdgeForm[] tells Show not to
display the edges of polygons. Thus, adding user generated Lines across
the surface would be the desired result.
Clear[f];
f[x_,t_]:=Exp[-(x-Cos[Pi*t])^2];
Clear[m,n];
{m,n}={35,30};
Clear[data,gp];
data=N@Table[{x,t,f[x,t]},{t,0,3,3/(n-1)},{x,-5,5,10/(m-1)}];
gp=First@Graphics3D@Plot3D[f[x,t],{x,-5,5},{t,0,3},PlotPoints->{m,n}];
Show[Graphics3D[{{EdgeForm[],gp},{Hue[0.13],Line/@data}}],
BoxRatios->{1,1,.5}];
Xah, xah@best.com
http://www.best.com/~xah/Wallpaper_dir/c0_WallPaper.html
Department of philosophy
Bovine University