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