MathGroup Archive 2007

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

Search the Archive

Re: Spurious Line

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75052] Re: [mg75024] Spurious Line
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 15 Apr 2007 05:13:43 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

Separate the data into two lists or reorder the data.

Needs["Graphics`"];

data={{-100,0},{0,-100},{100,-200*.9},{200,-300*.8},{300,-400*.7},
      {-100,0},{0,100},{100,200*.9},{200,300*.8},{300,400*.7}};

MultipleListPlot[Partition[data,Length[data]/2], PlotJoined->True] ;

DisplayTogether[ListPlot[#,PlotJoined->True]&/@
      Partition[data,Length[data]/2]];

Show[ListPlot[#,PlotJoined->True,DisplayFunction->Identity]&/@
      Partition[data,Length[data]/2],DisplayFunction->$DisplayFunction];

ListPlot[Sort[data,#1[[2]]<#2[[2]]&],PlotJoined->True];

Show[Graphics[Line[Sort[data,#1[[2]]<#2[[2]]&]]],Axes->True];


Bob Hanlon

---- Jeff Albert <albertj001 at hawaii.rr.com> wrote: 
> When I run the following I get what is obviously a spurious straight line
> connecting (-100,0) and (300,400*.7).  How do I get rid of that line?
> 
> {{-100,0},{0,-100},{100,-200*.9},{200,-300*.8},{300,-400*.7},{-100,0},{0,100
> },{100,200*.9},{200,300*.8},{300,400*.7}}
> 
> ListPlot[%, PlotJoined->True]
> 
> Jeff
> 
> 



  • Prev by Date: Interpolation
  • Next by Date: Re: minimum of a function
  • Previous by thread: Re: Spurious Line
  • Next by thread: Re: Spurious Line