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