Re: Simple Query
- To: mathgroup at smc.vnet.net
- Subject: [mg24722] Re: Simple Query
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Wed, 9 Aug 2000 02:31:21 -0400 (EDT)
- References: <8mdm5n$5nl@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Ken Here is a trick using Frame that may help Plot[Sin[x], {x, 0, 2}, FrameLabel -> {"xlabel", "ylabel"}, PlotRange -> All, Frame -> {True, True, False, False} ]; Plot[Sin[x], {x, 0, 2}, FrameLabel -> {"xlabel", "ylabel"}, PlotRange -> All, Frame -> {True, True, False, False}, RotateLabel -> False ]; This seems OK provided that you want the axes origin to be at the bottom left. If this is not the case then the following may give some ideas. {{xmin, xmax}, {ymin, ymax}} = PlotRange[gr]; {ox, oy} = AbsoluteOptions[gr, AxesOrigin][[1, 2]]; Show[FullGraphics[gr], Graphics[{Text["xlabel", {(xmin + xmax)/2, oy - .2}], Text["ylabel", {ox - .2, (ymin + ymax)/2}] }], PlotRange -> {{xmin - .3, xmax}, {ymin - .3, ymax}}]; Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "Ken Rice" <kmr1004 at hermes.cam.ac.uk> wrote in message news:8mdm5n$5nl at smc.vnet.net... > Dear All, > > Does anyone know how to get Axes Labels centered, rather than appearing on > the ends of axes? The manual talks about 'default' settings but not, so > far as I can figure, how to change them. > > Many thanks > > Ken > > _____________________________________________________ > Kenneth Rice > Churchill College MRC Biostatistics Unit > Storey's Way Inst. of Public Health > Cambridge Forvie Site, Robinson Way > CB3 0DS Cambridge, CB2 2SR > Tel: (+44) 01223-517-361 (+44) 01223-330-367 > E-mail: kmr1004 at cam.ac.uk > >