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