Re: Adding text to RegionPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg98567] Re: [mg98536] Adding text to RegionPlot*From*: "David Park" <djmpark at comcast.net>*Date*: Mon, 13 Apr 2009 03:32:15 -0400 (EDT)*References*: <2081939.1239523047445.JavaMail.root@n11>

Use Epilog, RegionPlot[y <= (1/x^2) && y >= 0, {x, 1, 3}, {y, 0, 1}, PlotRange -> {{0, 3}, {0, 1.1}}, Epilog -> {Text["mytext", {1.5, 1}]}, AspectRatio -> Automatic] One has to wonder why the default AspectRatio for RegionPlot is 1 and all the examples in Help use iterators that result in a square region (except the example in Options, AspectRatio). An AspectRatio of 1 will normally distort the shape of the region. With the Presentations package you don't have to use Epilog or Show and you can just draw one thing after another without any jumping of graphics levels. Needs["Presentations`Master`"] Draw2D[ {RegionDraw[y <= (1/x^2) && y >= 0, {x, 1, 3}, {y, 0, 1}], RegionDraw[y <= Sqrt[x] && x <= 2, {x, 0, 3}, {y, 0, 3}, PlotStyle -> Opacity[.3, Orange], MaxRecursion -> 4], Text["mytext", {1.5, 1}]}, PlotRange -> {{0, 3}, {0, 1.5}}, Frame -> True ] David Park djmpark at comcast.net http://home.comcast.net/~djmpark/ From: Jim Rockford [mailto:jim.rockford1 at gmail.com] I would like to add text at specific (x,y) locations for a 2D graphic generated by RegionPlot (meaning, I'd rather not use the graphic tool and add text by hand). Is there a way to do this? I get mathematica complaints that RegionPlot is not a "type of graphics." For example, this code fails: RegionPlot[y <= (1/x^2) && y >= 0, {x, 1, 3}, {y, 0, 1}, PlotRange -> {{0, 3}, {0, 1}},Graphics[Text["mytext", {1.5, 1}]] Apparently I'm using Graphics[Text[]] incorrectly. How can I get such a simple function of putting text at a specific location to work in RegionPlot? Thanks, Jim