RE: Where have all the axes gone?
- To: mathgroup at smc.vnet.net
- Subject: [mg40953] RE: [mg40917] Where have all the axes gone?
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 25 Apr 2003 08:05:42 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Pavel,
You need the AxesFront -> True option. And that option is in the FilledPlot
package. (I have always thought it should be a general Graphics option
because there are many places where it is useful in addition to filled
plots.)
Then, Plot will not accept AxesFront as an option so you have to use this
more difficult construction.
Needs["Graphics`FilledPlot`"]
Show[
Plot[Exp[-2x^2], {x, -5, 5},
PlotRange -> All,
PlotStyle -> {RGBColor[1, 0, 0], Thickness[0.2]},
DisplayFunction -> Identity],
AxesFront -> True,
DisplayFunction -> $DisplayFunction];
If you use the DrawGraphics package from my web site you can do it more
naturally.
Needs["DrawGraphics`DrawingMaster`"]
Draw2D[
{Red, Thickness[0.2],
Draw[Exp[-2x^2], {x, -5, 5}]},
PlotRange -> All,
Axes -> True,
AxesFront -> True
];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Pavel Pokorny [mailto:Pavel.Pokorny at vscht.cz]
To: mathgroup at smc.vnet.net
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