Re: Labeling points
- To: mathgroup at smc.vnet.net
- Subject: [mg88754] Re: Labeling points
- From: "David Park" <djmpark at comcast.net>
- Date: Fri, 16 May 2008 05:28:16 -0400 (EDT)
- References: <g0h81q$mtp$1@smc.vnet.net>
pointsandvalues = {{.5, 50, 50}, {1, 50, 75}, {1.5, 50, 88}, {2.0, 50,
94}, {1.0, 100, 25}, {1.5, 100, 50}, {2.0, 100, 69}, {1.5, 150,
13}, {2.0, 150, 31}, {2.0, 200, 6}}
Graphics[
{AbsolutePointSize[4],
Module[{loc = Part[#, {1, 2}], val = Part[#, 3]}, {Point[loc],
Text[Row[{val, Spacer[2], "%"}], loc, {-1.8, 0}]}] & /@
pointsandvalues},
AspectRatio -> 1,
Axes -> True, AxesOrigin -> {0, 0}, AxesLabel -> {"Time", "Damage"},
ImageSize -> 300]
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
"AngleWyrm" <anglewyrm at yahoo.com> wrote in message
news:g0h81q$mtp$1 at smc.vnet.net...
> Here's a graphic I created for a discussion on game theory:
> http://home.comcast.net/~anglewyrm/thread/dps.png
>
> I put the text next to the points in as a post-processing step by hand in
> PhotoShop.
>
> Is there a way to get mathematica to display such information?
>
>
>
