MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Condition/constraint problem
  • Next by Date: Re: solving 3 eqns and 3 unkwns
  • Previous by thread: Re: Where have all the axes gone?
  • Next by thread: RE: Where have all the axes gone?