Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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
|
|
|
| 



  • Prev by Date: Re: Reevaluation of conditional arguments when the condition has changed
  • Next by Date: Re: Reevaluation of conditional arguments when the condition has changed
  • Previous by thread: a very simple graphics problem
  • Next by thread: RE: a very simple graphics problem