Re: Stack graphics
- To: mathgroup@smc.vnet.net
- Subject: [mg11690] Re: [mg11632] Stack graphics
- From: "Dr. Sergio Terrazas" <sterraza@campus.cdj.itesm.mx>
- Date: Sat, 21 Mar 1998 18:35:23 -0500
Marcia:
I think that what you want to do is something like an example in section 18.2
of the book Mathematica Graphics, by Tom Wickham-Jones.
If you do not have access to this book, I can mail you the code.
Cheers!
Sergio Terrazas
At 07:48 PM 3/19/98 -0500, you 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. More like
>StackGraphics does, but each curve should hide the ones on the back.
>
>Observe the following example and compare the two outputs
>
><<Graphics`Graphics3D`
>
>f[x_,t_]:=Exp[-(x-Cos[Pi t])^2]
>
>Plot3D[f[x,t],{x,-5,5},{t,0,3},
>PlotPoints->35,Boxed->False,Shading->False]
>
>** Here Mathematica draws a beautiful plot, with HiddenSurface->True,
>but the mesh is in both directions
>
>gtab=Table[Plot[f[x,t],{x,-5,5},DisplayFunction -> Identity], {t,
>0,3,0.2}];
>
>Show[StackGraphics[gtab],PlotRange->{0,1.1},Boxed->False]
>
>** Here StackGraphics produces mesh just in t, as wanted, but I cannot
>set HiddenSurface->True. The result is not adequate for my problem.
>(Just imagine something a little more complicated than Gaussian packets
>oscillating forth and back in time-it would be certainly too hard to
>visualize.)
>
>What would be the solution for this? Is there any option in Plot3D that
>I haven't seen yet?
>
>Best regards,
>
>Marcia
>
>--
>Marcia T. Fontenelle
>Laser Physics and Quantum Optics
>KTH - Royal Institute of Technology
>10044 Stockholm
>Sweden
>
>email: fontenelle@atom.kth.se
>www: http://bob.optics.kth.se/Members/Fontenelle
>
>
>
>