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