       # 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

```

• Prev by Date: Re: How I can calculate a surface of a points list?
• Next by Date: Re: Question: inequalities
• Prev by thread: Re: Stack graphics
• Next by thread: Re: Stack graphics