Re: a very simple graphics problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg61053] Re: a very simple graphics problem*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Sun, 9 Oct 2005 01:35:01 -0400 (EDT)*Organization*: Uni Leipzig*References*: <di7reg$kpr$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, may be that you mean jo5=Line[{{0.8,0},{0.9,0.1}}]; instead of jo5=Line[{{0.8,0},{0.9,01}}]; ?? Regards Jens "Francisco Gutierrez" <fgutiers2002 at yahoo.com> schrieb im Newsbeitrag news:di7reg$kpr$1 at smc.vnet.net... | | Dear Friends: | This is a quite primitive problem (actually, 2 related problems). | I have a set of points, which I want to put into a triangle and then draw some lines. | The triangle I build in the following way= | | triangulo=Line[{{0,0},{0.5,0.5},{1,0},{0,0}}]; | | The I christen my set of points: | | milista={{0.589286,0.330357},{0.553571,0.4375},{0.552632,0.429825},{0.508772,0.0526316},{0.578947,0.342105},{0.57,0.26},{0.57,0.29},{0.48,0.25}} | | I make a graphic: | | miejemplito=ListPlot[milista, PlotStyle®{PointSize[0.03]} ] | | Then I put them into the triangle: | | Show[Graphics[triangulo], miejemplito, PlotRange®All] | | All this works fine. I start to draw the lines: | | jo1=Line[{{0.5,0},{0.5,0.5}}]; | | jo2=Line[{{0.4,0.4},{0.8,0}}]; | | jo3=Line[{{0.4,0.4},{0.8,0}}]; | | jo4=Line[{{0.1,0.1},{0.2,0}}]; | | and then | | Show[Graphics[triangulo],Graphics[jo1],Graphics[jo2],Graphics[jo3], Graphics[jo4], miejemplito, PlotRange®All] | | So far, so good. However, when I add | | jo5=Line[{{0.8,0},{0.9,01}}]; | | and then give the directive | | Show[Graphics[triangulo],Graphics[jo1],Graphics[jo2],Graphics[jo3], Graphics[jo4],Graphics[jo5], miejemplito, PlotRange®All], I get an extremely awkward and badly drawn graphic, and the last line (jo5) escapes the triangle. | | | | a. How can I correct the problem? | | b. How can I put labels to each point (and eventually colour them differently)? | | | | Thanks in advance | | Fg | | | |