MathGroup Archive 2007

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

Search the Archive

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:
  • Prev by Date: Re: Re: Clean-up code for packages
  • Next by Date: Re: Spurious Line
  • Previous by thread: RE: Spurious Line
  • Next by thread: Re: Spurious Line