Re: ScaledListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg9474] Re: [mg9438] ScaledListPlot
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Thu, 6 Nov 1997 02:40:17 -0500
- Sender: owner-wri-mathgroup at wolfram.com
hans.steffani at e-technik.tu-chemnitz.de (Hans Steffani) [mg9438] ScaledListPlot > The ListPlot option PlotJoined allows you to join the points by > lines. I need an option which connects two points by two lines > which are parallel to the coordinate axes. Hans: Here is a starter - the construction needs to be controled by an option and to deal with a single list of numbers. In[83]:= ListPlotScaled[lst_, opts___?OptionQ]:= ListPlot[ Drop[ Partition[ Flatten[ Transpose[{#,#2,RotateLeft[#1],#2}&@@Transpose[lst]] ], 2], -1], opts] Test ListPlotScaled[{{1,3},{2,7},{3,4},{5,5}},PlotJoined ->True, PlotStyle ->{Hue[0], Thickness[.01]} ] Allan Hayes hay at haystack.demon.co.uk http://www.haystack.demon.co.uk/training.html voice:+44 (0)116 2714198 fax: +44 (0)116 2718642 Leicester, UK