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)

```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