Re: Graphics Question 2
- To: mathgroup@smc.vnet.net
- Subject: [mg12432] Re: Graphics Question 2
- From: "Allan Hayes" <hay@haystack.demon.cc.uk>
- Date: Thu, 14 May 1998 11:15:42 -0400
In my yesterday's posting on this subject I should have included the
Block technique for using Show without displaying.
lst = {{1,2},{2,1},{3,5}};
lp=ListPlot[lst, PlotStyle -> PointSize[.02],PlotJoined->True]
AxesAndOrigin[gr_, origin_]:=
Block[{$DisplayFunction = Identity},
Show[gr,
AxesOrigin ->origin,
PlotRange->
(Through[{Min,Max}[#]]&/@
Transpose[{FullOptions[gr, PlotRange],origin}]
)
]
]
AxesAndOrigin[lp,{0,0}]
Show[%]
--
Allan Hayes
Mathematica Training and Consulting
Leicester UK
http://www.haystack.demon.co.uk
hay@haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44(0)116 271 8642