Re: Spurious Line

• To: mathgroup at smc.vnet.net
• Subject: [mg75038] Re: Spurious Line
• From: "dimitris" <dimmechan at yahoo.com>
• Date: Sun, 15 Apr 2007 05:06:31 -0400 (EDT)
• References: <evpoeu\$69p\$1@smc.vnet.net>

```How about

In[278]:=
lst = {{-100, 0}, {0, -100}, {100, -200*0.9}, {200, -300*0.8}, {300,
-400*0.7}, {-100, 0}, {0, 100}, {100, 200*0.9},
{200, 300*0.8}, {300, 400*0.7}}

Out[278]=
{{-100,0},{0,-100},{100,-180.},{200,-240.},{300,-280.},{-100,0},
{0,100},{100,180.},{200,240.},{300,280.}}

In[279]:=
Print["use partition to divide the list into two sublists"]
dat = Partition[lst, 5]
Print["create the points respectively to your data"]
pois = {Black, PointSize[0.02], Point /@ lst}
Print["create the lines that connecting the points of your data"]
lns = {Blue, (Line[dat[[#1]]] & ) /@ Range[2]}
Print["not requested but just as an example of working"]
ves = {Red, (Line[{{#1[[1]], #1[[2]]}, {#1[[1]], -#1[[2]]}}] & ) /@
{{0, 100}, {100, 180}, {200, 240}, {300, 280}}}
Print["show the resulting graph"]
Show[Graphics[{pois, lns, ves}], Frame -> {True, True, False, False}]

(*copy paste In[279] as a whole cell*)

???

Dimitris

=CF/=C7 Jeff Albert =DD=E3=F1=E1=F8=E5:
> 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: Re: Spurious Line
• Next by Date: How to Eliminate
• Previous by thread: Re: Spurious Line
• Next by thread: Re: Spurious Line