Re: Spurious Line
- To: mathgroup at smc.vnet.net
- Subject: [mg75037] Re: [mg75024] Spurious Line
- From: anguzman at ing.uchile.cl
- Date: Sun, 15 Apr 2007 05:05:59 -0400 (EDT)
- References: <200704140512.BAA06301@smc.vnet.net>
Hello:
It draws the line because it's specified between the fifth and sixth point
{300,-400*.7},{-100,0}
You need to tell Mathematica that there are two separate lines. One
way to do it is :
{ {{-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, DisplayFunction -> Identity] & /@ %;
Show[%, DisplayFunction -> $DisplayFunction]
That is, creating one graphic per line and putting all together.
at the end. The "DisplayFunction" stuff is for displaying only the
final merged-graphic.
Atte. Andres Guzman
Jeff Albert <albertj001 at hawaii.rr.com> ha escrito:
> 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,1=
00
> },{100,200*.9},{200,300*.8},{300,400*.7}}
>
> ListPlot[%, PlotJoined->True]
>
> Jeff
>
>
>
----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.
- References:
- Spurious Line
- From: "Jeff Albert" <albertj001@hawaii.rr.com>
- Spurious Line