Re: Where have all the axes gone?
- To: mathgroup at smc.vnet.net
- Subject: [mg40939] Re: Where have all the axes gone?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 25 Apr 2003 08:02:00 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <b88b3e$h3d$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
fg = FullGraphics[
Plot[Exp[-2x^2], {x, -5, 5}, PlotRange -> All,
PlotStyle -> {RGBColor[1, 0, 0], Thickness[0.2]}, Axes -> True,
DisplayFunction -> Identity]];
Show[fg, DisplayFunction -> $DisplayFunction, PlotRange -> All]
Regards
Jens
Pavel Pokorny wrote:
>
> Motto:
>
> Plot[Exp[-2x^2],{x,-5,5},
> PlotRange->All,
> PlotStyle->{RGBColor[1,0,0],Thickness[0.2]},
> Axes ->True
> ];
>
> Can you, please, help me to redraw the axes?
> Something with Epilog?
> I feel there is a simple solution I can't see.
>
> Any help appreciated.
>
> --
> Pavel Pokorny
> Math Dept, Prague Institute of Chemical Technology
> http://staffold.vscht.cz/mat/Pavel.Pokorny