a very simple graphics problem
- To: mathgroup at smc.vnet.net
- Subject: [mg61050] a very simple graphics problem
- From: Francisco Gutierrez <fgutiers2002 at yahoo.com>
- Date: Sat, 8 Oct 2005 02:49:48 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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