MathGroup Archive 1998

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

Search the Archive

Re: Graphics Question 2



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



  • Prev by Date: Re: Matrix manipulation
  • Next by Date: Problem defining transformation rules
  • Prev by thread: Re: a^n*b^n ?? (a*b)^n
  • Next by thread: Problem defining transformation rules