MathGroup Archive 1997

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

Search the Archive

Re: ScaledListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg9448] Re: [mg9438] ScaledListPlot
  • From: jpk at max.mpae.gwdg.de
  • Date: Thu, 6 Nov 1997 02:39:57 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

> From hans.steffani at e-technik.tu-chemnitz.de Wed Nov  5 12:48:12 1997
> Date: Wed, 5 Nov 1997 01:56:56 -0500
> From: hans.steffani at e-technik.tu-chemnitz.de (Hans Steffani)
To: mathgroup at smc.vnet.net
> To: mathgroup at smc.vnet.net
> Subject: [mg9448] [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.
> 
> Is such tool available?
> 
> Hans Friedrich Steffani
> --
> Hans Friedrich Steffani
> Institut fuer Elektrische Maschinen und Antriebe, TU Chemnitz
> mailto:hans.steffani at e-technik.tu-chemnitz.de
> http://www.tu-chemnitz.de/~hfst/
> 
Hi Hans,

do You mean

(with data=Table[{x,Sin[x]},{x,0,Pi,Pi/10}];)

this

Show[
  Graphics[ 
    Line /@ Rest[Transpose[{data,RotateRight[data]}]] /. 
      Line[{{x1_,y1_},{x2_,y2_}}] :>
        Line[{{x1,y1},{x2,y1},{x2,y2}}],
    Axes->True
   ]
]

? With edges below the lines?

Jens


  • Prev by Date: Re: Try again, how to interleave two lists?
  • Next by Date: Getting the Update!!
  • Previous by thread: ScaledListPlot
  • Next by thread: Re: ScaledListPlot