MathGroup Archive 2007

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

Search the Archive

Re: Spurious Line


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